Per Rubino , SALVO50 o altro scipter HELP ME

sorujoe · 6 Luglio 2019

Ciao Rubino
ti chiedo cortesemente 1 ottimizzazione a questi tre script

UNO lavora su somme isotope
TI chiedo di poter io immettere i posti sui cui la somma isotopa deve formarsi per essere considerata

Esempio somma 15 su Bari Cagliari al 1° e 3° posto
al momento prende tutte le somme isotope prescindendo dalle loro posizioni

GRAZIE

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

sorujoe · 6 Luglio 2019

STESSA COSA SU QUESTO CHE FA LE DIFFERENZE ISOTOPE DEVO POTER METTERE LE POSIZIONI DELL'AMBO

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

sorujoe · 6 Luglio 2019

Ed infine questo che è un estratto isotopo devo poter mettere su quale posizione considerare il numero isotopo

Option Explicit
Sub Main
Dim kk,estra,ambo,terno,quat,cinq,riga,idestr
Dim te,ta,tte,tq,tc
Dim FIn,Es,Ini,Clp,Salvo50
Dim R1,R2,P1,P2,P3,E1,E2,Casi
Dim Spia1,Spia2,A,B,K
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruo(2)
ReDim aNum(20)
FIn = EstrazioneFin
Ini = 4100
Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,15))
Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,15))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
Call ScegliNumeri(aNum)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "PER BYRON 2 SPIE PER LUNGHETTA - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R2,P1)
If A = Spia1 And B = Spia2 Then
Casi = Casi + 1
Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P3 = 1 To 5
E2 = Estratto(Es,R2,P3)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(60,"-")
Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
Scrivi
kk = 0 : estra = 0 : ambo = 0
terno = 0 : quat = 0 : cinq = 0 :
For idestr = Es + 1 To Es + Clp
kk = kk + 1
Ruo(1) = R1
Ruo(2) = R2
Call VerificaEsito(aNum,Ruo,idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
ColoreTesto 0
If RetEsito = "" Then Scrivi idestr & " - " & Format2(K) & "° - " & Space(33) & " 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(kk) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
ColoreTesto 0
End If
Next
Scrivi
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

sorujoe · 6 Luglio 2019

GRAZIE

Rubino · 6 Luglio 2019

PRIMO IN ALTO

da provare

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))
   P1 = InputBox("1 posizione",,1)
   P2 = InputBox("2 posizione",,3)
   R1 = InputBox("1 Ruota",,1)
   R2 = InputBox("2 Ruota",,2)
   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
      S1 = Estratto(Es,R1,P1)
      S2 = Estratto(Es,R2,P2)
      If Fuori90(S1 + S2) = Somma 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
         ColoreTesto(1)
         Scrivi " Condizioni: Somma Richiesta = " & Somma & "  Verifica Esiti n.colpi.." & Clp,1
         Scrivi " 1 Ruota " & SiglaRuota(R1) & " Pos." & P1 & "  : 2 Ruota " & SiglaRuota(R2) & " Pos." & P2,1
         ColoreTesto(0)
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi " " & SiglaRuota(R1) & "  Estratto pos." & P1 & "  ",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 " <-- somma " & S1,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi " " & SiglaRuota(R2) & "  Estratto pos." & P2 & "  ",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 " <-- 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
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

Rubino · 6 Luglio 2019

non si riesce a fare copia ed incolla

webmaster sta a fa casino con qualche cosa.

sorujoe · 6 Luglio 2019

prova ad aggiornare la pagina. A me va bene

sorujoe · 6 Luglio 2019

HTML:

STESSA COSA SU QUESTO CHE FA LE DIFFERENZE ISOTOPE DEVO POTER METTERE LE POSIZIONI DELL'AMBO

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

sorujoe · 6 Luglio 2019

HTML:

Ed infine questo che è un estratto isotopo devo poter mettere su quale posizione considerare il numero isotopo

Option Explicit
Sub Main
Dim kk,estra,ambo,terno,quat,cinq,riga,idestr
Dim te,ta,tte,tq,tc
Dim FIn,Es,Ini,Clp,Salvo50
Dim R1,R2,P1,P2,P3,E1,E2,Casi
Dim Spia1,Spia2,A,B,K
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruo(2)
ReDim aNum(20)
FIn = EstrazioneFin
Ini = 4100
Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,15))
Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,15))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
Call ScegliNumeri(aNum)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "PER BYRON 2 SPIE PER LUNGHETTA - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R2,P1)
If A = Spia1 And B = Spia2 Then
Casi = Casi + 1
Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P3 = 1 To 5
E2 = Estratto(Es,R2,P3)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(60,"-")
Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
Scrivi
kk = 0 : estra = 0 : ambo = 0
terno = 0 : quat = 0 : cinq = 0 :
For idestr = Es + 1 To Es + Clp
kk = kk + 1
Ruo(1) = R1
Ruo(2) = R2
Call VerificaEsito(aNum,Ruo,idestr,1,1,Nothing,RetEsito ,RetColpi,RetEstratti,RetId)
ColoreTesto 0
If RetEsito = "" Then Scrivi idestr & " - " & Format2(K) & "° - " & Space(33) & " 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(kk) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
ColoreTesto 0
End If
Next
Scrivi
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

