Dopo l'uscita di un ambo simmetrico su Milano si mette in gioco la relativa ambata.
Sub Main() ColoreTesto 2 :Scrivi "METODO BY BLACKMORE - LIST. BY DJ NOMADE - MODIFICA BY BLACK",1 ColoreTesto 2 :Scrivi "** 1 AMBATA SU MILANO DOPO L'USCITA DI UN AMBO SIMMETRICO **",1 ColoreTesto 2 :Scrivi "*************** ESTRAZIONI ESAMINATE: 1975 *****************",1 ColoreTesto 2 :Scrivi "******* PERIODO DI RICERCA: 15-07-1995 // 18-08-2011 *******",1 Scrivi : ColoreTesto 0 Dim ruota(1),Num(1),nu3(1),ruote(1),ptt(1) ptt(1) = 1 clp = 9 ini = EstrazioneFin - 1975 fin = EstrazioneFin co = 0 For es = ini To fin Messaggio es
ruote(1) = 5 For p = 1 To 4 For p1 = p + 1 To 5 a = Estratto(es,5,p) : b = Estratto(es,5,p1) ok = 0 '-------------------------------------------------------------------------------------------- If a = 43 And b = 73 Or a = 73 And b = 43 Then Num(1) = Fuori90(Estratto(es,5,3) + 23):ok = 1 If a = 60 And b = 90 Or a = 90 And b = 60 Then Num(1) = Fuori90(Estratto(es,5,3) + 26):ok = 1 If a = 06 And b = 36 Or a = 36 And b = 06 Then Num(1) = Fuori90(Estratto(es,5,1) + 18):ok = 1 If a = 51 And b = 81 Or a = 81 And b = 51 Then Num(1) = Fuori90(Estratto(es,5,5) + 24):ok = 1 If a = 01 And b = 31 Or a = 31 And b = 01 Then Num(1) = Fuori90(Estratto(es,5,3) + 12):ok = 1 If a = 26 And b = 56 Or a = 56 And b = 26 Then Num(1) = Fuori90(Estratto(es,5,2) + 82):ok = 1 If a = 03 And b = 63 Or a = 63 And b = 03 Then Num(1) = Fuori90(Estratto(es,5,3) + 77):ok = 1 If a = 22 And b = 52 Or a = 52 And b = 22 Then Num(1) = Fuori90(Estratto(es,5,2) + 32):ok = 1 If a = 08 And b = 38 Or a = 38 And b = 08 Then Num(1) = Fuori90(Estratto(es,5,5) + 16):ok = 1 If a = 05 And b = 35 Or a = 35 And b = 05 Then Num(1) = Fuori90(Estratto(es,5,1) + 52):ok = 1 If a = 18 And b = 78 Or a = 78 And b = 18 Then Num(1) = Fuori90(Estratto(es,5,5) + 12):ok = 1 If a = 19 And b = 49 Or a = 49 And b = 19 Then Num(1) = Fuori90(Estratto(es,5,4) + 65):ok = 1 If a = 23 And b = 83 Or a = 83 And b = 23 Then Num(1) = Fuori90(Estratto(es,5,5) + 28):ok = 1 If a = 47 And b = 77 Or a = 77 And b = 47 Then Num(1) = Fuori90(Estratto(es,5,2) + 43):ok = 1 If a = 01 And b = 61 Or a = 61 And b = 01 Then Num(1) = Fuori90(Estratto(es,5,4) + 18):ok = 1 If a = 10 And b = 40 Or a = 40 And b = 10 Then Num(1) = Fuori90(Estratto(es,5,2) + 43):ok = 1 If a = 30 And b = 60 Or a = 60 And b = 30 Then Num(1) = Fuori90(Estratto(es,5,3) + 21):ok = 1 If a = 28 And b = 58 Or a = 58 And b = 28 Then Num(1) = Fuori90(Estratto(es,5,5) + 11):ok = 1 If a = 10 And b = 70 Or a = 70 And b = 10 Then Num(1) = Fuori90(Estratto(es,5,5) + 34):ok = 1 If a = 50 And b = 80 Or a = 80 And b = 50 Then Num(1) = Fuori90(Estratto(es,5,1) + 16):ok = 1 If a = 42 And b = 72 Or a = 72 And b = 42 Then Num(1) = Fuori90(Estratto(es,5,5) + 31):ok = 1 If a = 07 And b = 37 Or a = 37 And b = 07 Then Num(1) = Fuori90(Estratto(es,5,1) + 24):ok = 1 If a = 15 And b = 45 Or a = 45 And b = 15 Then Num(1) = Fuori90(Estratto(es,5,4) + 18):ok = 1 If a = 38 And b = 68 Or a = 68 And b = 38 Then Num(1) = Fuori90(Estratto(es,5,3) + 36):ok = 1 If a = 41 And b = 71 Or a = 71 And b = 41 Then Num(1) = Fuori90(Estratto(es,5,2) + 22):ok = 1 If a = 09 And b = 69 Or a = 69 And b = 09 Then Num(1) = Fuori90(Estratto(es,5,2) + 28):ok = 1 If a = 30 And b = 90 Or a = 90 And b = 30 Then Num(1) = Fuori90(Estratto(es,5,4) + 26):ok = 1 If a = 44 And b = 74 Or a = 74 And b = 44 Then Num(1) = Fuori90(Estratto(es,5,2) + 73):ok = 1 '-------------------------------------------------------------------------------------------- If ok = 1 Then co = co + 1
Scrivi String(74,"*") & " Caso n°" & co,1 Scrivi DataEstrazione(es) & " " & SiglaRuota(5) & " " & StringaEstratti(es,5) & " AMBO SIMMETRICO BY BLACKMORE: " & a & " - " & b,1
Scrivi String(74,"*"),1 ruota(1) = 1:cg = 0
nu3(1) = Num(1):nu3(1) = Num(1)
cg = cg + 1 ImpostaGiocata cg,nu3,ruote,ptt,clp,1
Gioca es
End If
Next:Next:Next':Next ScriviResoconto
End Sub
|
Modificato da - Rodrigo su 16 novembre 2013 13:39:30 |
|