Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
quote:Originally posted by pier58
Si cirilla potrebbe bastare quello, ma ho ancora tanti esempi dove l'ambo viene pescato sulle due estrazioni precedenti all'uscita del 90.
Ieri è uscito il 90 a CA e quindi, personalmente giochero così:
43.81.52
81.52.20
52.20.38
20.38.43
52.62.87
62.87.60
87.60.76
60.76.52
e per sorti superiori
43.81.52.62
52.20.87.60
20.38.60.76
pierluigi
quote:Originally posted by mike58
quote:Originally posted by franca46
ciao Roma
scusa se rispondo io ,
metti l'apice all'inizio delle righe di errore e vedi.
Franca46
scusa Franca, mettere l'apice dove da errore non significa niente i codici hanno una definizione ben precisa e devono tutti essere soddisfratti, se non si è capaci a modificarli e inutile andare per tentativi.
Mike58
Sub Main
'il 90 fa ripetere l'ambo by pier58
Dim rt(1),num(10),ps(5)
sp = CInt(InputBox("quale numero spia ? ",,90))
'pp = CInt(InputBox("quale posizione spia ? ",,1))
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
casi = fin - Ini
Scrivi String(100,"="),1
Scrivi String(25," ")& " il 90 fa ripetere l'ambo by pier58 ",1
Scrivi String(90,"=") & " by Mike58",1
ps(2) = 10 ' posta per ambo
ps(3) = 2 ' posta per terno
k = 10
For es = ini To fin
Messaggio es
For r = 1 To 12
If r = 11 Then r = 12
rt(1) = r
For pp = p + 1 To 5
a = Estratto(es,r,pp)
b = Posizione(es,r,sp)
If a = sp Then
co = co + 1
Scrivi String(85,"-") & " Caso n°" & co
Scrivi DataEstrazione(es - 2) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 2,r)
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 1,r)
ColoreTesto 2 : Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " -- spia ----> " & sp & " -- posiz. " & b,2
ColoreTesto 0
Scrivi String(85,"-")
num(1) = Estratto(es - 1,r,1):If num(1) = 90 Then num(1) = 0
num(2) = Estratto(es - 1,r,2):If num(2) = 90 Then num(2) = 0
num(3) = Estratto(es - 1,r,3):If num(3) = 90 Then num(3) = 0
num(4) = Estratto(es - 1,r,4):If num(4) = 90 Then num(4) = 0
num(5) = Estratto(es - 1,r,5):If num(5) = 90 Then num(5) = 0
num(6) = Estratto(es - 2,r,1): If num(6) = 90 Then num(6) = 0
num(7) = Estratto(es - 2,r,2): If num(7) = 90 Then num(7) = 0
num(8) = Estratto(es - 2,r,3):If num(8) = 90 Then num(8) = 0
num(9) = Estratto(es - 2,r,4):If num(9) = 90 Then num(9) = 0
num(10) = Estratto(es - 2,r,5): If num(10) = 90 Then num(10) = 0
EliminaRipetuti(num)
ImpostaGiocata 1,num,rt,ps,k,2
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub
'Scrivi " Metodo delle estrazioni precedenti al 90 ---> ideato da Pier58 ",1,- 1,6
'Scrivi " Resoconto dal.. " & DataEstrazione(Ini) & " al.. " & DataEstrazione(fin) & " ---> Estrazioni esaminate ... " & casi,1,- 1,4
Scrivi String(100,"="),1
Scrivi String(25," ")& " il 90 fa ripetere l'ambo by pier58 ",1
Scrivi String(90,"=") & " by Mike58",1