Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
PC DEN AMPUL KONTROLÜ LÜTFEN YARDIM
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
-
-
paralel porttan yapılabilir.uygun yazılım ile paralel port ile transistörleri sürüp röleleri çektirirsin ve lambaları kontrol edebilirsin. -
Paralel port yetmeyebilir. Evde çünkü çok kontrol edilecek ampül vardır.
Tavsiyem Seri port kullanmanız. -
Seri port kullan, mikrodentleyici ile kontrol et, bir de dimmer devresi kullanırsan mükemmel bir çalışma olabilir. 
-
http://www.geocities.com/r2d2droids/mycircuits/lptled.htm
LED yerine röle süreceksin
kolay gelsin... -
Arkadaşlar seri portla bağladıktan sonra ayrıca bilgisayardan kumanda etmek için bir program gerekiyormu 
-
Benim yazmış olduğum bir program var incelemek istersen :
www.geocities.com/eibturk/ -
quote:
Orjinalden alıntı: weberclas
Benim yazmış olduğum bir program var incelemek istersen :
www.geocities.com/eibturk/
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
-
http://abone.superonline.com/~plc/index3.htm
bu linkteki PLC çalışırken seri porttan haberleşebiliyor
80 taneye kadar role çıkışı var
(roleler 10 ampere kadar surebilir ) -
PLC çok pahalı bir çözüm.
Nerden baksanız en ucuz 4giriş/4çıkışı olan bir PLC 200$/€ -
ben 12 giriş 8 çıkış 75 dolara satıyorum -
Marka ? Model ? varsa pdf indide gönderirsen hemen alırım.
Mail adresi : weberclas@hotmail.com -
bende almayı düşünüyorum lütfen banada biligi gönderirmisin.
irresponsible666@hotmail.com
Benzer içerikler
- evde sigorta attı düzelmiyor
- akü amperi nasıl ölçülür
- 3 kablolu avize 2 kabloya nasıl bağlanır
- evde voltaj düşüklüğü nasıl giderilir
- kaçak akım rölesi kaç amper olmalı
- gözlüklü drone
- dji mini 2 se özellikleri
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
