Novità

x Cinzia

Zetrix

Zetrix

Advanced Premium Member
Codice: 
Sub Main

   Dim arrData(3,5)
   Dim aRuote(3)
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12
   Dim es,x,k,y,z
 
 
     x = InputBox("Quale numero vuoi controllare?",,0)
   


  For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
 
 
  For x = x To x
 
 aRuote(1) = r1
 aRuote(2) = r2
 aRuote(3) = r3

   
      Call ScegliRuote(aRuote)
   
       
         arrData(1,1) = "" & x & " "
         arrData(2,1) = "" & x & " "
         arrData(3,1) = "" & x & " "

       
        arrData(1,3) = EstrattoRitardo(r1,x)
        arrData(2,4) = EstrattoRitardo(r2,x)
        arrData(3,5) = EstrattoRitardo(r3,x)





For k = 1 To 1


 
 
 Next



      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & NomeRuota(r1) &" "& NomeRuota(r2) &" "& NomeRuota(r3) & Space(5) & x & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
 
 
      Scrivi SiglaRuota(r1) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r1,x)
      Scrivi SiglaRuota(r2) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r2,x)
      Scrivi SiglaRuota(r3) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r3,x)
   

 
 
Next
Next


End Sub

Ciao Cinzia perche questo script da errore come si fa a selezionare le ruote
vorrei usare questa opzione ScegliRuote in modo che si possono scegliere le ruote
in unico pannello ma l'impostazione dello script scritta in questo
modo forse e sbagliata
 
Ciao, Zetrix. Fai prima a dirmi che cosa vuoi che faccia lo script per provare a farlo su un altro programma. Quello che hai postato è di altri e va bene per Spaziometria dove sto facendo girare un altro script.
 
Ciao Cinzia, lo script dovrebbe evidenziare il pannello con seleziona ruote
cosi potrei scegliere le ruote che deve calcolare ma lo script scritto
in quel modo da errore non so se ai provato lo script in spaziometria
visualizza questa scritta questa matrice e fissa ma che vorrà dire
sto lavorando con un altro script in spaziometria..
vorrei scegliere questa funzione "scegliruote" perche e piu comoda e veloce
per selezionare piu ruote ma ho visto che e piu complicata da scriverla
in spaziometria
in pratica quello che vorrei fare e scegliere un numero e tre ruote
e lo script deve elaborare il rit per ogni ruota selezionata
 
Ultima modifica:
Codice: 
Sub Main

   Dim arrData(3,5)
   Dim aRuote(3)
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12
   Dim es,x,k,y,z
 
 
     x = InputBox("Quale numero vuoi controllare?",,0)
 


  For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
 
 
 
 
 aRuote(1) = r1
 aRuote(2) = r2
 aRuote(3) = r3

 
      Call ScegliRuote(aRuote)
 
     
         arrData(1,1) = "" & x & " "
         arrData(2,1) = "" & x & " "
         arrData(3,1) = "" & x & " "

     
        arrData(1,3) = EstrattoRitardo(r1,x)
        arrData(2,4) = EstrattoRitardo(r2,x)
        arrData(3,5) = EstrattoRitardo(r3,x)





For k = 1 To 1


 
 
 Next



      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & NomeRuota(r1) &" "& NomeRuota(r2) &" "& NomeRuota(r3) & Space(5) & x & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
 
 
      Scrivi SiglaRuota(r1) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r1,x)
      Scrivi SiglaRuota(r2) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r2,x)
      Scrivi SiglaRuota(r3) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r3,x)
 

 
 
Next


End Sub


ho fatto una variazione allo script ho eliminato
For x = x To x
perche e superfluo e quindi non serve
 
Ciao, Zetrix.
Forse l' output non è quello che desideravi tu, ma credo che che la visuale sia lo stesso completa.

Codice: 
'Per Zetrix - Ambata  su ruota (Cinzia)

Sub main()
Dim n(1),ru(1)
For i=1 To 90
n(1)=i
c=0

For es=9504 To EstrazioneFin '8179
c=0

For r=1 To 10
ru(1)=r
If SerieFreq(es,es,n,ru,1)>0 Then

If SerieFreq(es+1,EstrazioneFin-1,n,ru,1)=0 Then
rt=EstrazioneFin-es
c=c+1
Scrivi FormatSpace(es,4,1)&"  "&siglaruota(r)&"  "&format2(n(1))&"  "&FormatSpace(rt,4,1)&"  ",0,0
If SerieFreq(EstrazioneFin,EstrazioneFin,n,ru,1)>0 Then usc=usc+1:ColoreTesto 2: Scrivi " sortito " Else Scrivi
ColoreTesto 0

End If
End If
Next
Next


 
Scrivi
Next

End Sub
 
Cinzia ma cosa ai combinato non e lo script che volevo mi sa che non ai seguito
a quello che volevo dire,
e adesso come te lo spiego, lo script e quello che ho allegato nel forum,
bisogna solo fare una modifica e come impostare questa scritta
"scegliruote" e qui che sta il dilemma ed e qui che dovevi lavorare
a come impostare meglio lo script affinchè fa quello che deve fare
ai provato lo script in spaziometria ??
 
Ultima modifica:
Zetrix, a parte il grafico che non c' è, lo scrip ti offre gli stessi risultati, senza che tu debba provare di volta in volta le formazioni.
Per me è ottimo. Detto ciò, accetto il tuo dissenso, preferirei con modalità diverse.

Prova a vedere se funziona.

Codice: 
Sub Main

   Dim arrData(3,5)
   Dim aRuote(3)
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12
   Dim es,x,k,y,z
 
 
     x = InputBox("Quale numero vuoi controllare?",,90)
     rr1 = InputBox("1° ruota ?",,1)
     rr2 = InputBox("2° ruota ?",,3)
     rr3 = InputBox("3° ruota ?",,5)

  
 r1=rr1
 r2=rr2
 r3=rr3
 
 
 aRuote(1) = r1
 aRuote(2) = r2
 aRuote(3) = r3

  For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
 
 

  
     ' Call ScegliRuote(aRuote)
  
      
         arrData(1,1) = "" & x & " "
         arrData(2,1) = "" & x & " "
         arrData(3,1) = "" & x & " "

      
        arrData(1,3) = EstrattoRitardo(r1,x)
        arrData(2,4) = EstrattoRitardo(r2,x)
        arrData(3,5) = EstrattoRitardo(r3,x)







      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & NomeRuota(r1) &" "& NomeRuota(r2) &" "& NomeRuota(r3) & Space(5) & x & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
 
 
      Scrivi SiglaRuota(r1) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r1,x)
      Scrivi SiglaRuota(r2) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r2,x)
      Scrivi SiglaRuota(r3) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r3,x)
  

 
 
Next
'Next


End Sub
 
Cinzia non ci siamo non e lo script che ti avevo detto
quello che ti avevo chiesto e come si seleziona le ruote
con questo pannello ??

2038.PNG

ScegliRuote e qui sta il dilemma..come si deve scrivere il codice script..
 
ma che c entra i risultati sono giusti come si deve fare per impostare
questa funzione ScegliRuote voglio scegliere le ruote con questa funzione
non so come te lo devo dire ti ho messo pure il pannello seleziona ruote
l'altra funzione scegliruota ne sceglie una per volta e non mi piace per niente
invece con questa funzione puoi scegliere piu ruote in una sola volta
ed e molto comoda efficace e rapida ma e piu complicata ad impostarla
nello script
ScegliRuote(aRuote) non basta scrivere questa riga perche lo scrit ti da errore
ho visto in altri esempi di script che usano 1 To Ubund(aRuote)
insomma e un casino impostare questa funzione ScegliRuote
 
Ultima modifica:
Cinzia ti ringrazio lo stesso vedrò se ci riuscirò a fare da me
non chiederò niente a nessuno perche nessuno ti risponde
ma sappi che da me ai sempre la mia stima e amicizia

Ciao
 
Codice: 
Option Explicit 

Sub Main
 '  Dim arrData(3,5)
   Dim aRuote  ' aRuote(3)
   Dim nRuoteScelte
   
   Dim  x,k 
   
   
   x = InputBox("Quale numero vuoi controllare?",,90)
    
    
'   rr1 = InputBox("1° ruota ?",,1)
'   rr2 = InputBox("2° ruota ?",,3)
'   rr3 = InputBox("3° ruota ?",,5)
'   r1 = rr1
'   r2 = rr2
'   r3 = rr3
'   aRuote(1) = r1
'   aRuote(2) = r2
'   aRuote(3) = r3

  
  If isNumeroValidoLotto (x) = False Then Exit Sub
  nRuoteScelte = ScegliRuote ( aRuote )
  If nRuoteScelte  <=  0 Then  Exit Sub  
   
  ReDim   arrData(nRuoteScelte ,2)

'  For es = EstrazioneFin To EstrazioneFin
     ' AvanzamentoElab EstrazioneFin,EstrazioneFin,es
      
     ' arrData(1,1) = "" & x & " "
'      arrData(2,1) = "" & x & " "
'      arrData(3,1) = "" & x & " "
'      arrData(1,3) =
'      arrData(2,4) = EstrattoRitardo(r2,x)
'      arrData(3,5) = EstrattoRitardo(r3,x)
'      Call Scrivi("Grafico" & k)
      For k = 1 To nRuoteScelte
         arrData(k,1) =  "" & NomeRuota ( aRuote(k) ) & " "

         arrData(k,2) =  EstrattoRitardo(aRuote(k), x)
         Scrivi SiglaRuota(aRuote(k)) & Space(2) & x & "" & Space(4) & "Rit." &  arrData(k,2)
   
       
         AvanzamentoElab 1,nRuoteScelte,k

      Next


    '  Call Grafico(arrData ,2,DataEstrazione(es) & Space(5) & NomeRuota(r1) & " " & NomeRuota(r2) & " " & NomeRuota(r3) & Space(5) & x & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
     
       Call Grafico(arrData ,2,DataEstrazione(EstrazioneIni) &     " a " & DataEstrazione(EstrazioneFin) & Space(5)  & StringaRuote ( aRuote)  ,"titX" ,"titY", True)
     

    ' 
'      Scrivi SiglaRuota(r1) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r1,x)
'      Scrivi SiglaRuota(r2) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r2,x)
'      Scrivi SiglaRuota(r3) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r3,x)
'  ' Next
   'Next
End Sub
 
Codice: 
Option Explicit

Sub Main
 '  Dim arrData(3,5)
   Dim aRuote  ' aRuote(3)
   Dim nRuoteScelte
 
   Dim  x,k
 
 
   x = InputBox("Quale numero vuoi controllare?",,90)
  
  

  If isNumeroValidoLotto (x) = False Then Exit Sub
  nRuoteScelte = ScegliRuote ( aRuote )
  If nRuoteScelte  <=  0 Then  Exit Sub
 
  ReDim   arrData(nRuoteScelte ,2)

'  For es = EstrazioneFin To EstrazioneFin
     ' AvanzamentoElab EstrazioneFin,EstrazioneFin,es
    
     ' arrData(1,1) = "" & x & " "
'      arrData(2,1) = "" & x & " "
'      arrData(3,1) = "" & x & " "
'      arrData(1,3) =
'      arrData(2,4) = EstrattoRitardo(r2,x)
'      arrData(3,5) = EstrattoRitardo(r3,x)
'      Call Scrivi("Grafico" & k)
      For k = 1 To nRuoteScelte
         arrData(k,1) =  "" & NomeRuota ( aRuote(k) ) & " "

         arrData(k,2) =  EstrattoRitardo(aRuote(k), x)
         Scrivi SiglaRuota(aRuote(k)) & Space(2) & x & "" & Space(4) & "Rit." &  arrData(k,2)
 
    
         AvanzamentoElab 1,nRuoteScelte,k

      Next


       Call Grafico(arrData ,2,DataEstrazione(EstrazioneFin) & Space(5) & x & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
  
      ' Call Grafico(arrData ,2,DataEstrazione(EstrazioneIni) &     " a " & DataEstrazione(EstrazioneFin) & Space(5)  & StringaRuote ( aRuote)  ,"titX" ,"titY", True)
  

    '
'      Scrivi SiglaRuota(r1) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r1,x)
'      Scrivi SiglaRuota(r2) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r2,x)
'      Scrivi SiglaRuota(r3) & Space(2) & x & "" & Space(4) & "Rit." & EstrattoRitardo(r3,x)
'  ' Next
   'Next
End Sub

grazie Luigi ma perche e cosi complicato da scrivere ScegliRuote
con scegliruota e piu facile da scrivere ma per comodità non e conveniente
perche bisogna selezionare tre volte le ruote

r1= scegliruota
r2= scegliruota
r3=scegliruota

per questo motivo avevo scelto ScegliRuote perche e piu comodo
ed e piu rapido per selezionare piu ruote
ma non funziona se si scrive solo ScegliRuote

un altra cosa vorrei dire ho provato lo script ma nella tabella
le colonne sono evidenziate tutte con lo stesso colore
ma se vorrei evidenziare le colonne con tre colori diversi
come si deve fare
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto