/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
TX/RX af tekst via COM
Fra :
Tom K.
Dato :
23-04-02 16:47
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
Mads Andreasen (
23-04-2002
)
Kommentar
Fra :
Mads Andreasen
Dato :
23-04-02 17:14
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
>
>
>
>
Tom K. (
24-04-2002
)
Kommentar
Fra :
Tom K.
Dato :
24-04-02 15:05
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
> >
> >
> >
> >
>
>
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408849
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.