/
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
Hvilken port sidder modem på ????
Fra :
Bjarne Østergård
Dato :
15-12-00 01:36
Hvorfor virker denne kode ikke når port er sat til 1 men virker fint hvis
port er sat til 2
Problemet er bare at jeg skal kunne detekte modem også hvis det sidder på
com1.
Er der nogen der har en smart måde at detekte modem på således at man får
returneret den port som modem er tilsluttet.
Koden her er en jeg fandt på Planet Source Code. men den virker ikke hos mig
uanset hvad jeg gør med mindre jeg sætter port =2
Hvorfor kan jeg ikke detekte port 1
Private Sub Command1_Click()
On Error GoTo errr:
Port = 1
PortinG:
MSComm1.CommPort = Port
MSComm1.PortOpen = True
Form1.MSComm1.Settings = "9600,N,8,1"
' MSComm1.Output = "AT" + Chr$(13)
x = 1
Do: DoEvents
x = x + 1
If x = 1000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 2000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 3000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 4000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 5000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 6000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 7000 Then
MSComm1.PortOpen = False
Port = Port + 1
GoTo PortinG:
If MSComm1.CommPort >= 5 Then
errr:
MsgBox "Can't Find Modem!"
GoTo done:
End If
End If
Loop Until MSComm1.InBufferCount >= 2
instring = MSComm1.Input
MSComm1.PortOpen = False
Text1.Text = MSComm1.CommPort & instring
MsgBox "Modem Found On Comm" & Port
done:
End Sub
Med venlig hilsen
Bjarne
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177551
Tips :
31968
Nyheder :
719565
Indlæg :
6408825
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.