Quote:
Originally posted by "cionci"
Credevo che si potessere inviare generalmente byte...
La Send dovrebbe essere la tua funzione che invia un byte alla volta sulla seriale...ho guardato come si fa l'output con Mscomm e puoi inviare anche vettori di byte...
Sinceramente non so come operare con i Variant comunque ci provo...
Allora prova a fare in questo modo diverso :
Codice:
Private Sub SendMsg(num As Long, buf() As Byte)
Dim tmp(4) As Byte, I As Long
Dim v As Variant
tmp(1) = (num And &HFF000000) / &H1000000
tmp(2) = (num And &HFF0000) / &H10000
tmp(3) = (num And &HFF00) / &H100
tmp(4) = num And &HFF
v = tmp
mscomm1.Output = v
'Non so se buf vada ridimensionato comunque lo faccio uguale
ReDim Preserve buf(num)
v = buf
mscomm1.Output = v
End Sub
num č un intero..quindi 4 byte... Magari lo potrai anche spedire direttamente tramite il Variant, ma non lo so (faid elle prove)... In ogni caso puoi farne un vettore di byte ed inviarlo...
|
Sei magico cionci , ma come diavolo fai a conoscere o a trovare tutte queste informazioni ?