LPT და  COM პორტებთან მუშაობა VB6 - ში.

პარალელური პორტის პროგრამირება

LPT1 პორტთან დაკავშირებულია სამი რეგისტრი:

• &H378     -    DR მონაცემთა რეგისტრი
• &H379     -    SR პრინტერის მდგომარეობის რეგისტრი
• &H37A    -    CR პრინტერის მართვის რეგისტრი

(შესაბამისად LPT2 - &H278, &H279, &H27A.)

Windows XP-ში LPT პორტთან მუშაობა შესაძლებელია მხოლოდ სპეციალური პროგრამის- დრაივერის მეშვეობით. შეგვიძლია გამოვიყენოთ ასეთი პროგრამების ერთ-ერთი ყველაზე პოპულარული ბიბლიოთეკა inpout32.dll, რომელიც ადვილად იძებნება ინტერნეტში და თანაც მუქთაა. გადმოქაჩეთ და ჩასვით თქვენს ფოლდერში C:\Windows\system32\.

'=============================================

'  inpout32.dll ბიბლიოთეკის "მიერთება" პროგრამასთან

'  ============================================

Option Explicit

Private Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
'=======================================================

OUT &H378, x

d = INP(&H379)

მიმდევრობითი პორტის პროგრამირება

COM1

VB6-ში  პორტთან სამუშაოდ გათვალისწინებულია შესაბაბისი ActivX კონტროლი, რომელიც ინსტრუმენტების პანელზე თავისით არ ჩანს. მოვძებნოთ Project => Components - ში Microsoft Comm Comtrol 6.0, მოვნიშნოთ და OK .  ინსტრუმენტების პანელზე ტელეონის აპარატი დაიხატება. ეს არის ჩვენი  Microsoft Comm Comtrol. შეგვიძლია გადავასკუპოთ ფორმაზე და გამოვიყენოთ.

MSComm1.Settings = "1200,N,8,1"

1200, 2400, 4800, 9600... გადაცემის ციჩქარე ბოდებში.

N - ლუწობა (E, M, N, O, S)

8 - საინფორმაციო ბიტების რაოდენობა (4, 5, 6, 7, 8)

1 - სტოპ ბიტების რაოდენობა.

MSComm1.CommPort = 1   - პორტის ნომერი.

MSComm1.PortOpen = True  - პორტის გახსნა.  
MSComm1.PortOpen = False - პორტის დახურვა.

MSComm1.RTSEnable = False      +12ვ. RTS-ზე.   
MSComm1.DTREnable = False      -12ვ. RTS-ზე.

MSComm1.Output = "А"

გაგრძელება იქნება...