sorujoe · 6 Luglio 2019

Forse cosi riesci???

Rubino · 6 Luglio 2019

SECONDO

controllare i risultati perchè non avendo fatto io lo script e non avendo indicazioni dei numeri da mettere in gioco
faccio fatica a capire se quelli a casaccio che sto immettendo, sono poi giusti o meno.

18 colpi da verificare sono tanti ed i casi fissi per un ambo su una ruota ed un altro su altra ruota, ma di medesime distanze
poi siano tutto giusto.

fammi sapere se è tutto ok

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,s1,s2
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,3950))
   Dist = CInt(InputBox("Inserisci la Distanza Ciclometrica da trovare",Salvo50,15))
   P1 = InputBox("1 posizione",,1)
   P2 = InputBox("2 posizione",,3)
   R1 = InputBox("1 Ruota",,1)
   R2 = InputBox("2 Ruota",,2)
   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
      s1 = Estratto(Es,R1,P1)
      s2 = Estratto(Es,R2,P2)
      ''''
      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) & " Pos." & P1 & " " & P2 & "  ",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)  & " Pos." & P1 & " " & P2 & "  ",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
   If ScriptInterrotto Then Exit Sub
Next
End Sub

sorujoe · 6 Luglio 2019

in questo ultimo le ruote non devo metterle io deve lavorare su qualsiasi coppia di ruote. Le posizione è giusto le metta io ma le ruote no tutte le coppie di ruote tra le 11

sorujoe · 6 Luglio 2019

HTML:

forse ho messo lo script errato questo è quello da modificare e da immettere solo le posizioni dell'ambo che genera la differenza ...il resto invariato

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

sorujoe · 6 Luglio 2019

HTML:

e questo è quello relativo all'estratto isotopo su tutte le coppie di ruote cui devo indicare la posizione cosa che ora non fa

Option Explicit
Sub Main
   Dim kk,estra,ambo,terno,quat,cinq,riga,idestr
   Dim te,ta,tte,tq,tc
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Casi
   Dim Spia1,Spia2,A,B,K
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = 4100
   Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,15))
   Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,15))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   Call ScegliNumeri(aNum)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER BYRON 2 SPIE PER LUNGHETTA - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R2,P1)
               If A = Spia1 And B = Spia2 Then
                  Casi = Casi + 1
                  Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
                  Scrivi " " & SiglaRuota(R1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
                  Scrivi " " & SiglaRuota(R2) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R2,P3)
                     If E2 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi String(60,"-")
                  Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
                  Scrivi
                  kk = 0 : estra = 0 : ambo = 0
                  terno = 0 : quat = 0 : cinq = 0 :
                  For idestr = Es + 1 To Es + Clp
                     kk = kk + 1
                     Ruo(1) = R1
                     Ruo(2) = R2
                     Call VerificaEsito(aNum,Ruo,idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                     ColoreTesto 0
                     If RetEsito = "" Then Scrivi idestr & " - " & Format2(K) & "° - " & Space(33) & " 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(kk) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
                        ColoreTesto 0
                     End If
                  Next
                  Scrivi
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

sorujoe · 6 Luglio 2019

Mancano questo ultimi 2 il primo andava bene

Rubino · 6 Luglio 2019

TERZO

Codice:

Option Explicit
Sub Main
   Dim kk,estra,ambo,terno,quat,cinq,riga,idestr
   Dim te,ta,tte,tq,tc
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Casi
   Dim Spia1,Spia2,A,B,K
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = 4100
   Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,15))
   Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,15))
   P1 = InputBox("1 posizione",,1)
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   Call ScegliNumeri(aNum)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER BYRON 2 SPIE PER LUNGHETTA - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R2,P1)
            If A = Spia1 And B = Spia2 Then
               Casi = Casi + 1
               Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
               Scrivi " " & SiglaRuota(R1) & " pos." & P1 & "  ",1,0
               P2 = P1
               E1 = Estratto(Es,R1,P2)
               If E1 = A Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
               Scrivi
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
               Scrivi " " & SiglaRuota(R2) & " pos." & P1 & "  ",1,0
               P3 = P1
               E2 = Estratto(Es,R2,P3)
               If E2 = B Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2),1,0
               ColoreTesto 0
               Scrivi
               Scrivi String(60,"-")
               Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
               Scrivi
               kk = 0 : estra = 0 : ambo = 0
               terno = 0 : quat = 0 : cinq = 0 :
               For idestr = Es + 1 To Es + Clp
                  kk = kk + 1
                  Ruo(1) = R1
                  Ruo(2) = R2
                  Call VerificaEsito(aNum,Ruo,idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                  ColoreTesto 0
                  If RetEsito = "" Then Scrivi idestr & " - " & Format2(K) & "° - " & Space(33) & " 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(kk) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
                     ColoreTesto 0
                  End If
               Next
               Scrivi
            End If
      Next
   Next
   If ScriptInterrotto Then Exit Sub
Next
End Sub

Cerca

Cerca

Per Rubino , SALVO50 o altro scipter HELP ME

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

Rubino

Guest

Rubino

Guest

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

Rubino

Guest

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

Rubino

Guest

Ultima estrazione Lotto

Ultimi Messaggi