Novità

Per Salvo50

sorujoe

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

lla

Advanced Member >PLATINUM PLUS<
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto