Anonymní profil petypet – Programujte.com

Dobrý den, je tady někdo, poradí mi někdo, prosím?

Problém je tedy ve formátu u těchto řádků:

Dim sData() As Byte
sData = MSComm1.Input
Text1.Text = sData
End Sub

vše jinak funguje...prosím o pomoc......ať se vypisují čísla a ne takové zlé znaky...

Prosím Vás o pomoc....

když pomocí tohoto programu pošlu doata na jiné pc, v pohodě se mi tam vypíšou čtyří čísla, např: 12 125 412 23,
ale když na tento program pošlu úplně stejná data, která by pomocí tohoto programu měla vypsat ty samá čísla: 12 125 412 23

tak se vypíše pouze tyto znaky: #&Ü

prosím, co je to za problém, prosím Vás o radu.

Private Sub Command1_Click()
MSComm1.Output = (xconvert(3, 2))
End Sub


Private Sub Form_Load()
With MSComm1
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "2400,n,8,1"
.SThreshold = 1
.PortOpen = True
End With
Command1.Caption = "&Print rs232"
End Sub



Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Private Function xconvert(ByVal register As Integer, ByVal xval As Integer) As String
register = 3
xval = 2
xconvert = Chr(2 + register) + Chr(3 + (xval \ 4)) + Chr((3 + xval Mod 4)) & vbCr
End Function

Private Sub MSComm1_OnComm()
Dim sData() As Byte
sData = MSComm1.Input
Text1.Text = sData
End Sub

Prosím moc o pomoc