Per Rubino o Joe o DJ NOMADE o altro scripter

sorujoe · 6 Luglio 2019

Mi modificate gentilmente questi script?
Va eliminato la parte sui numeri spia e le 2 ruote di gioco e su cui fare lo spoglio sono quella di calcolo piu una seconda che indico io.

primo script

Option Explicit
Sub Main
Dim es,r,n,p1,p2,f1,f2,lunga,nspia,fine,nup1,nup2,casi ,col,x,w,retestratti,retidestr,retesito,verc,z,a,b ,c,esito
Dim colpo(19,5)
r = InputBox("Ruota",,1)
fine = InputBox("Estraz.n.",,EstrazioneFin)
''''''
p1 = CInt(InputBox("Posizione estratto",,1))
f1 = CInt(InputBox("1 Figura ",,1))
p2 = CInt(InputBox("Posizione estratto",,2))
f2 = CInt(InputBox("2 Figura ",,6))
''''''
lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
verc = CInt(InputBox("Verifica esito per ncolpi",,18))
nspia = InputBox("Nr.Spia ",,"05.52.26.35.33.11.14.15")
''''
For es = 3950 To fine
Messaggio(es)
''cerca estratto sulla ruota di riferimento e nella posizione specificata
nup1 = Estratto(es,r,p1)
nup2 = Estratto(es,r,p2)
''''
If Figura(nup1) = f1 And Figura(nup2) = f2 Then
Scrivi String(89,"=")
Scrivi es & " / " & DataEstrazione(es) & " Ruota " & SiglaRuota(r) & " pos." & p1 & " e " & p2 & " Estratti " & nup1 & " " & nup2 & " Figure " & f1 & " / " & f2,1
ColoreTesto(0)
casi = casi + 1
Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & SiglaRuota(r) & " Comb." & lunga & " Per colpi n." & verc,1
Scrivi FormattaStringa(casi,"000") & " -----> Cerca n.Spia su Altre Ruote " & "Numeri " & nspia,1
'''''lunghetta o numeri in gioco e arrays di rif.
ReDim an(0)
Call SplitByChar(lunga,".",an)
x = UBound(an)
ReDim nm(10)
For w = 0 To x
nm(w + 1) = an(w)
Next
'''''''
'''''lunghetta o numeri spia e arrays di altre ruote
ReDim ans(0),MatriceEstrRitorno(11,5)
Call SplitByChar(nspia,".",ans)
x = UBound(ans)
ReDim nms(10)
For w = 0 To x
nms(w + 1) = ans(w)
Next
ReDim ar(11)
Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
For a = 1 To 11
If a <> r Then
For b = 1 To 5
For c = 1 To x + 1
If MatriceEstrRitorno(a,b) = Int(nms(c)) Then
ColoreTesto(0)
ar(a) = a
Scrivi "---- Estraz.n." & es & "...." & SiglaRuota(a) & " Presente Spia.." & nms(c)
ColoreTesto(0)
End If
Next
Next
End If
Next
''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
esito = " "
For col = 1 To verc
'''call verificaesito
ar(r) = r
Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(0)
esito = Left(retesito,8) & " "
If retesito = "Ambo" Then
esito = "Ambo "
ColoreTesto(2)
End If
If retesito = "Terno" Then
esito = "Terno "
ColoreTesto(1)
End If
If retesito = "Quaterna" Then
esito = "Quaterna "
ColoreTesto(1)
End If
If retesito = "Cinquina" Then
esito = "Cinquina "
ColoreTesto(1)
End If
Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
If retesito = "Estratto" Then
colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
End If
If retesito = "Ambo" Then
colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
End If
If retesito = "Terno" Then
colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
End If
If retesito = "Quaterna" Then
colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
End If
If retesito = "Cinquina" Then
colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
End If
ColoreTesto(0)
End If
Next
Scrivi
ColoreTesto(0)
End If
Next
'''riepilogo esiti
ColoreTesto(2)
Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
ColoreTesto(0)
ReDim atitoli2(6),avalori2(6)
' preimposto i titoli delle colonne
atitoli2(1) = " n.colpo "
atitoli2(2) = " Estratti "
atitoli2(3) = " Ambi "
atitoli2(4) = " Terni "
atitoli2(5) = " Quaterne "
atitoli2(6) = " Cinquine "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
For z = 0 To 17
avalori2(1) = Format2(z)
avalori2(2) = colpo(z,1)
avalori2(3) = colpo(z,2)
avalori2(4) = colpo(z,3)
avalori2(5) = colpo(z,4)
avalori2(6) = colpo(z,5)
Call AddRigaTabella(avalori2,Bianco_,"center",2)
Next
Call CreaTabella
End Sub

sorujoe · 6 Luglio 2019

SECONDO

Option Explicit
Sub Main
Dim es,r,n,p,lunga,nspia,fine,nue,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito,bb
Dim colpo(18,5)
r = InputBox("Ruota",,2)
fine = InputBox("Estraz.n.",,EstrazioneFin)
n = CInt(InputBox("Ambata",,66))
p = CInt(InputBox("Posizione estratto",,3))
lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
verc = CInt(InputBox("Verifica esito per ncolpi",,18))
nspia = InputBox("Nr.Spia ",,"05.52.26.35.33.11.14.15")
''''
For es = 3950 To fine
Messaggio(es)
''cerca estratto sulla ruota di riferimento e nella posizione specificata
nue = Estratto(es,r,p)
If nue = n Then
Scrivi String(89,"=")
Scrivi es & " / " & DataEstrazione(es) & " Ruota " & SiglaRuota(r) & " pos." & p & " Estratto " & nue,1
ColoreTesto(0)
casi = casi + 1
Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & SiglaRuota(r) & " Comb." & lunga & " Per colpi n." & verc,1
Scrivi FormattaStringa(casi,"000") & " -----> Cerca n.Spia su Altre Ruote " & "Numeri " & nspia,1
'''''lunghetta o numeri in gioco e arrays di rif.
ReDim an(0)
Call SplitByChar(lunga,".",an)
x = UBound(an)
ReDim nm(10)
For w = 0 To x
nm(w + 1) = an(w)
Next
'''''''
'''''lunghetta o numeri spia e arrays di altre ruote
ReDim ans(0),MatriceEstrRitorno(11,5)
Call SplitByChar(nspia,".",ans)
x = UBound(ans)
ReDim nms(10)
For w = 0 To x
nms(w + 1) = ans(w)
Next
ReDim ar(12)
Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
For a = 1 To 11
If a <> r Then
For b = 1 To 5
For c = 1 To x + 1
If MatriceEstrRitorno(a,b) = Int(nms(c)) Then
ColoreTesto(0)
If a = 11 Then
bb = 12
Else
bb = a
End If
ar(bb) = bb
Scrivi "---- Estraz.n." & es & "...." & SiglaRuota(a) & " Presente Spia.." & nms(c)
ColoreTesto(0)
End If
Next
Next
End If
Next
''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
esito = " "
For col = 1 To verc + 1
'''call verificaesito
ar(r) = r
Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(0)
esito = Left(retesito,8) & " "
If retesito = "Ambo" Then
esito = "Ambo "
ColoreTesto(2)
End If
If retesito = "Terno" Then
esito = "Terno "
ColoreTesto(1)
End If
If retesito = "Quaterna" Then
esito = "Quaterna "
ColoreTesto(1)
End If
If retesito = "Cinquina" Then
esito = "Cinquina "
ColoreTesto(1)
End If
Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
If retesito = "Estratto" Then
colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
End If
If retesito = "Ambo" Then
colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
End If
If retesito = "Terno" Then
colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
End If
If retesito = "Quaterna" Then
colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
End If
If retesito = "Cinquina" Then
colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
End If
ColoreTesto(0)
End If
Next
Scrivi
ColoreTesto(0)
End If
Next
'''riepilogo esiti
ColoreTesto(2)
Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
ColoreTesto(0)
ReDim atitoli2(6),avalori2(6)
' preimposto i titoli delle colonne
atitoli2(1) = " n.colpo "
atitoli2(2) = " Estratti "
atitoli2(3) = " Ambi "
atitoli2(4) = " Terni "
atitoli2(5) = " Quaterne "
atitoli2(6) = " Cinquine "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
For z = 1 To 18
avalori2(1) = Format2(z)
avalori2(2) = colpo(z,1)
avalori2(3) = colpo(z,2)
avalori2(4) = colpo(z,3)
avalori2(5) = colpo(z,4)
avalori2(6) = colpo(z,5)
Call AddRigaTabella(avalori2,Bianco_,"center",2)
Next
Call CreaTabella
End Sub

sorujoe · 6 Luglio 2019

TERZO

Option Explicit
Sub Main
Dim es,r,n,p1,p2,somma1,somma2,lunga,nspia,fine,nup1,nup2,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito
Dim colpo(19,5)
r = InputBox("Ruota",,1)
fine = InputBox("Estraz.n.",,EstrazioneFin)
''''''
p1 = CInt(InputBox("Posizione estratto",,1))
p2 = CInt(InputBox("Posizione estratto",,3))
somma1 = CInt(InputBox("Somma 2 estratti ",,25))
''''''
lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
verc = CInt(InputBox("Verifica esito per ncolpi",,18))
nspia = InputBox("Nr.Spia ",,"05.52.26.35.33.11.14.15")
''''
For es = 3950 To fine
Messaggio(es)
''cerca estratto sulla ruota di riferimento e nella posizione specificata
nup1 = Estratto(es,r,p1)
nup2 = Estratto(es,r,p2)
somma2 = nup1 + nup2
''''
If somma1 = somma2 Then
Scrivi String(89,"=")
Scrivi es & " / " & DataEstrazione(es) & " Ruota " & SiglaRuota(r) & " pos." & p1 & " e " & p2 & " Estratti " & nup1 & " " & nup2 & " Somma richiesta " & somma1,1
ColoreTesto(0)
casi = casi + 1
Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & SiglaRuota(r) & " Comb." & lunga & " Per colpi n." & verc,1
Scrivi FormattaStringa(casi,"000") & " -----> Cerca n.Spia su Altre Ruote " & "Numeri " & nspia,1
'''''lunghetta o numeri in gioco e arrays di rif.
ReDim an(0)
Call SplitByChar(lunga,".",an)
x = UBound(an)
ReDim nm(10)
For w = 0 To x
nm(w + 1) = an(w)
Next
'''''''
'''''lunghetta o numeri spia e arrays di altre ruote
ReDim ans(0),MatriceEstrRitorno(11,5)
Call SplitByChar(nspia,".",ans)
x = UBound(ans)
ReDim nms(10)
For w = 0 To x
nms(w + 1) = ans(w)
Next
ReDim ar(11)
Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
For a = 1 To 11
If a <> r Then
For b = 1 To 5
For c = 1 To x + 1
If MatriceEstrRitorno(a,b) = Int(nms(c)) Then
ColoreTesto(0)
ar(a) = a
Scrivi "---- Estraz.n." & es & "...." & SiglaRuota(a) & " Presente Spia.." & nms(c)
ColoreTesto(0)
End If
Next
Next
End If
Next
''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
esito = " "
For col = 1 To verc
'''call verificaesito
ar(r) = r
Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(0)
esito = Left(retesito,8) & " "
If retesito = "Ambo" Then
esito = "Ambo "
ColoreTesto(2)
End If
If retesito = "Terno" Then
esito = "Terno "
ColoreTesto(1)
End If
If retesito = "Quaterna" Then
esito = "Quaterna "
ColoreTesto(1)
End If
If retesito = "Cinquina" Then
esito = "Cinquina "
ColoreTesto(1)
End If
Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
If retesito = "Estratto" Then
colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
End If
If retesito = "Ambo" Then
colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
End If
If retesito = "Terno" Then
colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
End If
If retesito = "Quaterna" Then
colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
End If
If retesito = "Cinquina" Then
colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
End If
ColoreTesto(0)
End If
Next
Scrivi
ColoreTesto(0)
End If
Next
'''riepilogo esiti
ColoreTesto(2)
Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
ColoreTesto(0)
ReDim atitoli2(6),avalori2(6)
' preimposto i titoli delle colonne
atitoli2(1) = " n.colpo "
atitoli2(2) = " Estratti "
atitoli2(3) = " Ambi "
atitoli2(4) = " Terni "
atitoli2(5) = " Quaterne "
atitoli2(6) = " Cinquine "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
For z = 0 To 17
avalori2(1) = Format2(z)
avalori2(2) = colpo(z,1)
avalori2(3) = colpo(z,2)
avalori2(4) = colpo(z,3)
avalori2(5) = colpo(z,4)
avalori2(6) = colpo(z,5)
Call AddRigaTabella(avalori2,Bianco_,"center",2)
Next
Call CreaTabella
End Sub

sorujoe · 6 Luglio 2019

In pratica così com'è le ruote sono quella di calcolo e quelle su cui sortiscono i numeri spia.
Con questa modifica chiedo che le ruote di gioco siano quella di calcolo e una seconda che scelgo io ....numeri spia eliminati

GRAZIE

Rubino · 6 Luglio 2019

PRIMO = BYRON 11

Codice:

Option Explicit
Sub Main
   Dim es,r,n,p1,p2,f1,f2,lunga,ruota,fine,nup1,nup2,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito
   Dim colpo(19,5)
   r = InputBox("Ruota",,1)
   ruota = InputBox("Ruota di Gioco",,5)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   ''''''
   p1 = CInt(InputBox("Posizione estratto",,1))
   f1 = CInt(InputBox("1 Figura ",,1))
   p2 = CInt(InputBox("Posizione estratto",,2))
   f2 = CInt(InputBox("2 Figura ",,6))
   ''''''
   lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
   verc = CInt(InputBox("Verifica esito per ncolpi",,18))

   ''''
   ColoreTesto(2)
   Scrivi "  B Y R O N   1 1 ",1
   ColoreTesto(0)
   For es = 3950 To fine
      Messaggio(es)
      ''cerca estratto sulla ruota di riferimento e nella posizione specificata
      nup1 = Estratto(es,r,p1)
      nup2 = Estratto(es,r,p2)
      ''''
      If Figura(nup1) = f1 And Figura(nup2) = f2 Then
         Scrivi String(89,"=")
         Scrivi es & " / " & DataEstrazione(es) & " Ruota " &  Siglaruota(r) &  " pos." & p1 & " e " & p2 & " Estratti " & nup1 & " " & nup2 & " Figure " & f1 & " / " & f2,1
         ColoreTesto(0)
         casi = casi + 1
         ColoreTesto(1)
         Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & Siglaruota(r) & " - " & SiglaRuota(ruota) & "   Comb." & lunga & " Per colpi n." & verc,1
         ColoreTesto(0)
         '''''lunghetta o numeri in gioco e arrays di rif.
         ReDim an(0)
         Call SplitByChar(lunga,".",an)
         x = UBound(an)
         ReDim nm(10)
         For w = 0 To x
            nm(w + 1) = an(w)
         Next
         ''''''' imposto le ruote di Rilevamento e di Gioco
         ReDim ar(2)
         ar(1) = r
         ar(2) = ruota
         ''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
         esito = " "
         For col = 1 To verc
            '''call verificaesito
            ar(r) = r
            Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(0)
               esito = Left(retesito,8) & " "
               If retesito = "Ambo" Then
                  esito = "Ambo "
                  ColoreTesto(2)
               End If
               If retesito = "Terno" Then
                  esito = "Terno "
                  ColoreTesto(1)
               End If
               If retesito = "Quaterna" Then
                  esito = "Quaterna "
                  ColoreTesto(1)
               End If
               If retesito = "Cinquina" Then
                  esito = "Cinquina "
                  ColoreTesto(1)
               End If
               Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
               If retesito = "Estratto" Then
                  colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
               End If
               If retesito = "Ambo" Then
                  colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
               End If
               If retesito = "Terno" Then
                  colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
               End If
               If retesito = "Quaterna" Then
                  colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
               End If
               If retesito = "Cinquina" Then
                  colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
               End If
               ColoreTesto(0)
            End If
         Next
         Scrivi
         ColoreTesto(0)
      End If
   Next
   '''riepilogo esiti
   ColoreTesto(2)
   Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
   ColoreTesto(0)
   ReDim atitoli2(6),avalori2(6)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " n.colpo "
   atitoli2(2) = " Estratti "
   atitoli2(3) = " Ambi "
   atitoli2(4) = " Terni "
   atitoli2(5) = " Quaterne "
   atitoli2(6) = " Cinquine "
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
   For z = 0 To 17
      avalori2(1) = Format2(z)
      avalori2(2) = colpo(z,1)
      avalori2(3) = colpo(z,2)
      avalori2(4) = colpo(z,3)
      avalori2(5) = colpo(z,4)
      avalori2(6) = colpo(z,5)
      Call AddRigaTabella(avalori2,Bianco_,"center",2)
   Next
   Call CreaTabella
