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.
Mirza