ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 12.06.2025
Просмотров: 8232
Скачиваний: 1
© MCS Electronics, 1995-2007 |
|
'----------------------------------------------------------------------------- |
|
------------ |
: peek.bas |
'name |
|
'copyright |
: (c) 1995-2005, MCS Electronics |
'purpose |
: demonstrates PEEk, POKE, CPEEK, INP and OUT |
'micro |
: Mega162 |
'suited for demo |
: yes |
'commercial addon needed |
: no |
'-----------------------------------------------------------------------------
------------
$regfile = "m162def.dat" |
' specify the |
|
used micro |
' used crystal |
|
$crystal = 4000000 |
||
frequency |
' use baud rate |
|
$baud = 19200 |
||
$hwstack = 32 |
' default use 32 |
|
for the hardware stack |
' default use 10 |
|
$swstack = 10 |
||
for the SW stack |
' default use 40 |
|
$framesize = 40 |
||
for the frame space |
||
Dim I As Integer , B1 As Byte |
||
'dump internal memory |
'only 32 registers |
|
For I = 0 To 31 |
||
in AVR |
'get byte from |
|
B1 = Peek(i) |
||
internal memory |
"; |
|
Print Hex(b1) ; " |
||
'Poke I , 1 |
'write a value into memory |
|
Next |
'new line |
|
'be careful when writing into internal memory !! |
||
'now dump a part ofthe code-memory(program) |
||
For I = 0 To 255 |
'get byte from |
|
B1 = Cpeek(i) |
||
internal memory |
"; |
|
Print Hex(b1) ; " |
||
Next |
||
'note that you can not write into codememory!! |
||
Out &H8000 , 1 |
'write 1 into XRAM |
|
at address 8000 |
'return value from |
|
B1 = Inp(&H8000) |
||
XRAM |
||
Print B1 |
||
End
INPUTBIN
Action
Read binary data from the serial port.
Syntax
INPUTBIN var1 [,var2]
INPUTBIN #channel , var1 [,var2]
page -534-
© MCS Electronics, 1995-2007
Remarks
var1 |
The variable that is assigned with the characters from the serial port. |
var2 |
An optional second (or more) variable that is assigned with the data from |
the serial input stream. |
|
The channel is for use with the software UART routine and must be used with OPEN and CLOSE.
The number of bytes to read depends on the variable you use.
When you use a byte variable, 1 character is read from the serial port.
An integer will wait for 2 characters and an array will wait until the whole array is filled.
Note that the INPUTBIN statement doesn't wait for a <RETURN> but just for the number of bytes.
You may also specify an additional numeric parameter that specifies how many bytes will be read. This is convenient when you are filling an array.
Inputbin ar(1) , 4 ' will fill 4 bytes starting at index 1.
See also
PRINTBIN
Example
Dim A As Byte , C As Integer
Inputbin A , C 'wait for 3 characters
End
INPUTHEX
Action
Allows hexadecimal input from the keyboard during program execution.
Syntax
INPUTHEX [" prompt" ] , var[ , varn ]
Remarks
prompt An optional string constant printed before the prompt character.
Var,varn A numeric variable to accept the input value.
The INPUTHEX routine can be used when you have a RS-232 interface on your uP.
The RS-232 interface can be connected to a serial communication port of your computer.
This way you can use a terminal emulator and the keyboard as input device. You can also use the build in terminal emulator.
The input entered may be in lower or upper case (0-9 and A-F)
page -535-
© MCS Electronics, 1995-2007
If var is a byte then the input can be maximum 2 characters long.
If var is an integer/word then the input can be maximum 4 characters long. If var is a long then the input can be maximum 8 characters long.
In VB you can specify &H with INPUT so VB will recognize that a hexadecimal string is being used.
BASCOM implements a new statement: INPUTHEX. This is only to save code as otherwise also code would be needed for decimal conversion.
See also
INPUT , ECHO , INPUTBIN
Example
'----------------------------------------------------------------------------- |
|
------------ |
: input.bas |
'name |
|
'copyright |
: (c) 1995-2005, MCS Electronics |
'purpose |
: demo: INPUT, INPUTHEX |
'micro |
: Mega48 |
'suited for demo |
: yes |
'commercial addon needed |
: no |
'-----------------------------------------------------------------------------
------------
$regfile = "m48def.dat" |
' specify the used |
micro |
' used crystal |
$crystal = 4000000 |
|
frequency |
' use baud rate |
$baud = 19200 |
|
$hwstack = 32 |
' default use 32 |
for the hardware stack |
' default use 10 |
$swstack = 10 |
|
for the SW stack |
' default use 40 |
$framesize = 40 |
|
for the frame space |
|
Dim V As Byte , B1 As Byte |
|
Dim C As Integer , D As Byte |
|
Dim S As String * 15 |
|
Input "Use this to ask a question " , V |
'leave out for no |
Input B1 |
|
question |
|
Input "Enter integer " , C |
|
Print C |
|
Inputhex "Enter hex number (4 bytes) " , C |
|
Print C |
|
Inputhex "Enter hex byte (2 bytes) " , D |
|
Print D |
|
Input "More variables " , C , D |
|
Print C ; " " ; D |
|
Input C Noecho |
'supress echo |
Input "Enter your name " , S |
|
Print "Hello " ; S |
|
page -536- |