[ASK] kirim terima hexadecimal di VB6

Beranda
Komunitas
Tech
Programmer Forum
[ASK] kirim terima hexadecimal di VB6

piezoelectric

05-09-2012 11:38

[ASK] kirim terima hexadecimal di VB6

misi , ane mau nanya nih gan.. emoticon-Blue Guy Peace

kan gini , ane lagi bikin aplikasi dari Visual Basic 6.0, nah rencana nya ane mau terima dan kirim data dari mikrokontroler(Atmega8535) ke PC dan PC ke mikrokontroler.

dari mikro kirim data hexadecimal AA,BB,03,01,01,03
diterima di VB6 trus di tampilkan,
setelah itu dari VB kirim data Hexadecimal AA,BB,03,01,00,02 ke Mikro dan ditampilin juga.

nah code VB nya gini:

Quote:

Private Sub MSComm1_OnComm()
Dim tmp() As Byte
Dim tmp2, tmp3, tmp4, tmp5, tmp6, tmp7 As Byte

If MSComm1.InBufferCount > 5 Then

'terima dari mikro
tmp = MSComm1.Input

'ditampilin di textbox
Text2.txt = Hex(tmp(0)) & Chr$(32) & Hex(tmp(2)) & Chr$(32) & Hex(tmp(4)) & Chr$(32) & Hex(tmp(6)) & Chr$(32) & Hex(tmp(8)) & Chr$(32) & Hex(tmp(10))

tmp2 = &HAA
tmp3 = &HBB
tmp4 = &H3
tmp5 = &H1
tmp6 = &H1
tmp7 = &H3

Text1.Text = Hex(tmp2) & Chr$(32) & Hex(tmp3) & Chr$(32) & Hex(tmp4) & Chr$(32) & Hex(tmp5) & Chr$(32) & Hex(tmp6) & Chr$(32) & Hex(tmp7) & Chr$(32)

'kirim ke mikro kayaknya masalahnya di sini nih gan
MSComm1.Output = Chr$(tmp2) & Chr$(tmp3) & Chr$(tmp4) & Chr$(tmp5) & Chr$(tmp6) & Chr$(tmp7)

End If
End Sub

mangap Gan klo klitan bgt agak ribet

nah setingan nya begini

Quote:

MSComm1.CommPort = 2
MSComm1.Settings = "19200,N,8,1"
MSComm1.RThreshold = 6
MSComm1.DTREnable = False

If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
Else
MsgBox ("port is use by another program")
End If

nah dari mikro dikirim ke VB dan ditampilkan udah bisa gan,nah yang jadi masalahnya:

>>>> waktu ane kirim dari VB ke mikro trus ditampilin ternyata cuma ketangkepnya ke mikronya begini AA,BB,00,00,00,00.. KNAPA gan? butuh bantuan bgt nih.. emoticon-Berbusa (S)