aslanbozkurt
| | Tarih: 15.01.2007, 14:24 Mesaj konusu: visial basic de seri port kullanma | |
| " En iyi Seri Port Kullanımı "
Programınızdan bir cihaza bağlanmak için kullana bileceğiniz bir yoldur..
Örneğin Ağırlık,Basınç,Sıcaklık ölçen electronik cihazların tümünü bu yolla bilgisayarınıza bağlaya bilir ve onlardan aldığınız dataları kullana bilirsiniz. Bunu yapa bilmek için bilmeniz gerekenler...
1.) Bilgisayara bağlamak istediğiniz cihazın Seri haberleşme bilgileri..
2.) Bağlantı için kullanılan kablo bilgileri..
3.) Kullanmanız gereken Companent özellikler.
1.)SERİ HABERLEŞME BİLGİLERİ..
Bu bilgiler Baudrate,DataBit,StopBit ve hangi comporttan bağlanacağıza dair bilgilerdir..
BAUDRATE : Verinin yollanacağı hızı verir PC ile Cihazın Baudreteleri aynı olmalıdır. bu ayar genelde 9600 dür fakat 4800,19200 gibi katlanarak artar yada azalır.
DATABİT : Gönderilen verinin kaçlık pakatler halinde gönderileceğini belirler.
7 yada 8 seçile bilir.
PARİTY : Gönderilen veriye ait bir doğrulama karakteri gönderilip gönderilmeyeceğini belirler,Even,None vb.
STOP BİT : Genelde 1 dir
2.)KABLO UÇLARI
Standart Bağlantı tipinde ve PC üzerindeki Port uçları
Transmit 2 ----------------------- 3 Recive
Recive 3 ----------------------- 2 Transmit
Graund 5 ----------------------- 5 Graund
şeklindedir fakat bağlanan cihaza göre bu uçlar değişe bilir..
3.) kullanacağınız Companenet ise.. MSComm1 dir..
Bunu eklemek için VB nin Project menüsünden Companent seçilir ve oradaki
Microsoft Comm Control 6.0 companenti seçilir.
Tollbox üzerinde İconu telefon olan bir araç belirir. bunu projenize eklediğinizde yapmanız gereken Properties ekranındaki Setting değerini cihazınızın ayarlarına getirmektir.
Ör: 9600,N,8,1 :: baudrate = 9600, Parity=None , Databit = 8 , StopBit=1
CommPort seçeneğini cihazı taktığınız seri port adresi
bunun dışında birtanede timer eklerseniz..
Private Sub Form_Load()
Mscomm1.PortOpen=true
Timer1.Interval=100
End sub
Private Sub Form_Unload(Cancel As Integer)
Mscomm1.portopen=false
End Sub
Private Sub Timer1_Timer()
sz=MSComm1.Input
if sz<>"" then
Msgbox sz
end if
End Sub
|
|
