Lanfranco60
Super Member >GOLD<
Ciao ...
dai un occhiata a questo ... che se necessario deve essere ridotto alla ruota singola, e non al quadro esteso.
Non so.
Codice:'Somma ENNE Adiacente in Quadro-Esteso // Beta-Estesa-Quadro By Joe Sub Main Dim E(56) : N = 90 Ini = EstrazioneFin - 9 : Fin = EstrazioneFin Titoli For Es = Ini To fin K = 0 Scrivi "|" & DataEstrazione(Es) & "|",1,0 For R = 1 To 12 : If R = 11 Then R = 12 For P = 1 To 5 K = K + 1 E(K) = Estratto(Es,R,P) Next Next For X = 1 To 55 If E(X) + E(X + 1) = N Then ColoreTesto 2 : Gr = 1 If E(X - 1) + E(X) = N Then ColoreTesto 2 : Gr = 1 Scrivi Format2(E(X)),GR,0 : ColoreTesto 0 : Gr = 0 If X/5 = X\5 Then Scrivi "|",1,0 Else Scrivi ".",0,0 End If Next : Scrivi Next Titoli End Sub Sub Titoli Scrivi "| DATA |",1,0 For R = 1 To 12 : If R = 11 Then R = 12 Scrivi FormatSpace(NomeRuota(R),14) & "|",1,0 Next : Scrivi End Sub
Ciao Joe, grazie
Lo dovuto modificare seguendo la mia intuizione, perchè non girava su spaziometria (dava errore)
Codice:
Sub Main
Dim E(56)
N = 90
Ini = EstrazioneFin - 9
Fin = EstrazioneFin
Titoli
For Es = Ini To fin
K = 0
Scrivi "|" & DataEstrazione(Es) & "|",1,0
For R = 1 To 12
If R = 11 Then
R = 12
End If
For P = 1 To 5
K = K + 1
E(K) = Estratto(Es,R,P)
Next
Next
For X = 1 To 55
If E(X) + E(X + 1) = N Then
ColoreTesto 2
'End If
Gr = 1
End If
If E(X - 1) + E(X) = N Then
ColoreTesto 2
'End If
Gr = 1
End If
Scrivi Format2(E(X)),GR,0
ColoreTesto 0
Gr = 0
If X/5 = X\5 Then
Scrivi "|",1,0
Else
Scrivi ".",0,0
End If
Next
Scrivi
Next
Titoli
End Sub
Sub Titoli
Scrivi "| DATA |",1,0
For R = 1 To 12
If R = 11 Then
R = 12
End If
Scrivi FormatSpace(NomeRuota(R),14) & "|",1,0
Next
Scrivi
End Subio stavo provando a fare cosi (ma solo per la tabella),
ma non capisco perche mi mostra solo un estrazione
Codice:
Sub Main
Dim idEstr
Dim Inizio
Dim Fine
Dim nAnalisi
ReDim aTitoli(12)
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"3"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
aTitoli(1) = "Data"
aTitoli(2) = "Bari"
aTitoli(3) = "Cagliari"
aTitoli(4) = "Firenze"
aTitoli(5) = "Genova"
aTitoli(6) = "Milano"
aTitoli(7) = "Napoli"
aTitoli(8) = "Palermo"
aTitoli(9) = "Roma"
aTitoli(10) = "Torino"
aTitoli(11) = "Venezia"
aTitoli(12) = "Nazionale"
Call InitTabella(aTitoli,5,,,1)
ReDim aValori(12)
aValori(1) = DataEstrazione(idEstr)
aValori(2) = StringaEstratti(idEstr,1)
aValori(3) = StringaEstratti(idEstr,2)
aValori(4) = StringaEstratti(idEstr,3)
aValori(5) = StringaEstratti(idEstr,4)
aValori(6) = StringaEstratti(idEstr,5)
aValori(7) = StringaEstratti(idEstr,6)
aValori(8) = StringaEstratti(idEstr,7)
aValori(9) = StringaEstratti(idEstr,8)
aValori(10) = StringaEstratti(idEstr,9)
aValori(11) = StringaEstratti(idEstr,10)
aValori(12) = StringaEstratti(idEstr,12)
'---------------------------------------
Call AddRigaTabella(aValori,Giallo_,"right")
'Call SetColoreCella(3,vbYellow,vbRed)
Next
'Call CreaTabella(3,,,,1) ' alimenta da sinistra a destra
Call CreaTabella(3,,1,,0) ' alimenta dall'alto in basso
End Sub
