Controlling your World the Easy Way

Code: Select all

' Display the Voltage on P8 when it changes
PINMODE 8, ADC
OldAdc = 10
REPEAT
	'Now get updated value
	AdcNew = INADC( 8 )
	IF AdcNew < OldAdc-2 THEN
		PRINT "Lower Value : ", MAP( AdcNew, 0, 1023, 0.0, 3.3 )
	ENDIF
	IF AdcNew > OldAdc+2 THEN
		PRINT "Higher Value : ", MAP( AdcNew, 0, 1023, 0.0, 3.3 )
	ENDIF
	OldAdc = AdcNew

	WaitTime =  Gettick + 10000 'One second from now
	REPEAT
	  ' Do other things
	UNTIL Gettick > WaitTime
	
UNTIL INKEY > 0
END

Code: Select all

' INKEY
'
PRINT "Test INKEY"
PRINT "Type a character, Esc to quit ..."
PRINT ""
REPEAT
    REPEAT
        ' x=INKEY
        ' Returns the character code of the currently entered character on
        ' the terminal UART0, OR -1 IF no character is available.
        A=INKEY
    UNTIL A > -1
    PRINT CHR$(A),TAB(10),STR$(A), TAB(20), "0x",HEX$(A)
UNTIL A = 27
A=INKEY 'catch some leftover characters
A=INKEY 'from special keys such as F10 etc.
END

Code: Select all

    'This program is to demonstrate the how to write the data received on a communications port
    'to a file in JustBASIC
    'It is in no way intended to be useful for anything else. (or good programming)

nomainwin

WindowWidth = 400
WindowHeight = 300
texteditor #window.te, 0, 0, 391, 254     'The handle for our texteditor is #window.te
graphicbox #window.gb, 800, 1, 10, 10
open "kb" for window as #window           'The handle for our window is #window
print #window.gb, "when characterInput [getChar]"   'When the user presses a key go to [getChar]
print #window, "trapclose [quit]"    'When the user closes our terminal window, go to [quit]
print #window.te, "!autoresize";   'Tell the texteditor to resize with the terminal window
print #window, "font courier_new 9";

'Set the size of the communications buffer to 16K
Com = 8192 * 2

'Open the communications port.  It's handle is #comm.
'If you need to change the COM port, this is the line to modify
open "COM18:57600,n,8,1,ds0,cs0,rs" for random as #comm

'Create or Open a file
open "SerialLOG.TXT" for append as #out

goto [loop]

[getChar]

    'Whenever the user presses a key, we go here to process it.

    c$ = Inkey$
    'Send the character to the com port only if it is not a special keycode
    if len(c$) = 1 then print #comm, c$;
    goto [loop]


