| Salvo errori e omissioni.
Cordialità.
_______________________________________________
Scrivi ColoreTesto (1) & Chr(10) & String (62,"¯")
Scrivi " https://superlotto.blogfree.net/?t=4838974#lastpost",1
Scrivi " 05/03/2014",1
Scrivi " sezione SUPER LOTTO » LISTATI e SCRIPT",1
Scrivi Chr(10) & " autore: svitlana",1
Scrivi String (62,"_")
Scrivi Chr(10),1
ColoreTesto (0)
Sub main()
Dim mbt(2), nr1(4), nr2(6)
Dim rt(10), rtt(1)
Dim posta(5), poste(5), paste(5)
rt(1) = CInt (InputBox ("ruota di gioco...","1ª ruota",1))
rt(2) = CInt (InputBox ("ruota di gioco...","2ª ruota",2))
If rt(1) = 11 Or rt(2) = 11 Then
MsgBox "Errore: attivata correzione automatica." & Chr(10) & Chr(10) & "Le ruote di " & SiglaRuota (rt(1)) _
& " di " & SiglaRuota (rt(2)) & " stanno per essere" & Chr(10) & "sostituite con Ba e Ca.", _
48,"A T T E N Z I O N E ! ! !"
rt(1) = 1
rt(2) = 2
End If
ini = CInt (InputBox ("estrazioni pregresse...","estrazioni da controllare", 50))
fin = CInt (InputBox ("ultimo concorso da verificare...","controllo fino all'estrazione X",EstrazioneFin ))
k = CInt (InputBox ("colpi in gioco","tentativi di gioco",9))
kk = CInt (InputBox ("attesa...","inizio gioco posticipato di x concorsi",0))
tt = InputBox ("vuoi il gioco a tutte (s/n)","gioco a tutte","n")
rtt(1) = 11
posta(1) = 1
poste(2) = 1
paste(2) = 1
paste(3) = 1
For n = (fin - ini) To fin
a1 = Fuori90 (Estratto (n,rt(1),1) + (Decina (Estratto (n,rt(1),1)) * Cadenza (Estratto (n,rt(1),1))))
a2 = Fuori90 (Estratto (n,rt(2),1) + (Decina (Estratto (n,rt(2),1)) * Cadenza (Estratto (n,rt(2),1))))
If a1 = 0 Then a1 = 90
If a2 = 0 Then a2 = 90
mbt(1) = Fuori90 (a1 + a2) : nr2(1) = mbt(1) ' 1ª ambata
mbt(2) = Fuori90 (123 - mbt(1)) : nr2(2) = mbt(2) ' 2ª ambata
nr1(1) = Fuori90 (123 - Estratto (n,rt(1),1)) : nr2(3) = nr1(1) ' 1° abbinamento
nr1(2) = Fuori90 (123 - Estratto (n,rt(2),1)) : nr2(4) = nr1(2) ' 2° abbinamento
nr1(3) = Fuori90 (123 - a1) : nr2(5) = nr1(3) ' 3° abbinamento
nr1(4) = Fuori90 (123 - Decina (Estratto (n,rt(1),1)) * Cadenza (Estratto (n,rt(1),1))) : nr2(6) = nr1(4) ' 4° abbinamento
OrdinaMatrice mbt,1
OrdinaMatrice nr1,1
OrdinaMatrice nr2,1
ImpostaGiocata 1,mbt,rt,posta,k,,kk
ImpostaGiocata 2,nr1,rt,poste,k,,kk
ImpostaGiocata 3,nr2,rt,poste,k,,kk
If tt <> "n" Then ImpostaGiocata 4,nr2,rtt,paste,k,,kk
Gioca n
Next
ScriviResoconto
End Sub
_______________________________________________
|
