Novità

metodo somma 23

Cinzia27

Premium Member
Vedo se posso fare qualcosa, ma non mi è chiara questa indicazione:
script somma 23 su ba ca 1^ e 4^ pos
cosa significa, che la somma del 1° e del 4° estratto dev' essere 23 sia su Ba che Ca ?
Potete chiarire ?
Ciao
Cinzia
 

joe

Advanced Member >PLATINUM PLUS<
Buon giorno, a tutte/i.

Purtroppo la mia curiosità ha prevalso

sul rifiutare di avere la conferma di quanto facilmente prevedibile.

Cioè che è l'ennesimo "ciapaciuck", come si direbbe nel carmagnolese.

Ovvero si è alla presentazione di un breve studio per dimostrare

l'esito un risultato noto a priori.

Lo script è molto più complesso del necessario ...

... avendo previsto che si sarebbe poi dovuto correggere.

E' quasi universale con la correzione di una riga aderisce

alla (nuova o più completa) descrizione.

Ecco dunque, la prova provabile:

Codice:
Sub Main
   'script per Spaziometria By Joe V.1.1 del 27/07/2019
   'somma 23 su ba ca 1^ e 4^ pos
   'ruote ric ba ca ruote gioco ro To, colpi 5
   'capo g 59,abb,6,25,58,10
   Dim Ini,Fin,Es,R1,R2,P1,P2
   Dim A,B,C,D,S
   Dim X,K,RG,Nu(2),Po(2),Ru(2),Co,So
   RG = Array(59,6,25,58,10)
   Ru(1) = RO_
   Ru(2) = TO_
   Nu(1) = RG(0)
   Po(2) = 1 : Co = 5 : So = 2
   Ini = 9000
   Fin = EstrazioneFin
   S = 23
   R1 = BA_
   R2 = CA_
   P1 = 1
   P2 = 4
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      A = Estratto(Es,R1,P1)
      B = Estratto(Es,R1,P2)
      C = Estratto(Es,R2,P1)
      D = Estratto(Es,R2,P2)
      'If Fuori90(A + B) = S Or Fuori90(C + D) = S Then
      If Fuori90(A + D) = S Then
      K= K+1
         Scrivi String(106,"=") &FormatSpace (K,4,True)
         For X = 1 To UBound(RG)
            Nu(2) = RG(X)
            ImpostaGiocata X,Nu,Ru,Po,Co,So
         Next
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub

:)
 

joe

Advanced Member >PLATINUM PLUS<
Se cerchi tra gli esempi,

... di metodi simili a quello proposto ce ne sono decine e decine.

Sembra essere ... "Uno in Più" ... tra loro.

Io personalmente penso che i cosiddetti "Numeri del Lotto", non siano numeri

e tanto meno, non vadano sommati ...

... poi però ognuno è libero di regalare soldi all'erario come meglio crede.

Ho modificato lo script precedente per adattarlo alle nuove richieste...

considerando che ci vogliono 5 minuti ... però devi imparare il "fai da te".

Codice:
Option Explicit
Sub Main
  'Script per Spaziometria By Joe V.1.0 del 31/07/2019
  'Bari : 1 Estratto del mese +28+53+81+83. Colpi 13
  Dim Ini,Fin,Es
  Dim X,K,RG,Nu(4),Po(2),Ru(1),Co,So
  Ru(1) = BA_
  RG = Array(0,28,53,81,83)
  Po(2) = 1 : Co = 13 : So = 2
  Ini = 7440
  Fin = EstrazioneFin
  For Es = Ini To Fin
    AvanzamentoElab Ini,Fin,Es
    If IndiceMensile(Es) = 1 Then
      RG(0) = Estratto(Es,Ru(1),1)
      K = K + 1
      For X = 1 To 4
        Nu(X) = Fuori90(RG(0) + RG(X))
      Next
      Scrivi String(106,"=") & FormatSpace(K,4,True)
      ImpostaGiocata 1,Nu,Ru,Po,Co,So
      Gioca Es
    End If
  Next
  ScriviResoconto
End Sub

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 maggio 2024
    Bari
    54
    50
    84
    64
    62
    Cagliari
    53
    65
    02
    72
    32
    Firenze
    40
    80
    14
    19
    13
    Genova
    05
    82
    07
    61
    47
    Milano
    86
    37
    62
    02
    55
    Napoli
    86
    23
    73
    74
    31
    Palermo
    78
    01
    57
    33
    47
    Roma
    40
    66
    27
    45
    64
    Torino
    76
    29
    05
    49
    64
    Venezia
    44
    07
    66
    68
    87
    Nazionale
    28
    88
    09
    77
    72
    Estrazione Simbolotto
    Milano
    31
    39
    13
    17
    35
Alto