DETECTAR PORTA PARALELA

PAULOOLIVEIRA 07/11/2010 19:41:33
#356860

companheiro,

o que voce poderia fazer é testar se ela existe,

manda um print #1, se retornar erro 76 ou 53, indica que a porta nao esta valida

flw

FEDERHEN 08/11/2010 16:15:03
#356902 Resposta escolhida

Private Sub Command1_Click()
MsgBox [Ô]Porta 1 [Ô] & IIf(PortaParalena(1), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 2 [Ô] & IIf(PortaParalena(2), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 3 [Ô] & IIf(PortaParalena(3), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 4 [Ô] & IIf(PortaParalena(4), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 5 [Ô] & IIf(PortaParalena(5), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 6 [Ô] & IIf(PortaParalena(6), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 7 [Ô] & IIf(PortaParalena(7), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 8 [Ô] & IIf(PortaParalena(8), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô]) & vbCrLf & _
[Ô]Porta 9 [Ô] & IIf(PortaParalena(9), [Ô] OK[Ô], [Ô] NÃO EXISTE[Ô])
End Sub

Private Function PortaParalena(ByVal numero As Integer) As Boolean
PortaParalena = True
On Error GoTo Erro
Open ([Ô]LPT[Ô] & numero) For Output As #1
Close #1
Exit Function
Erro:
PortaParalena = False
End Function

HELIO.COSTA 08/11/2010 21:54:34
#356920

Faleu!!!
Funcionaou perfeitamente.