Novità

xMike58 come formare una tabella con gli ambi diametrali

Zetrix

Zetrix

Advanced Premium Member
5914.PNG

Ciao Mike58, sto facendo una prova per formare una tabella con gli ambi diametrali
volevo chiederti perche nella 1 riga i numeri non sono allineati ma
volevo chiedere un altra cosa si puo usare un for per ciclare tutte le righe
senza scriverle una riga per volta..


Codice: 
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9
   Dim a(90),b(90)
   '
   a(1) = 1
   b(1) = Diametrale(a(1))
   a(2) = 2
   b(2) = Diametrale(a(2))
   a(3) = 3
   b(3) = Diametrale(a(3))
   '
   T1 = Array(T1,a(1),b(1),"" & Space(3) & "",a(2),b(2),"" & Space(3) & "",a(3),b(3))
   Call InitTabella(T1,,"arial black")
   Call SetColoreCella(1,RGB(255,242,0),1)
   Call SetColoreCella(2,RGB(0,245,0),1)
   Call SetColoreCella(3,RGB(255,255,255),1)
   Call SetColoreCella(4,RGB(255,242,0),1)
   Call SetColoreCella(5,RGB(0,245,0),1)
   Call SetColoreCella(6,RGB(255,255,255),1)
   Call SetColoreCella(7,RGB(255,242,0),1)
   Call SetColoreCella(8,RGB(0,245,0),1)
   '
   T2 = Array(T2,a(1),b(1),"" & Space(3) & "",a(2),b(2),"" & Space(3) & "",a(3),b(3))
   Call AddRigaTabella(T2)
   Call SetColoreCella(1,RGB(255,242,0),1)
   Call SetColoreCella(2,RGB(0,245,0),1)
   Call SetColoreCella(3,RGB(255,255,255),1)
   Call SetColoreCella(4,RGB(255,242,0),1)
   Call SetColoreCella(5,RGB(0,245,0),1)
   Call SetColoreCella(6,RGB(255,255,255),1)
   Call SetColoreCella(7,RGB(255,242,0),1)
   Call SetColoreCella(8,RGB(0,245,0),1)
   '
   T3 = Array(T3,a(1),b(1),"" & Space(3) & "",a(2),b(2),"" & Space(3) & "",a(3),b(3))
   Call AddRigaTabella(T3)
   Call SetColoreCella(1,RGB(255,242,0),1)
   Call SetColoreCella(2,RGB(0,245,0),1)
   Call SetColoreCella(3,RGB(255,255,255),1)
   Call SetColoreCella(4,RGB(255,242,0),1)
   Call SetColoreCella(5,RGB(0,245,0),1)
   Call SetColoreCella(6,RGB(255,255,255),1)
   Call SetColoreCella(7,RGB(255,242,0),1)
   Call SetColoreCella(8,RGB(0,245,0),1)
   Call SetTableWidth("20%")
   CreaTabella
End Sub

questo e lo script
 
5917.png

Mike questa tabella lo fatto con un altro programma e piu veloce e sbrigativo
la tabella con gli script dovrebbe esssere simile a questa tabella..
 
Ciao Zetrix, per la riga non allineata, devi rispettare i parametri imposti e mettere nome font nel parametri giusto.
Lo avevi messo molto prima del suo richiamo
Call InitTabella(T1,,"arial black")
a cosi
Call InitTabella(T1,,,,,"arial black")
Per il resto penso che si può scrivere una riga e ciclare con il for next.
Dipende sempre da cosa si vuole fare, purtroppo non me ne volere ma il tuo svolgimento scriptico non è ottimizzato al meglio.
 
Per la 2° tabella basta ingegnarsi.
Ci sono 5 colonne e 18 righe
un ciclo for 1 to 18 e un ambo di distanza 45.
Ricava la prima operazione e tutto il resto viene da solo.
 
Ciao Mike, a me servirebbe imparare come si crea una tabella con i cicli for next
queste tabelle che vedi li ho disegnati con un altro programma che e specializzato
per fare queste tabelle per inserire i numeri non e un problema perche li calcolo
con gli script di spaziometria..
se puoi mettere qualche esempio con i cicli for next cosi imparo come si deve fare una tabella..
la tabella deve essere simile a questa che ho messo nel forum..


5918.png
 
Ultima modifica:
Mike58 ha scritto:
Per la 2° tabella basta ingegnarsi.
Ci sono 5 colonne e 18 righe
un ciclo for 1 to 18 e un ambo di distanza 45.
Ricava la prima operazione e tutto il resto viene da solo.
Clicca per espandere...

Mike ho provato con il ciclo for con T1 = 1 To 18 ma mi da errore lo script
va bene dopo proverò quello che ai scritto..
ma il ciclo for si puo fare con la riga della tabella T1 oppure no..
perche sono 18 righe che si devono scrivere e 5 colonne
anzi 18 piu un altra riga che serve per colorare le caselle vuote..
 
Ultima modifica:
Zetrix, mi devo assentare, comunque fatto il progetto scriptico con abc
se vedi e leggi ti sarà tutto + chiaro



Codice: 
Sub Main
  Dim T
 
  T = Array(T," "," "," "," "," ")
  Call InitTabella(T)
  For n = 1 To 18
  m1 = Diametrale(n)
  m2 = Diametrale(n+18)
  m3 = Diametrale(n+36)
  m4 = Diametrale(n+54)
  m5 = Diametrale(n+72)
  T = Array(T,n & "." & m1,(n+18)& "." & m2,(n+36) & "." & m3 ,(n+54) & "." & m4 ,(n+72) & "." & m5)
  Call AddRigaTabella(T)
  Next
  CreaTabella
End Sub

1.46​
19.64​
37.82​
55.10​
73.28​
2.47​
20.65​
38.83​
56.11​
74.29​
3.48​
21.66​
39.84​
57.12​
75.30​
4.49​
22.67​
40.85​
58.13​
76.31​
5.50​
23.68​
41.86​
59.14​
77.32​
6.51​
24.69​
42.87​
60.15​
78.33​
7.52​
25.70​
43.88​
61.16​
79.34​
8.53​
26.71​
44.89​
62.17​
80.35​
9.54​
27.72​
45.90​
63.18​
81.36​
10.55​
28.73​
46.1​
64.19​
82.37​
11.56​
29.74​
47.2​
65.20​
83.38​
12.57​
30.75​
48.3​
66.21​
84.39​
13.58​
31.76​
49.4​
67.22​
85.40​
14.59​
32.77​
50.5​
68.23​
86.41​
15.60​
33.78​
51.6​
69.24​
87.42​
16.61​
34.79​
52.7​
70.25​
88.43​
17.62​
35.80​
53.8​
71.26​
89.44​
18.63​
36.81​
54.9​
72.27​
90.45​
 
ok MIke dopo vedrò meglio lo script e come colorarla..grazie..

MIke se ti interessa ho una previsione speciale
e un nuovo studio che ho fatto sulle ambate determinate

RO VE 9 estratto in 3 Pos
e per ambo 9 90
 
Ultima modifica:
5919.png

ok MIke quella previsione e uno studio innovativo che ho fatto..
questa tabella lo migliorata un po forse e meglio colorarla con lo stesso colore..
R = 55
G = 217
B = 152
devo vedere se riesco a migliorarla ancora la tabella devo aggiungere i diam trasposti
esempio 18 63 diam.t. 13 68
 
Ultima modifica:
Ciao Zetrix, la Tabella la ho costruita come ti dicevo con l'abc in modo da capirla facilmente e si presta anche ad altre operazioni matematiche.
le colorazioni sono personalizzate con libero sfogo alla propria fantasia.
Per in Numero trasposto a cui fai riferimento sembra un diametrale in decina - Codice -DiametraleD
esempio
for n = 1 to 18
nn = diametraleD(n)
mm = diametrale(nn)
........... ma poi bisogna ragionarci

Ciao
 
