---

Jeg har lavet et lille testprogram som sender indholdet af en textbox ud på
en COM port, hvor jeg har lavet en
forbindelse mellem pin 2 og 3 på stikket (TX & RX). D.v.s. alle data som
sendes vil straks blive modtaget
igen. Disse data vises derefter i en label.

Mit problem er nu at programmet kun virker når det er tal (0-9) som skal
sendes. Alle bogstaver og
tegn retunere et '0' i label'en.

Hvad går der galt?..og hvorfor?

-Tom-


Private Sub Command1_Click()
'enable port
MSComm1.PortOpen = True
'send data
MSComm1.Output = txtbox.Text
'modtag data
Rec
End Sub


Private Sub Rec()
Do
dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 1
Label1.Caption = "Data: " & Val(MSComm1.Input)
MSComm1.PortOpen = False
End Sub

---

Hejsa

Prøv at ændre:
> Label1.Caption = "Data: " & Val(MSComm1.Input)

til:
Label1.Caption="Data: " & MSComm1.Input

-Mads


"Tom K." <tombk@worldonline.dk> wrote in message
news:ymfx8.1882$kp3.179078@news010.worldonline.dk...
> Jeg har lavet et lille testprogram som sender indholdet af en textbox ud
på
> en COM port, hvor jeg har lavet en
> forbindelse mellem pin 2 og 3 på stikket (TX & RX). D.v.s. alle data som
> sendes vil straks blive modtaget
> igen. Disse data vises derefter i en label.
>
> Mit problem er nu at programmet kun virker når det er tal (0-9) som skal
> sendes. Alle bogstaver og
> tegn retunere et '0' i label'en.
>
> Hvad går der galt?..og hvorfor?
>
> -Tom-
>
>
> Private Sub Command1_Click()
> 'enable port
> MSComm1.PortOpen = True
> 'send data
> MSComm1.Output = txtbox.Text
> 'modtag data
> Rec
> End Sub
>
>
> Private Sub Rec()
> Do
> dummy = DoEvents()
> Loop Until MSComm1.InBufferCount >= 1
> Label1.Caption = "Data: " & Val(MSComm1.Input)
> MSComm1.PortOpen = False
> End Sub
>
>
>
>

---

Mange tak...det virker nu.

-Tom.

"Mads Andreasen" <man@REMOVETHISaub.dk> skrev i en meddelelse
news:3cc58830$0$17381$4d4eb98e@read-nat.news.dk.uu.net...
> Hejsa
>
> Prøv at ændre:
> > Label1.Caption = "Data: " & Val(MSComm1.Input)
>
> til:
> Label1.Caption="Data: " & MSComm1.Input
>
> -Mads
>
>
> "Tom K." <tombk@worldonline.dk> wrote in message
> news:ymfx8.1882$kp3.179078@news010.worldonline.dk...
> > Jeg har lavet et lille testprogram som sender indholdet af en textbox ud
> på
> > en COM port, hvor jeg har lavet en
> > forbindelse mellem pin 2 og 3 på stikket (TX & RX). D.v.s. alle data som
> > sendes vil straks blive modtaget
> > igen. Disse data vises derefter i en label.
> >
> > Mit problem er nu at programmet kun virker når det er tal (0-9) som skal
> > sendes. Alle bogstaver og
> > tegn retunere et '0' i label'en.
> >
> > Hvad går der galt?..og hvorfor?
> >
> > -Tom-
> >
> >
> > Private Sub Command1_Click()
> > 'enable port
> > MSComm1.PortOpen = True
> > 'send data
> > MSComm1.Output = txtbox.Text
> > 'modtag data
> > Rec
> > End Sub
> >
> >
> > Private Sub Rec()
> > Do
> > dummy = DoEvents()
> > Loop Until MSComm1.InBufferCount >= 1
> > Label1.Caption = "Data: " & Val(MSComm1.Input)
> > MSComm1.PortOpen = False
> > End Sub
> >
> >
> >
> >
>
>