SUPER LOTTO

Modifica script

« Older   Newer »
  Share  
matematico2211
CAT_IMG Posted on 28/2/2012, 13:03




Chiedo cortesemente agli esperti scriptologi una piccola modifica al seguente script .
E' possibile aggiunger un imput-box con opzione inserimento ambo ripetuto a mia scelta?

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
0 replies since 28/2/2012, 13:03   160 views
  Share