Codice: 
Sub Main
   Dim T
   T = Array(T," "," "," "," "," ")
   Call InitTabella(T)
   For n = 1 To 18
      m1 = Diametrale(n)
      m2 = Diametrale(n + 18)
      m3 = Diametrale(n + 36)
      m4 = Diametrale(n + 54)
      m5 = Diametrale(n + 72)
      For y = 1 To 5
         Call SetColoreCella((y),RGB(255,255,255),0)
         T = Array(T,n & "." & m1,(n + 18) & "." & m2,(n + 36) & "." & m3,(n + 54) & "." & m4,(n + 72) & "." & m5)
         Call AddRigaTabella(T)
         For x = 1 To 5
            Call SetColoreCella((x),RGB(55,217,152),0)
         Next
      Next
   Next
   Call SetTableWidth("25%")
   CreaTabella
End Sub

Ciao MIke, ho fatto una prova a colorarla la tabella con il tuo script
ma forse ho fatto qualche errore..
 
Codice: 
Sub Main
   Dim T
   T = Array(T," "," "," "," "," ")
   Call InitTabella(T)
   For n = 1 To 18
      m1 = Diametrale(n)
      m2 = Diametrale(n + 18)
      m3 = Diametrale(n + 36)
      m4 = Diametrale(n + 54)
      m5 = Diametrale(n + 72)
      For y = 1 To 5
         Call SetColoreCella((y),RGB(255,255,255),0)
      Next
      T = Array(T,n & "." & m1,(n + 18) & "." & m2,(n + 36) & "." & m3,(n + 54) & "." & m4,(n + 72) & "." & m5)
      Call AddRigaTabella(T)
      For x = 1 To 5
         Call SetColoreCella((x),RGB(55,217,152),0)
      Next
   Next
   Call SetTableWidth("25%")
   CreaTabella
End Sub

cosi la tabella colora solo l'ultima riga della tabella
vorrei colorarla una riga bianca e un altra riga verde
 
Codice: 
Sub Main
   Dim T
   T = Array(T," "," "," "," "," ")
   Call InitTabella(T)
   For n = 1 To 18
      m1 = Diametrale(n)
      m2 = Diametrale(n + 18)
      m3 = Diametrale(n + 36)
      m4 = Diametrale(n + 54)
      m5 = Diametrale(n + 72)
      For x = 1 To 5
         Call SetColoreCella((x),RGB(55,217,152),0)
      Next
      T = Array(T,n & "-" & m1,(n + 18) & "-" & m2,(n + 36) & "-" & m3,(n + 54) & "-" & m4,(n + 72) & "-" & m5)
      Call AddRigaTabella(T)
   Next
   For y = 1 To 5
      Call SetColoreCella((y),RGB(255,255,255),0)
   Next
   Call SetTableWidth("25%")
   CreaTabella
End Sub

cosi fa l'effetto inverso colora l'ultima riga bianca
 
Codice: 
Sub Main
   Dim T
   T = Array(T," "," "," "," "," ")
   Call InitTabella(T)
   For n = 1 To 18
      m1 = Diametrale(n)
      m2 = Diametrale(n + 18)
      m3 = Diametrale(n + 36)
      m4 = Diametrale(n + 54)
      m5 = Diametrale(n + 72)
      For x = 1 To 5
         Call SetColoreCella((x),RGB(55,217,152),0)
      Next
      T = Array(T,n & "-" & m1,(n + 18) & "-" & m2,(n + 36) & "-" & m3,(n + 54) & "-" & m4,(n + 72) & "-" & m5)
      Call AddRigaTabella(T)
      For y = 1 To 5
         Call SetColoreCella((y),RGB(215,225,225),0)
      Next
   Next
   Call SetTableWidth("25%")
   CreaTabella
End Sub

MIke neanche cosi va bene la tabella, dopo vedrò di utilizzare il programma per fare le tabelle
e vedrò di fare una nuova tabella e devo includere anche gli ambi diam.t.
i diam.t non sono altro che i diam. in decina dell'ambo diam. e viceversa..
esempio 14 59 diam.t. 19 54
14+59=73
19+54=73
somma figura (1)
dopo vedrò di migliorarla la tabella e includere anche le relative somme..
se riesco a farla la tabella per stasera dopo la metterò nel forum..ciao
 
Ultima modifica:
Prova questo:

Codice: 
Sub Main
   Dim T
   T = Array(T," "," "," "," "," ")
   Call InitTabella(T)
   For n = 1 To 18
      m1 = Diametrale(n)
      m2 = Diametrale(n + 18)
      m3 = Diametrale(n + 36)
      m4 = Diametrale(n + 54)
      m5 = Diametrale(n + 72)
      T = Array(T,n & "-" & m1,(n + 18) & "-" & m2,(n + 36) & "-" & m3,(n + 54) & "-" & m4,(n + 72) & "-" & m5)
      Call AddRigaTabella(T)
      For x = 1 To 5
         If pari(X) Then Call SetColoreCella((x),RGB(55,217,152),0)
      Next
   Next
   'For y = 1 To 5
   '   Call SetColoreCella((y),RGB(255,255,255),0)
   'Next
   Call SetTableWidth("25%")
   CreaTabella
End Sub

:)
 
Joe (che saluto) ti ha suggerito le colonne alternate , io ti suggerisco le righe alternate.
Come vedi l'escamotage c'era, bisogna ragionarci coi numeri.

Codice: 
Sub Main
   Dim T
   T = Array(T," "," "," "," "," ")
   Call InitTabella(T)
   For n = 1 To 18
  
      m1 = Diametrale(n)
      m2 = Diametrale(n + 18)
      m3 = Diametrale(n + 36)
      m4 = Diametrale(n + 54)
      m5 = Diametrale(n + 72)
      
      T = Array(T,n & "." & m1,(n + 18) & "." & m2,(n + 36) & "." & m3,(n + 54) & "." & m4,(n + 72) & "." & m5)
      Call AddRigaTabella(T)
      For x = 1 To 5
         If dispari(n) Then  Call SetColoreCella((x),RGB(55,217,152),0)
      Next
   Next
   Call SetTableWidth("25%")
   CreaTabella
End Sub

Ciao
 
Per il Diametrale T cosi come lo chiami ti basta fare il DiametraleD ( Diametrale in decina) di ogni numero. (semplice)
Poi ti troverai ambi doppi ma e li che bisogna ragionarci.
esempio 14 59 diam.t. 19 54
ma
19.54 sarà 14.59 quindi doppio, con qualche ragionamento si può escludere questo conteggio.
 
esempio se metti la spunta

Codice: 
Sub Main
   For n = 1 To 18
      nn = DiametraleD(n)
      If nn > n Then ' spunta
      k = k + 1
         Scrivi n & "." & nn
      End If ' spunta
   Next
   Scrivi "Trovati..." & k
End Sub
 
buongiorno,
lo script di Joe le colonne sono alternate con il colore bianco e verde
ma e sbagliato perche le righe devono essere alternate con il colore bianco e verde

MIke ieri mi ero spiegato male con i diam.t. perche qua si fa confusione con i diam. e diam.t
i diam. sono una cosa e i diam.t. sono un altra cosa..

mi spiego meglio i numeri trasposti dell'ambo diam. 14 59 e 19 54
ma l'ambo diam.t di 14 59 e 69-04
14+59=73
69+04=73

in teoria il diam.t. del 14 e 69 e il diam.t del 59 e 4
i numeretti in diag li ho evidenziati per rendere meglio la prospettiva dei diam.
il 19 54 e un ambo diam.t
per rendere meglio la prospettiva se e esatto l'ambo diam.t
bisogna scriverli in vert
19
54
nelle due diag. dobbiamo avere sempre due ambi diam. se no il calcolo e sbagliato
poi se vogliamo calcolare l'ambo diam di 19 54 (diam.t) si calcolano i diam.in dec.14 59 (diam.)
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto