Jump to content
Sign in to follow this  
Mirage_Angel

Mscomm32 & Serial Port

Recommended Posts

Assalamualaikum dan Salam Sejahtera kepada semua forumers,

Skema la plak. Hehe. Saya sekarang ni tengah tulis program yang memerlukan kita guna serial port atau lebih tepat untuk kes saya rs232. Masalah saya sekarang saya nak tulis guna vb 2005. Kalau dalam vb6 kita leh guna component mscomm32.ocx tapi kalau dalam vb2005 kita kena guna serial port namespace kan. Masalah saya sekarang macam mana nak convert ni code untuk vb6 ni jadi vb2005

Private Sub transmitChar(inputString)
Dim outputString As String
Dim stringPointer As Integer

receiverOn = False

For stringPointer = 1 To Len(inputString) Step send_Frame

[b]outputString = Mid(inputString, stringPointer, [color="#FF0000"]send_Frame[/color])[/b]
MSComm1.Output = outputString

tujuan send frame tu adalah untuk data segmentation. Maksud diakita lehsetkan segment bagi sesuatu data untuk dihantar supaya data yang dihantar x hilang. Contohnya kalau dat terlau panjang macam string yang terlalu panjng kalau kita x segmentkan die nanti ada data ang akan hilang semasa proses sending daa tu berlaku. Jadi masalah saya sekarang macam mana nak ambil idea code di atas tu untuk serial port dalam vb 2005.

kalau code untuk send data melalui serial port dalam vb2005 ialah port.write() kan. Kalau x silap saya port.write ni macam MSComm1.output. Jadi macam mane nak tukar code vb6 tu dalam konteks vb2005?

Terima kasih kerana sudi bantu

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...