Novità

metodo somma 23

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
 
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

:)
 
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
    sabato 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43

Ultimi Messaggi

Indietro
Alto