Novità

Per Salvo50

S

sorujoe

Advanced Member
Ciao Salvo mi hai fatto questi due script per somme e distanze con il fuori 90 isotope.
Ti chiedo gentilmente di farmi mettere le 2 ruote su cui eseguire il calcolo al momento lavora su tutte le coppie di ruote ma mi crea solo confusione ...Grazie è importante per me.

SCRIPT DISTANZE CICLOMETRICHE ISOTOPE
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,Salvo50,K,G
Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
Dim Dist,A,B,C,D,Sorte,D1,D2,Idestr
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruo(2)
ReDim aNum(20)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9100))
Dist = CInt(InputBox("Inserisci la Distanza Ciclometrica da trovare",Salvo50,15))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
Call ScegliNumeri(aNum)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "PER BYRON 2 DISTANZE CICLOMETRICHE UGUALI PER LUNGHETTA - SCRIPT SALVO50 con l'aiuto di Master",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
D1 = Distanza(A,B) : D2 = Distanza(C,D)
If(D1 = D2 And D1 = Dist) Then
Ruo(1) = R1
Ruo(2) = R2
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Rossi Distanza " & D1,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Rossi Distanza " & D2,1
Scrivi
Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
Scrivi
K = 0 : G = 0
G = Es + Clp
If G > FIn Then G = FIn
For Idestr = Es + 1 To G
K = K + 1
Call VerificaEsito(aNum,Ruo,Idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
ColoreTesto 0
If RetEsito = "" Then Scrivi Idestr & " - " & Format2(K) & "° - " & Space(30) & " ESITO NON VERIFICATO ",1,,,1
If RetEsito <> "" Then
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Cinqina" Then ColoreTesto 3
Call Scrivi(Idestr & " - " & Format2(K) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
ColoreTesto 0
End If
Next
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub



SCRIPT CON SOMME CON FUORI 90 ISOTOPE

Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,Salvo50,K
Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
Dim Somma,A,B,C,D,Sorte,S1,S2,Idestr
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruo(2)
ReDim aNum(20)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,4100))
Somma = CInt(InputBox("Inserisci la Somma comune da trovare",Salvo50,15))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
Call ScegliNumeri(aNum)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(6) & "PER BYRON 2 SOMME UGUALI PER LUNGHETTA - SCRIPT SALVO50 con l'aiuto di MASTER",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
S1 = Fuori90(A + B) : S2 = Fuori90(C + D)
If(S1 = S2 And S1 = Somma) Then
Ruo(1) = R1
Ruo(2) = R2
'Call VerificaEsito(aNum,Ruo,Es + 1,Sorte,Clp,Nothing,RetEsito,RetColpi,RetEstratti, RetId)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Rossi somma " & S1,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Rossi somma " & S2,1
Scrivi
Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
Scrivi
K = 0
For Idestr = Es + 1 To Es + Clp
K = K + 1
Call VerificaEsito(aNum,Ruo,Idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
ColoreTesto 0
If RetEsito = "" Then Scrivi Idestr & " - " & Space(30) & " ESITO NON VERIFICATO ",1,,,1
If RetEsito <> "" Then
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Cinqina" Then ColoreTesto 3
Call Scrivi(Idestr & " - " & Format2(K) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
ColoreTesto 0
End If
Next
Scrivi
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub
 
S

sorujoe

Advanced Member
in pratica all'avvio dello script lo stesso mi deve chiedere le 2 ruote su cui fare elaborazione e spoglio
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

con scelta ruote

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,K,G
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
   Dim Dist,A,B,C,D,Sorte,D1,D2,Idestr
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9100))
   Dist = CInt(InputBox("Inserisci la Distanza Ciclometrica da trovare",Salvo50,15))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,2))
   Call ScegliNumeri(aNum)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "PER BYRON 2 DISTANZE CICLOMETRICHE UGUALI PER LUNGHETTA con ruote a scelta - SCRIPT SALVO50 con l'aiuto di Master",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For P1 = 1 To 4
         For P2 = P1 + 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            C = Estratto(Es,R2,P1)
            D = Estratto(Es,R2,P2)
            D1 = Distanza(A,B) : D2 = Distanza(C,D)
            If(D1 = D2 And D1 = Dist) Then
               Ruo(1) = R1
               Ruo(2) = R2
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P3 = 1 To 5
                  E1 = Estratto(Es,R1,P3)
                  If E1 = A Or E1 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " <-- Rossi Distanza " & D1,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R2) & " ",1,0
               For P4 = 1 To 5
                  E2 = Estratto(Es,R2,P4)
                  If E2 = C Or E2 = D Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " <-- Rossi Distanza " & D2,1
               Scrivi
               Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
               Scrivi
               K = 0 : G = 0
               G = Es + Clp
               If G > FIn Then G = FIn
               For Idestr = Es + 1 To G
                  K = K + 1
                  Call VerificaEsito(aNum,Ruo,Idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                  ColoreTesto 0
                  If RetEsito = "" Then Scrivi Idestr & " - " & Format2(K) & "° - " & Space(30) & " ESITO NON VERIFICATO ",1,,,1
                  If RetEsito <> "" Then
                     If RetEsito = "Ambo" Then ColoreTesto 2
                     If RetEsito = "Terno" Then ColoreTesto 1
                     If RetEsito = "Quaterna" Then ColoreTesto 7
                     If RetEsito = "Cinqina" Then ColoreTesto 3
                     Call Scrivi(Idestr & " - " & Format2(K) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
                     ColoreTesto 0
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub



Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,K
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
   Dim Somma,A,B,C,D,Sorte,S1,S2,Idestr
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,4100))
   Somma = CInt(InputBox("Inserisci la Somma comune da trovare",Salvo50,15))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,2))
   Call ScegliNumeri(aNum)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(6) & "PER BYRON 2 SOMME UGUALI PER LUNGHETTA con ruote a scelta - SCRIPT SALVO50 con l'aiuto di MASTER",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For P1 = 1 To 4
         For P2 = P1 + 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            C = Estratto(Es,R2,P1)
            D = Estratto(Es,R2,P2)
            S1 = Fuori90(A + B) : S2 = Fuori90(C + D)
            If(S1 = S2 And S1 = Somma) Then
               Ruo(1) = R1
               Ruo(2) = R2
               'Call VerificaEsito(aNum,Ruo,Es + 1,Sorte,Clp,Nothing,RetEsito,RetColpi,RetEstratti, RetId)
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P3 = 1 To 5
                  E1 = Estratto(Es,R1,P3)
                  If E1 = A Or E1 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " <-- Rossi somma " & S1,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R2) & " ",1,0
               For P4 = 1 To 5
                  E2 = Estratto(Es,R2,P4)
                  If E2 = C Or E2 = D Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " <-- Rossi somma " & S2,1
               Scrivi
               Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
               Scrivi
               K = 0
               For Idestr = Es + 1 To Es + Clp
                  K = K + 1
                  Call VerificaEsito(aNum,Ruo,Idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                  ColoreTesto 0
                  If RetEsito = "" Then Scrivi Idestr & " - " & Space(30) & " ESITO NON VERIFICATO ",1,,,1
                  If RetEsito <> "" Then
                     If RetEsito = "Ambo" Then ColoreTesto 2
                     If RetEsito = "Terno" Then ColoreTesto 1
                     If RetEsito = "Quaterna" Then ColoreTesto 7
                     If RetEsito = "Cinqina" Then ColoreTesto 3
                     Call Scrivi(Idestr & " - " & Format2(K) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
                     ColoreTesto 0
                  End If
               Next
               Scrivi
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 29 aprile 2024
    Bari
    58
    84
    30
    62
    66
    Cagliari
    45
    68
    85
    44
    01
    Firenze
    76
    52
    03
    22
    16
    Genova
    39
    05
    70
    26
    35
    Milano
    43
    86
    23
    67
    18
    Napoli
    80
    62
    88
    29
    35
    Palermo
    27
    53
    72
    71
    60
    Roma
    52
    15
    16
    24
    85
    Torino
    36
    74
    30
    73
    62
    Venezia
    55
    65
    41
    68
    13
    Nazionale
    62
    27
    48
    69
    78
    Estrazione Simbolotto
    Genova
    43
    06
    20
    12
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto