Serial. Port Class Component in Visual BASIC VB2. VB2. 01. 0, VB. NET for RS2. Communications. View the ADR series RS2. Data. Acquisition products here. IMPORTANT. For a tutorial on using the MSCOMM control. Visual Basic See NOTE1 This programming guide assumes the user has. Visual Basic programming. The teaching method used is to show a basic. VB2. 01. 0 program which communicates with an ADR board by sending and receiving. ASCII data, and then dissect the program to understand its operation. NOTE2 The procedure shown is. VB2. 00. 8, VB2. 01. Express versions. NOTE3 The entire project can be. Serial-Port-Communication-in-Excel-VBA-615x308.jpg' alt='Serial Port Mscomm' title='Serial Port Mscomm' />The entire CommStudio assembly is less than 250K of highly optimized managed C code, including all serial port and file transfer classes. Visual Basic 6. 0 You will use Comm. MSComm. ocx, or MSComm32. For example, in VisualBasic 6. Professional or. I need to read and write byte arrays using COMport and VBA. I found a nice solution here But this solution works only for String type for inputoutput data. I need a. ADRSAMPLEVBdot. NET. ZIP  9. 8KADR serial data acquisition interfaces. ASCII data via RS2. To communicate with the ADR boards using Visual Basic. Serial. Port component must be utilized to allow serial data transfer via a serial port. Com. 1 Com. 99. Serial. Port is a component shipped with VB2. VB2. 01. 0 and must be loaded. I use this to read from a barcode scanner into an RS232 serial port. It uses the MSComm control. I have seen a few messages on the forum asking about serial. This is the snippet SendReceive Data Via the Serial Port Using MSComm Control on FreeVBCode. The FreeVBCode site provides free Visual Basic code, examples, snippets. Connecting external electonics using the serial port. For hobbyists and educators. HighSpeed USB Serial Adapter optimized for Windows 10, Windows 8 and Windows 7. Easy Setup and Online Support. Fast Shipping and Low Prices. ToolboxComponents menu. The following Serial. Port VB2. 01. 0 Example program is. ADR1. 12. The ADR1. RS2. 32 based data acquisition. CR Chr1. 3 terminated ASCII strings to read two. IO port. The. program can be modified to work with any ONTRAK or other manufacturers. RS2. 32 based product. Figure. 1 Serial. Port VB2. 01. 0 Example  Form. The program was built using a pull down menu for. COM port selection, an OPEN COM Port button, three. Send command buttons, and a text box to display received  ASCII data. When run, the port is. Pull Down Menu and enabled when the OPEN COM Port. The Send RDO button sends an ASCII RDO. Chr1. 3 out on the COM port. The Chr1. 3 is required by the ADR1. Two additional buttons send. SETPA0 and RESPA0 commands also terminated with Chr1. Bit PA0 on PORTA of the ADR1. Figure 2 shows the program running with an. ADR1. 12 connected to COM3. When the Send RD0 button was pressed. ADR1. 12 returned ASCII  1. This shows the ADR1. X 5 2. 0. 89. 1V. The number 4. ADR1. VDC. Figure. 2 Serial. Port VB2. 01. 0 Example Running. The entire program code is shown in Figure 3 and. Figure 4. The code is heavily commented and a few explanations are. Figure 3  Opening the COM Port and Some Housekeeping. In Figure 3, we first declare a COM port assign it a label of ADRport. Next, we check to see if the port is already open and if so we close. The next block of code creates our pull down combobox with an array. COM1 to COM2. 0. This value can be increased if desired. The last block of code is for the OPEN COM Port button. When the. button is pressed, the value in the combobox is used to open the. COM port and give it a label of ADRport. Further, the text. CPA1. 11. 11. 11. Chr1. 3 is sent out on the COM port to configure. Digital IO port so that PA0 is an output. This is required by the. ADR1. 12 and depending on your hardware, initialization may or may not be. Figure 4  Sending Commands and Receiving Data. Figure 4 is where the sending and receiving of data happens under. Form. 1. The first block of code uses TRY CATCH to send an RDO Chr1. ADR1. 12 to retrieve the value of analog port AN0. Form. 1. Thread. Sleep2. This gives time for the command to be sent out. COM3 to the ADR1. Catch ex As Timeout. Exception is used. COM port. If. there is a timeout, we print No Data in the text box and enable a. We have set the. timeout to 1. If you are running the program without. ADR1. 12 connected these events will be triggered. The following two subroutines simply send either SETPA0 Chr1. RESPA0Chr1. 3 to set or reset PA0 on the. ADR1. 12 depending on what button has been pressed. FURTHER NOTES and Programming Hints 1. USING VARIABLES In many cases it may be desired. For example, the. MAddd command outputs to port A, the integer value ddd. If ddd is a variable. PV, a string to set the port to the value of this variable would look like ADRport. Write MA StrPV Chr1. The Str function converts the variable to an ASCII. MA.   The Chr1. 3 is a carriage return. Good luck in your programming efforts. The Ontrak Programming Team 2. CUT and PASTE Here is. Imports System. Imports System. IO. Ports. Imports System. Threading. Public Class Form. DECLARE A COMM PORT Dim With. Events ADRport As Serial. Port New System. IO. Ports. Serial. PortCOM1, 9. Parity. None, 8, Stop. Bits. OnePrivate Sub Form. Form. ClosedBy. Val sender As Object, By. Val e As. System. Windows. Forms. Form. Closed. Event. Args Handles Me. Form. ClosedCHECK IF PORT IS OPEN AND THEN CLOSE COMM PORTIf ADRport. Is. Open Then. ADRport. CloseEnd If. End Sub. Private Sub Form. LoadBy. Val sender As System. Object, By. Val e As. System. Event. Args Handles My. Base. LoadCREATE 2. Banquet Hall Website Templates on this page. COM PORTS TO BE SELECTIONS IN PULL DOWN MENUDim Port. Count As Integer. For Port. Count 1 To 2. Combo. Box. 1. Items. AddCOM Port. CountNextSET COMBO BOX TO COM 1 DEFAULT Combo. Box. 1. Selected. Index 0. End Sub. Private Sub btn. ConnectClickBy. Val sender As System. Object, By. Val e As. System. Event. Args Handles btn. Connect. ClickCHECK IF PORT IS CLOSED AND THEN OPEN COM PORT FROM COMOBOX PORT NAMES. ADRport. Port. Name Combo. Box. 1. Selected. Item. If Not ADRport. Is. Open Then. ADRport. OpenEnd IfTHIS SET IS REQUIRED BY THE ADR1. TO CONFIGURE PORTA BIT 0 AS AN. OUTPUT BIT. YOUR DEVICE MAY NOT REQUIRE THIS STEPIf ADRport. Is. Open Then. ADRport. WriteCPA1. 11. 11. Chr1. 3End If. End Sub. Private Sub Button. ClickBy. Val sender As System. Object, By. Val e As. System. Event. Args Handles Button. Click. TrySEND RDO CR OUT ON RS2. Port. ADRport. WriteRD0 Chr1. WAIT 2. 0MS FOR COMMAND TO BE SENTThread. Sleep2. 0SET READ TIMOUT FOR RS2. READ TO 1. 00. MSADRport. Read. Timeout 1. READ DATA FROM RS2. INPUT BUFFER UP TO THE NEXT CR CHR1. Text. Box. 1. Text ADRport. Read. ToChr1. 3Catch ex As Timeout. ExceptionIF THERE IS A TIMEOUT, PRINT No Data IN TEXTBOX1. TEXTText. Box. 1. Text No. DataTHE NEXT LINE ENABLES A SPLASH SCREEN WITH AN ERROR MESSAGE DELETE IF. NOT DESIREDMsg. Boxex. MessageEnd Try. End Sub. Private Sub Button. ClickBy. Val sender As System. Object, By. Val e As. System. Event. Args Handles Button. ClickSEND SETPA0 COMMAND TO ADR1. TO SET PORT A, bit 0. ADRport. WriteSETPA0 Chr1. End Sub. Private Sub Button. ClickBy. Val sender As System. Object, By. Val e As. System. Event. Args Handles Button. ClickSEND RESPA0 COMMAND TO ADR1. TO RESET PORT A, bit 0. ADRport. WriteRESPA0 Chr1. End Sub. Public Sub New This call is required by the designer. Initialize. Component Add any initialization after the Initialize. Component call. End Sub. Private Sub Label. ClickBy. Val sender As System. Object, By. Val e As. System. Event. Args Handles Label. Click. End Sub. End Class.