seri portu açma

[MICROCEBEL]

selamün aleyküm arkadaşlar;
seri port uygulaması yaparken şöyle bir uyarıyla karşılaştım(Sadece portun, açık olduğu zaman geçerli çalışma) bi butona bastığım zaman 1 in ascıı karşılığını gönderen bi örnek yaptım ama çalışmadı ve o hatayı verdi.aslında kapalı olmaması gerekir geçen gün arkadaşım bitane uygulama yaptı benim pc den.Acaba paralel portta olduğu gibi bununda dll dosyası falan varmı yada modül koyulması gerekirmi?Çalışlmalarınızda başarılar...........

[forsa1975]

If MSComm1.PortOpen = True Then
hata veren işlemler....
end if

böyle bişey yazdığında aynı hatayı verirmi?

[MICROCEBEL]

MSComm1.CommPort = 1
   MSComm1.Settings = "19200,N,8,1"
   MSComm1.Handshaking = 0
   MSComm1.DTREnable = False
   MSComm1.RThreshold = 1
   On Error Resume Next
   MSComm1.PortOpen = True
   MSComm1.InBufferCount = 0
   If Err Then MsgBox "Cannot open comm port " & MSComm1.CommPort
(terminal için bu kodları yazdım)
------------------------------------------------------------------------------------
buton içinde aşağıdaki kodu yazdım.
Dim örnek
örnek="A"
MsComm1.output=örnek