Jak wysyłać znaki ASCII 0-255 przez RS232 w VisualBasic?

Private Sub Command1_Click()
Open "COM3:115200,N,8,1,asc" For Output As #2
Print #2, "DANE"
Close
End Sub

Private Sub Command1_Click()
Dim x               'deklaracje
Dim odczyt(20)
Dim odp

Open "c:\bmp.bmp" For Input As #1 'otwarcie bitmapy do odczytu

For x = 1 To 5                       'zmienna x przyjmuje wartość od 1 do 5
Input #1, odczyt(x)                'odczyt no właśnie czego ??
odp = MsgBox(odczyt(x))      'wyświetlenie wyniku odczytu
Next x                                  'następny x

Close                                     'zamkniecie pliku

End Sub

Private Sub Command1_Click()

Dim Read2 As String
Dim odp
Dim x
Dim y(8)
Dim z
Dim v(15)
Dim q


z = 1
q = 1
Read2 = String(1, " ") 'przeczyta dwa bajty

Open "C:\bmp.bmp" For Binary As #1
Open "c:\bmp.txt" For Output As #2



For x = 55 To 76 Step 3 '412 Step 3

Get #1, x, Read2 'przeczyta jeden bajt od 55 bajtu czyli pierwsza skladowa pixela bitmapki.



If Read2 = "0" Then
y(z) = 1
Else: y(z) = 0
End If


z = z + 1
If z = 9 Then
z = 1
End If



Next x
v(q) = (y(1) & y(2) & y(3) & y(4) & y(5) & y(6) & y(7) & y(8))


Write #2, v(q)



odp = MsgBox(v(q))



Close #1
Close #2
End Sub

Public Function Convert_(Dane As String) As String

Dim Temp(1) As String
Dim i As Byte
Dim EndStr As String

For i = 0 To 1

If i = 0 Then Temp(i) = Left(Dane, 4)
If i = 1 Then Temp(i) = Right(Dane, 4)

If Temp(i) = "0000" Then Temp(i) = "0"
If Temp(i) = "0001" Then Temp(i) = "1"
If Temp(i) = "0010" Then Temp(i) = "2"
If Temp(i) = "0011" Then Temp(i) = "3"
If Temp(i) = "0100" Then Temp(i) = "4"
If Temp(i) = "0101" Then Temp(i) = "5"
If Temp(i) = "0110" Then Temp(i) = "6"
If Temp(i) = "0111" Then Temp(i) = "7"
If Temp(i) = "1000" Then Temp(i) = "8"
If Temp(i) = "1001" Then Temp(i) = "9"
If Temp(i) = "1010" Then Temp(i) = "A"
If Temp(i) = "1011" Then Temp(i) = "B"
If Temp(i) = "1100" Then Temp(i) = "C"
If Temp(i) = "1101" Then Temp(i) = "D"
If Temp(i) = "1110" Then Temp(i) = "E"
If Temp(i) = "1111" Then Temp(i) = "F"

EndStr = EndStr & Temp(i)
Next i

Convert_ = EndStr

End Function

Dim Test as string

Test = Convert_(11111111)                '(Test = "FF")
Test = Chr("&H" & Convert_(11111111))  '(test = "˙" czyli znak ascii ktory chcesz wyslac)

Open "COM3:115200,N,8,1,asc" For Output As #2 
Print #2, "DANE" 
Close 

Private Declare Function ConfigurePort Lib "winspool.drv" Alias "ConfigurePortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pPortName As String) As Long

ConfigurePort "", Me.hwnd, "COM1" 

Timer1.Enabled = False