x Cinzia

[Zetrix]

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

 

[Cinzia27]

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.

 

[Zetrix]

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

 

[Zetrix]

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

 

[Cinzia27]

Ciao, Zetrix.
Forse l' output non è quello che desideravi tu, ma credo che che la visuale sia lo stesso completa.

'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

 

[Zetrix]

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 ??

 

[Cinzia27]

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.

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

 

[Zetrix]

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 ??



ScegliRuote e qui sta il dilemma..come si deve scrivere il codice script..

 

[Cinzia27]

Ma i risultati sono giusti ?

 

[Zetrix]

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

 

[Cinzia27]

Zetrix, io non riesco a farlo.
Rivolgiti a qualcun altro.

Ciao

 

[Zetrix]

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

 

[LuigiB]

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

 

[Zetrix]

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