SUPER LOTTO

verifica metodo

« Older   Newer »
  Share  
svitlana
CAT_IMG Posted on 4/3/2014, 20:08




Buona sera

Premetto che del gioco lotto Non capisco una “H” ma,
copiando da varie metodologie lette qua e la su web, ho creato questo metodico che fornisce l’ambo in pochi
colpi su due ruote e spesso a colpo massimo su tutte.
Se potete a fare uno script onde esaminarlo a ritroso
Il procedimento:
ESTRAZIONE DEL 8 FEBBRAIO 2014

DECINA del primo di bari(es38) x l’unità del primo di bari (es38) = 24
DECINA del primo di Cagliari (es. 54) x l’unità del primo di Cagliari (es. 54) = 20

calcolo - primo di Bari es. 38 + 24 = 62

calcolo primo di Cagliari es. 54 + 20 = 74

Sommare 62+74 = 46 1° AMBATA 46
Sommare FISSO 123 – 1° AMBATA 46 = 77 2° AMBATA 77

1° ABBINAMENTO = SOMMA FISSO 123 – 1° DI BARI 38 = 85
2° ABBINAMENTO = SOMMA FISSO 123 –1° DI CAGLIARI 54 = 69
3° ABBINAMENTO = SOMMA FISSO 123 –(primo risultato 1° calcolo = 62) = 61
4° ABBINAMENTO = SOMMA FISSO 123 –( DECINA del primo di bari(38) x l’unità del primo di bari (38) =es. 24) = 9

AMBO A TUTTE (77 85) – MI 2° COLPO
Naturalmente tutti i calcoli col fuori 90
Se riuscireste a fare lo script con la possibilità di effettuare la ricerca con tutti gli estratti di qualsiasi ruota pare che funzioni.
 
Top
_max59
CAT_IMG Posted on 5/3/2014, 22:09




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

_______________________________________________

 
Top
svitlana
CAT_IMG Posted on 5/3/2014, 23:38




Ciao Max59, la Ringrazio tantissimo
per il perfetto Listato
ora mi resta più semplice effettuare delle verifiche a ritroso
Grazie ancora Max
 
Top
svitlana
CAT_IMG Posted on 6/3/2014, 22:23




Scusi, Max, approfitto della sua pazienza, si potrebbe modificare per estrazione mensile?
Grazie
 
Top
_max59
CAT_IMG Posted on 7/3/2014, 17:53





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

_____________________________________________________________________
 
Top
svitlana
CAT_IMG Posted on 11/3/2014, 16:32




Ringrazio ancora una volta Max, lo script gira benissimo, speriamo di creare qualcosa di buono
grazie ancora
 
Top
5 replies since 4/3/2014, 20:08   470 views
  Share