Post by xtal on Oct 20, 2019 19:53:39 GMT -5
How do I open a com port , I tried the lb4.51 methods , but they don't work
Heres my test code for a Serial LCD I'm making...
Heres my test code for a Serial LCD I'm making...
nomainwin
CL1 = 185 ' clear line 1
CL2 = 186 ' clear line 2
com = 512
open "com12:115200,n,8,1,ds0,cs0,rs" for random as #serial
'' open "com12:38400,n,8,1,ds0,cs0,rs" for random as #serial
''open "com12:57600,n,8,1,ds0,cs0,rs" for random as #serial
print #serial, chr$(CL1) ' clr 1
print #serial, chr$(CL2) ' clr 2
print #serial, chr$(179);chr$(0) ' set back light -- works
q = DelayMS(2500)
FOR ZIP = 5 to 100 step 5
print #serial, chr$(138)
print #serial, ZIP;" "
print #serial, chr$(179);chr$(ZIP) ' set back light -- works
q = DelayMS(300)
next ZIP
q = DelayMS(5000)
FOR ZIP = 100 to 0 step -5
print #serial, chr$(202)
print #serial, ZIP;" "
print #serial, chr$(179);chr$(ZIP) ' set back light -- works
q = DelayMS(300)
next ZIP
q = DelayMS(1000)
print #serial, chr$(179);chr$(75) ' set back light -- works
q = DelayMS(500)
print #serial,chr$(7)
first = time$("milliseconds")
FOR ZIP = 500 TO 0 step -5
NN = ZIP-425
if NN >0 then
NN = NN * 4
else
NN=0
end if
print #serial, chr$(0) ' clear display
q = DelayMS(NN)
print #serial, chr$(128)
PRINT #serial, "ABCDEFGHIJKLMNOPQRST"
print #serial, chr$(192)
PRINT #serial, "ABCDEFGHIJKLMNOPQRST"
print #serial, chr$(148)
PRINT #serial, "ABCDEFGHIJKLMNOPQRST"
print #serial, chr$(212)
PRINT #serial, "ABCDEFGHIJKLMNOPQRST"
q = DelayMS(NN)
print #serial, chr$(0) ' clear display
q = DelayMS(NN)
print #serial, chr$(128)
PRINT #serial, "01234567890123456789"
print #serial, chr$(192)
PRINT #serial, "01234567890123456789"
print #serial, chr$(148)
PRINT #serial, "01234567890123456789"
print #serial, chr$(212)
PRINT #serial, "01234567890123456789"
q = DelayMS(NN)
print #serial, chr$(128) '80
PRINT #serial, " " 'B9 clr line 1
print #serial, chr$(128) '80
PRINT #serial, "11111111111111111111"
q = DelayMS(NN)
print #serial, chr$(192) 'C0
PRINT #serial, " " 'BA clr line 2
print #serial, chr$(192) 'C0
PRINT #serial, "22222222222222222222"
q = DelayMS(NN)
print #serial, chr$(148) '94
PRINT #serial, " " 'BB clr line 3
print #serial, chr$(148) '94
PRINT #serial, "33333333333333333333"
q = DelayMS(NN)
print #serial, chr$(212) 'D4
PRINT #serial, " " 'BC clr line 4
print #serial, chr$(212) 'D4
PRINT #serial, "44444444444444444444"
q = DelayMS(NN)
print #serial, chr$(185) 'B9 clr line 1
print #serial, chr$(147) '93
print #serial, "W"
print #serial, chr$(128) '80
print #serial, "Line-1 "
' print #serial, ZIP-500
q = DelayMS(NN)
print #serial, chr$(186) 'BA clr line 2
print #serial, chr$(211) 'D3
print #serial, "X"
print #serial, chr$(192) 'C0
print #serial, "Line-2 "
q = DelayMS(NN)
print #serial, chr$(187) 'BB clr line 3
print #serial, chr$(167) 'A7
print #serial, "Y"
print #serial, chr$(148) '94
print #serial, "Line-3 "
q = DelayMS(NN)
print #serial, chr$(188) 'BC clr line 4
print #serial, chr$(231) 'E7
print #serial, "Z"
print #serial, chr$(212) 'D4
print #serial, "Line-4 "
print #serial, chr$(220) '
print #serial, ZIP
q = DelayMS(NN)
next ZIP
last = time$("milliseconds")
total = int(last-first)
print #serial, chr$(156) '
print #serial, total
print #serial,"-ms"
close #serial
end
'=======================================================================================
'========================================================================================
' Q=DelayMS(xxx) Delay xxx milliseconds -- not ideal but works
'-------------------------------------------------------------------------------------------------------------------
function DelayMS(value)
if value = 0 then goto [qx] '
td = time$("milliseconds") + value '
[DlyMS]
tdy = time$("milliseconds")
if tdy < td then goto [DlyMS]
[qx] '
end function
