SUPER LOTTO

possibile che nessuno mi possa aiutare?

« Older   Newer »
  Share  
matematico2211
CAT_IMG Posted on 29/2/2012, 12:04




Chiedo cortesemente agli esperti scriptologi una modifica al seguente script .

Aggiungere un imput-box : inserimento ambo ripetuto a mia scelta
mi serve per vedere nel passato quante volte lo stesso ambo ripetuto si e 'presentato.


Grazie in anticipo e buona giornata a tutti... :abbraccio.gif: :)


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


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
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
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Top
occhidigiada58.
CAT_IMG Posted on 29/2/2012, 15:50




non riesco a mettere gli imput a questo script per cercare gli estratti che vuoi...il listato si deve modificare completamente a mio avviso...spero ci sia qualcuno in gamba che ti dara' una mano!!
 
Top
Pink_Panther
CAT_IMG Posted on 29/2/2012, 18:49




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
 
Top
2 replies since 29/2/2012, 12:04   285 views
  Share