Ako bi postovao gresku i kod gde se greska javlja, ili napisao kako se manifestuje to da program ne radi, mozda bi i mogli da ti pomognemo

Pozdrav svima.
Izvinite što sam zaboravio da kažem kako se gereška manifestuje.
Na COMM port sam priključio mikrokontroler. Kad pokrenem hiperterminal u win 98/Me vidim podatke koje mikrokontroler šalje i prima. Kad to isto uradim u win xp hiperterminal ništa ne pokazuje.

A u VB sam napisao kod, program nešto sličan hiperterminalu. U text fieldu mi izpisuje onu što bi izpisao hiperterminal. Kad program pokrenem ne javi nikakve greške i u win98/ME pokazuje šta se dešava na COMM-u. Ali u win xp neče.

Evo dodat če još kod pa vas molim da me savjetujete
Hvala !



Private Sub cmdExit_Click()
frmPIC_VB.MSComm1.PortOpen = False
Unload frmPIC_VB
End Sub

Private Sub Form_Load()

Dim emData As String
frmPIC_VB.MSComm1.RThreshold = 2
frmPIC_VB.MSComm1.InputLen = 2
frmPIC_VB.MSComm1.Settings = "9600,N,8,1"
frmPIC_VB.MSComm1.CommPort = 1
frmPIC_VB.MSComm1.InputMode = comInputModeText
frmPIC_VB.MSComm1.PortOpen = True
emData = frmPIC_VB.MSComm1.Input
End Sub

Private Sub MSComm1_OnComm()
Dim sData As String

If frmPIC_VB.MSComm1.CommEvent = comEvReceive Then
sData = frmPIC_VB.MSComm1.Input
frmPIC_VB.Text1.Text = frmPIC_VB.Text1.Text & sData
End If

frmPIC_VB.Text1.Text = frmPIC_VB.Text1.Text & vbCrLf

End Sub

I još da dodam na oba računara imam samo jedan serijski port tako da to nebi moglo bit.

Koliko sam ja primetio, a to je da pod XP-om ne mozes direktno da se obratis paralelnom portu, tj. da posaljes nesto na njega, za razliku od win98 gde je to veoma jednostavno. Cak sam i u Delphi-ju pokusavao asemblerskim kodom i naravno pod 98-icom radi pod xp-om mi kaze da nemam pravo pristupa, e sad zbog cega nece da radi, nisam imao vremena da probam
Pokusas da nadjes neki dll ili activeX koji ce to da radi. Po meni to ti je najednostavnije resenje.

Poz...