Novità

Per Salvo50

sorujoe

Advanced Member >GOLD<
Ciao Salvo tempo fa mi avevi fatto questo script che ricerca su 2 ruote determinate un medesimo o 2 numeri isotopi. Ti chiedo se lo stesso con identiche funzionalità me lo fai girare su tutte le coppie di ruote ..........senza che le indichi io.
Quindi se trova il numero o 2 da me indicati in modo ISOTOPO su qualsiasi coppia di ruote ...poi lo script procede com'è adesso.
GRAZIE

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
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruo(2)
ReDim aNum(20)
FIn = EstrazioneFin
Ini = 4100
R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1))
R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,2))
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
Ruo(1) = R1
Ruo(2) = R2
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
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
Call VerificaEsito(aNum,Ruo,idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
If RetEsito <> "" Then
ColoreTesto 0
If RetEsito = "Estratto" Then estra = estra + 1
If RetEsito = "Estratto" Then te = te + 1
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Ambo" Then ta = ta + 1
If RetEsito = "Ambo" Then ambo = ambo + 1
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Terno" Then terno = terno + 1
If RetEsito = "Terno" Then tte = tte + 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Quaterna" Then quat = quat + 1
If RetEsito = "Quaterna" Then tq = tq + 1
If RetEsito = "Cinqina" Then ColoreTesto 3
If RetEsito = "Cinqina" Then cinq = cinq + 1
If RetEsito = "Cinqina" Then tc = tc + 1
Call Scrivi(idestr & " - " & Format2(kk) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
ColoreTesto 0
End If
Next
Scrivi
End If
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub
 
Ciao Byron

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))
   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
 
ciao Salvo

gentilmente si può modificare in modo da poter fare dei calcoli a seguito della scelta delle 2 spie?
invece di inserire dei numeri e verificare l'esito inserire per esempio come calcolo la somma delle 2 spie e poi vedere il resoconto normale ?

calcolo:
spia1+spia2

col solito ..imposta giocata..gioca es , scrivi resoconto ..fine


grazie :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19

Ultimi Messaggi

Indietro
Alto