End Sub

Rubino · 6 Luglio 2019

SECONDO BYRON 12

Codice:

Option Explicit
Sub Main
   Dim es,r,n,p,lunga,ruota,fine,nue,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito,bb
   Dim colpo(18,5)
   r = InputBox("Ruota",,2)
   ruota = InputBox("Ruota di Gioco",,10)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   n = CInt(InputBox("Ambata",,66))
   p = CInt(InputBox("Posizione estratto",,3))
   lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
   verc = CInt(InputBox("Verifica esito per ncolpi",,18))
   ''''
   ColoreTesto(2)
   Scrivi "  B Y R O N   1 2  ",1
   ColoreTesto(0)
   For es = 3950 To fine
      Messaggio(es)
      ''cerca estratto sulla ruota di riferimento e nella posizione specificata
      nue = Estratto(es,r,p)
      If nue = n Then
         Scrivi String(89,"=")
         Scrivi es & " / " & DataEstrazione(es) & " Ruota " & SiglaRuota(r) & " pos." & p & " Estratto " & nue,1
         ColoreTesto(0)
         casi = casi + 1
         ColoreTesto(1)
         Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & SiglaRuota(r) & " - " & SiglaRuota(ruota) & "  Comb." & lunga & " Per colpi n." & verc,1
         ColoreTesto(0)
         '''''lunghetta o numeri in gioco e arrays di rif.
         ReDim an(0)
         Call SplitByChar(lunga,".",an)
         x = UBound(an)
         ReDim nm(10)
         For w = 0 To x
            nm(w + 1) = an(w)
         Next
         '''''''
         ReDim ar(2)
         ar(1) = r
         ar(2) = ruota
         ''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
         esito = " "
         For col = 1 To verc + 1
            '''call verificaesito
            ar(r) = r
            Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(0)
               esito = Left(retesito,8) & " "
               If retesito = "Ambo" Then
                  esito = "Ambo "
                  ColoreTesto(2)
               End If
               If retesito = "Terno" Then
                  esito = "Terno "
                  ColoreTesto(1)
               End If
               If retesito = "Quaterna" Then
                  esito = "Quaterna "
                  ColoreTesto(1)
               End If
               If retesito = "Cinquina" Then
                  esito = "Cinquina "
                  ColoreTesto(1)
               End If
               Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
               If retesito = "Estratto" Then
                  colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
               End If
               If retesito = "Ambo" Then
                  colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
               End If
               If retesito = "Terno" Then
                  colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
               End If
               If retesito = "Quaterna" Then
                  colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
               End If
               If retesito = "Cinquina" Then
                  colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
               End If
               ColoreTesto(0)
            End If
         Next
         Scrivi
         ColoreTesto(0)
      End If
   Next
   '''riepilogo esiti
   ColoreTesto(2)
   Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
   ColoreTesto(0)
   ReDim atitoli2(6),avalori2(6)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " n.colpo "
   atitoli2(2) = " Estratti "
   atitoli2(3) = " Ambi "
   atitoli2(4) = " Terni "
   atitoli2(5) = " Quaterne "
   atitoli2(6) = " Cinquine "
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
   For z = 1 To 18
      avalori2(1) = Format2(z)
      avalori2(2) = colpo(z,1)
      avalori2(3) = colpo(z,2)
      avalori2(4) = colpo(z,3)
      avalori2(5) = colpo(z,4)
      avalori2(6) = colpo(z,5)
      Call AddRigaTabella(avalori2,Bianco_,"center",2)
   Next
   Call CreaTabella
