Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME

Ana Menü

vb seri port

Başlatan daswi, 19 Temmuz 2003, 23:55:40

daswi

vb ile seri porttan 84 kontrolu mümkünmü ?? :?:

mhk

Evet mümkün. Bunun için visual basic seri haberleşme componenti Mscom control olması gerekir. Sanırım vb6 dan sonra bu bileşen zaten var. İlk önce  yeni bir proje açacaksın. Üst menüden project kısmından Components kısmını bulup burdan Microsoft comm control 6.0 ı bulup işaretle uygula tuşuna bas. Bu bileşen telefon simgesi şeklinde sol tarafa gelecektir. Daha önce yaptığım bir programı http://groups.yahoo.com/group/PicProjeUP/files/MHK/ adresine upload ettim. İlk önce üye olmak gerek. İyi çalışmalar.
"Ya olduğun gibi görün, Ya da göründüğün gibi ol..." Mevlana

00050319

vbde yazılmış olan bir kod var elimde,bu kod ile oluşturulan formda portbye gönderilecek olan 8 bitlik datayı kutulara

yazarak gönder butonuna basıyorsun,yanlız gönder butonuna basınca şöyle bir hata çıkıyor karşıma:

          RUN TIME ERROR '424'
          OBJECT REQUIRED
ve

debug dediğimde program satırında su komut sarıya boyanıyor:

              comm.Output = cntrl
demiş olduğunuz gibi microsoft com controlu yükledim,daha önce yoktu,ama değişen

bir şey olmadı,bu hatayı nasıl giderebilirim?  :oops:

aha tüm programı yazıyom  bir el atın nolur???

Private Sub cmdport_Click(index As Integer)
If txtport(index) = 1

Then
txtport(index) = 0
Else
txtport(index) = 1
End If
End Sub
Private Sub command1_Click()
comm.PortOpen = False
End
End

Sub

Private Sub form1_Load()
For i = 0 To 7
txtport(i) = 0
Next i
lblmesaj.Visible = False
txtson.Visible = False
comm.Settings =

"9600,n,8,1"
comm.PortOpen = True
End Sub
Private Sub txtgonder_click()
lblmesaj.Visible = True
txtson.Visible = True
son = ""
For i = 7 To 0 Step

-1
son = son & txtport(i)
Next i
txtson.Text = son
cntrl = "P" & son
comm.Output = cntrl ;hata burada namıssız burayı sarıya boyuyor!!!
End

Sub

Private Sub Command10_Click()
End
End Sub
Ahmak odur ki arzu ve isteklerinin peşinden koşar, Allah'tan da bekler.(Hadis-i Şerif)

xbayus

Elindeki kodun hatasını söyliyim(yanlış değilse tabi).MsComm kontrolünü de yükledim ama çalışmıyor diyorsun.Ama onu yüklediğinde o kontrolün adı "MSComm1" olur yani senin "comm.Output" satırındaki "comm.Output" değil, "MSComm1.Output" olacak.Ve tabii diğer satırlardakileride MSComm1 olarak değiştirmelisin.

yıldırım ak

16f877 için örnek programları aşağıdaki zipli dosyada bulabilirsin.

zip dosya boyutu 1.79 mb

url üzerinde sağ tıkla farklı kaydet seçeneği ile dosyayı indir.

http://tirbulans.tripod.com/seridata.zip
"... Bana kulluk et; Beni anmak için namaz kıl" (Taha 14)

00050319

teşekkürler arkadaşlar. :P
Ahmak odur ki arzu ve isteklerinin peşinden koşar, Allah'tan da bekler.(Hadis-i Şerif)

uet

Alıntı yapılan: "00050319"vbde yazılmış olan bir kod var elimde,bu kod ile oluşturulan formda portbye

gönderilecek olan 8 bitlik datayı kutulara yazarak gönder butonuna basıyorsun,yanlız gönder butonuna basınca şöyle bir hata çıkıyor karşıma:

          RUN TIME ERROR '424'
 

       OBJECT REQUIRED
ve debug dediğimde program satırında su komut sarıya boyanıyor:

              comm.Output = cntrl
demiş olduğunuz gibi microsoft com controlu

yükledim,daha önce yoktu,ama değişen bir şey olmadı,bu hatayı nasıl giderebilirim?  :oops:

aha tüm programı yazıyom  bir el atın nolur???

Private Sub cmdport_Click(index As

Integer)
If txtport(index) = 1 Then
txtport(index) = 0
Else
txtport(index) = 1
End If
End Sub
Private Sub command1_Click()
comm.PortOpen =

False
End
End Sub

Private Sub form1_Load()
For i = 0 To 7
txtport(i) = 0
Next i
lblmesaj.Visible = False
txtson.Visible = False
comm.Settings =

"9600,n,8,1"
comm.PortOpen = True
End Sub
Private Sub txtgonder_click()
lblmesaj.Visible = True
txtson.Visible = True
son = ""
For i = 7 To 0 Step

-1
son = son & txtport(i)
Next i
txtson.Text = son
cntrl = "P" & son
comm.Output = cntrl ;hata burada namıssız burayı sarıya boyuyor!!!
End

Sub

Private Sub Command10_Click()
End
End Sub

merhaba

eğer sen kurduğunda mscomm nesnesi bilgisayarına yüklenmemiş ise sen

onu elle yüklediğindede çalışmayacaktır. çünkü kayıt etmen lazım. kayıt etmek için

çalıştıra

regsvr32 "path\dosyaadı" yazacaksın eğer hata vermezse şimdi büyük ihtimalle

çalışacaktır. ama versiyon farklılıklarındada lisans sorunu çıkar karşına
sen bi yine de denede. olmazsa visual studio'yu yeniden kurarsın

programına gelince. yukarıda yazdığın

programın çalışmamasının sebebi mscomm'un kayıt edilmemesidir. ve de projene eklememişsin.
önce kayıt edeceksin sonrada projene add componenents kısmından ekleyeceksin. ekledikten

sonra sorunsuz çalışır. isminin comm olması birşeyi değiştirmez. visual basic componentleri projeni eklerken mscomm1 gibi isimler verir ama sen bunu değiştirebilirisin.
kolay gelsin

ufuk0106

VB ve pic kodları olabilir. seri porttan haberleşeceksen araya max232 tamponu bağlaman gerekiyor. unutma.