errore script ( aiuto)

[alexvisco]

Non lo sò, decidi tu,solo per l'ambata ho modificato di poco il metodo di Lord Byron, poi l'ambo, terno e cinquina i calcoli me li sono inventati man mano che compilavo lo script, gli script che faccio io li faccio su metodi prese dalle riviste, di mio ne ho fatto solo uno che si trova nella sezione Metodi, e chissa in quale post è andato a finire dato che l'ho postato qualche mese fa.

Una volta calcolata l'ambata, controlla fino a 5 estrazioni passate, se non c'è l'ambata prosegue con l'Ambo, Terno e Cinquina, altrimenti non calcola niente e appare la scritta in rosso

Non ci sono Pronostici Perche l'Ambata Pronosticata è Presente Nelle Ultime 5 Estrazioni

Ciao Salvo
Funziona tutto, è possibile modificare lo script anche per fare una ricerca delle migliori combinazioni valutando le estrazioni precedenti senza inserire l'ultima?

 

[salvo50]

Ciao Alexvisco, lo stavo già facendo, ma cercando tutte le combinazioni (come faccio a sapere quali sono le migliori)
appena lo finisco, tempo permettendo, lo posto

 

[alexvisco]

Ciao Alexvisco, lo stavo già facendo, ma cercando tutte le combinazioni (come faccio a sapere quali sono le migliori)
appena lo finisco, tempo permettendo, lo posto

Ciao Salvo, sei un grande!!!
attendo

 

[salvo50]

Ho messo 3 InputBox,
nel primo devi inserire il numero di estrazione che vuoi iniziare,
nel secondo mettendo i numeri da 1 a 10 e 12 scegli le ruote singolarmente, con 11 TUTTE LE RUOTE
nel terzo inserire il numero dei colpi di gioco dell'ambata, ambo ecc...

Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,CP,CLP
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Num1,Rip,Ruo
   Dim S1,S2,S3,S4,S5,S6,S7,S10,SA,SB,Ambata,X,Y,IniR
   Dim Salvo50,Ini,Fin,Ind,SASB,Caso,Casi,Es,R,FinR
   Dim Penta(5),Amba(1),Ru(1),Ambo(2),Terno(3)
   Dim Post1(1),Post2(2),Post3(3),Post5(5)
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   Post5(2) = 1
   Post5(3) = 1
   Ind = 4
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci il Numero Dell'Estrazione Iniziale ",Salvo50,9200)
   Ruo = InputBox("Inserisci il Numero della Ruota 1-10 --- 11 per TUTTE, 12 per la Nazionale ",Salvo50,5)
   CLP = InputBox("Inserisci per quanti colpi vuoi giocare i pronostici ",Salvo50,10)
   'Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   Scrivi Space(12) & " METODO CHIESTO DA ALEXVISCO - SCRIPT SALVO50",1,,4,,3,,1
   If Ruo = 11 Then
      IniR = 1
      FinR = 12
   Else
      IniR = Ruo
      FinR = Ruo
   End If
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R = IniR To FinR
         A1 = Estratto(Es,R,1)
         A2 = Estratto(Es,R,2)
         A3 = Estratto(Es,R,3)
         A4 = Estratto(Es,R,4)
         A5 = Estratto(Es,R,5)
         SA = Fuori90(A1 + A2 + A3 + A4 + A5)
         B1 = Vert(A1) : B2 = Vert(A2) : B3 = Vert(A3) : B4 = Vert(A4) : B5 = Vert(A5)
         B1 = FuoriX(B1 * 4,91) : B2 = FuoriX(B2 * 16,91) : B3 = FuoriX(B3 * 64,91)
         B4 = FuoriX(B4 * 74,91) : B5 = FuoriX(B5 * 23,91)
         SB = Fuori90(B1 + B2 + B3 + B4 + B5)
         '-----------------------------------------
         S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
         S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
         S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
         S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
         S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
         S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
         D1 = Fuori90(90 +(A1 - A2))
         D2 = Fuori90(90 +(A2 - A3))
         D3 = Fuori90(90 +(A3 - A4))
         D4 = Fuori90(90 +(A4 - A5))
         D5 = Fuori90(90 +(A5 - B1))
         D6 = Fuori90(90 +(B1 - B2))
         '----------------------------
         D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
         D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
         D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
         D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
         D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
         S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
         Ambata = 0
         Amba(1) = 0
         Ambata = Fuori90(S10 + B1)
         Amba(1) = Ambata
         Ru(1) = R
         If SerieFreqTurbo(Es - Ind,Es,Amba,Ru,1) = 0 Then
            Ambo(1) = SA : Ambo(2) = SB
            If Ambo(1) = Ambo(2) Then Ambo(2) = Fuori90(Ambo(2) + 7)
            SASB = Fuori90(SA + SB)
            Terno(1) = SASB : Terno(2) = Fuori90((Vert(SASB)) + 7): Terno(3) = Fuori90((Diametrale(SASB)) + 83)
            If Terno(1) = Terno(2) Then Terno(2) = Fuori90(Terno(2) + 7)
            If Terno(1) = Terno(3) Then Terno(3) = Fuori90(Terno(3) + 7)
            If Terno(2) = Terno(3) Then Terno(3) = Fuori90(Terno(3) + 7)
            Penta(1) = FuoriX(Ambata * A1 + A1,91) : Penta(1) = Fuori90(Penta(1))
            Penta(2) = FuoriX(Ambata * A2 + A2,91) : Penta(2) = Fuori90(Penta(2))
            Penta(3) = FuoriX(Ambata * A3 + A3,91) : Penta(3) = Fuori90(Penta(3))
            Penta(4) = FuoriX(Ambata * A4 + A4,91) : Penta(4) = Fuori90(Penta(4))
            Penta(5) = FuoriX(Ambata * A5 + A5,91) : Penta(5) = Fuori90(Penta(5))
            'Se 1 o più numeri sono ripetuti si fa il + 7 (formula di Thauk)
            If NumeriRipetuti(Penta) Then
               While NumeriRipetuti(Penta)
                  For X = 01 To 4
                     For Y = X + 01 To 5
                        If Penta(X) = Penta(Y) Then Penta(Y) = Fuori90(Penta(Y) + 7)
                     Next
                  Next
               Wend
            End If
            Caso = Caso + 1
            Casi = Casi + 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
            Scrivi Space(10) &(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R) & " " & StringaEstratti(Es,R),1
            Scrivi
            Scrivi Space(20) &(" Pronostico Ambata     ") & Format2(Amba(1)),1
            Scrivi
            Scrivi Space(20) &(" Pronostico Ambo       ") & Format2(Ambo(1)) & " " & Format2(Ambo(2)),1
            Scrivi
            Scrivi Space(20) &(" Pronostico Terno      ") & Format2(Terno(1)) & " " & Format2(Terno(2)) & " " & Format2(Terno(3)),1
            Scrivi
            Scrivi Space(20) &(" Pronostico Cinquina   ") & Format2(Penta(1)) & " " & Format2(Penta(2)),1,0
            Scrivi " " & Format2(Penta(3)) & " " & Format2(Penta(4)) & " " & Format2(Penta(5)),1
            Scrivi
            ImpostaGiocata 1,Amba,Ru,Post1,CLP,1
            ImpostaGiocata 2,Ambo,Ru,Post2,CLP,2
            ImpostaGiocata 3,Terno,Ru,Post3,CLP,3
            ImpostaGiocata 4,Penta,Ru,Post5,CLP,3
            Gioca Es,1
         Else
            CP = CP + 1
            Scrivi String(85,"*") & " Casi Non Validi " & FormattaStringa(CP,"0000"),,,,2
            Scrivi Space(10) &(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R) & " " & StringaEstratti(Es,R),1
            Scrivi
            Scrivi Space(10) & " Non ci sono Pronostici Perche l'Ambata Pronosticata " & Amba(1) & " è Presente Nelle Ultime " &(Ind + 1) & " Estrazioni",1,,,1
            Scrivi
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[alexvisco]

Ciao Salvo
Così è perfetto ho provato.
Come ambo e terno vorrei provare un tuo metodo ovviamente non casuale ma che segue un criterio.
In pratica va bene qualsiasi criterio ritieni ( per te ) migliore, lascio libera scelta.
Vorrei mettere in pratica un tuo metodo.
Grazie mille

Grazie!!

 

[alexvisco]

Ciao Salvo, come ultima richiesta , secondo Vostre prove qual'è lo script che risponde con maggiori probabilità di riuscita?

 

[salvo50]

Ciao Salvo, come ultima richiesta , secondo Vostre prove qual'è lo script che risponde con maggiori probabilità di riuscita?

Ciao Alexvisco, non ho trovato script più validi di altri, perchè anche se ci sono delle vincite, bastano un paio di colpi negativi per andare in perdita, qualche tempo fà avevo fatto con l'aiuto di quasi tutti gli scripters di lottoced, uno script con 600 cinquine da giocare in ogni concorso per un anno, c'erano un mucchi di terni fino anche a 3, 4 quaterne, ma nonostante tutto, sia la mole di gioco e i colpi negativi il metodo era in perdita netta, lo trovi in questo link, dal post 112 al post 147

lo script completo e finito è al post 145

http://forum.lottoced.com/forum/lott...gli-scriptisti


