Технический форум по робототехнике.
' Указываем какой версии у нас МиниБот
Const Device = 1 'MiniBot Version 1 or 2
$regfile = "m32def.dat" ' файл спецификации Меги32
#if Device = 1
' Set configuration for MB1
$prog &HFF , &HE4 , &HD9 , &H00 'указываем какие фусибиты надо прошить
$crystal = 8000000 ' указываем на какой частоте будем работать
$baud = 9600 ' указываем частоту дла usart (теперь нужно только для отладки программы)
#else
' Set configuration for MB2
' $prog &HFF , &HBD , &HC9 , &H00 'указываем какие фусибиты надо прошить
$crystal = 7372800 ' указываем на какой частоте будем работать
$baud = 115200 ' указываем частоту дла usart (теперь нужно только для отладки программы)
#endif
$hwstack = 128
$swstack = 128
$framesize = 128
$regfile = "m32def.Dat"
$crystal = 7372000
$baud = 115200
$include "LCD_Siemens_S65.cfg"
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim W As Word , J As Single
Cls
Box(0 , 0) ,(176 , 131) , White
Do
Lcdat 1 , 0 , " SHOP.MiniBot.RU" , Blue , White
Lcdat 8 , 0 , "" , Blue , White
Start Adc : W = Getadc(7) : Stop Adc : J = W / 475 : J = J * 2
Lcdat 16 , 0 , "Akb=" ; J , 0 , 255
Lcdat 24 , 0 , "4 строка" , Blue , White
Lcdat 32 , 0 , "5 строка" , Blue , White
Lcdat 40 , 0 , "6 строка" , Blue , White
Lcdat 48 , 0 , "7 строка" , Blue , White
Lcdat 56 , 0 , "8 строка" , Blue , White
Lcdat 64 , 0 , "9 строка" , Blue , White
Lcdat 72 , 0 , "10 строка" , Blue , White
Lcdat 80 , 0 , "11 строка" , Blue , White
Lcdat 88 , 0 , "12 строка" , Blue , White
Lcdat 96 , 0 , "13 строка" , Blue , White
Lcdat 104 , 0 , "14 строка" , Blue , White
Lcdat 112 , 0 , "15 строка" , Blue , White
Lcdat 120 , 0 , "16 строка" , Blue , White
Lcdat 128 , 0 , "17 строка" , Blue , White
Lcdat 136 , 0 , "18 строка" , Blue , White
Lcdat 142 , 0 , "19 строка" , Blue , White
Lcdat 150 , 0 , "20 строка" , Blue , White
Lcdat 158 , 0 , "21 строка" , Blue , White
Lcdat 166 , 0 , "22 строка" , Blue , White
Wait 1
Loop