xMike58

Zetrix · 2 Giugno 2021

ciao Mike58 mi puoi spiegare perche lo script non mi colora la 1 colonna

ti allego lo script..

poi ogni tanto esce un messaggio di errore e dice impossibile aprire negli appunti..

Sub Main

Dim arrData(10,10)

Dim a,b,c,d,e
Dim r1
Dim anum(10)

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

For r1 = 1 To 12

If r1 = 11 Then r1 = 12 End If

arrData(1,1) = EstrattoRitardo(r1,1)
arrData(2,2) = EstrattoRitardo(r1,10)
arrData(3,3) = EstrattoRitardo(r1,19)
arrData(4,4) = EstrattoRitardo(r1,28)
arrData(5,5) = EstrattoRitardo(r1,37)
arrData(6,6) = EstrattoRitardo(r1,46)
arrData(7,7) = EstrattoRitardo(r1,55)
arrData(8,8) = EstrattoRitardo(r1,64)
arrData(9,9) = EstrattoRitardo(r1,73)
arrData(10,10) = EstrattoRitardo(r1,82)

arrData(1,1) = " 1 "
arrData(2,1) = " 10 "
arrData(3,1) = " 19 "
arrData(4,1) = " 28 "
arrData(5,1) = " 37 "
arrData(6,1) = " 46 "
arrData(7,1) = " 55 "
arrData(8,1) = " 64 "
arrData(9,1) = " 73 "
arrData(10,1) = " 82 "

anum(1) = 1
anum(2) = 10
anum(3) = 19
anum(4) = 28
anum(5) = 37
anum(6) = 46
anum(7) = 55
anum(8) = 64
anum(9) = 73
anum(10) = 82

For k = 1 To 1

Next

Call Scrivi("Grafico" & k)
Call Grafico(arrData,2,DataEstrazione(es) & Space(4) & NomeRuota(r1) & Space(4) & StringaNumeri(anum),"titX","titY")

Next

Next

End Sub

Mike58 · 2 Giugno 2021

Ciao Zetrix guardando gli esempi test sovrascrivi la matrice e ne cancelli anche la scrittura.
prova a leggere i miei setting e leggi anche l'esempio nella cartella test.
ciao

Codice:

Sub Main
   Dim arrData(10,11)
   Dim a,b,c,d,e
   Dim r1
   Dim anum(10)
   For es = EstrazioneFin To EstrazioneFin
      AvanzamentoElab EstrazioneFin,EstrazioneFin,es
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12 End If
        
         arrData(1,1) = " 1 "
         arrData(2,1) = " 10 "
         arrData(3,1) = " 19 "
         arrData(4,1) = " 28 "
         arrData(5,1) = " 37 "
         arrData(6,1) = " 46 "
         arrData(7,1) = " 55 "
         arrData(8,1) = " 64 "
         arrData(9,1) = " 73 "
         arrData(10,1) = " 82 "
        
         arrData(1,2) = EstrattoRitardo(r1,1)
         arrData(2,3) = EstrattoRitardo(r1,10)
         arrData(3,4) = EstrattoRitardo(r1,19)
         arrData(4,5) = EstrattoRitardo(r1,28)
         arrData(5,6) = EstrattoRitardo(r1,37)
         arrData(6,7) = EstrattoRitardo(r1,46)
         arrData(7,8) = EstrattoRitardo(r1,55)
         arrData(8,9) = EstrattoRitardo(r1,64)
         arrData(9,10) = EstrattoRitardo(r1,73)
         arrData(10,11) = EstrattoRitardo(r1,82)
        
         anum(1) = 1
         anum(2) = 10
         anum(3) = 19
         anum(4) = 28
         anum(5) = 37
         anum(6) = 46
         anum(7) = 55
         anum(8) = 64
         anum(9) = 73
         anum(10) = 82
        
         For k = 1 To 1
         Next
         Call Scrivi("Grafico" & k)
         Call Grafico(arrData,2,DataEstrazione(es) & Space(4) & NomeRuota(r1) & Space(4) & StringaNumeri(anum),"titX","titY",True)
      Next
   Next
End Sub

Zetrix · 2 Giugno 2021

buona sera Mike grazie per lo script ho visto dove stava lo sbaglio adesso non da nessun messaggio
di errore

posso chiederti un altra cosa vorrei sistemare uno script che calcola la pos del rit
dell estratto determinato ho fatto uno script ma e sbagliato
se puoi sistemarlo te questo script..

Codice:

Sub Main

   Dim arrData(5,6)
 
   Dim r1
   Dim anum(10)
   Dim pos1,pos2,pos3,pos4,pos5
  
    rv = InputBox("Quale numero vuoi controllare?",,0)
  
  
   For es = EstrazioneFin To EstrazioneFin
      AvanzamentoElab EstrazioneFin,EstrazioneFin,es
    
      For r1 = 1 To 12
      If r1 = 11 Then r1 = 12 End If

    For x = rv To rv
    
     For pos1 = x To x
     For pos2 = x To x
     For pos3 = x To x
     For pos4 = x To x
     For pos5 = x To x
    

 
         arrData(1,1) = " Pos 1 "
         arrData(2,1) = " Pos 2 "
         arrData(3,1) = " Pos 3 "
         arrData(4,1) = " Pos 4 "
         arrData(5,1) = " Pos 5 "

 
 
 
         arrData(1,2) = EstrattoRitardoTurbo(r1,pos1,x)
         arrData(2,3) = EstrattoRitardoTurbo(r1,pos2,x)
         arrData(3,4) = EstrattoRitardoTurbo(r1,pos3,x)
         arrData(4,5) = EstrattoRitardoTurbo(r1,pos4,x)
         arrData(5,6) = EstrattoRitardoTurbo(r1,pos5,x)

  
 anum(1) = x
 
 

For k = 1 To 1

Next
      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(4) & SiglaRuota(r1) & Space(5) & StringaNumeri(anum) & Space(5) & "Rit.Att.","titX","titY",True)
      
      Next
      Next
      Next
      Next

  Next
      Next
      Next
      Next



End Sub

Mike58 · 2 Giugno 2021

Ciao Zetrix questo è un pochetto + impegnativo e diverso nel costrutto.
vedi se capisci come impostarlo anche per altri scopi.

Codice:

Sub Main
   Dim arrData(5,6)
   Dim r1
   Dim anum(1)
   'Dim pos1,pos2,pos3,pos4,pos5
   rv = InputBox("Quale numero vuoi controllare?",,90)
   For es = EstrazioneFin To EstrazioneFin
      AvanzamentoElab EstrazioneFin,EstrazioneFin,es
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12 'End If
         For x = rv To rv
            '--------------------------------------------------
            'nuovo costrutto
            For p = 1 To 5
            ReDim apos(5)
            apos(p) = True
            Rpos = EstrattoRitardo(r1,x,,,,,apos)'variabile per posizione vere(true)
            ReDim Preserve pos(p)
            pos(p) = Rpos
            riga = riga & FormattaStringa(Rpos,"000") & "  "
            Next
            '--------------------------------------------------
            arrData(1,1) = " Pos 1 "
            arrData(2,1) = " Pos 2 "
            arrData(3,1) = " Pos 3 "
            arrData(4,1) = " Pos 4 "
            arrData(5,1) = " Pos 5 "
            arrData(1,2) = pos(1)
            arrData(2,3) = pos(2)
            arrData(3,4) = pos(3)
            arrData(4,5) = pos(4)
            arrData(5,6) = pos(5)
            anum(1) = x
            For k = 1 To 1
               Call Scrivi("Grafico" & k)
               Call Grafico(arrData,2,DataEstrazione(es) & Space(4) & SiglaRuota(r1) & Space(5) & StringaNumeri(anum) & Space(5) & "Ritardi.x posiz. " & riga,"titX","titY",True)
            Next
         Next
          riga = ""
      Next
    
   Next
End Sub

Zetrix · 3 Giugno 2021

grazie mike ho visto lo script e perfetto ma come ho sistemato alcune scritte nello script
subito dopo mostra sempre un messaggio di errore allego l'immagine dell errore

e fastidiosa questa finestra che visualizza sempre il messaggio di errore

buonanotte

Zetrix · 6 Giugno 2021

Codice:

Sub Main

   Dim arrData(9,10)
 
  Dim r1
  
  
  For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
  
rv = ScegliRuota
  
  For r1 = rv To rv


 If r1 = 11 Then r1 = 11 End If
 If r1 = 12 Then r1 = 12 End If


        
     arrData(1,1) = EstrattoRitardo(r1,1)
       arrData(1,2) = EstrattoRitardo(r1,2)
      arrData(1,3) = EstrattoRitardo(r1,3)
      arrData(1,4) = EstrattoRitardo(r1,4)
       arrData(1,5) = EstrattoRitardo(r1,5)
      arrData(1,6) = EstrattoRitardo(r1,6)
    arrData(1,7) = EstrattoRitardo(r1,7)
       arrData(1,8) = EstrattoRitardo(r1,8)
      arrData(1,9) = EstrattoRitardo(r1,9)
       arrData(1,10) = EstrattoRitardo(r1,10)
                                                        
      arrData(2,1) = EstrattoRitardo(r1,11)
       arrData(2,2) = EstrattoRitardo(r1,12)
      arrData(2,3) = EstrattoRitardo(r1,13)
      arrData(2,4) = EstrattoRitardo(r1,14)
       arrData(2,5) = EstrattoRitardo(r1,15)
      arrData(2,6) = EstrattoRitardo(r1,16)
    arrData(2,7) = EstrattoRitardo(r1,17)
       arrData(2,8) = EstrattoRitardo(r1,18)
      arrData(2,9) = EstrattoRitardo(r1,19)
       arrData(2,10) = EstrattoRitardo(r1,20)


      arrData(3,1) = EstrattoRitardo(r1,21)
       arrData(3,2) = EstrattoRitardo(r1,22)
      arrData(3,3) = EstrattoRitardo(r1,23)
      arrData(3,4) = EstrattoRitardo(r1,24)
       arrData(3,5) = EstrattoRitardo(r1,25)
      arrData(3,6) = EstrattoRitardo(r1,26)
    arrData(3,7) = EstrattoRitardo(r1,27)
       arrData(3,8) = EstrattoRitardo(r1,28)
      arrData(3,9) = EstrattoRitardo(r1,29)
       arrData(3,10) = EstrattoRitardo(r1,30)


      arrData(4,1) = EstrattoRitardo(r1,31)
       arrData(4,2) = EstrattoRitardo(r1,32)
      arrData(4,3) = EstrattoRitardo(r1,33)
      arrData(4,4) = EstrattoRitardo(r1,34)
       arrData(4,5) = EstrattoRitardo(r1,35)
      arrData(4,6) = EstrattoRitardo(r1,36)
    arrData(4,7) = EstrattoRitardo(r1,37)
       arrData(4,8) = EstrattoRitardo(r1,38)
      arrData(4,9) = EstrattoRitardo(r1,39)
       arrData(4,10) = EstrattoRitardo(r1,40)

      arrData(5,1) = EstrattoRitardo(r1,41)
       arrData(5,2) = EstrattoRitardo(r1,42)
      arrData(5,3) = EstrattoRitardo(r1,43)
      arrData(5,4) = EstrattoRitardo(r1,44)
       arrData(5,5) = EstrattoRitardo(r1,45)
      arrData(5,6) = EstrattoRitardo(r1,46)
    arrData(5,7) = EstrattoRitardo(r1,47)
       arrData(5,8) = EstrattoRitardo(r1,48)
      arrData(5,9) = EstrattoRitardo(r1,49)
       arrData(5,10) = EstrattoRitardo(r1,50)

      
 
      arrData(6,1) = EstrattoRitardo(r1,51)
       arrData(6,2) = EstrattoRitardo(r1,52)
      arrData(6,3) = EstrattoRitardo(r1,53)
      arrData(6,4) = EstrattoRitardo(r1,54)
       arrData(6,5) = EstrattoRitardo(r1,55)
      arrData(6,6) = EstrattoRitardo(r1,56)
    arrData(6,7) = EstrattoRitardo(r1,57)
       arrData(6,8) = EstrattoRitardo(r1,58)
      arrData(6,9) = EstrattoRitardo(r1,59)
       arrData(6,10) = EstrattoRitardo(r1,60)


     arrData(7,1) = EstrattoRitardo(r1,61)
       arrData(7,2) = EstrattoRitardo(r1,62)
      arrData(7,3) = EstrattoRitardo(r1,63)
      arrData(7,4) = EstrattoRitardo(r1,64)
       arrData(7,5) = EstrattoRitardo(r1,65)
      arrData(7,6) = EstrattoRitardo(r1,66)
    arrData(7,7) = EstrattoRitardo(r1,67)
       arrData(7,8) = EstrattoRitardo(r1,68)
      arrData(7,9) = EstrattoRitardo(r1,69)
       arrData(7,10) = EstrattoRitardo(r1,70)


      arrData(8,1) = EstrattoRitardo(r1,71)
       arrData(8,2) = EstrattoRitardo(r1,72)
      arrData(8,3) = EstrattoRitardo(r1,73)
      arrData(8,4) = EstrattoRitardo(r1,74)
       arrData(8,5) = EstrattoRitardo(r1,75)
      arrData(8,6) = EstrattoRitardo(r1,76)
    arrData(8,7) = EstrattoRitardo(r1,77)
       arrData(8,8) = EstrattoRitardo(r1,78)
      arrData(8,9) = EstrattoRitardo(r1,79)
       arrData(8,10) = EstrattoRitardo(r1,80)


      arrData(9,1) = EstrattoRitardo(r1,81)
       arrData(9,2) = EstrattoRitardo(r1,82)
      arrData(9,3) = EstrattoRitardo(r1,83)
      arrData(9,4) = EstrattoRitardo(r1,84)
       arrData(9,5) = EstrattoRitardo(r1,85)
      arrData(9,6) = EstrattoRitardo(r1,86)
    arrData(9,7) = EstrattoRitardo(r1,87)
       arrData(9,8) = EstrattoRitardo(r1,88)
      arrData(9,9) = EstrattoRitardo(r1,89)
       arrData(9,10) = EstrattoRitardo(r1,90)

                                        
 For k = 1 To 1


  
   Next




      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & SiglaRuota(r1) & Space(5) & "Rit.Att.","titX","titY")
 
 
 
  Next
      
