(Difference between revisions)
| Line 155: | Line 155: | ||
= <span class="f_Header">Example</span><br/> = | = <span class="f_Header">Example</span><br/> = | ||
| − | + | <div dir="ltr" class="mw-geshi mw-code mw-content-ltr"><div class="php source-php"><pre class="de1"><span class="st_h">'----------------------------------------------------------------------------------------- | |
| − | < | + | |
| − | + | '</span>name <span class="sy0">:</span> <span class="kw1">print</span><span class="sy0">.</span>bas | |
| − | <span | + | |
| − | + | <span class="st_h">'copyright : (c) 1995-2005, MCS Electronics | |
| − | <span | + | |
| − | + | '</span>purpose <span class="sy0">:</span> demo<span class="sy0">:</span> <span class="kw1">PRINT</span><span class="sy0">,</span> HEX | |
| − | <span | + | |
| − | + | <span class="st_h">'micro : Mega48 | |
| − | <span | + | |
| − | + | '</span>suited <span class="kw1">for</span> demo <span class="sy0">:</span> yes | |
| − | <span | + | |
| − | + | <span class="st_h">'commercial addon needed : no | |
| − | <span | + | |
| − | + | '</span><span class="sy0">-----------------------------------------------------------------------------------------</span> | |
| − | <span | + | |
| − | + | | |
| − | + | | |
| − | + | <span class="re0">$regfile</span> <span class="sy0">=</span> <span class="st0">"m48def.dat"</span> <span class="st_h">' specify the used micro | |
| − | <span | + | |
| − | + | $crystal = 4000000 '</span> used crystal frequency | |
| − | + | | |
| − | + | <span class="re0">$baud</span> <span class="sy0">=</span> <span class="nu0">19200</span> <span class="st_h">' use baud rate | |
| − | <span | + | |
| − | + | $hwstack = 32 '</span> <span class="kw1">default</span> <span class="kw2">use</span> <span class="nu0">32</span> <span class="kw1">for</span> the hardware stack | |
| − | <span | + | |
| − | + | <span class="re0">$swstack</span> <span class="sy0">=</span> <span class="nu0">10</span> <span class="st_h">' default use 10 for the SW stack | |
| − | <span | + | |
| − | + | $framesize = 40 '</span> <span class="kw1">default</span> <span class="kw2">use</span> <span class="nu0">40</span> <span class="kw1">for</span> the frame space | |
| − | <span | + | |
| − | + | | |
| − | + | | |
| − | + | Dim A <span class="kw1">As</span> Byte <span class="sy0">,</span> B1 <span class="kw1">As</span> Byte <span class="sy0">,</span> C <span class="kw1">As</span> Integer <span class="sy0">,</span> S <span class="kw1">As</span> String <span class="sy0">*</span> <span class="nu0">4</span> | |
| − | + | | |
| − | + | A <span class="sy0">=</span> <span class="nu0">1</span> | |
| − | + | | |
| − | + | <span class="kw1">Print</span> <span class="st0">"print variable a "</span> <span class="sy0">;</span> A | |
| − | <span | + | |
| − | + | <span class="kw1">Print</span> <span class="st_h">'new line | |
| − | <span | + | |
| − | + | Print "Text to print." '</span><span class="kw3">constant</span> to <span class="kw1">print</span> | |
| − | <span | + | |
| − | + | | |
| − | + | | |
| − | + | | |
| − | + | | |
| − | + | B1 <span class="sy0">=</span> <span class="nu0">10</span> | |
| − | + | | |
| − | + | <span class="kw1">Print</span> Hex<span class="br0">(</span>b1<span class="br0">)</span> <span class="st_h">'print in hexa notation | |
| − | <span | + | |
| − | + | C = &HA000 '</span>assign value to c<span class="sy0">%</span> | |
| − | + | | |
| − | + | <span class="kw1">Print</span> Hex<span class="br0">(</span>c<span class="br0">)</span> <span class="st_h">'print in hex notation | |
| − | <span | + | |
| − | + | Print C '</span><span class="kw1">print</span> in decimal notation | |
| − | + | | |
| − | + | | |
| − | + | | |
| − | + | C <span class="sy0">=</span> <span class="sy0">-</span><span class="nu0">32000</span> | |
| − | + | | |
| − | + | <span class="kw1">Print</span> C | |
| − | <span | + | |
| − | + | <span class="kw1">Print</span> Hex<span class="br0">(</span>c<span class="br0">)</span> | |
| − | <span | + | |
| − | + | Rem Note That Integers <span class="kw3">Range</span> From <span class="sy0">-</span><span class="nu0">32767</span> To <span class="nu0">32768</span> | |
| − | <span | + | |
| − | + | | |
| − | + | | |
| − | + | <span class="kw1">Print</span> <span class="st0">"You can also use multiple"</span> _ | |
| − | <span | + | |
| − | + | <span class="sy0">;</span> <span class="st0">"lines using _"</span> | |
| − | <span | + | |
| − | + | <span class="kw1">Print</span> <span class="st0">"use it for long lines"</span> | |
| − | <span | + | |
| − | + | <span class="st_h">'From version 1.11.6.4 : | |
| − | <span | + | |
| − | + | A = &B1010_0111 | |
| − | + | | |
| − | + | Print Bin(a) | |
| − | + | | |
| − | + | S = "1001" | |
| − | + | | |
| − | + | A = Binval(s) | |
| − | + | | |
| − | + | Print A '</span><span class="nu0">9</span> dec | |
| − | <span | + | |
| − | + | <span class="kw3">End</span></pre></div></div> | |
| − | < | + | <br/><br/><br/>{{Languages}} |
| − | + | ||
| − | + | ||
| − | + | ||
| − | <br/>{{Languages}} | + | |
[[Category:BASCOM Language Reference]] | [[Category:BASCOM Language Reference]] | ||
Revision as of 23:06, 30 January 2013
Contents |
Action
Send output to the UART.
Writes a string to a file.
Writes data to a device.
Syntax
PRINT [#channel , ] var ; " constant"
Remarks
|
Var |
The variable or constant to print. |
You can use a semicolon (;) to print multiple variables or constants after each other.
When you end a line with a semicolon, no linefeed and carriage return will be added.
The PRINT routine can be used when you have a RS-232 interface on your processor.
The RS-232 interface can be connected to a serial communication port of your computer.
This way you can use a terminal emulator as an output device.
You can also use the build in terminal emulator.
When using RS-485 you can use CONFIG PRINT to set up a pin for the direction.
When printing arrays, you can only print one element at the time. When you need to print the content of a complete array, you need to use PRINTBIN.
PRINT will automatic convert numeric variables into the string representation.
This means that when you have a byte variable named B with the value of 123, the numeric variable is converted into a string "123" and then printed.
In this case, print will print 3 characters or bytes. When you want to print the byte you can use the chr() function : print chr(b);
This will send just one byte to the UART.
You can connect the processors UART (TX/RX pins) to a MAX232, an FTDI232RL, a Bluetooth module or a GPS modem. Always check the logic level vcc of the UART and the device you connect to. Connecting 5V devices to a 3v3 device might damage the 3v3 device.
A serial port can be used to update firmware with a so called boot loader.
AVR-DOS
The AVR-DOS file system also supports PRINT. But in that case, only strings can be written to disk.
When you need to print to the second hardware UART, or to a software UART, you need to specify a channel : PRINT #1, "test"
The channel must be opened first before you can print to it. Look at OPEN and CLOSE for more details about the optional channel. For the first hardware UART, there is no need to use channels. The default for PRINT without a channel specifier, is the first UART.
So : PRINT " test" will always use the first hardware UART.
Xmega-SPI
When sending data to the SPI interface, you need to activate the SS pin. Some chips might need an active low, others might need an active high. This will depends on the slave chip.
When you use the SS=AUTO option, the level of SS will be changed automatic. Thus SS is made low, then the data bytes are sent, and finally , SS is made high again.
For SPI, no CRLF will be sent. Thus a trailing ; is not needed.
SPI Number of Bytes
The compiler will send 1 byte for variable which was dimensioned as a BYTE.
It will send 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.
As with all routines in BASCOM, the least significant Byte will be send first.
When you send a numeric constant, the binary value will be sent : 123 will be send a 1 byte with the value of 123.
If you send an array element, one element will be send.
With an optional parameter you can provide how many bytes must be sent. You must use a comma (,) to specify this parameter. This because the semi colon (;) is used to send multiple variables.
Sample
Dim Tmparray(5) As Byte , Spi_send_byte As Byte , W as Word
Config Spid = Hard , Master = Yes , Mode = 0 , Clockdiv = Clk32 , Data_order = Msb , Ss = Auto
Open "SPID" For Binary As #12
Print #12 , Spi_send_byte ; W ' send ONE BYTE and 2 bytes of W
Print #12 , Tmparray(1) , 2 ' send 2 bytes of tmparray, starting at element 1
Print #12 , Tmparray(1) ' send 1 byte
Print #12 , Tmparray(3) , 2 ' send 2 bytes starting at index 3
Print #12 , 123 ; 1000 ; Tmparray(1) , B ' send byte with value 123, 2 bytes with value 1000, and 'b' bytes of array
See also
INPUT , OPEN , CLOSE , SPC , PRINTBIN , HEX, BIN
Example
<span class="st_h">'----------------------------------------------------------------------------------------- '</span>name <span class="sy0">:</span> <span class="kw1">print</span><span class="sy0">.</span>bas <span class="st_h">'copyright : (c) 1995-2005, MCS Electronics '</span>purpose <span class="sy0">:</span> demo<span class="sy0">:</span> <span class="kw1">PRINT</span><span class="sy0">,</span> HEX <span class="st_h">'micro : Mega48 '</span>suited <span class="kw1">for</span> demo <span class="sy0">:</span> yes <span class="st_h">'commercial addon needed : no '</span><span class="sy0">-----------------------------------------------------------------------------------------</span> <span class="re0">$regfile</span> <span class="sy0">=</span> <span class="st0">"m48def.dat"</span> <span class="st_h">' specify the used micro $crystal = 4000000 '</span> used crystal frequency <span class="re0">$baud</span> <span class="sy0">=</span> <span class="nu0">19200</span> <span class="st_h">' use baud rate $hwstack = 32 '</span> <span class="kw1">default</span> <span class="kw2">use</span> <span class="nu0">32</span> <span class="kw1">for</span> the hardware stack <span class="re0">$swstack</span> <span class="sy0">=</span> <span class="nu0">10</span> <span class="st_h">' default use 10 for the SW stack $framesize = 40 '</span> <span class="kw1">default</span> <span class="kw2">use</span> <span class="nu0">40</span> <span class="kw1">for</span> the frame space Dim A <span class="kw1">As</span> Byte <span class="sy0">,</span> B1 <span class="kw1">As</span> Byte <span class="sy0">,</span> C <span class="kw1">As</span> Integer <span class="sy0">,</span> S <span class="kw1">As</span> String <span class="sy0">*</span> <span class="nu0">4</span> A <span class="sy0">=</span> <span class="nu0">1</span> <span class="kw1">Print</span> <span class="st0">"print variable a "</span> <span class="sy0">;</span> A <span class="kw1">Print</span> <span class="st_h">'new line Print "Text to print." '</span><span class="kw3">constant</span> to <span class="kw1">print</span> B1 <span class="sy0">=</span> <span class="nu0">10</span> <span class="kw1">Print</span> Hex<span class="br0">(</span>b1<span class="br0">)</span> <span class="st_h">'print in hexa notation C = &HA000 '</span>assign value to c<span class="sy0">%</span> <span class="kw1">Print</span> Hex<span class="br0">(</span>c<span class="br0">)</span> <span class="st_h">'print in hex notation Print C '</span><span class="kw1">print</span> in decimal notation C <span class="sy0">=</span> <span class="sy0">-</span><span class="nu0">32000</span> <span class="kw1">Print</span> C <span class="kw1">Print</span> Hex<span class="br0">(</span>c<span class="br0">)</span> Rem Note That Integers <span class="kw3">Range</span> From <span class="sy0">-</span><span class="nu0">32767</span> To <span class="nu0">32768</span> <span class="kw1">Print</span> <span class="st0">"You can also use multiple"</span> _ <span class="sy0">;</span> <span class="st0">"lines using _"</span> <span class="kw1">Print</span> <span class="st0">"use it for long lines"</span> <span class="st_h">'From version 1.11.6.4 : A = &B1010_0111 Print Bin(a) S = "1001" A = Binval(s) Print A '</span><span class="nu0">9</span> dec <span class="kw3">End</span>
| Languages | English • Deutsch |
|---|