Opérations de port série/port parallèle pour Visual Basic 6.0

Bien que VB6 ne soit plus utilisé, ces exemples sont inclus car il est simple à apprendre.
Nous fournissons notamment des guides détaillés sur la façon d’utiliser et de programmer des composants matériels tels que les ports parallèles (LPT) et les ports série (COM).Vous trouverez ci-dessous un exemple simple de code Visual Basic qui vérifie la disponibilité des ports série et parallèle et indique le nombre de ports disponibles.
Fonctions pour savoir si les ports parallèles et série existent.
Si les valeurs de retour sont True, le port est disponible.

Fonction pour trouver le port série

Function IsComPortAvailable(ByVal portNum As Integer) As Boolean
    Dim fnum As Integer
    On Error GoTo ErrorHandler
    
    fnum = FreeFile
    Open "COM" & CStr(portNum) For Binary Shared As #fnum
    Close #fnum
    
    IsComPortAvailable = True
    Exit Function

ErrorHandler:
    If Err.Number <> 0 Then
        IsComPortAvailable = False
        Err.Clear
    End If
End Function

Fonction pour trouver le port parallèle

Function IsLptPortAvailable(ByVal portNum As Integer) As Boolean
    ' Dosya numarasını tutacak bir değişken tanımla
    Dim fnum As Integer

    ' Çalışma zamanı hatalarını bastır
    On Error Resume Next

    ' Boş bir dosya numarası al
    fnum = FreeFile

    ' Belirtilen LPT portunu ikili paylaşımlı erişim için açmayı dene
    Open "LPT" & CStr(portNum) For Binary Shared As #fnum

    ' Portu açarken bir hata olup olmadığını kontrol et
    If Err = 0 Then
        ' Port başarıyla açıldıysa, portu kapat
        Close #fnum
        ' Portun kullanılabilir olduğunu belirten dönüş değerini True yap
        IsLptPortAvailable = True
    End If
    ' Hata varsa, fonksiyon varsayılan olarak False dönecek
End Function

Il faut appeler les fonctions ci-dessus pour connaître le nombre de ports.
Il n’est pas obligatoire d’utiliser ces fonctions.

Pour les ports série

Dim count As Integer, i As Integer
' 1'den 16'ya kadar olan port numaraları için döngü başlat
For i = 1 To 16
    ' Eğer mevcut bir COM portu varsa, sayacı artır
    If IsComPortAvailable(i) Then count = count + 1
Next
' Bulunan COM port sayısını mesaj kutusunda göster
MsgBox count & " adet seri port bulundu"

Pour les ports parallèles

Dim count As Integer, i As Integer

' 1'den 16'ya kadar olan port numaraları için döngü başlat
For i = 1 To 16
    ' Eğer mevcut bir LPT portu varsa, sayacı artır
    If IsLptPortAvailable(i) Then count = count + 1
Next

' Bulunan LPT port sayısını mesaj kutusunda göster
MsgBox count & " adet paralel port bulundu"

Pour fonctionner sur port parallèle ou série

‘Une fois le numéro de port actuel appris, il est ouvert à l’aide de cette fonction.
La variable fnum est le numéro de port connu pour être ouvert.Ici, seule la partie nécessaire doit être modifiée pour LPT.
Pour COM, seule la partie nécessaire doit être modifiée.

Public Sub OpenPort(ByVal PortNum As Integer)
    ' Dosya numarasını tutmak için bir değişken tanımla
    Dim fnum As Integer
    
    ' Boş bir dosya numarası al
    fnum = FreeFile
    
    ' Belirtilen LPT bağlantı noktasını çıktı modu ile aç
    Open "LPT" & CStr(PortNum) For Output As #fnum
    
    ' Dosya numarasını global veya modül seviyesindeki bir değişkene ata
    FileNumber = fnum
End Sub

‘La variable chaîne est envoyée au port ouvert avec cette fonction.

Public Sub SendToPort(ByVal PortNum As Integer, ByVal Data As Byte)
    ' Belirtilen dosya numarasına (LPT portu) veriyi yaz
    Write #CStr(FileNumber), Data
End Sub
Public Sub ClosePort(ByVal PortNum As Integer)
    Close #CStr(PortNum)'İşimiz bittiğinde portun kapatılması gereklidir.
End Sub