Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
seri port
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
birkac sene once yaptığım bir Visual Basic 6 haberleşme programında seri portu aşağıdaki gibi
initialize etmişim
------------------------------------------------------
scada.MSComm1.CommPort = 1
scada.MSComm1.Settings = "9600,N,8,1"
scada.MSComm1.InBufferSize = 10
scada.MSComm1.InputMode = 1
scada.MSComm1.PortOpen = True
----------------------------------------------------------------
ayrıca byte olarak tanımlı değişkenleri aşağıdaki gibi göndermişim
---------------------------------------------------------------------------------
Public Sub SendChar(port As Integer, k As Byte)
scada.MSComm1.Output = Chr(k)
End Sub
-----------------------------------------------------------------------
byte şeklindeki bilgileri de aşağıdaki gibi almışım
-------------------------------------------------------------------------
Dim k() As Byte
k = scada.MSComm1.Input
-------------------------------------------------------------------------
-
yardımınız için çok teşekkür ederim kodlar çok işime yaradı yalnız scada komunu tanımadı scadayı silince düzgün çalıştı kodların son hali butona basınca text1.text te yazılı olan rakamı olduğu gibi ascıı'ye çevirmeden gönderiyor.
Dim port As Integer, k As Byte
Private Sub Command1_Click()
k = Text1.Text
MSComm1.Output = Chr(k)
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.InBufferSize = 10
MSComm1.InputMode = 1
MSComm1.PortOpen = True
End Sub
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
