Sperando che non sia: una lunga attesa...
Saluti e Buone Feste a tutti
Codice:
'Dal quarto Estratto della ruota di VENEZIA dell' ULTIMA Estrazione:
' SEI AMBI in gioco su Venezia
'ESEGUIRE ad ogni aggiornamento dell' archivio (gli CAMBIANO ad ogni estrazione)
[B][SIZE=2][/B][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] Main()[/COLOR]
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Dim[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] n1(3)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Dim[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] n2(2)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Dim[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ruota(1)
ruota(1) = 10
Ini = 8472
fin = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]EstrazioneFin
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] es = ini [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] fin
nu = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,10,4)
colpi = colpi + 1
n1(1) = nu
n1(2) = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 1)
n1(3) = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 89)
n2(1) = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 7)
n2(2) = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 83)
a = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 7)
b = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 83)
c1 = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 89)
c2 = nu
c3 = [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](90 + nu + 1)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] es < fin [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "Venezia - AMBI IN GIOCO per l'estrazione SUCCESSIVA al ..." & [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es) & "...colpo..." & colpi & "° negativo",0,1
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a & "." & c1 & ";" & a & "." & c2 & ";" & a & "." & c3,1,1
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] b & "." & c1 & ";" & b & "." & c2 & ";" & b & "." & c3,1,1
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es + 1,es + 1,n1,ruota,1) > 0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es + 1,es + 1,n2,ruota,1) > 0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 2
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "SORTITO! gioco chiuso..." & [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es + 1)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Exit [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] es = fin [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "Venezia - AMBI IN GIOCO per l'estrazione SUCCESSIVA al ..." & [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](fin) & "...colpo..." & colpi & "° in gioco",0,1
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a & "." & c1 & ";" & a & "." & c2 & ";" & a & "." & c3,1,1
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] b & "." & c1 & ";" & b & "." & c2 & ";" & b & "." & c3,1,1
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next
End [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub
[/COLOR][/SIZE][/COLOR][/SIZE]
Saluti e Buone Feste a tutti
Ultima modifica: