31
Programmazione / Re: can't find driver zlib in pdfwriter
« il: 12 Marzo 2013, 23:16:53 »
eppure è un software che uso da tempow
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
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.
for each risultato
mia_text = new textbox(mio_form)
mia_text.name = risultato!nome
...
next
Citazione
' For i = 1 To 50000 ' impongo un ritardo altrimenti salto dei byte
' Next
puoi usare WAIT
.......o forse anche solo semplicemente While True Bocca cucita anziché While Not Eof(SerialPort1) . Indeciso
Ponendo True, la condizione risulta sempre vera, generando virtualmente un ciclo infinito. Dal ciclo si uscirà soltanto quando la Porta dirà che non c'è più niente da leggere.
' For i = 1 To 50000 ' impongo un ritardo altrimenti salto dei byte
' Next
Public Sub DivisiStringa(stringa As String, lunghezzaRiga As Integer) As String[]
Dim x As Integer = 1
Dim y As Integer = 0
Dim riga As String
Dim i As Integer = 1
Dim ritorno As New String[]
While x <= Len(stringa)
If Len(stringa) < lunghezzaRiga Then
ritorno.Add(stringa)
Break
Endif
If i <= LunghezzaRiga Then
riga &= Mid$(stringa, x, 1)
Inc i
Inc x
Else
While Right$(riga) <> " "
riga = Left(riga, Len(riga) - 1)
Inc y
Wend
ritorno.Add(riga)
riga = ""
x = x - y
y = 0
i = 1
If Len(Right$(stringa, Len(stringa) - x)) <= LunghezzaRiga Then
ritorno.Add(Right$(stringa, Len(stringa) - (x - 1)))
Break
Endif
Endif
Wend
Return ritorno
End