FULLDUPLEXSERIAL_TEST2
Table of Contents |
FullDuplexSerial_Test2Object file: FullDuplexSerial_Test2.spin Version: 1.2 Date: 2006 - 2011 Author: Daniel Harris Company: Parallax Semiconductor Email: dharris@parallaxsemiconductor.com Licensing: MIT License - see end of file for terms of use. Revision History: v1.2 - 9/12/2011 Made the test a bit more complete and corrected some comment typos. v1.1 - 5/1/2011 Original test file
Global CONstantsSOURCE CODE... 'Set up the clock mode _clkmode = xtal1 + pll16x _xinfreq = 5_000_000 '5 MHz clock * 16x PLL = 80 MHz system clock speed Used OBJects
FullDuplexSerial_Test2.spin
│
└──FullDuplexSerial_rr004.spin
SOURCE CODE... serial : "FullDuplexSerial_rr004" PUBlic Spin MethodsMainStarts execution This test program attempts to test all aspects of the FullDuplexSerial object. It executs each public method call provided by FullDuplexSerial. Set your terminal to a baud rate of 9600 baud to see the output. parameters: none return: none example usage: N/A - executes on startup SOURCE CODE... PUB Main | i
'start the FullDuplexSerial object
serial.Start(31, 30, %0000, 9_600) 'requires 1 cog for operation
repeat 5 'small loop to pause the Propeller's exection for 5 seconds.
Wait_1_Second
serial.Tx($10)
serial.Str(STRING("Testing the FullDuplexSerial object.")) 'print a test string
PrintNewLine
PrintHorizontalLine
serial.Str(@test_string) 'print the string defined in the DAT section below
PrintNewLine
serial.Dec(test_dec) 'print the test decimal number
PrintNewLine
serial.Hex(test_hex, 8) 'print the test hexadecimal number, 8 hex characters
PrintNewLine
serial.Bin(test_bin, 32) 'print the test binary number, 32 bits
PrintNewLine
PrintHorizontalLine
serial.Str(STRING("Now Testing RX functionality"))
PrintNewLine
serial.Str(STRING("Blocking until you press the letter 'r'"))
PrintNewLine
repeat until (i := serial.Rx) == "r" 'wait here until an "r" character is received
serial.Str(STRING(13, "You just pressed the letter "))
serial.Tx(i)
PrintNewLine
Wait_1_Second
repeat
Wait_1_Second
serial.Str(STRING("Looping until you press the letter 'q'"))
PrintNewLine
i := serial.RxCheck
if i == "q" 'leave the loop when "q" is received
quit
serial.Str(STRING(13, "You just pressed the letter "))
serial.Tx(i)
PrintNewLine
serial.Str(STRING("On the count of 3, press any key in five seconds or less"))
PrintNewLine
Wait_1_Second
repeat i from 1 to 3
serial.Dec(i)
repeat 2
serial.Tx(".")
Wait_1_Second
serial.Str(STRING("Go!"))
PrintNewLine
serial.RxFlush 'tests RxFlush. If a user pressed a key while
'the program was counting, a byte would be in the
'buffer. This makes sure the buffer is clear.
i := serial.RxTime(5000) 'wait 5000 ms for a byte to be received
PrintNewLine
if i > 0 'if a byte was received, then print it
serial.Str(STRING("You just pressed "))
serial.Tx(i)
else 'otherwise, report no key presses.
serial.Str(STRING("You didn't press a key in time."))
PrintNewLine
serial.Str(STRING("All Done!")) 'all done with our tests
Wait_1_Second
serial.Stop 'Stop the object
PrintNewLine
Prints a newline character to the terminal.
parameters: none
return: none
example usage: PrintNewLine
SOURCE CODE... PUB PrintNewLine serial.Tx($0D) 'ASCII 13 = carriage return PrintHorizontalLine
Prints a horizontal bar of equal signs to the terminal.
parameters: none
return: none
example usage: PrintHorizontalLine
SOURCE CODE... PUB PrintHorizontalLine
repeat 50 'print a line of "="
serial.Tx("=")
PrintNewLine
Wait_1_Second
Pauses the calling cog's execution for approximately one second.
parameters: none
return: none
example usage: Wait_1_Second
SOURCE CODE... PUB Wait_1_Second waitcnt(cnt + clkfreq) Global Static DATaSOURCE CODE... 'Pre-initialized Global Variables test_string byte "This is a null-terminated string", 0 test_dec long -1_234_567_890 test_hex long $AA_FF_43_21 test_bin long %1110_0011_0000_1100_1111_1010_0101_1111 License┌──────────────────────────────────────────────────────────────────────────────────────┐ │ TERMS OF USE: MIT License │ ├──────────────────────────────────────────────────────────────────────────────────────┤ │Permission is hereby granted, free of charge, to any person obtaining a copy of this │ │software and associated documentation files (the "Software"), to deal in the Software │ │without restriction, including without limitation the rights to use, copy, modify, │ │merge, publish, distribute, sublicense, and/or sell copies of the Software, and to │ │permit persons to whom the Software is furnished to do so, subject to the following │ │conditions: │ │ │ │The above copyright notice and this permission notice shall be included in all copies │ │or substantial portions of the Software. │ │ │ │THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, │ │INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A │ │PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT │ │HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF │ │CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE │ │OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │ └──────────────────────────────────────────────────────────────────────────────────────┘ |