PIC, MAX232 vs vs 2 tane lamba açıp kapatmak için mi? hani bunun kaynak kodları? en mantıklısı LPT!!! saygılar...
lpt ile çoklu bağlantı yapılamadığı için seri bağlantıyı denemenizi tavsiye ettim ;))
kaynak kodları isteyenler için :
Visual Basic Kodları :
Dim a As Byte ----
Private Sub Combo1_Click() Label3.Caption = "Çıkış Portu : " & Combo1.Text & " ve bağlantı hızı : " & Combo2.Text & "bps. ayarlandı." Form1.Caption = "Seri Port Oku --) " & Combo1.Text & " - " & Combo2.Text & "bps.(" & a & ")" End Sub
Private Sub Combo2_Click() Label3.Caption = "Çıkış Portu : " & Combo1.Text & " ve bağlantı hızı : " & Combo2.Text & "bps. ayarlandı." Form1.Caption = "Seri Port Oku --) " & Combo1.Text & " - " & Combo2.Text & "bps.(" & a & ")" End Sub
Private Sub Command1_Click() Form1.Caption = "Seri Port Oku --) " & Combo1.Text & " - " & Combo2.Text & "bps.(" & a & ")"
Text1.Text = "Port Okunuyor...." Label3.Caption = "Port Ayarlanıyor..." If Combo1.Text = "COM-1" Then MSComm1.CommPort = 1 Else MSComm1.CommPort = 2 End If If Combo2.Text = "1200" Then MSComm1.Settings = "1200,N,8,1" Else MSComm1.Settings = "2400,N,8,1" End If Label3.Caption = "Port Okunuyor" MSComm1.PortOpen = True Text1.Text = MSComm1.Input MSComm1.PortOpen = False Label3.Caption = "Port Okuma Tamamlandı" If Text1.Text = "" Then Text1.Text = "Veride değer yok !..." End If a = a + 1 End Sub
Private Sub Command2_Click() Text1.Text = "Hazırlayan: R.Can RAKAN" End Sub
Private Sub Form_Load() Combo1.AddItem "COM-1" Combo1.AddItem "COM-2" Combo2.AddItem "1200" Combo2.AddItem "2400" Combo1.Text = "COM-1" Combo2.Text = "2400" Text1.Text = "" Label3.Caption = "Program Okumaya Hazır" a = 1 End Sub
-- Saygilarimla, R.Can RAKAN Teknik Danisman +90.544.778.51.37
çoklu bağlantı yapılmaz mı, LPT data portu 8 bitlik çıkış verdiğine göre kabaca 2 üzeri 8 adet bağlantı yapılabilir. bunun yanında status ve control portları saymıyorum bile. bu arada kodlar için teşşekürler... saygılar...
çoklu bağlantıdan kastım 100-200 bağlantı dan bahsetmiştim.
oda olur hocam fark etmez 2 üzeri 8 = 256 olduğu sürece işinizi paralel port görecektir. buda sadece data portu için geriside var... saygılar...
;) peki öle olsun.
saygılar anlaştığımıza sevindim... kolay gelsin...
ARKADAŞLAR HEPİNİZİN İLGİSİ İÇİN ÇOK TEŞEKKÜRLER SAYGILAR