Pink_Panther |
|
| Ciao,guarda se ti va bene
CODICE Sub Main() Dim num(5) Dim ruote(10) Dim post(5) post(1) = 0 post(2) = 1 post(3) = 1 post(4) = 1 post(5) = 0 a = CInt(InputBox("QUAL'E' IL PRIMO NUMERO DEL 1° AMBO ?","SPIA n° 1^",31)) b = CInt(InputBox("QUAL'E' IL SECONDO NUMERO DEL 1° AMBO ?","SPIA n° 2^",32)) c = CInt(InputBox("QUAL'E' IL PRIMO NUMERO DEL 2° AMBO ?","SPIA n° 1^",31)) d = CInt(InputBox("QUAL'E' IL SECONDO NUMERO DEL 2 ° AMBO ?","SPIA n° 2^",32)) tmp = InputBox("Quante estrazioni controllo?",,50) fin = EstrazioneFin ini = fin - tmp For es = ini To fin 'Messaggio CStr(EstrazioneFin - es) For r = 1 To 10 For r1 = r + 1 To 12 If r1 = 11 Then r1 = 12 For p = 1 To 4 For p1 = p + 1 To 5 For pp = 1 To 4 For pp1 = pp + 1 To 5 a1 = Estratto(es,r,p) a2 = Estratto(es,r,p1) a3 = Estratto(es,r1,pp) a4 = Estratto(es,r1,pp1) If a3 = a1 And a4 = a2 Or a3 = a2 And a4 = a1 Then If a=a1 And b=a2 And c=a3 And d=a4 Or a=a4 And b=a3 Then Scrivi DataEstrazione(es),True Scrivi Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & _ " --> " & Format2(a1) & " - " & Format2(a2) Scrivi Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1) & _ " --> " & Format2(a3) & " - " & Format2(a4) b1 = Fuori90(a1 + a2)'Somma estratti b2 = Fuori90(b1 + 45)'Complemento 45 b3 = Fuori90(b2*2)'Ambata b4 = Fuori90(b3 + 2)'Primo abbinamento b5 = Fuori90(b4 + 11)' Secondo abbinamento b6 = Vert(b3) ' Terzo abbinamento b7 = 11 + b3 Scrivi b1 Scrivi b2 Scrivi b3 Scrivi b4 Scrivi b5 Scrivi b6 Scrivi b7 ruote(1) = r ruote(2) = r1 num(1) = b3 num(2) = b4 num(3) = b5 num(4) = b6 num(5) = b7 ImpostaGiocata 1,num,ruote,post,13 Gioca es Scrivi"***************************************" End If End If Next Next Next Next Next Next Next ScriviResoconto End Sub Edited by Pink_Panther - 29/2/2012, 21:04
|
| |