dELAb
* YÖNETİCİ *
Kayıt: 21.06.2005
Mesajlar: 465
Şehir: İstanbul
|
 Tarih: 09.04.2007 - 23:33 Mesaj konusu: 10 Kanal USB IO Devresi Haberleşme Protokolü |
 |
|
//
| Kod: |
STX = 0x02 // Start Transmission
ETX = 0x03 // End Transmission
Komut = 0x4F // (Ascii "O") OUTPUT
= 0x49 // (Ascii "I") - INPUT
PortNo = 1...10 // Port numarası
Durum = 1 veya 0 // 1 (High) veya 0 (Low)
Seri Haberleşme (38400 Baud, 8, N, 1)
Çıkış (Output) için gönderilecek komut dizilimi:
<STX><Komut><PortNo><Durum><ETX>
Visual Basic için bir komut örneği:
’1 numaralı port High (1) yapılıyor:
SeriPort.Output = Chr(STX) & Chr(&H4F) & Chr(1) & Chr(1) & Chr(ETX)
’1 numaralı port Low (0) yapılıyor:
SeriPort.Output = Chr(STX) & Chr(&H4F) & Chr(1) & Chr(0) & Chr(ETX)
Giriş (Input) için gönderilecek komut dizilimi:
<STX><Komut><PortNo><Durum><ETX>
Visual Basic için bir komut örneği:
‘1 numaralı port durumu sorgulanıyor:
SeriPort.Output = Chr(STX) & Chr(&H49) & Chr(1) & Chr(0) & Chr(ETX)
’10 numaralı port durumu sorgulanıyor:
SeriPort.Output = Chr(STX) & Chr(&H4F) & Chr(10) & Chr(0) & Chr(ETX)
|
Çıkış (Output) İçin VisualBasic Komut Örneği:
| Kod: |
‘ Üniteye çıkış komutu gönderilmesi (VisualBasic)
STX = &H2
ETX = &H3
MSComm1.Output = Chr(STX) & "O" & Chr(1) & Chr(1) & Chr(ETX) ‘ 1 Gönderiliyor
|
Giriş (Input) İçin VisualBasic Komut Örneği:
| Kod: |
PortNumarasi = 8 ‘ 8 numaralı port durumu nedir ?
STX = &H2
ETX = &H3
MSComm1.Output = Chr(STX) & "I" & Chr(PortNumarasi) & Chr(0) & Chr(ETX)
MSComm1.OutBufferCount = 0
|
Devrenin gönderdiği karşılık:
// dELAb |
|
Pano Kılavuzu
Arama
Üye Listesi
Gruplar
Hesap Aç
Hesabınız
Kişisel Mesajlar
Oturum Aç