In riguardo allo script chiesto da te in questo thread, se imposti per tutte le ruote, noti che la ruota di Milano e la più proficua, infatti in questa ruota per un certo periodo è in positivo, ma le altre ruote sono in perdita, non sappiamo a priori qual'è la ruota vincente

 

[alexvisco]

Ciao
Ho ritrovato questo listato con qbasic , esiste qualcosa di simile con uno script ? Non ricordo con quale criterio si muoveva.
Attendo vostri aiuti.

 

[salvo50]

Ciao Alexvisco

Posta il listato, anche se io non ci capisco niente di qbasic, qualcuno più esperto penso che riuscirà a tradurlo

 

[alexvisco]

Ciao Salvo, come mai il seguente script non aggiorna le nuove previsioni?
Ieri si è conclusa la previsone ma non ha generato le nueve, allego lo script:

Sub Main
Dim Ini,Fin,Es,R1,R2,P1,P2,E1,E2
Dim N,M,H,K,Sp,X,Y
Dim S(1),B(2),T(3),Ru(2),Rt(3),Po(1),Ps(1),Pb(2),Pt(3),Co
Ps(1) = 1 : Pb(2) = 1 : Pt(2) = .8 : Pt(3) = .2 : Co = 5 'Pxyz = Poste / Co = Colpi
Ini = EstrazioneFin - 180 : Fin = EstrazioneFin
Sp = Space(1)
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
E2 = Estratto(Es,R2,P1)
If E1 = E2 Then
K = 0 : ReDim N(4),M(4)
For P2 = 1 To 5
If P2 <> P1 Then K = K + 1 :N(K) = Estratto(Es,R1,P2) : M(K) = Estratto(Es,R2,P2)
Next
For X = 1 To 4
For Y = 1 To 4
If(Distanza(E1,N(X)) = Distanza(E1,M(Y))) And(N(X) <> M(Y)) Then
H = H + 1 : Scrivi String(106,"=") & FormatSpace(H,5,True),True
S(1) = E1 : Ru(1) = R1 : Ru(2) = R2 : Rt(1) = R1 : Rt(2) = R2 : Rt(3) = TU_
'ImpostaGiocata 1,S,Ru,Ps,Co
B(1) = E1 : B(2) = Fuori90(E1 + N(X))
'ImpostaGiocata 2,B,Ru,Pb,Co
Pb(1) = E1 : B(2) = Fuori90(E1 + M(Y))
'ImpostaGiocata 3,B,Ru,Pb,Co
T(1) = Pb(1) : T(2) = Fuori90(E1 + N(X)) : T(3) = Fuori90(2*E1)
'ImpostaGiocata 4,T,Ru,Pt,Co
T(1) = Pb(1) : T(2) = Fuori90(E1 + N(X)) : T(3) = Vert(T(3))
'ImpostaGiocata 5,T,Ru,Pt,Co
T(1) = Pb(1) : T(2) = Fuori90(E1 + M(Y)) : T(3) = Fuori90(2*E1)
'ImpostaGiocata 6,T,Ru,Pt,Co
T(1) = Pb(1) : T(2) = Fuori90(E1 + M(Y)) : T(3) = Vert(T(3))
'ImpostaGiocata 7,T,Ru,Pt,Co
T(1) = Pb(1) : T(2) = Fuori90(E1 + N(X)) : T(3) = Vert(T(3))
ImpostaGiocata 8,T,Rt,Pt,Co,2
T(1) = Pb(1) : T(2) = Fuori90(E1 + M(Y)) : T(3) = Vert(T(3))
ImpostaGiocata 9,T,Rt,Pt,Co,2
Gioca Es,True
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[salvo50]

Ciao Alexvisco, perchè non si sono verificate le condizioni impostate nello script, se li splunci ad uno ad uno, vedrai che le previsioni non sono ad estrazioni consecutive.

 

[alexvisco]

Ciao Salvo
Allego il tuo script

