x anto :
ColoreTesto 2 :Scrivi String(37,32) & "Metodo personale di Zikomo",1
Scrivi String(47,32) & "by DjNomade",1
ColoreTesto 0
Sub Main
Dim numeri1(10),a(5),numeri2(5)
Dim ruote(10),ruota(10)
Dim poste(3),postee(5)
Dim posta(2)
posta(1) = 1 ' < - - - posta
posta(2) = 1 ' < - - - posta
poste(2) = 1 ' < - - - posta
postee(2) = 1 ' < - - - posta
postee(3) = 1 ' < - - - posta
postee(4) = 1 ' < - - - posta
k = 9' < - - - Colpi di gioco
For n = 8508 To EstrazioneFin
For r = 1 To 12
If r <> 11 Then
a(1) = Estratto(n,r,1)
a(2) = Estratto(n,r,2)
a(3) = Estratto(n,r,3)
a(4) = Estratto(n,r,4)
a(5) = Estratto(n,r,5)
OrdinaMatrice a,- 1
If a(1) + a(5) <= 90 And a(2) + a(3) + a(4) <= 90 Then
ruote(1) = r' Ruota di verifica esito
ruote(2) = 12' Ruota di verifica esito
ruota(1) = 11
Scrivi String(78,"="),1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(n,r) & " ] "
numeri1(1) = a(1) + a(5)
numeri1(2) = a(2) + a(3) + a(4)
ImpostaGiocata 1,numeri1,ruote,posta,k
numeri1(1) = a(1) + a(5)
numeri1(2) = Vert(a(1) + a(5))
ImpostaGiocata 2,numeri1,ruote,poste,k
numeri1(1) = a(2) + a(3) + a(4)
numeri1(2) = Vert(a(2) + a(3) + a(4))
ImpostaGiocata 3,numeri1,ruote,poste,k
numeri1(1) = a(1) + a(5)
numeri1(2) = Diametrale(a(1) + a(5))
ImpostaGiocata 4,numeri1,ruote,poste,k
numeri1(1) = a(1) + a(5)
numeri1(2) = 90 -(a(1) + a(5))
ImpostaGiocata 5,numeri1,ruote,poste,k
numeri1(1) = a(2) + a(3) + a(4)
numeri1(2) = Diametrale(a(2) + a(3) + a(4))
ImpostaGiocata 6,numeri1,ruote,poste,k
numeri1(1) = a(2) + a(3) + a(4)
numeri1(2) = 90 -(a(2) + a(3) + a(4))
ImpostaGiocata 7,numeri1,ruote,poste,k
numeri1(1) = a(1) + a(5)
numeri1(2) = a(2) + a(3) + a(4)
ImpostaGiocata 8,numeri1,ruota,poste,k
numeri2(1) = a(1) + a(5)
numeri2(2) = Vert(a(1) + a(5))
numeri2(3) = Diametrale(a(1) + a(5))
numeri2(4) = 90 -(a(1) + a(5))
numeri2(5) = a(2) + a(3) + a(4)
ImpostaGiocata 9,numeri2,ruota,postee,k
numeri2(1) = a(1) + a(5)
numeri2(2) = Vert(a(2) + a(3) + a(4))
numeri2(3) = Diametrale(a(2) + a(3) + a(4))
numeri2(4) = 90 -(a(2) + a(3) + a(4))
numeri2(5) = a(2) + a(3) + a(4)
ImpostaGiocata 10,numeri2,ruota,postee,k
Gioca n
End If
End If
Next
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & "Metodo personale di Zikomo",1
Scrivi String(47,32) & "by DjNomade",1
ColoreTesto 0
End Sub