VB6.0 :: Komunikasi serial PLC ke Komputer

sistem kerja dari program ini adalah:
jika tombol 0.01 ditekan maka lampu 10.00 akan menyala, juga data pada alamat DM100 akan diisi data #0000.
jika tombol 0.00 ditekan maka akan dideteksi Different Upnya.
kemudian data pada DM100 akan berincrement seiring kita menekan tombol 0.00nya. kemudian akan mendeteksi kondisi pada AR08.05. ini untuk mendeteksi apakah serialnya sedang dipakai atau tidak. jika tidak dipakai maka PLC akan mengirimkan data ke komputer melalui serial.

format pengiriman data:

1 2 3

AR08.05 = RS-232C Transmit Ready Flag           untuk mendeteksi apakah Serial sedang dipakai atau tidak. @TXD    = perintah untuk mengirimkan ke komputer. leftmost bytes first.

alamat AR08

@TXD DM100 #0000 #0002

DM100 = posisi data yang akan dikirimkan ke komputer, dalam hal ini data pada DM100 yang akan kita kirimkan
#0000 = RS-232C port specification, #0000= RS-232C port, #0001=Peripheral port
#0002 =  jumlah byte yang akan dikirim. dalam hal ini kita kirimkan 2 bytes.

jika kita mengirimkan data sebanyak 10byte maka formatnya
@TXD DM100 #0000 #0010 misalkan datanya: 1234567890
maka kita mesti menyimpan datanya di:
DM100 12
DM101 34
DM102 56
DM103 78
DM104 90

maka outputnya yang akan kita terima dikomputer:
@00EX000100020003000400050006000700080009000032*

pada program VB buatlah tampilan dibawah dengan menggunakan timer1, text1, mscomm1.

dengan sourcecode berikut:

1 2 3 4 5 6 7 8 9 10

Private Sub Form_Load()     MSComm1.RThreshold = 1     MSComm1.CommPort = 1 '(port PC comm1,tapi tergantung PC anda)     MSComm1.Settings = "9600, e, 7, 2" '(harus sama PC dan PLC)"     MSComm1.PortOpen = True End Sub   Private Sub Timer1_Timer()     If MSComm1.InBufferCount > 9 Then Text1.Text = MSComm1.Input End Sub sumber : https://handritoar.wordpress.com/2011/10/25/komunikasi-serial-plc-ke-komputer/#more-428