Next



End Sub

Ciao Mike58 vorrei chiederti una cortesia come si puo scrivere tutti i 90 numeri
in tutti i quadri ho fatto diverse prove ma non ci sono riuscito
se esegui lo script vedrai che a ogni quadro e corrisposto una R1 R2 R3 ..
invece dovrebbe scrivere i numeri per ogni colonna..

Mike58 · 7 Giugno 2021

Ciao Zetrix , tutte le risposte non c'è le ho.
Sul Perchè e di quali valori ha bisogno il codice grafico non saprei.
Tuttavia leggendo i test degli script ad esempio
devi scriverne tutti i valori ( mi rifiuto di scriverli io tutti)
prova lo script ad esempio e fanne le verifiche del caso.

Codice:

Sub Main

   Dim arrData(3,4)
  
   arrData(1,1) = "Num 1-3" ' Imposta le etichette della prima serie.
   arrData(2,1) = "Num 4-6"
   arrData(3,1) = "Num 7-9"
 
    arrData(1,2) = 10
    arrData(1,3) = 4
    arrData(1,4) = 6
 
    arrData(2,2) = 20
    arrData(2,3) = 3
    arrData(2,4) = 6
    
    arrData(3,2) = 15
    arrData(3,3) = 6
    arrData(3,4) = 9


  
  
      Call Scrivi("Grafico" & 2)
      Call Grafico(arrData,2,"titolo","titX","titY")
      



  



 

End Sub

So anche che hai la fantasia per riuscire ad adattarlo

Ciao

Zetrix · 7 Giugno 2021

ciao mike grazie comunque dello script ho fatto questo script che evidenzia tutti i 90 numeri
a ogni numero corrisponde al colore della casella meglio di cosi non sono riuscito a farlo
allego lo script

Codice:

Sub Main

   Dim arrData(1,90)
 
  Dim r1
  
  
  For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
  
rv = ScegliRuota
  
  For r1 = rv To rv


 If r1 = 11 Then r1 = 11 End If
 If r1 = 12 Then r1 = 12 End If


        
       arrData(1,1) = EstrattoRitardo(r1,1)
       arrData(1,2) = EstrattoRitardo(r1,2)
       arrData(1,3) = EstrattoRitardo(r1,3)
       arrData(1,4) = EstrattoRitardo(r1,4)
       arrData(1,5) = EstrattoRitardo(r1,5)
       arrData(1,6) = EstrattoRitardo(r1,6)
       arrData(1,7) = EstrattoRitardo(r1,7)
       arrData(1,8) = EstrattoRitardo(r1,8)
       arrData(1,9) = EstrattoRitardo(r1,9)
       arrData(1,10) = EstrattoRitardo(r1,10)
                                                        
       arrData(1,11) = EstrattoRitardo(r1,11)
       arrData(1,12) = EstrattoRitardo(r1,12)
       arrData(1,13) = EstrattoRitardo(r1,13)
       arrData(1,14) = EstrattoRitardo(r1,14)
       arrData(1,15) = EstrattoRitardo(r1,15)
       arrData(1,16) = EstrattoRitardo(r1,16)
       arrData(1,17) = EstrattoRitardo(r1,17)
       arrData(1,18) = EstrattoRitardo(r1,18)
       arrData(1,19) = EstrattoRitardo(r1,19)
       arrData(1,20) = EstrattoRitardo(r1,20)

       arrData(1,21) = EstrattoRitardo(r1,21)
       arrData(1,22) = EstrattoRitardo(r1,22)
       arrData(1,23) = EstrattoRitardo(r1,23)
       arrData(1,24) = EstrattoRitardo(r1,24)
       arrData(1,25) = EstrattoRitardo(r1,25)
       arrData(1,26) = EstrattoRitardo(r1,26)
       arrData(1,27) = EstrattoRitardo(r1,27)
       arrData(1,28) = EstrattoRitardo(r1,28)
       arrData(1,29) = EstrattoRitardo(r1,29)
       arrData(1,30) = EstrattoRitardo(r1,30)


       arrData(1,31) = EstrattoRitardo(r1,31)
       arrData(1,32) = EstrattoRitardo(r1,32)
       arrData(1,33) = EstrattoRitardo(r1,33)
       arrData(1,34) = EstrattoRitardo(r1,34)
       arrData(1,35) = EstrattoRitardo(r1,35)
       arrData(1,36) = EstrattoRitardo(r1,36)
       arrData(1,37) = EstrattoRitardo(r1,37)
       arrData(1,38) = EstrattoRitardo(r1,38)
       arrData(1,39) = EstrattoRitardo(r1,39)
       arrData(1,40) = EstrattoRitardo(r1,40)

       arrData(1,41) = EstrattoRitardo(r1,41)
       arrData(1,42) = EstrattoRitardo(r1,42)
       arrData(1,43) = EstrattoRitardo(r1,43)
       arrData(1,44) = EstrattoRitardo(r1,44)
       arrData(1,45) = EstrattoRitardo(r1,45)
       arrData(1,46) = EstrattoRitardo(r1,46)
       arrData(1,47) = EstrattoRitardo(r1,47)
       arrData(1,48) = EstrattoRitardo(r1,48)
       arrData(1,49) = EstrattoRitardo(r1,49)
       arrData(1,50) = EstrattoRitardo(r1,50)

      
 
       arrData(1,51) = EstrattoRitardo(r1,51)
       arrData(1,52) = EstrattoRitardo(r1,52)
       arrData(1,53) = EstrattoRitardo(r1,53)
       arrData(1,54) = EstrattoRitardo(r1,54)
       arrData(1,55) = EstrattoRitardo(r1,55)
       arrData(1,56) = EstrattoRitardo(r1,56)
       arrData(1,57) = EstrattoRitardo(r1,57)
       arrData(1,58) = EstrattoRitardo(r1,58)
       arrData(1,59) = EstrattoRitardo(r1,59)
       arrData(1,60) = EstrattoRitardo(r1,60)


       arrData(1,61) = EstrattoRitardo(r1,61)
       arrData(1,62) = EstrattoRitardo(r1,62)
       arrData(1,63) = EstrattoRitardo(r1,63)
       arrData(1,64) = EstrattoRitardo(r1,64)
       arrData(1,65) = EstrattoRitardo(r1,65)
       arrData(1,66) = EstrattoRitardo(r1,66)
       arrData(1,67) = EstrattoRitardo(r1,67)
       arrData(1,68) = EstrattoRitardo(r1,68)
       arrData(1,69) = EstrattoRitardo(r1,69)
       arrData(1,70) = EstrattoRitardo(r1,70)


       arrData(1,71) = EstrattoRitardo(r1,71)
       arrData(1,72) = EstrattoRitardo(r1,72)
       arrData(1,73) = EstrattoRitardo(r1,73)
       arrData(1,74) = EstrattoRitardo(r1,74)
       arrData(1,75) = EstrattoRitardo(r1,75)
       arrData(1,76) = EstrattoRitardo(r1,76)
       arrData(1,77) = EstrattoRitardo(r1,77)
       arrData(1,78) = EstrattoRitardo(r1,78)
       arrData(1,79) = EstrattoRitardo(r1,79)
       arrData(1,80) = EstrattoRitardo(r1,80)


       arrData(1,81) = EstrattoRitardo(r1,81)
       arrData(1,82) = EstrattoRitardo(r1,82)
       arrData(1,83) = EstrattoRitardo(r1,83)
       arrData(1,84) = EstrattoRitardo(r1,84)
       arrData(1,85) = EstrattoRitardo(r1,85)
       arrData(1,86) = EstrattoRitardo(r1,86)
       arrData(1,87) = EstrattoRitardo(r1,87)
       arrData(1,88) = EstrattoRitardo(r1,88)
       arrData(1,89) = EstrattoRitardo(r1,89)
       arrData(1,90) = EstrattoRitardo(r1,90)

                                        
 For k = 1 To 1


  
   Next




      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & SiglaRuota(r1) & Space(5) & "Rit.Att.","titX","titY")
 
 Scrivi"1" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,1) & "",0
 Scrivi"2" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,2) & "",0
 Scrivi"3" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,3) & "",0
 Scrivi"4" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,4) & "",0
 Scrivi"5" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,5) & "",0
 Scrivi"6" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,6) & "",0
 Scrivi"7" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,7) & "",0
 Scrivi"8" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,8) & "",0
 Scrivi"9" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,9) & "",0
 Scrivi"10" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,10) & "",0
 Scrivi"11" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,11) & "",0
 Scrivi"12" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,12) & "",0
 Scrivi"13" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,13) & "",0
 Scrivi"14" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,14) & "",0
 Scrivi"15" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,15) & "",0
 Scrivi"16" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,16) & "",0
 Scrivi"17" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,17) & "",0
 Scrivi"18" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,18) & "",0
 Scrivi"19" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,19) & "",0
 Scrivi"20" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,20) & "",0
 Scrivi"21" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,21) & "",0
 Scrivi"22" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,22) & "",0
 Scrivi"23" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,23) & "",0
 Scrivi"24" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,24) & "",0
 Scrivi"25" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,25) & "",0
 Scrivi"26" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,26) & "",0
 Scrivi"27" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,27) & "",0
 Scrivi"28" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,28) & "",0
 Scrivi"29" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,29) & "",0
 Scrivi"30" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,30) & "",0
 Scrivi"31" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,31) & "",0
 Scrivi"32" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,32) & "",0
 Scrivi"33" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,33) & "",0
 Scrivi"34" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,34) & "",0
 Scrivi"35" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,35) & "",0
 Scrivi"36" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,36) & "",0
 Scrivi"37" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,37) & "",0
 Scrivi"38" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,38) & "",0
 Scrivi"39" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,39) & "",0
 Scrivi"40" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,40) & "",0
 Scrivi"41" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,41) & "",0
 Scrivi"42" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,42) & "",0
 Scrivi"43" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,43) & "",0
 Scrivi"44" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,44) & "",0
 Scrivi"45" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,45) & "",0
 Scrivi"46" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,46) & "",0
 Scrivi"47" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,47) & "",0
 Scrivi"48" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,48) & "",0
 Scrivi"49" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,49) & "",0
 Scrivi"50" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,50) & "",0
 Scrivi"51" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,51) & "",0
 Scrivi"52" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,52) & "",0
 Scrivi"53" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,53) & "",0
 Scrivi"54" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,54) & "",0
 Scrivi"55" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,55) & "",0
 Scrivi"56" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,56) & "",0
 Scrivi"57" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,57) & "",0
 Scrivi"58" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,58) & "",0
 Scrivi"59" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,59) & "",0
 Scrivi"60" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,60) & "",0
 Scrivi"61" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,61) & "",0
 Scrivi"62" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,62) & "",0
 Scrivi"63" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,63) & "",0
 Scrivi"64" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,64) & "",0
 Scrivi"65" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,65) & "",0
 Scrivi"66" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,66) & "",0
 Scrivi"67" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,67) & "",0
 Scrivi"68" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,68) & "",0
 Scrivi"69" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,69) & "",0
 Scrivi"70" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,70) & "",0
 Scrivi"71" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,71) & "",0
 Scrivi"72" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,72) & "",0
 Scrivi"73" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,73) & "",0
 Scrivi"74" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,74) & "",0
 Scrivi"75" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,75) & "",0
 Scrivi"76" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,76) & "",0
 Scrivi"77" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,77) & "",0
 Scrivi"78" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,78) & "",0
 Scrivi"79" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,79) & "",0
 Scrivi"80" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,80) & "",0
 Scrivi"81" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,81) & "",0
 Scrivi"82" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,82) & "",0
 Scrivi"83" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,83) & "",0
 Scrivi"84" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,84) & "",0
 Scrivi"85" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,85) & "",0
 Scrivi"86" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,86) & "",0
 Scrivi"87" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,87) & "",0
 Scrivi"88" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,88) & "",0
 Scrivi"89" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,89) & "",0
 Scrivi"90" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,90) & "",0


 Next
      
Next



End Sub

Mike58 · 7 Giugno 2021

Zetrix va bene l'ABC ma non è troppo scrivere tutte le righe quando basrerebbe scrivere in un ciclo for next.

Codice:

Sub Main
   Dim arrData(1,90)
   Dim r1
   For es = EstrazioneFin To EstrazioneFin
      AvanzamentoElab EstrazioneFin,EstrazioneFin,es
      r1 = ScegliRuota
      For n1 = 1 To 90
         arrData(1,n1) = EstrattoRitardo(r1,n1)
      Next
      Call Scrivi("Grafico" & 2)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & SiglaRuota(r1) & Space(5) & "Rit.Att.","titX","titY")
   Next
   For x = 1 To 90
      Scrivi Format2(x) & Space(5) & "Rit.Att." & EstrattoRitardo(r1,x)
   Next
End Sub

Poi la scrittura in basso si può anche trovare ma devi sperimentare a te che interessa il risultato, io ultimamente sono svogliato.

Ciao

Zetrix · 7 Giugno 2021

ciao mike grazie dello script che ai fatto ed io che ho scritto tante righe
comunque mike sono riuscito a scrivere i numeri in tabella ma ne ho scritti solo
36 numeri ma in questo modo la tabella non visualizza bene il grafico
figuriamoci se inserisco tutti e 90 numeri e quasi impossibile scrivere tutti
i 90 numeri comunque grazie del tuo script mi aiuterà a fare altre tabelle
e in modo piu veloce senza scrivere troppe righe anche se ce il copia e incolla
comunque ci vuole moltissimo tempo a scrivere tutte quelle righe..
ti allego lo script che ho fatto ma e solo una prova..
vedrò di fare meglio e realizzare altre tabelle e mi servono per la statistica
dei numeri perche cosi si a una panoramica di tutti i numeri..ciao

Codice:

Sub Main

   Dim arrData(36,37)
 
  Dim r1
  
  
  For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
  
  rv = ScegliRuota
  
  For r1 = rv To rv
 


 If r1 = 11 Then r1 = 11 End If
 If r1 = 12 Then r1 = 12 End If
 
 
         arrData(1,1) = " 1 "
         arrData(2,1) = " 2 "
         arrData(3,1) = " 3 "
         arrData(4,1) = " 4 "
         arrData(5,1) = " 5 "
         arrData(6,1) = " 6 "
         arrData(7,1) = " 7 "
         arrData(8,1) = " 8 "
         arrData(9,1) = " 9 "
         arrData(10,1) = " 10 "
         arrData(11,1) = " 11 "
         arrData(12,1) = " 12 "
         arrData(13,1) = " 13 "
         arrData(14,1) = " 14 "
         arrData(15,1) = " 15 "
         arrData(16,1) = " 16 "
         arrData(17,1) = " 17 "
         arrData(18,1) = " 18 "
         arrData(19,1) = " 19 "
         arrData(20,1) = " 20 "
         arrData(21,1) = " 21 "
         arrData(22,1) = " 22 "
         arrData(23,1) = " 23 "
         arrData(24,1) = " 24 "
         arrData(25,1) = " 25 "
         arrData(26,1) = " 26 "
         arrData(27,1) = " 27 "
         arrData(28,1) = " 28 "
         arrData(29,1) = " 29 "
         arrData(30,1) = " 30 "
         arrData(31,1) = " 31 "
         arrData(32,1) = " 32 "
         arrData(33,1) = " 33 "
         arrData(34,1) = " 34 "
         arrData(35,1) = " 35 "
         arrData(36,1) = " 36 "



 
       arrData(1,2) = EstrattoRitardo(r1,1)
       arrData(2,3) = EstrattoRitardo(r1,2)
       arrData(3,4) = EstrattoRitardo(r1,3)
       arrData(4,5) = EstrattoRitardo(r1,4)
       arrData(5,6) = EstrattoRitardo(r1,5)
       arrData(6,7) = EstrattoRitardo(r1,6)
       arrData(7,8) = EstrattoRitardo(r1,7)
       arrData(8,9) = EstrattoRitardo(r1,8)
       arrData(9,10) = EstrattoRitardo(r1,9)
       arrData(10,11) = EstrattoRitardo(r1,10)
       arrData(11,12) = EstrattoRitardo(r1,11)
       arrData(12,13) = EstrattoRitardo(r1,12)
       arrData(13,14) = EstrattoRitardo(r1,13)
       arrData(14,15) = EstrattoRitardo(r1,14)
       arrData(15,16) = EstrattoRitardo(r1,15)
       arrData(16,17) = EstrattoRitardo(r1,16)
       arrData(17,18) = EstrattoRitardo(r1,17)
       arrData(18,19) = EstrattoRitardo(r1,18)
       arrData(19,20) = EstrattoRitardo(r1,19)
       arrData(20,21) = EstrattoRitardo(r1,20)
       arrData(21,22) = EstrattoRitardo(r1,21)
       arrData(22,23) = EstrattoRitardo(r1,22)
       arrData(23,24) = EstrattoRitardo(r1,23)
       arrData(24,25) = EstrattoRitardo(r1,24)
       arrData(25,26) = EstrattoRitardo(r1,25)
       arrData(26,27) = EstrattoRitardo(r1,26)
       arrData(27,28) = EstrattoRitardo(r1,27)
       arrData(28,29) = EstrattoRitardo(r1,28)
       arrData(29,30) = EstrattoRitardo(r1,29)
       arrData(30,31) = EstrattoRitardo(r1,30)
       arrData(31,32) = EstrattoRitardo(r1,31)
       arrData(32,33) = EstrattoRitardo(r1,32)
       arrData(33,34) = EstrattoRitardo(r1,33)
       arrData(34,35) = EstrattoRitardo(r1,34)
       arrData(35,36) = EstrattoRitardo(r1,35)
       arrData(36,37) = EstrattoRitardo(r1,36)




For k = 1 To 1


  
   Next




      Call Scrivi(" " & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & SiglaRuota(r1) & Space(5) & "Rit.Att.","titX","titY")
 
 
  Scrivi"1" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,1) & "",0
 Scrivi"2" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,2) & "",0
 Scrivi"3" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,3) & "",0
 Scrivi"4" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,4) & "",0
 Scrivi"5" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,5) & "",0
 Scrivi"6" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,6) & "",0
 Scrivi"7" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,7) & "",0
 Scrivi"8" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,8) & "",0
 Scrivi"9" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,9) & "",0
 Scrivi"10" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,10) & "",0
 Scrivi"11" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,11) & "",0
 Scrivi"12" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,12) & "",0
 Scrivi"13" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,13) & "",0
 Scrivi"14" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,14) & "",0
 Scrivi"15" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,15) & "",0
 Scrivi"16" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,16) & "",0
 Scrivi"17" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,17) & "",0
 Scrivi"18" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,18) & "",0
 Scrivi"19" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,19) & "",0
 Scrivi"20" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,20) & "",0
 Scrivi"21" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,21) & "",0
 Scrivi"22" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,22) & "",0
 Scrivi"23" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,23) & "",0
 Scrivi"24" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,24) & "",0
 Scrivi"25" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,25) & "",0
 Scrivi"26" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,26) & "",0
 Scrivi"27" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,27) & "",0
 Scrivi"28" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,28) & "",0
 Scrivi"29" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,29) & "",0
 Scrivi"30" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,30) & "",0
 Scrivi"31" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,31) & "",0
 Scrivi"32" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,32) & "",0
 Scrivi"33" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,33) & "",0
 Scrivi"34" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,34) & "",0
 Scrivi"35" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,35) & "",0
 Scrivi"36" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,36) & "",0
 Scrivi"37" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,37) & "",0
 Scrivi"38" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,38) & "",0
 Scrivi"39" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,39) & "",0
 Scrivi"40" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,40) & "",0
 Scrivi"41" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,41) & "",0
 Scrivi"42" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,42) & "",0
 Scrivi"43" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,43) & "",0
 Scrivi"44" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,44) & "",0
 Scrivi"45" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,45) & "",0
 Scrivi"46" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,46) & "",0
 Scrivi"47" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,47) & "",0
 Scrivi"48" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,48) & "",0
 Scrivi"49" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,49) & "",0
 Scrivi"50" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,50) & "",0
 Scrivi"51" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,51) & "",0
 Scrivi"52" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,52) & "",0
 Scrivi"53" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,53) & "",0
 Scrivi"54" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,54) & "",0
 Scrivi"55" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,55) & "",0
 Scrivi"56" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,56) & "",0
 Scrivi"57" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,57) & "",0
 Scrivi"58" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,58) & "",0
 Scrivi"59" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,59) & "",0
 Scrivi"60" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,60) & "",0
 Scrivi"61" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,61) & "",0
 Scrivi"62" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,62) & "",0
 Scrivi"63" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,63) & "",0
 Scrivi"64" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,64) & "",0
 Scrivi"65" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,65) & "",0
 Scrivi"66" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,66) & "",0
 Scrivi"67" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,67) & "",0
 Scrivi"68" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,68) & "",0
 Scrivi"69" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,69) & "",0
 Scrivi"70" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,70) & "",0
 Scrivi"71" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,71) & "",0
 Scrivi"72" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,72) & "",0
 Scrivi"73" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,73) & "",0
 Scrivi"74" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,74) & "",0
 Scrivi"75" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,75) & "",0
 Scrivi"76" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,76) & "",0
 Scrivi"77" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,77) & "",0
 Scrivi"78" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,78) & "",0
 Scrivi"79" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,79) & "",0
 Scrivi"80" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,80) & "",0
 Scrivi"81" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,81) & "",0
 Scrivi"82" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,82) & "",0
 Scrivi"83" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,83) & "",0
 Scrivi"84" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,84) & "",0
 Scrivi"85" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,85) & "",0
 Scrivi"86" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,86) & "",0
 Scrivi"87" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,87) & "",0
 Scrivi"88" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,88) & "",0
 Scrivi"89" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,89) & "",0
 Scrivi"90" & Space(5) & "Rit.Att." & EstrattoRitardo(r1,90) & "",0


Next
      
Next



End Sub

Mike58 · 7 Giugno 2021

Si Purtroppo questa via è poco percorribile.
Ti consiglio comunque di ottimizzare lo script con i cicli for next e magari vedere altre forme di scrittura grafico.
Magari ti riguardi i codici nell'help e provare a fare e richiamare il grafico in altro con altri codici.
Per ora non saprei consigliarti in modo preciso.
Ciao

Mike58 · 7 Giugno 2021

prova anche così

Codice:

Sub Main
   Dim x,y
   r1 = 1
   'PRIMO GRAFICO ==========================================================
   Call PreparaGrafico("Grafico di prova su Ruota : " & SiglaRuota(r1),0,90,0,90,1,1)
   ' prima riga
   ReDim aV(90,2)
   For k = 1 To 90
      aV(k,1) = k
      aV(k,2) = EstrattoRitardo(r1,k)
   Next
   Call DisegnaLineaGrafico(aV,2,"A")
   ' scrive grafico nell'output
   Call InserisciGrafico
   ' =========================================================================
   For x = 1 To 90
      Scrivi Format2(x) & vbTab & "Ritardo Attuale.... " & EstrattoRitardo(r1,x)
   Next
   ' ===========================================================================
End Sub

Mike58 · 7 Giugno 2021

Codice:

Sub Main
   Dim x,y
   r1 = 12
   'PRIMO GRAFICO ==========================================================
   Call PreparaGrafico("Grafico di prova su Ruota : " & SiglaRuota(r1),0,90,0,137,5,10)
   ' prima riga
   ReDim aV(90,2)
   For k = 1 To 90
      aV(k,1) = k
      aV(k,2) = EstrattoRitardo(r1,k)
   Next
   Call DisegnaLineaGrafico(aV,2,"A")
   ' scrive grafico nell'output
   Call InserisciGrafico
   ' =========================================================================
   For x = 1 To 90
      Scrivi Format2(x) & vbTab & "Ritardo Attuale.... " & EstrattoRitardo(r1,x)
   Next
   ' ===========================================================================
End Sub

Zetrix · 8 Giugno 2021

buon giorno mike interessante il nuovo grafico dello script che ai messo vedrò di fare
delle prove..
questo grafico e simile a un programma(a pagamento) che fa lo stesso grafico per ogni numero

studio anche i numeri che si trovano in una situazione galleggiante ed e il caso proprio
di questo 26 a genova..

Zetrix · 8 Giugno 2021

mike lo script che ai messo fa vedere solo il grafico dei rit ma ai fini di una previsione non serve e ti spiego perché..
il grafico che ho messo analizza un numero singolo per ruota e vede come si è comportato nelle ultime 300 estr da qui chi è bravo ed a una minima esperienza nel settore può vedere se un numero si trova in una situazione galleggiante oppure no
cioè se un numero può sortire subito oppure no è il grafico del 26 a genova si trova in una situazione ottimale e può sortire o stasera o nella prossima estr sino a livello 10 poi si chiude il gioco perché
non è il caso di continuare..

Mike58 · 8 Giugno 2021

Zetrix non disperare in spaziometria e con gli script tutto si può fare.
Cercando nei vari script c'è anche il comportamento numeri.
Non ti rimane che studiarci.

Codice:

'Option Explicit
Sub Main
   Dim k,s,kk
   Dim nClasse,nColonneTot
   Dim aNumeri
   Dim aCol
   Dim Inizio,Fine
   Dim nRuoteSel
   Dim nSorte
   Dim nCicloTeo
   Dim nEstrTot
   Dim sRuote
   Inizio = EstrazioneFin - 300
   Fine = EstrazioneFin
   nEstrTot =(Fine + 1) - Inizio
   ReDim aRuote(0)
   nRuoteSel = ScegliRuote(aRuote)
   nClasse = Scegliclasse
   nSorte = ScegliEsito
   If nSorte > nClasse Then MsgBox "La sorte non può essere maggiore della classe"
   If nClasse > 0 And nRuoteSel > 0 And nSorte <= nClasse Then
      aNumeri = GetNumPerSviluppo
      nCicloTeo = CicloTeorico(nClasse,nSorte,Int(nRuoteSel))
      sRuote = GetRuote(aRuote)
      'inizializza lo sviluppo
      nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
      k = 0
      ' ciclo che continua fino a quando le colonne non finiscono
      Do While GetCombSviluppo(aCol)
         k = k + 1 ' conteggio colonna corrente
         ReDim aRetRitardi(0)
         ReDim aRetIdEstr(0)
         Call ElencoRitardiTurbo(aCol,aRuote,nSorte,Inizio,Fine,aRetRitardi,aRetIdEstr)
         Call DisegnaGraficoRit(StringaNumeri(aCol),nSorte,nCicloTeo,nEstrTot,sRuote,aRetRitardi)
         If k Mod 10 = 0 Then
            Call Messaggio("Colonna n° " & k)
            Call AvanzamentoElab(1,nColonneTot,k)
            If ScriptInterrotto Then Exit Do
         End If
      Loop
   End If
End Sub
Sub DisegnaGraficoRit(sNumeri,nSorte,nCicloTeo,nEstrTot,sRuote,aRitardi)
   Dim nMin,nMax
   Dim k
   Dim nTot
   Dim nFreqT
   Const nSezioniGraf = 15
   nTot = UBound(aRitardi)
   ReDim aValori(nTot,2)
   nMin = 10000000
   nMax = - 10000000
   For k = 0 To nTot
      aValori(k,1) = k
      If k = 0 Then
         aValori(k,2) = 0
      Else
         aValori(k,2) = aRitardi(k)
         If aRitardi(k) < nMin Then
            nMin = aRitardi(k)
         End If
         If aRitardi(k) > nMax Then
            nMax = aRitardi(k)
         End If
      End If
   Next
   'Call GetValoriMinMax(aRitardi,nMin,nMax)
   Call PreparaGrafico("",0,nTot,0,nMax,GetStepX(nTot,nSezioniGraf),18)
   Call DisegnaLineaGrafico(aValori,vbBlue)
   nFreqT = Round(Dividi(nEstrTot,nCicloTeo),3)
   Scrivi String(120,"=")
   Scrivi "Combinazione : " & sNumeri & " per " & NomeSorte(nSorte) & " su " & sRuote,1
   Scrivi "Ritardo minimo : " & nMin
   Scrivi "Ritardo max : " & nMax
   Scrivi "Frequenza : " & nTot
   Scrivi "Freq. Teorica : " & nFreqT
   Scrivi "Perc RapportoFreq : " & Round(ProporzioneX(nTot,nFreqT,100),3) & " %"
   Scrivi "Ultimi 20 ritardi la lettura da dx verso sx..> : " & GetUltimiRit(aRitardi,30,kk)
   Call InserisciGrafico
   Scrivi String(120,"=")
End Sub
Function GetStepX(nTot,nSezioni)
   Dim t
   t = Round(Dividi(nTot,nSezioni),0)
   If t <= 1 Then t = 1
   GetStepX = t
End Function
Function Scegliclasse
   Dim k
   ReDim aV(5)
   For k = 1 To 5
      aV(k) = k
   Next
   Scegliclasse = ScegliOpzioneMenu(aV,1,"Scegli classe di sviluppo")
End Function
Function GetRuote(aRuote)
   Dim s
   Dim k
   For k = 1 To UBound(aRuote)
      s = s & SiglaRuota(aRuote(k)) & "."
   Next
   GetRuote = Left(s,Len(s) - 1)
End Function
Function GetUltimiRit(aRitardi,n,kk)
   Dim i
   Dim k
   Dim s
   'Dim kk
   kk = 0
   i =(UBound(aRitardi) + 1) - n
   If i <= 0 Then i = 1
   For k = i To UBound(aRitardi)
      s = s & aRitardi(k) & ","
      If aRitardi(k) > 18 Then
         kk = kk + 1
      End If
   Next
   If s <> "" Then
      GetUltimiRit = Left(s,Len(s) - 1)
   Else
      GetUltimiRit = ""
   End If
   If kk > 0 Then
      Scrivi kk & " Cicli out ",1,0,2,4,3
      Scrivi " **** Numero in esame !!!! NON ATTENDIBILE !!!!! ***** ",1,1,4,2,3
   End If
   If kk = 0 Then
      Scrivi kk & " Cicli out ",1,0,4,2,3
      Scrivi " **** Numero in esame !!!! ATTENDIBILE !!!!! ***** ",1,1,3,1,3
   End If
End Function

Zetrix · 8 Giugno 2021

grazie mike del nuovo script piu tardi lo provo e poi ti farò sapere come e lo script
per quanto riguarda il grafico del 26 a genova se non dovesse sortire stasera
giunge al livello 10 e allora sarà decisiva la prossima estr per il 26 a ge
perchè o si azzera il livello 10 oppure continua il rit dell'estratto ..
in questo caso suggerisco di sospendere il gioco dell'estratto..

Zetrix · 8 Giugno 2021

mike ho visto lo script che ai fatto ma non ci siamo con lo script
sulla ruota di genova dice sempre numero non attendibile
da 1 a 90
ma come e possibile il numero 26 a genova e attendibile
allora mike provo a spiegare meglio il grafico del 26 a genova
si devono considerare gli ultimi 10 livelli di rit
gli ultimi rit attuali del 26 nel grafico sono a dx
allora da quanto il 26 era giunto al livello 20 si e azzerato
poi se noti le sortite del 26 si trovano sempre galleggianti
tra 4.10.3.1.8.8.1.4.2.9 rit il livello max e stato 10
quindi il 26 per me e attendibile e puo sortire stasera
oppure la prossima estr e questa tesi si basa sempre
su gli ultimi 10 rit e si devono trovare sempre in una situazione
galleggiante come in questo caso del 26 a genova

Mike58 · 8 Giugno 2021

Zetrix la dicitura dello script "Non Attendibile" è dovuta al fatto che tutti i cicli devono essere inferiori a 18 estraz e se ci sono cicli out è chiaro che risulta non attendibile, ma questo era una mia condizione.
Lo script è di esempio poi tu puoi mettere le condizioni che credi, era solo un modo per simulare il tuo grafico e per far si che adatassi lo script al tuo scopo.
Ciao

Mike58 · 8 Giugno 2021

Non Saprei in che altro modo aiutarti la ricerca è tua, io cerco solo di simulare the project.

Codice:

Sub Main
   Dim x,y,Nu(1),Ru(1)
   Ini = EstrazioneFin-300
   fin = EstrazioneFin
   r1 = 4
   n = 26
   'PRIMO GRAFICO ==========================================================
   Call PreparaGrafico("Grafico di prova su Ruota : " & SiglaRuota(r1),0,28,0,25,1,1)
   ' prima riga
   ReDim aV(90,2)
   'For k = 26 To 26
 
   Nu(1) = n
   Ru(1) = r1
   Call ElencoRitardi(Nu,Ru,1,Ini,fin,aRit,Aid)
   For k = UBound(aRit)-14 To UBound(aRit)
   riga = riga & FormattaStringa(aRit(k),"000") & " "
   ReDim Preserve eleRit(k)
   eleRit(k) = aRit(k)
      aV(k,1) = k
      'aV(k,2) = StringaNumeri(eleRit)
      aV(k,2) = eleRit(k)
   Next
   Call DisegnaLineaGrafico(aV,2,"A")
   ' scrive grafico nell'output
   Scrivi "Numero : " & n & " Elenco Ritardi... " & riga,1
   Call InserisciGrafico
   ' =========================================================================
  
   ' ===========================================================================
End Sub

xMike58

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Allegati

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Allegati

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Allegati

Advanced Premium Member

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<