/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
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
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste