| _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
_____________________________________________________________________
| | |
| |
|