Novità

Risolto grazie

sorujoe

Advanced Member
come mai in questo tuo script se metto RUOTA 10 e RUOTA DI GIOCO 1 mi va in crash??

HTML:
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
 

sorujoe

Advanced Member
Anche in questo
HTML:
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
 

sorujoe

Advanced Member
Anche in questo

HTML:
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
 
R

Rubino

Guest
ciao

ti rispondo perchè penso che questi script te li ho fatti io prima delle ferie

basta remmare questa riga o cancellarla in tutti gli script che hai postato.

''' remmare ar(r) = r
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto