Novità

Un aiutino per trovare mio errore script con inputbox ruote

C

CICALOTTO

Member
Buonasera a tutti

non riesco ad uscire fuori da un errore di calcolo che mi fa il listato che ho modificato...

inputbox quante estrazioni indietro, tutto ok
inputbox quanti colpi, tutto ok
la ricerca è su una ruota, 4^ e 5^ estratto, si uniscono la figura del primo numero con la figura del secondo.
fin qui tutto ok
poi faccio i vari abbinamenti, tutto ok
se scelgo la ruota scrivendola manualmente, tutto ok

MA SE...
inserisco la funzione r = ScegliRuota scelgo la ruota e funziona perfettamente, ed ho la tendina in giu' per scegliere...

MENTRE SE...
inserisco r = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",,1) (ho le ruote a vista nell'insieme e ne scelgo una)
i calcoli me li fa sempre solo usando gli estratti di Bari anche se poi inserisce la ruota scelta nei vari pronostici. Ad esempio dico Torino, prende gli estratti di Bari e li mette nel pronostico inserendo Bari. Mentre tutto dovrebbe avvenire sulla stessa ruota che scelgo nel box, quindi ad esempio Torino. NON riesco a capire dove sbaglio.

GRAZIE



Sub Main()
Dim ruote(1)
Dim posta(2)
Dim postaa(1)
Dim gi1(2) : Dim gi2(2) : Dim gi3(2) : Dim gi4(10) : Dim gi5(2)
Dim Clp : Dim w : Dim y : Dim r


r = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",)
ruote(1) = r
posta(2) = 1
postaa(1) = 1

Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",," "))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",," "))
Ini = EstrazioneFin - Isi
Fin = EstrazioneFin
co = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
a = Estratto(es,r,4)
b = Estratto(es,r,5)

'---------------------------
e = Figura(a)
f = Figura(b)

'---------------------------
gi1(1) = Fuori90(e & f)
gi1(2) = 90 - gi1(1)

co = co + 1

ImpostaGiocata 1,gi1,ruote,posta,Clp
Scrivi String(125,"°"),1

gi2(1) = Fuori90(e & f)
gi2(2) = 90 -(a)

co = co + 1
ImpostaGiocata 2,gi2,ruote,posta,Clp

gi3(1) = Fuori90(e & f)
gi3(2) =(90 - b)

co = co + 1
ImpostaGiocata 3,gi3,ruote,posta,Clp


gi4(1) = gi1(1)
gi4(2) = Fuori90(gi1(1) + 9)
gi4(3) = Fuori90(gi1(1) + 18)
gi4(4) = Fuori90(gi1(1) + 27)
gi4(5) = Fuori90(gi1(1) + 36)
gi4(6) = Fuori90(gi1(1) + 45)
gi4(7) = Fuori90(gi1(1) + 54)
gi4(8) = Fuori90(gi1(1) + 63)
gi4(9) = Fuori90(gi1(1) + 72)
gi4(10) = Fuori90(gi1(1) + 81)


Call EliminaRipetuti(gi4)

co = co + 1
ImpostaGiocata 4,gi4,ruote,posta,Clp


gi5(1) = Fuori90(e & f)
gi5(2) = Vert(gi1(1))
If Cadenza(gi5(2)) = 0 Then gi5(2) = gi5(2) + 9

co = co + 1
ImpostaGiocata 5,gi5,ruote,postaa,Clp

For w = 2 To 7
For y = 2 To 7
ImpostaInterruzioni w,y,2
Next
Next
Gioca es,1,,1,1

Next


Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")

ScriviResoconto
End Sub
 
Ultima modifica:
r = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",)
Non conosco questa funzione però la virgola è una sola ?

Io uso questa

r=CInt(InputBox ("Introdurre il numero della ruota:",,3))
If r="" Then Exit Sub

ruote(1) = r
 
Cinzia27 ha scritto:
r = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",)
Non conosco questa funzione però la virgola è una sola ?

Io uso questa

r=CInt(InputBox ("Introdurre il numero della ruota:",,3))
If r="" Then Exit Sub

ruote(1) = r
Clicca per espandere...

si, grazie avevo provato anche così, però a me piaceva avere a vista l'elenco delle ruote , mentre con r=CInt(InputBox ("Introdurre il numero della ruota:",,3)) devi inserire il numero della ruota, in questo caso 3 corrisponde a Firenze...

vorrei evitare perché mi sembrava piu' carino e veloce avere la lista delle ruote e sceglierne una
 
però se provi a far partire il listato, mi sballa sia i calcoli che la ruota se uso :


r = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",)
 
Cinzia, apprezzo il tuo impegno e i suggerimenti, ti seguo spesso nella elaborazione degli script
sei Bravissima.
In attesa ti venga in mente un ulteriore aiutino per risolvere, tengo la funzione che funziona(!) senza errori di calcolo... cioè col menu a tendina:

r = ScegliRuote
 
Ti consigli di usare sempre l'help delle funzioni sino a quando non ne masticherai il significato e gli argomenti in esse presenti.
esempio:

ComplAdX
Function ComplAdX(n, Optional x = 90) As Integer
Descrizione
Ottiene il complemento per N al valore X
Note
Valore di ritorno ---> "dalla funzione"
complemento per N al valore X
Parametri


nNumero su cui opera la funzione
Optional x = 90Valore per il quale cacolare il complemento
 
ti posto il tuo script, non ho testato icalcoli o altro, ti ho solo inserito la funzione Complementare a 90 ( che leggi nel post sopra
e corretto l'impostazione della scelta della ruora... Non capisco l'inserimento di Rg in parentesi di Scegliruota

Codice: 
Sub Main()
     Dim ruote(1)
     Dim posta(2)
     Dim postaa(1)
     Dim gi1(2),gi2(2),gi3(2),gi4(10),gi5(2)
     Dim Clp,w,y,r,Isi,Ini,fin,co,es,a,b,e,f
     r = ScegliRuota() ' InputBox("Scelta Ruota di Gioco",)
    
    
     ruote(1) = r
     posta(2) = 1
     postaa(1) = 1
     Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,50))
     Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,9))
     Ini = EstrazioneFin - Isi
     fin = EstrazioneFin
    
     Scrivi SiglaRuota(ruote(1))
     co = 0
     For es = Ini To fin
          AvanzamentoElab Ini,fin,es
          a = Estratto(es,r,4)
          b = Estratto(es,r,5)
          '---------------------------
          e = Figura(a)
          f = Figura(b)
          '---------------------------
          gi1(1) = Fuori90(e & f)
          gi1(2) = ComplAdX( gi1(1))  ''90 - gi1(1)
          co = co + 1
          ImpostaGiocata 1,gi1,ruote,posta,Clp
          Scrivi String(125,"°"),1
          gi2(1) = Fuori90(e & f)
          gi2(2) = 90 -(a)
          co = co + 1
          ImpostaGiocata 2,gi2,ruote,posta,Clp
          gi3(1) = Fuori90(e & f)
          gi3(2) =(90 - b)
          co = co + 1
          ImpostaGiocata 3,gi3,ruote,posta,Clp
          gi4(1) = gi1(1)
          gi4(2) = Fuori90(gi1(1) + 9)
          gi4(3) = Fuori90(gi1(1) + 18)
          gi4(4) = Fuori90(gi1(1) + 27)
          gi4(5) = Fuori90(gi1(1) + 36)
          gi4(6) = Fuori90(gi1(1) + 45)
          gi4(7) = Fuori90(gi1(1) + 54)
          gi4(8) = Fuori90(gi1(1) + 63)
          gi4(9) = Fuori90(gi1(1) + 72)
          gi4(10) = Fuori90(gi1(1) + 81)
          Call EliminaRipetuti(gi4)
          co = co + 1
          ImpostaGiocata 4,gi4,ruote,posta,Clp
          gi5(1) = Fuori90(e & f)
          gi5(2) = Vert(gi1(1))
          If Cadenza(gi5(2)) = 0 Then gi5(2) = gi5(2) + 9
          co = co + 1
          ImpostaGiocata 5,gi5,ruote,postaa,Clp
          For w = 2 To 7
               For y = 2 To 7
                    ImpostaInterruzioni w,y,2
               Next
          Next
          Gioca es,1,,1,1
     Next
     Scrivi
     Scrivi String(65,"•")
     ColoreTesto 2
     Scrivi "casi trovati : " & co,1
     ColoreTesto 0
     Scrivi String(65,"•")
     ScriviResoconto
End Sub
 
Ciao, Rg era una reminescenza di una prova che avevo fatto precedentemente, cioè Rg = Ruota di Gioco, perchè all'inizio della creazione dello script intendevo prima una ruota da dove prendere gli estratti e poi una ruota diversa dove giocare...

quindi tipo :

r = ScegliRuota() 'InputBox ("Scegli la ruota ","RUOTA",1)

rr = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",,1)
 
Ultima modifica:
claudio8 ha scritto:
Ti consigli di usare sempre l'help delle funzioni sino a quando non ne masticherai il significato e gli argomenti in esse presenti.
esempio:

ComplAdX
Function ComplAdX(n, Optional x = 90) As Integer
Descrizione
Ottiene il complemento per N al valore X
Note
Valore di ritorno ---> "dalla funzione"
complemento per N al valore X
Parametri


nNumero su cui opera la funzione
Optional x = 90Valore per il quale cacolare il complemento
Clicca per espandere...


ottimo, non conoscevo questa funzione, forse per ora ho letto solo superficialmente le varie possibilità

GRAZIE
 
Ciao a Tutti

La ruota di calcolo è nel menu a tendina

La ruota di gioco la scegli con InputBox

Ho preso lo script che ha aggiustato Claudio

Codice: 
Sub Main()
   Dim ruote(1)
   Dim posta(2)
   Dim postaa(1)
   Dim gi1(2),gi2(2),gi3(2),gi4(10),gi5(2)
   Dim Clp,w,y,r,R2,Isi,Ini,fin,co,es,a,b,e,f
   r = ScegliRuota()
   posta(2) = 1
   postaa(1) = 1
   Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,50))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,9))
   R2 = InputBox("Scelta Ruota di Gioco",,2)
   ruote(1) = R2
   Ini = EstrazioneFin - Isi
   fin = EstrazioneFin
   ' Scrivi SiglaRuota(ruote(1))
   co = 0
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      a = Estratto(es,r,4)
      b = Estratto(es,r,5)
      '---------------------------
      e = Figura(a)
      f = Figura(b)
      '---------------------------
      gi1(1) = Fuori90(e & f)
      gi1(2) = ComplAdX(gi1(1)) ''90 - gi1(1)
      co = co + 1
      Scrivi String(125,"°"),1
      Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
      Scrivi "  " & SiglaRuota(r) & " " & StringaEstratti(es,r) & "  Ruota di Calcolo",1
      Scrivi
      ImpostaGiocata 1,gi1,ruote,posta,Clp
      
      gi2(1) = Fuori90(e & f)
      gi2(2) = 90 -(a)
      co = co + 1
      ImpostaGiocata 2,gi2,ruote,posta,Clp
      gi3(1) = Fuori90(e & f)
      gi3(2) =(90 - b)
      co = co + 1
      ImpostaGiocata 3,gi3,ruote,posta,Clp
      gi4(1) = gi1(1)
      gi4(2) = Fuori90(gi1(1) + 9)
      gi4(3) = Fuori90(gi1(1) + 18)
      gi4(4) = Fuori90(gi1(1) + 27)
      gi4(5) = Fuori90(gi1(1) + 36)
      gi4(6) = Fuori90(gi1(1) + 45)
      gi4(7) = Fuori90(gi1(1) + 54)
      gi4(8) = Fuori90(gi1(1) + 63)
      gi4(9) = Fuori90(gi1(1) + 72)
      gi4(10) = Fuori90(gi1(1) + 81)
      Call EliminaRipetuti(gi4)
      co = co + 1
      ImpostaGiocata 4,gi4,ruote,posta,Clp
      gi5(1) = Fuori90(e & f)
      gi5(2) = Vert(gi1(1))
      If Cadenza(gi5(2)) = 0 Then gi5(2) = gi5(2) + 9
      co = co + 1
      ImpostaGiocata 5,gi5,ruote,postaa,Clp
      For w = 2 To 7
         For y = 2 To 7
            ImpostaInterruzioni w,y,2
         Next
      Next
      Gioca es,1,,1,1
   Next
   Scrivi
   Scrivi String(65,"•")
   ColoreTesto 2
   Scrivi "casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(65,"•")
   ScriviResoconto
End Sub
 
Ultima modifica:
Ciao salvo una stessa funzione
"scegliruota" pua essere usata per variabili diverse.
r è una prima variabile e
R2 è un'altra variabile

R2 = InputBox("Scelta Ruota di Gioco",,2) ' se per l'utente è più pratico sceglire in un elenco può anche essere usato
R2 = scegliruota()
ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto