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
    martedì 07 gennaio 2025
    Bari
    29
    37
    09
    53
    08
    Cagliari
    33
    56
    08
    61
    20
    Firenze
    55
    33
    09
    60
    28
    Genova
    56
    09
    78
    59
    04
    Milano
    73
    51
    34
    06
    70
    Napoli
    49
    30
    64
    80
    05
    Palermo
    89
    08
    74
    48
    30
    Roma
    46
    20
    13
    87
    05
    Torino
    05
    85
    90
    28
    16
    Venezia
    51
    42
    17
    05
    09
    Nazionale
    88
    90
    72
    25
    41
    Estrazione Simbolotto
    Bari
    06
    22
    29
    11
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto