Mike58
Advanced Member >PLATINUM PLUS<
Ciao Luigi, avrei un problema con la funzione scrivi a capo.
Ho installato la versione 1.4.25 e tutte le funzioni scrivi a capo sulla stessa riga mi vengono sfalzate, ossia non scrivono + nella stessa riga.
Da segnalare che in opzioni script ho impostato SCRIVI se false a capo continua a scrivere stessa riga.
Ora se scrivi delle righe con questo procedimento risulta vero e scrive sulla stessa riga, ma se aggiungo altro tipo una tabella la riga non viene scritta sulla stessa riga.
il 1° esempio scrive correttamente o quello che voglio fare.
il 2° esempio non scrive la stessa cosa
puoi vedere se un mio problema o se invece puoi aver ritoccato la funzione.
Grazie Mike e buona Pasqua
Forse ho capito vuole sempre alla chiusura un'altra riga Scrivi !!!!
Ho installato la versione 1.4.25 e tutte le funzioni scrivi a capo sulla stessa riga mi vengono sfalzate, ossia non scrivono + nella stessa riga.
Da segnalare che in opzioni script ho impostato SCRIVI se false a capo continua a scrivere stessa riga.
Ora se scrivi delle righe con questo procedimento risulta vero e scrive sulla stessa riga, ma se aggiungo altro tipo una tabella la riga non viene scritta sulla stessa riga.
il 1° esempio scrive correttamente o quello che voglio fare.
Codice:
Sub Main()
Dim num(5),ru(1),sorte
r = InputBox("Quale ruota",,1)
sorte = InputBox("Quale sorte controllo",,2)
Ini = EstrazioneFin - 200
fin = EstrazioneFin
ru(1) = r
Call Scrivi("******** TAVOLA SETTENARIA ********* ",True,True,2,4,5)
Call Scrivi("Ricerca statistica da " & DataEstrazione(Ini),True,False,,2,3)
Call Scrivi(" alla data finale del " & DataEstrazione(fin),True,True,,2,3)' chiudo a capo
'Scrivi " a capo ",1
End Subil 2° esempio non scrive la stessa cosa
Codice:
Sub Main()
Dim num(5),ru(1),sorte
r = InputBox("Quale ruota",,1)
sorte = InputBox("Quale sorte controllo",,2)
Ini = EstrazioneFin - 200
fin = EstrazioneFin
ru(1) = r
Call Scrivi("******** TAVOLA SETTENARIA ********* ",True,True,2,4,5)
Call Scrivi("Ricerca statistica da " & DataEstrazione(Ini),True,False,,2,3)
Call Scrivi(" alla data finale del " & DataEstrazione(fin),True,True,,2,3)' chiudo a capo
'Scrivi " a capo ",1
ReDim at(10)
at(1) = " Num "
at(2) = " A "
at(3) = " B "
at(4) = " C "
at(5) = " D "
at(6) = " Serie Freq "
at(7) = " Serie Rit "
Call InitTabella(at,1,,3,5)
'------ calcolo settenaria --------
For x = 1 To 9
a = Fuori90(x*13)
b = 91 - a
c = Fuori90(x*7)
d = 91 - x
'----------------------------------
num(1) = a
num(2) = b
num(3) = c
num(4) = d
num(5) = x
sf = SerieFreqTurbo(Ini,fin,num,ru,sorte)
sr = SerieRitardoTurbo(Ini,fin,num,ru,sorte)
'Scrivi Format2(a) & " " & Format2(b),True
'ColoreTesto 1
'Scrivi " " & Format2(x),True
'ColoreTesto 0
'Scrivi Format2(c) & " " & Format2(d),True
'Scrivi"------"
ReDim av(10)
av(1) = x
av(2) = a
av(3) = b
av(4) = c
av(5) = d
av(6) = sf
av(7) = sr
Call AddRigaTabella(av,,,3)
Next
Call CreaTabella()
End Subpuoi vedere se un mio problema o se invece puoi aver ritoccato la funzione.
Grazie Mike e buona Pasqua
Forse ho capito vuole sempre alla chiusura un'altra riga Scrivi !!!!
Ultima modifica:
