errore script ( aiuto)

alexvisco · 24 Marzo 2019

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

salvo50 · 24 Marzo 2019

Ciao Alexvisco, a me non da errore

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

alexvisco · 24 Marzo 2019

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]

Grazie Salvo, appena lancio il file mi appare questo errore

salvo50 · 24 Marzo 2019

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

alexvisco · 24 Marzo 2019

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.

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

salvo50 · 24 Marzo 2019

Si è gratis e lo trovi in questo link

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

anche se c'è scritto aggiornamento è un programma completo

alexvisco · 24 Marzo 2019

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

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 · 25 Marzo 2019

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

Ciao a Tutti.

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

alexvisco · 25 Marzo 2019

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.

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 · 25 Marzo 2019

Visto, vedrò qualè script si potrà adattare alle tue esigenze

alexvisco · 25 Marzo 2019

salvo50;n2162967 ha scritto:
Visto, vedrò qualè script si potrà adattare alle tue esigenze

Gentilissimo Salvo
Qualsiasi metodo l'importante che mi dia le previsioni come sopra citato.
Attendo novità.
Grazie

salvo50 · 26 Marzo 2019

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

alexvisco · 26 Marzo 2019

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

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 · 26 Marzo 2019

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

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?

alexvisco · 26 Marzo 2019

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?

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 · 26 Marzo 2019

Lo script è da riprendere c'era un errore

alexvisco · 26 Marzo 2019

Ok, attendo tuoi aggiornamenti, Grazie

salvo50 · 26 Marzo 2019

alexvisco;n2163113 ha scritto:
Ok, attendo tuoi aggiornamenti, Grazie

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

alexvisco · 26 Marzo 2019

Grazie Salvo, proverò , per quanti colpi è valido?

salvo50 · 26 Marzo 2019

alexvisco;n2163154 ha scritto:
per quanti colpi è valido?

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

errore script ( aiuto)

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<