19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Smettila di auto dichiararti un asino! e cambia sto avatar... SorrisoSi appunto.. e vedi che le cose tornino come prima o chiamamo gli animalisti..ormai ci eravamo affezionati al gatto
Public Sub cvcm(misura_in_centimetri As Float) As Float
Return (72 / 2.54) * misura_in_centimetri
End
......
Case "a3"
$fwPt = cvcm(29.7)
$fhPt = cvcm(42.0)
Case "a4"
$fwPt = cvcm(21.0)
$fhPt = cvcm(29.7)
.....
Case "a3"
$fwPt = 841.89
$fhPt = 1190.55
Case "a4"
$fwPt = 595.28
$fhPt = 841.89
Case "a5"
$fwPt = 420.94
$fhPt = 595.28
Case "letter"
$fwPt = 612
$fhPt = 792
Case "legal"
$fwPt = 612
$fhPt = 1008
...è che se si fanno avanti gli analfabeti, come me,Mi sembra che nei vari post che ho letto, hai risolto problemi a molti utenti, non devi essere così modesto.
risnome.MoveFirst
For i = 0 To risnome.count - 1
raccolta(i).text = risnome!nome & " " & "(" & risnome!sigla & ")"
risnome.movenext
Next stringa = Replace(stringa, "€", Chr(128))poco elegante ma funziona
)
, Ho creato un file 'gino.txt' posizionandolo nella 'home' , poi ho creato dei button2-3-4-5 con il codice allegato, funziona.... Nel 'file scrittura' (button3) va a scrivere tre righe(milano,roma,palermo),fin qui ci sono, poi nel 'file lettura' richiama sempre la prima (milano),non so il perchè..., ma scusa nel mio caso deve scrivere solo una rigati ho fatto un'esempio di scrittura di 3 righe, tu puoi scriverne quante ne vuoi..1 o 100000
Public Sub Button2_Click()
Dim riga1, riga2, riga3 As String
Dim filelettura As String
Dim hfile As File
filelettura = User.Home & "/gino.txt"
If filelettura Then
hFile = Open filelettura For Input
While Not Eof(hFile)
Line Input #hFile, riga1 ' vado a leggere e poi dare il valore della prima riga su riga1
Line Input #hFile, riga2 ' vado a leggere e poi dare il valore della seconda riga su riga2
Line Input #hFile, riga3 '..........
Wend
Close #hfile
Message("il valore della riga1 è : " & riga1)
Endif
End
Public Sub Button3_Click()
Dim filescrittura As String
Dim hfile As File
filescrittura = User.Home & "/gino.txt"
If filescrittura Then
hfile = Open filescrittura For Create
Print #hfile, "Milano" ' scrivo Milano nella prima riga
Print #hfile, "Roma" '....
Print #hfile, "Palermo"
Close #hfile
Endif
End
Public Sub Button4_Click()
settings["nomechvuoi"] = "pippobaudo"
settings.Save
End
Public Sub Button5_Click()
Dim risu As String
risu = settings["nomechvuoi"]
Message(risu)
End