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
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto