Novità

errore script ( aiuto)

A

alexvisco

Member
Salve
Vorrei un vostro aiuto, ho scritto questo script ma c'è un errore nella sintessi riga (INIZIO = INPUTBOX("INIZIO",,9200)
Qulcuno mi aiuta?
Grazie ERRORE.JPG
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Alexvisco, a me non da errore


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/vBkhPcqM\/Alexvisco.png"}[/IMG2]
 
A

alexvisco

Member
salvo50;n2162832 ha scritto:
Ciao Alexvisco, a me non da errore


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/vBkhPcqM\/Alexvisco.png"}[/IMG2]
Clicca per espandere...

Grazie Salvo, appena lancio il file mi appare questo errore
errore2.JPG
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Sembra che non lo lanci con Spaziometria, io l'ho provato con Spaziometria che è l'unico programma che ho e non ne conosco altri.

Questo è lo script postato da te nel primo post

Codice: 
'Option Explicit
Sub Main
   Dim RUOTE(2),AMBATA(1),TERZINA(3),QUARTINA1(4),QUARTINA2(4),POSTA(1),POSTE(3)
   Dim INIZIO
   POSTA(1) = 1
   POSTE(2) = 1
   POSTE(3) = 1
   INIZIO = InputBox("INIZIO",,9200)
   FINE = EstrazioneFin
   COLPI = InputBox("COLPI",,10)
   K = 0
   For ES = INIZIO To FINE
      For R1 = 1 To 9
         R2 = R1 + 1
         RUOTE(1) = R1
         RUOTE(2) = R2
         For P = 1 To 5
            A = Estratto(ES,R1,P)
            B = Estratto(ES,R2,P)
            If Distanza(A,B) = 1 Or Distanza(A,B) = 10 Then
               K = K + 1
               Scrivi String(90,"*") & " CASO N. " & K,1
               Scrivi DataEstrazione(ES) & " " & SiglaRuota(R1) & " " & StringaEstratti(ES,R1) & " " & Format2(A)
               Scrivi DataEstrazione(ES) & " " & SiglaRuota(R2) & " " & StringaEstratti(ES,R2) & " " & Format2(B)
               ColoreTesto 1 : Scrivi "DISTANZA TRA:" & Format2(A) & " E " & Format2(B) & " = " & Distanza(A,B),1 : ColoreTesto 0
               Scrivi
               AMBATA(1) = Fuori90(A + B)
               ImpostaGiocata 1,AMBATA,RUOTE,POSTA,COLPI,1
               TERZINA(1) = AMBATA(1)
               TERZINA(2) = A
               TERZINA(3) = B
               ImpostaGiocata 2,TERZINA,RUOTE,POSTE,COLPI,2
               QUARTINA1(1) = AMBATA(1)
               QUARTINA1(2) = A
               QUARTINA1(3) = Fuori90(A + 30)
               QUARTINA1(4) = Fuori90(A + 60)
               ImpostaGiocata 3,QUARTINA1,RUOTE,POSTE,COLPI,2
               QUARTINA2(1) = AMBATA(1)
               QUARTINA2(2) = B
               QUARTINA2(3) = Fuori90(B + 30)
               QUARTINA2(4) = Fuori90(B + 60)
               ImpostaGiocata 4,QUARTINA2,RUOTE,POSTE,COLPI,2
               Gioca ES
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
A

alexvisco

Member
salvo50;n2162912 ha scritto:
Sembra che non lo lanci con Spaziometria, io l'ho provato con Spaziometria che è l'unico programma che ho e non ne conosco altri.
Clicca per espandere...

Salvo, si lo lancio con QBASIC, questo software spaziometria è gratuito?
In tal caso dove lo trovo?
Grazie mille
 
A

alexvisco

Member
salvo50;n2162915 ha scritto:
Si è gratis e lo trovi in questo link

https://forum.lottoced.com/forum/lot...a-spaziometria


anche se c'è scritto aggiornamento è un programma completo
Clicca per espandere...

Grazie Salvo
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.
Spero nel Vostro grande aiuto
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
alexvisco;n2162943 ha scritto:
Grazie Salvo
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.
Spero nel Vostro grande aiuto
Clicca per espandere...

Ciao a Tutti.

Devi essere più specifico, con quali calcoli si deve arrivare alla conclusione, oppure fare i calcoli in modo casuale.
 
A

alexvisco

Member
salvo50;n2162955 ha scritto:
Ciao a Tutti.

Devi essere più specifico, con quali calcoli si deve arrivare alla conclusione, oppure fare i calcoli in modo casuale.
Clicca per espandere...