End Sub

Rubino · 6 Luglio 2019

TERZO = BYRON 13

Codice:

Option Explicit
Sub Main
   Dim es,r,n,p1,p2,somma1,somma2,lunga,ruota,fine,nup1,nup2,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito
   Dim colpo(19,5)
   r = InputBox("Ruota",,1)
   ruota = InputBox("Ruota di Gioco",,10)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   ''''''
   p1 = CInt(InputBox("Posizione estratto",,1))
   p2 = CInt(InputBox("Posizione estratto",,3))
   somma1 = CInt(InputBox("Somma 2 estratti ",,25))
   ''''''
   lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
   verc = CInt(InputBox("Verifica esito per ncolpi",,18))
   ''''
   ColoreTesto(2)
   Scrivi "  B Y R O N  1 3  ",1
   ColoreTesto(0)
   For es = 3950 To fine
      Messaggio(es)
      ''cerca estratto sulla ruota di riferimento e nella posizione specificata
      nup1 = Estratto(es,r,p1)
      nup2 = Estratto(es,r,p2)
      somma2 = nup1 + nup2
      ''''
      If somma1 = somma2 Then
         Scrivi String(89,"=")
         Scrivi es & " / " & DataEstrazione(es) & " Ruota " & SiglaRuota(r) & " pos." & p1 & " e " & p2 & " Estratti " & nup1 & " " & nup2 & " Somma richiesta " & somma1,1      
         casi = casi + 1
         ColoreTesto(1)
         Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & SiglaRuota(r) & " - " & SiglaRuota(ruota) & "   Comb." & lunga & " Per colpi n." & verc,1
         ColoreTesto(0)
         '''''lunghetta o numeri in gioco e arrays di rif.
         ReDim an(0)
         Call SplitByChar(lunga,".",an)
         x = UBound(an)
         ReDim nm(10)
         For w = 0 To x
            nm(w + 1) = an(w)
         Next
         ''''''' ruote di Gioco
         ReDim ar(2)
         ar(1) = r
         ar(2) = ruota
         ''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
         esito = " "
         For col = 1 To verc
            '''call verificaesito
            ar(r) = r
            Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(0)
               esito = Left(retesito,8) & " "
               If retesito = "Ambo" Then
                  esito = "Ambo "
                  ColoreTesto(2)
               End If
               If retesito = "Terno" Then
                  esito = "Terno "
                  ColoreTesto(1)
               End If
               If retesito = "Quaterna" Then
                  esito = "Quaterna "
                  ColoreTesto(1)
               End If
               If retesito = "Cinquina" Then
                  esito = "Cinquina "
                  ColoreTesto(1)
               End If
               Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
               If retesito = "Estratto" Then
                  colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
               End If
               If retesito = "Ambo" Then
                  colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
               End If
               If retesito = "Terno" Then
                  colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
               End If
               If retesito = "Quaterna" Then
                  colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
               End If
               If retesito = "Cinquina" Then
                  colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
               End If
               ColoreTesto(0)
            End If
         Next
         Scrivi
         ColoreTesto(0)
      End If
   Next
   '''riepilogo esiti
   ColoreTesto(2)
   Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
   ColoreTesto(0)
   ReDim atitoli2(6),avalori2(6)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " n.colpo "
   atitoli2(2) = " Estratti "
   atitoli2(3) = " Ambi "
   atitoli2(4) = " Terni "
   atitoli2(5) = " Quaterne "
   atitoli2(6) = " Cinquine "
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
   For z = 0 To 17
      avalori2(1) = Format2(z)
      avalori2(2) = colpo(z,1)
      avalori2(3) = colpo(z,2)
      avalori2(4) = colpo(z,3)
      avalori2(5) = colpo(z,4)
      avalori2(6) = colpo(z,5)
      Call AddRigaTabella(avalori2,Bianco_,"center",2)
   Next
   Call CreaTabella
End Sub

sorujoe · 6 Luglio 2019

G R A Z I E !!!!!!!!!!!!!!!!!!!!!!!!!!

Cerca

Cerca

Per Rubino o Joe o DJ NOMADE o altro scripter

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

Rubino

Guest

Rubino

Guest

Rubino

Guest

sorujoe

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi