View Single Post
Old 02-07-2007, 05:26 PM   #13
controlufo
Nhập môn đệ tử
 
Tham gia ngày: Apr 2007
Bài gửi: 4
:
1 ứng dụng access cần giúp đỡ 1 đoạn vb giao tiếp rs232

các bạn thân :

cả tháng qua tui theo dõi cái mục này rùi áp dụng vào cái chương trình của tui mà sao giờ này nó vẫn chưa chạy oải wá trời đành phải nhờ các bạn code dùm thui chư mò chắc tới tết nguyên đán wá ...

tui viết code vb trong access ...sử dụng mscomm32.ocx đã đăng ký ổn
cáp từ thiết bị ngoại vi xuất từ com 25 pins vào máy ở com 9pins

các bạn code dùm mình đưa số liệu vào ô "chisocan" trong form "nhap" nhé ..
mình thực sự đắp chiếu .com rùi

sau đây là cái đoạn code dở hơi của mình :

Code:
Option Compare Database 
    Dim inputstring As String

Private Sub chiso_Click()
    
   
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True
    inputstring = MSComm1.Input
    MSComm1.Handshaking = 3
    Forms!nhap!chisocan = MSComm1.Input
    MSComm1.PortOpen = False
    

End Sub
bạn nào có cái đầu bác học muốn hướng dẫn cho tui xin vui lòng mail hoặc chát google talk và yahoo messenger trực tiếp cho tui qua nick controlufo@yahoo.com controlufo@gmail.com

xin chân thành cám ơn tiger bể đã tài trợ chương trình này hihihihhiiiiii
File Kèm Theo
File Type: rar codedum.rar (227.8 KB, 1894 lần tải)

thay đổi nội dung bởi: ngohaibac, 09-07-2007 lúc 09:23 AM. Lý do: code viết chưa đúng qui cách
controlufo vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn