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
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 25 settembre 2021
    Bari
    89
    69
    62
    15
    67
    Cagliari
    35
    82
    68
    43
    13
    Firenze
    78
    70
    76
    83
    45
    Genova
    89
    54
    33
    60
    81
    Milano
    02
    10
    64
    77
    76
    Napoli
    68
    37
    17
    14
    19
    Palermo
    52
    56
    59
    02
    51
    Roma
    04
    79
    49
    37
    47
    Torino
    03
    32
    44
    31
    49
    Venezia
    74
    28
    85
    90
    02
    Nazionale
    51
    60
    41
    31
    01
    Estrazione Simbolotto
    Palermo
    32
    29
    27
    34
    04

Ultimi Messaggi

Alto