Subject Re: Does dbase work with pole display
From Emeka <megameks@yahoo.com>
Date Mon, 07 Oct 2019 18:12:21 -0400
Newsgroups dbase.getting-started

Thank you Mervyn,

When I clicked the Display text button, It displayed errot of 'variable undefined' LENGTH in line 612 and 613 and 'variable undefined' SENDSTR in line 616 of serialcomm.cc. Then when I click ignore severally, it will display my text on the pole display meaning its opening the port. Please how do I correct this error and continue.

Emeka



Mervyn Bick Wrote:

> On 2019-10-05 2:16 PM, Emeka wrote:
 > >  
> >> If you post the example code we may be able to help you convert it to dBASE.
 > >>
 > >> Mervyn.
 > >
> > I have been able to google out the below VB code for sending data to pole display. Kindly check if this can converted to dbase.
 >
>
> Try the attached form.  Once you can get the computer talking to the
> pole display we can take this further.
 >
> To see which COM port has been used click on the Windows in the bottom
> left corner of the screen and type  Device Manager   Click on the entry
> for Device Manager and expand the Ports entry.  Edit the form if you are
> not using COM1.
 >
> Mervyn.
 >
>
>
> ** END HEADER -- do not remove this line
 > //
 > // Generated on 2019-10-05
 > //
 > parameter bModal
 > local f
 > f = new talk_to_poleForm()
 > if (bModal)
 >    f.mdi = false // ensure not MDI
 >    f.readModal()
 > else
 >    f.open()
 > endif
 >
> class talk_to_poleForm of FORM
 >    set procedure to :dUFLP:serialcomm.cc additive
 >    with (this)
 >       height = 16.0
 >       left = 34.8571
 >       top = 0.2273
 >       width = 40.0
 >       text = ""
 >    endwith
 >
>    this.SERIALCOMM1 = new SERIALCOMM(this)
 >    with (this.SERIALCOMM1)
 >       left = 1.8571
 >       top = 0.5
 >       width = 14.0
 >       height = 2.0
 >    endwith
 >
>    this.ENTRYFIELD1 = new ENTRYFIELD(this)
 >    with (this.ENTRYFIELD1)
 >       height = 1.0
 >       left = 4.0
 >       top = 5.0
 >       width = 29.0
 >       value = "Line one on display"
 >    endwith
 >
>    this.ENTRYFIELD2 = new ENTRYFIELD(this)
 >    with (this.ENTRYFIELD2)
 >       height = 1.0
 >       left = 4.0
 >       top = 7.5
 >       width = 29.0
 >       value = "Line two on display"
 >    endwith
 >
>    this.PUSHBUTTON1 = new PUSHBUTTON(this)
 >    with (this.PUSHBUTTON1)
 >       onClick = class::PUSHBUTTON1_ONCLICK
 >       height = 1.0909
 >       left = 12.0
 >       top = 11.0
 >       width = 15.2857
 >       text = "Display text"
 >    endwith
 >
>
>    function PUSHBUTTON1_onClick()
 >                 VerticalScrollMode = 18
 >                 NormalDisplayMode = 17
 >                 BrightnessControl  = 4
 >                 BackSpace  = 8
 >                 HorizontalTab = 9
 >                 LineFeed  = 10
 >                 CarriageReturn =  13
 >                 DigitSelect  = 16
 >                 CursorON  = 19
 >                 CursorOFF  = 20
 >                 Reset  = 31
 >                 MessageScroll_Start =  5
 >                 MessageScroll_Stop  = 10
 >                 oS = form.serialcomm1
 >                 oS.openPort('COM1',9600,'n',8,1)
 >                 oS.writeString(Reset)
 >                 os.writeString(CursorOFF)
 >                 oS.writeString(form.entryfield1.value+chr(13)+chr(10))
 >                 oS.writeString(form.entryfield2.value+chr(13)+chr(10))
 >                 oS.closePort()
 >                 return
 >
>  
 > endclass
 >