Hej!
Jag undrar hur jag ska göra för att se om en pinne är aktiv på comporten. Men undrar även viken pinne jag ska anända?

Har läst något om INP() men frågan är hur jag ska använda det??

//Fredrik

Hej hej!

Du måste göra lite inställningar först i ett kontrollregister för den porten du vill läsa av...
Kolla här:
http://www.aaroncake.net/electronics/qblpt.htm

Kanske lite sent men jag gjorde så här i ett projekt med qbasic när ja skulle
snacka på den seriella porten.

<code>
Function openCom(cPort As Integer)

module$ = "openCom"

hCom = FreeFile

If hCom <> 0 Then
Select Case cPort
Case 1
Open "COM1:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB1024,RB512" For Random As #hCom
Case 2
Open "COM2:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB1024,RB512" For Random As #hCom
End Select

Else
'Kunde inte ”ppna porten s† spela upp ett errorljud
SOUND 200, 18
LOCATE 24, 1
Color 31, 0
Print "* Kunde inte initiera modemet *"
Color 15, 0
End
End If

'returnera handle till comporten
openCom = hCom
End Function
</code>