Merhaba dostlar, visual basic dilinde orta seviye bilgim var,çok uzun zamandır visual basic ile çalışmıyordum , şimdilerde tekrar mecbur kaldım.
Visual basic 6.0 da şu kodları kullanarak bir şeyler yapmak istedim. Fakat run time eror 8012 hatası alıyorum, sebebi sizce ne olabilir? bilgisayarımda seri port yok, o olabilir mi?
kodlar nerde? ne yapmak istiyorsun yardımcı olabiliriz.
form load a bunu yazıyorum
MSComm1.PortOpen = False 'açık port varsa kapatır
MSComm1.CommPort = 1 'COM1 i seçer
MSComm1.Settings = "2400,N,8,1"
texte bir sayı yazıp commanda bastığında o sayının seri porttan gönderilmesini sağlamalıyız..
command click e bunu yazıyorum
MSComm1.PortOpen = True
giden=val(text1.text)
MSComm1.Output = "a" & giden
MSComm1.PortOpen = False
Merhaba,
Port kapatma işlemini şu şekilde yaparsanız daha iyi olur.
If MSComm1.PortOpen = true then
MSComm1.PortOpen = false
End if
Port açma işlemini şu şekilde yaparsanız daha iyi olur.
If MSComm1.PortOpen = false then
MSComm1.PortOpen = true
End if
Bu hatanın ana sebebi seri porta erişemediğindne ortaya çıkar.
USB seri dönüştürücü ya da sanal seri portu oluşturup ona referans verirseniz daha sağlıklı olacaktır.