Per Salvo50

sorujoe · 9 Giugno 2019

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

sorujoe · 9 Giugno 2019

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

salvo50 · 10 Giugno 2019

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

sorujoe · 10 Giugno 2019

Senza Parole ....sono convinto che farai strada credimi e un giorno acquisterò il tuo software

Cerca

Cerca

Per Salvo50

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

sorujoe

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi