 | _max59 |
| |
Variazione sul tema.
Cordialità.
_____________________________________________________________________
Scrivi ColoreTesto (1) & Chr(10) & String (62,"_")
Scrivi " 07/03/2014",1
Scrivi " https://superlotto.blogfree.net/?t=4838974#lastpost",1
Scrivi " sezione SUPER LOTTO » LISTATI e SCRIPT",1
Scrivi Chr(10) & " autore: svitlana",1
Scrivi Chr(10) & " revisione A"
Scrivi String (62,"¯"),1
Scrivi
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))
ind = CInt (InputBox ("indice mensile","scegli un valore tra 1 e 14",1))
If ind < 1 Or ind > 14 Then
MsgBox "Errore: attivata correzione automatica." & Chr(10) & Chr(10) & _
"L'indice mensile fa ora riferimento all'estrazione corrente [" & IndiceMensile (EstrazioneFin) & "]" &_
Chr(10), 48,"A T T E N Z I O N E ! ! !"
ind = IndiceMensile (EstrazioneFin)
End If
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
If IndiceMensile (n) = ind Then
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
End If
Next
ScriviResoconto
Scrivi ColoreTesto (1) & Chr(10) & " M E M O R A N D U M" & Chr(10),1
ind = Format2 (ind) : k = Format2 (k) : kk = Format2 (kk)
If tt = "n" Then tt = "no" Else tt = "yes"
If Minimo (rt(1),rt(2)) = 0 Then
Scrivi " analisi condotta sulla ruota di " & NomeRuota (Massimo (rt(1),rt(2)))
Scrivi " periodo: inizio concorso nr." & FormatSpace (fin - ini, 4 + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi Space(9) & " fine concorso nr." & FormatSpace (fin, 4 + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " indice mensile" & FormatSpace (ind, 18 + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " numero tentativi" & FormatSpace (k, 16 + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " attesa prepartita" & FormatSpace (kk, 15 + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " gioco a tutte" & FormatSpace (tt, 19 + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Else
Scrivi " analisi condotta sulle ruote di " & NomeRuota (rt(1)) & " e " & NomeRuota (rt(2))
Scrivi " periodo: inizio concorso nr." & FormatSpace (fin - ini, 7 + Len(NomeRuota (Minimo (rt(1),rt(2)))) + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi Space(9) & " fine concorso nr." & FormatSpace (fin, 7 + Len(NomeRuota (Minimo (rt(1),rt(2)))) + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " indice mensile" & FormatSpace (ind, 21 + Len(NomeRuota (Minimo (rt(1),rt(2)))) + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " numero tentativi" & FormatSpace (k, 19 + Len(NomeRuota (Minimo (rt(1),rt(2)))) + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " attesa prepartita" & FormatSpace (kk, 18 + Len(NomeRuota (Minimo (rt(1),rt(2)))) + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
Scrivi " gioco a tutte" & FormatSpace (tt, 22 + Len(NomeRuota (Minimo (rt(1),rt(2)))) + Len(NomeRuota (Massimo (rt(1),rt(2)))),1)
End If
Scrivi Chr(10) & Chr(10) & Chr(10) & " B u o n a F o r t u n a !",1
End Sub
_____________________________________________________________________
| | | |
| |
|
