il Toscano |
|
| Il LISTATO: Sub Main() Dim num(5) Dim nu1(4) Dim nu2(4) Dim nu3(4) Dim nu4(4) Dim ruote(10),ruotee(10) Dim posta(2),poste(2) posta(1) = 11 poste(2) = 1 Dim post(4) post(2) = 1.5 post(3) = 0.5 tmp = InputBox("Quante estrazioni controllo?",,20) fin = EstrazioneFin ini = fin - tmp t = 0 For es = ini To fin Messaggio CStr(EstrazioneFin - es) k = 7 For r = 1 To 10 For p = 1 To 4 For q = p + 1 To 5 a = Estratto(es,r,p) b = Estratto(es,r,q)
For r1 = r + 1 To 12 If r1 = 11 Then r1 = 12 For pp = 1 To 4 For qq = pp + 1 To 5 c = Estratto(es,r1,pp) d = Estratto(es,r1,qq) If(c = a And d = b) Or(c = b And d = a) Then
b1 = Fuori90(c + d) a1 = Diametrale(b1)
b2 = Abs(d - c) a2 = Diametrale(b2) a3 = Vert(a2) t = t + 1 Scrivi ColoreTesto 2 :Scrivi "============================================================" & "Giocata n° " & Format2(t),2 ColoreTesto 0 Scrivi" - - - - - - - - - - - - - - - - - " & DataEstrazione(es) & " - - - - - - - - - - - - - - ",True Scrivi" " & Left(NomeRuota(r),3) & " " & " " & StringaEstratti(es,r) & " - - - > " & Format2(a) & " - " & Format2(b) Scrivi" " & Left(NomeRuota(r1),3) & " " & " " & StringaEstratti(es,r1) & " - - - > " & Format2(c) & " - " & Format2(d) ruote(1) = r ruote(2) = r1 ruotee(1) = r ruotee(2) = r1 ruotee(3) = 11
nu1(1) = a1 EliminaRipetuti nu1 ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a1 nu2(2) = a2 EliminaRipetuti nu2 ImpostaGiocata 2,nu2,ruote,poste,k
nu2(1) = a1 nu2(2) = a3 EliminaRipetuti nu2 ImpostaGiocata 3,nu2,ruote,poste,k
nu3(1) = a1 nu3(2) = a2 nu3(3) = a3 EliminaRipetuti nu3 ImpostaGiocata 4,nu3,ruotee,post,k
Gioca es Scrivi"=========================================" End If Next Next Next Next Next Next Next ScriviResoconto ColoreTesto 1 :Scrivi "----------------------METODO DA AMBO RIPETUTO DI OSVALDO1.-----",1 Scrivi Scrivi String(28,32) & "Listato da Pescespada37",1 End Sub Edited by il Toscano - 8/11/2011, 02:50
|
| |