[loop]

    'This is where our program spends most of its time after a successful CONNECT

    'If we want to capture keystrokes from our graphicbox, then it always needs
    'to have the input focus.  The next line ensures that it always does.
    print #window.gb, "setfocus"

    inStr$ = input$(#comm, lof(#comm))    'Get com port data
    if inStr$ <> "" then gosub [LogStr]
    scan    'Check for input events

    goto [loop]

[LogStr]
    print #window.te, inStr$;    'Display com port data
    print #out, inStr$
    return

[quit]
    close #out
    close #window
    close #comm
    end

Code: Select all

<!--- This task is triggered by watching the teraterm.log file for change and responds...
This task takes serial data from the EzSBC1 controller and processes it to perform tasks on XP through Automate 5... --->
<AMVARIABLE NAME="log_data_"></AMVARIABLE>
<AMVARIABLE NAME="Log_data_Bytes_">0</AMVARIABLE>
<!--- Read log file and store in variable "log_data_"
Populate variable "Log_data_Bytes_" with the number of transmitted data bytes from the EzSBC1's terminal serial port... --->
<AMFILEREAD FILE="C:\__tasks\teraterm.log" RESULTVARIABLE="log_data_" MAXBYTES="100" BYTESVARIABLE="Log_data_Bytes_">
<!--- If data bytes = 0 then jump over tasks because we are starting the log file in teraterm to begin data processing... --->
<AMIF EXPRESSION="%Log_data_Bytes_% = 0">
     <AMGOTO LABELNAME="Start_Jump_">
</AMIF>
<!--- Process the contents of the log file...
Write the contents of the teraterm.log file to audit log file... --->
<AMFILEWRITE FILE="C:\__tasks\tom-2013.log">%log_data_%</AMFILEWRITE>
<!--- Close log file and delete log file... --->
<AMWINDOWFOCUS WINDOWTITLE="COM6:57600baud - Tera Term VT">
<!--- Send commands to close the teratem.log file and delete it... --->
<AMSENDKEY DELAYBETWEENKEYS="50">{ALT}fw{ENTER}</AMSENDKEY>
<AMFILEDELETE SOURCE="C:\__tasks\teraterm.log">
<AMWAITFORFILE ACTION="not_exist" FILE="C:\__tasks\teraterm.log">
<!--- Send commands to teraterm to start a new log file and wait for the next input from the EzSBC1 controller to trigger this task... --->
<AMSENDKEY DELAYBETWEENKEYS="50">{ALT}fl{DELAY 500}{ENTER}</AMSENDKEY>
<AMWINDOWMINIMIZE WINDOWTITLE="COM6:57600baud - Tera Term VT">
<!--- Now process the input from the teraterm.log file stored in the variable "log_data_"...
Create IF tasks based on specific commands here...::: --->
<AMIFCONTAINS TEXT="%log_data_%" SUBSTRING="c:\__tasks\meep.wav">
     <AMPLAYAUDIO FILE="c:\__tasks\meep.wav">
     <AMGOTO LABELNAME="skip_default_">
</AMIF>
<!--- If no specific command is sent the default is to speak the input from the EzSBC1 controller... --->
<AMSPEAK SPEED="40" ENGINE="sapi5">%log_data_%</AMSPEAK>
<AMLABEL LABELNAME="skip_default_">
<AMLABEL LABELNAME="Start_Jump_">
<AMWINDOWMINIMIZE WINDOWTITLE="COM6:57600baud - Tera Term VT">

Code: Select all

        'This program is to demonstrate the how to write the data received on a communications port
        'to a file in JustBASIC
        'It is in no way intended to be useful for anything else. (or good programming)

    nomainwin

    WindowWidth = 400
    WindowHeight = 300
    texteditor #window.te, 0, 0, 391, 254     'The handle for our texteditor is #window.te
    graphicbox #window.gb, 800, 1, 10, 10
    open "kb" for window as #window           'The handle for our window is #window
    print #window.gb, "when characterInput [getChar]"   'When the user presses a key go to [getChar]
    print #window, "trapclose [quit]"    'When the user closes our terminal window, go to [quit]
    print #window.te, "!autoresize";   'Tell the texteditor to resize with the terminal window
    print #window, "font courier_new 9";

    'Set the size of the communications buffer to 16K
    Com = 8192 * 2

    'Open the communications port.  It's handle is #comm.
    'If you need to change the COM port, this is the line to modify
    open "COM6:57600,n,8,1,ds0,cs0,rs" for random as #comm

    'Create or Open a file
    'open "c:\__tasks\SerialLOG.txt" for output as #out '<=== I rem'd out this line, RBSe

    goto [loop]

    [getChar]

        'Whenever the user presses a key, we go here to process it.

        c$ = Inkey$
        'Send the character to the com port only if it is not a special keycode
        if len(c$) = 1 then print #comm, c$;
        goto [loop]


    [loop]

        'This is where our program spends most of its time after a successful CONNECT

        'If we want to capture keystrokes from our graphicbox, then it always needs
        'to have the input focus.  The next line ensures that it always does.
        print #window.gb, "setfocus"

        inStr$ = input$(#comm, lof(#comm))    'Get com port data
        if inStr$ <> "" then gosub [LogStr]
        scan    'Check for input events

        goto [loop]

    [LogStr]
        print #window.te, inStr$;    'Display com port data
        open "c:\__tasks\SerialLOG.txt" for output as #out '<=== I added this line, RBSe
        print #out, inStr$
        close #out '<=== I added this line, RBSe
        return

    [quit]
        close #out
        close #window
        close #comm
        end