Seri porttan led yaktırma run time eror 8012

[valaa6]

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?

[re3ii]

kodlar nerde? ne yapmak istiyorsun yardımcı olabiliriz.

[valaa6]

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

[Çakmamühendis]

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

[ZZombie]

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.