Novità

richiesta listato

paololotto

Super member
ciao tutti
avrei una richiesta da fare ..... un listato che fa le seguenti cose:

bisognare trovare un ambo gemello su una qualsiasi ruota, la cosa importante è che nella ruota dove sia uscito l'ambo ci devono essere due numeri che fanno parte della stessa decina dei gemelli estratti

faccio un esempio per capire meglio

estrazione 21 dicembre 2010

genova 90-59-10-11-55

è presente un ambo gemello e sono presenti due numeri della stessa decina dei gemelli

gemelli 11-55
numeri stessa decina 10-59

per calcolare l'ambata si gioca l'unico numero che nn è legato ai gemelli in questo caso il 90
come abbinamento si fa : 55-11= 44 ABBINAMENTO
seconda ambata si fa 90 (l'ambata) meno il gemello piu piccolo cioè 90-11= 79 2°ambata e secondo abbinamento

prev
90-79 ambate
90-44 ambo
79-44 ambo
90-79 ambo
da giocare sulla ruota dove è sortito l'ambo gemello (genova ) e su tutte
10 colpi
se esce solo l'ambata il gioco continua

CASO PARTICOLARE...
23 ottobre 2012
napoli 23-49-22-43-44
come si nota sono presenti due numeri facenti parte della stessa decina del gemello 44 (43-49)
quando ci sono questi casi l'ambata sara' il numero 49 ......perche 49 è il piu distante dal gemello 44 (5 unita')
la prev sara 27-49 ambate
49-22
49-27
27-22

spero di essere stato chiaro
 
Ho fatto lo script, ma non sono riuscito ad impostare il CASO PARTICOLARE, quindi per lo stesso caso ti da due giocate una con il 49 e una con il 43


Sub Main()
Scrivi " Metodo di Paololotto Listato By Sospetto",1 : Scrivi
Dim ruote(10)
Dim ambata(2)
Dim posta(1)
Dim num1(2)
Dim num2(2)
Dim num3(2)
Dim num4(2)
Dim num5(2)
Dim postambo(2)
posta(1) = 5
postambo(1) = 1
postambo(2) = 1
tr = InputBox("Estrazione di partenza ?",,8300)
cc = InputBox("Inserisci i colpi di gioco",,10)
casi = 0
ini = tr
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p = 1 To 4
For p3 = p + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r1,p)
n4 = Estratto(es,r1,p3)
If Decina(n1) = Cadenza(n1) And Decina(n2) = Cadenza(n2) Then
If Decina(n3) = Decina(n1) And Decina(n4) = Decina(n2) Or Decina(n4) = Decina(n1) And Decina(n3) = Decina(n2) Then
If(Decina(n3) <> Decina(n4)) Then
If p <> p1 And p3 <> p2 Then
If p <> p2 And p3 <> p1 Then
ruote(1) = r1
casi = casi + 1
Scrivi String(100,"*") & " Caso n° " & Format2(casi),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " Ambo " & Format2(n1) & "-" & Format2(n2)

'-------------------------------------------------- Giocata

a =(Estratto(es,r1,1) +(Estratto(es,r1,2)) +(Estratto(es,r1,3)) +(Estratto(es,r1,4)) +(Estratto(es,r1,5))) -((n1 + n2 + n3 + n4))
ambata(1) = a
'---------------------------------------------------
num1(1) = a
num1(2) = Distanza(n1,n2)
'--------------------------------------------------
num2(1) = a
num2(2) = 90 - n1
If n2 < n1 Then
num2(2) = 90 - n2
End If
'--------------------------------------------------
num3(1) = num2(2)
num3(2) = num1(2)
'--------------------------------------------------

ambata(2) = num2(2)

ImpostaGiocata 1,ambata,ruote,posta,cc,0
ImpostaGiocata 2,num1,ruote,postambo,cc,0
ImpostaGiocata 3,num2,ruote,postambo,cc,0
ImpostaGiocata 4,num3,ruote,postambo,cc,0

Gioca es

End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
 
ciao sospetto
grazie per il listato, ma non è corretto.
le prev vanno giocate sulla ruota dove è uscito l'ambo gemello e su tutte solo per ambo
e poi,mi sono dimenticato......... se nella sottrazione per ricavare la 2° ambata/abbinamento il numero è piu piccolo del gemello, prima lo si somma al 90 e poi lo si sottrae al gemello piu piccolo
grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 agosto 2025
    Bari
    77
    43
    54
    27
    51
    Cagliari
    22
    61
    76
    27
    13
    Firenze
    75
    82
    78
    15
    80
    Genova
    18
    28
    60
    37
    50
    Milano
    84
    06
    90
    36
    40
    Napoli
    47
    09
    53
    65
    14
    Palermo
    74
    29
    40
    50
    30
    Roma
    79
    05
    15
    08
    26
    Torino
    03
    02
    60
    27
    26
    Venezia
    59
    14
    32
    70
    36
    Nazionale
    48
    09
    04
    88
    52
    Estrazione Simbolotto
    Nazionale
    07
    24
    42
    16
    03
Indietro
Alto