Option Explicit
Sub Main
' Vi chiedo ( se possibile), un consiglio su uno script che mi dia previsioni
' su ambate e cinquine da giocare su una ruota.
'In passato avevo uno script simile ma essendo datato cercavo qualcosa di più recente.
'In pratica bastava inserire l'ultima estrazione di una ruota e se c'erano previsioni
'mi visualizzava l'ambata valida e in alternativa una cinquina da giocare.care.
'Aggiunto pronostico per Ambo e Terno
'Chiesto da ALEXVISCO - SCRIPT SALVO50
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Num1,Rip
Dim S1,S2,S3,S4,S5,S6,S7,S10,SA,SB,Ambata,X,Y
Dim Salvo50,Ini,Fin,R,Ind,SASB
Dim Penta(5),Amba(1),Ru(1),Ambo(2),Terno(3)
Ind = 5
Fin = EstrazioneFin
Ini = EstrazioneFin - Ind
R = InputBox("Inserisci il Numero della Ruota 1-10 --- 12 per la Nazionale ",Salvo50,6)
Num1 = InputBox("Inserisci i 5 Estratti dell'Ultima Estrazione, Separati da un Punto",Salvo50," 76.28.65.77.33")
Num1 = "0." & Num1
S7 = Split(Num1,".")
A1 = CInt(S7(1))
A2 = CInt(S7(2))
A3 = CInt(S7(3))
A4 = CInt(S7(4))
A5 = CInt(S7(5))
SA = Fuori90(A1 + A2 + A3 + A4 + A5)
B1 = Vert(A1) : B2 = Vert(A2) : B3 = Vert(A3) : B4 = Vert(A4) : B5 = Vert(A5)
B1 = FuoriX(B1 * 4,91) : B2 = FuoriX(B2 * 16,91) : B3 = FuoriX(B3 * 64,91)
B4 = FuoriX(B4 * 74,91) : B5 = FuoriX(B5 * 23,91)
SB = Fuori90(B1 + B2 + B3 + B4 + B5)
Ambo(1) = SA : Ambo(2) = SB
If Ambo(1) = Ambo(2) Then Ambo(2) = Fuori90(Ambo(2) + 7)
SASB = Fuori90(SA + SB)
Terno(1) = SASB : Terno(2) = Fuori90((Vert(SASB)) + 7): Terno(3) = Fuori90((Diametrale(SASB)) + 83)
If Terno(1) = Terno(2) Then Terno(2) = Fuori90(Terno(2) + 7)
If Terno(1) = Terno(3) Then Terno(3) = Fuori90(Terno(3) + 7)
If Terno(2) = Terno(3) Then Terno(3) = Fuori90(Terno(3) + 7)
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata = Fuori90(S10 + B1)
Amba(1) = Ambata
Ru(1) = R
If SerieFreqTurbo(Ini,Fin,Amba,Ru,1) = 0 Then
Penta(1) = FuoriX(Ambata * A1 + A1,91) : Penta(1) = Fuori90(Penta(1))
Penta(2) = FuoriX(Ambata * A2 + A2,91) : Penta(2) = Fuori90(Penta(2))
Penta(3) = FuoriX(Ambata * A3 + A3,91) : Penta(3) = Fuori90(Penta(3))
Penta(4) = FuoriX(Ambata * A4 + A4,91) : Penta(4) = Fuori90(Penta(4))
Penta(5) = FuoriX(Ambata * A5 + A5,91) : Penta(5) = Fuori90(Penta(5))
'Se 1 o più numeri sono ripetuti si fa il + 7 (formula di Thauk)
If NumeriRipetuti(Penta) Then
While NumeriRipetuti(Penta)
For X = 01 To 4
For Y = X + 01 To 5
If Penta(X) = Penta(Y) Then Penta(Y) = Fuori90(Penta(Y) + 7)
Next
Next
Wend
End If
Scrivi Space(20) & " E' Stata Scelta la Ruota di " & NomeRuota(R),1,,,1
Scrivi
Scrivi Space(20) &(" Gli Estratti inseriti ") & Format2(A1) & " " & Format2(A2),1,0
Scrivi " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
Scrivi
Scrivi Space(20) &(" Pronostico Ambata ") & Format2(Amba(1)),1
Scrivi
Scrivi Space(20) &(" Pronostico Ambo ") & Format2(Ambo(1)) & " " & Format2(Ambo(2)),1
Scrivi
Scrivi Space(20) &(" Pronostico Terno ") & Format2(Terno(1)) & " " & Format2(Terno(2)) & " " & Format2(Terno(3)),1
Scrivi
Scrivi Space(20) &(" Pronostico Cinquina ") & Format2(Penta(1)) & " " & Format2(Penta(2)),1,0
Scrivi " " & Format2(Penta(3)) & " " & Format2(Penta(4)) & " " & Format2(Penta(5)),1
Scrivi
Else
Scrivi Space(20) & " Non ci sono Pronostici Perche l'Ambata Pronosticata è Presente Nelle Ultime " & Ind & " Estrazioni",1,,,2
End If
End Sub


Ho confrontato le estrazione precedenti e sembra che ha buone previsioni, può essere migliorato ? Ad esempio in base ad alcune condizione ricava una cinquina migliore ?
Mi spiego meglio, ok ambata , ambo, terno , per la cinquina ottimizzare la previsone per racchiudere tutti i numeri da giocare una cinquina ( da recupero )
Grazie, sei un mago!