Grazie Salvo
Non ricordo su quali metodi si basava.
Vorrei provare un tuo script se possibile con qualsiasi metodo (l'importante che non siano numeri casuali).
Sarei grato
Grazie
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Alexvisco, quello che non mi torna in questa tua richiesta è quando dici:

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.

Se c'erano previsioni, in base a che cosa, io l'ho fatto in base alla presenza dell'ambata nelle ultime 5
estrazioni indietro, se l'ambata è presente nelle ultime 5 estrazioni non c'è pronostico, la previsione dell'ambata l'ho fatto modificando il metodo di Lord Byron, e per la cinquina ho lavorato di fantasia

Codice: 
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.
   '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,Ambata,X,Y
   Dim Penta(5),Amba(1),Ru(1),Ini,Fin,R,Ind
   Dim Salvo50
   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))
  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)
   '-----------------------------------------
   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) &(" Gli Estratti inseriti ") & Format2(A1) & " " & Format2(A2),1,0
      Scrivi " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
      Scrivi
      Scrivi Space(20) &(" Pronostico Ambata   ") & Format2(Ambata),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
 
Ultima modifica:
A

alexvisco

Member
salvo50;n2163079 ha scritto:
Ciao a Tutti.

Ciao Alexvisco, quello che non mi torna in questa tua richiesta è quando dici:

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.

Se c'erano previsioni, in base a che cosa, io l'ho fatto in base alla presenza dell'ambata nelle ultime 5
estrazioni indietro, se l'ambata è presente nelle ultime 5 estrazioni non c'è pronostico, la previsione dell'ambata l'ho fatto modificando il metodo di Lord Byron, e per la cinquina ho lavorato di fantasia

Codice: 
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.
'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,Ambata,X,Y
Dim Penta(5),Amba(1),Ru(1),Ini,Fin,R,Ind
Dim Salvo50
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))
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)
'-----------------------------------------
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) &(" Gli Estratti inseriti ") & Format2(A1) & " " & Format2(A2),1,0
Scrivi " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
Scrivi
Scrivi Space(20) &(" Pronostico Ambata ") & Format2(Ambata),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
Clicca per espandere...

Grazie Salvo
Gentilissimo, in pratica lo script che avevo prima dovevo inserire per ogni ruota l'ultima estrazione e se c'erano condizioni mi visualizzava l'amabato con ambo principale e in alternativa una cinquina da giocare. Se non c'erano condizioni mi usciva la dicitura nessuna previsione.
Il tuo script già è ottimo.
Sarebbe possibile aggiungere il calcolo di una previsione ambo principale?
Forse chiedo troppo, grazie e scusami per le troppe richieste
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
alexvisco;n2163080 ha scritto:
Grazie Salvo
Gentilissimo, in pratica lo script che avevo prima dovevo inserire per ogni ruota l'ultima estrazione e se c'erano condizioni mi visualizzava l'amabato con ambo principale e in alternativa una cinquina da giocare. Se non c'erano condizioni mi usciva la dicitura nessuna previsione.
Il tuo script già è ottimo.
Sarebbe possibile aggiungere il calcolo di una previsione ambo principale?
Forse chiedo troppo, grazie e scusami per le troppe richieste
Clicca per espandere...

Anche i questo se l'ambata pronosticata è presente nelle ultime 5 estrazioni, appare la scritta

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



Posso mettere anche un ambo, terno, quaterna, ma con che criterio li metto,
me li invento io di fantasia, però se li faccio io di fantasia, non capisco
l'utilità per te, adesso io ho fatto che quando l'ambata è nelle ultime 5
estrazioni, non pronostico neanche la cinquina, vuoi così, oppure vuoi
che la cinquina o l'ambo ci siano lo stesso?
 
A

alexvisco

Member
salvo50;n2163091 ha scritto:
Anche i questo se l'ambata pronosticata è presente nelle ultime 5 estrazioni, appare la scritta

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



Posso mettere anche un ambo, terno, quaterna, ma con che criterio li metto,
me li invento io di fantasia, però se li faccio io di fantasia, non capisco
l'utilità per te, adesso io ho fatto che quando l'ambata è nelle ultime 5
estrazioni, non pronostico neanche la cinquina, vuoi così, oppure vuoi
che la cinquina o l'ambo ci siano lo stesso?
Clicca per espandere...

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
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
alexvisco;n2163113 ha scritto:
Ok, attendo tuoi aggiornamenti, Grazie
Clicca per espandere...

Vedi se può andare così

Codice: 
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
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
alexvisco;n2163154 ha scritto:
per quanti colpi è valido?
Clicca per espandere...

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 qualcuno, 1 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
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto