'******************************Настройки****************************************
Dim ПодтверждениеРаботыТерминала As Bit , Tim As Integer , T As Integer
Dim ВнешнииПодключения As Byte , ВключениеМоторов As Byte
Tim = 500
'***************************Работа в терминале**********************************
Print : Print "***************************{144}{160}{161}{174}{226}{160} {162} {226}{165}{224}{172}{168}{173}{160}{171}{165}**********************************"
Print : Print "Hello. I am Robbe." : Waitms Tim
$timeout = 5000000                    'ждём ввода команды 5 секунд
Input , ПодтверждениеРаботыТерминала
If ПодтверждениеРаботыТерминала = 1 Then : Goto РаботаТерминала : Else : Print "Perexod k osnovnoi programme" : Goto ОсновнаяПрограмма : End If
' если ввели команду 1, значит работаем в терминале иначе переход в основную программу
Do
РаботаТерминала:
$timeout = 100000000 : Print : Input "Chto testiryem? " , ВнешнииПодключения
Print "Ok," ; ВнешнииПодключения
If ВнешнииПодключения = 1 Then : Wait 5 : Goto ОсновнаяПрограмма
Elseif ВнешнииПодключения = 2 Then : Gosub ТестируемДальномеры
Elseif ВнешнииПодключения = 3 Then : Gosub ВариантыДвижений
Else : Print : Print "Error. Nevernai komanda" : End If
Loop
'*********************Выполняемые команды в терминале***************************
ТестируемДальномеры:
Print : Print "Proverka dal'nomerov"
Return

'*******************************************************************************

'******************************* ************************************************
ВариантыДвижений:
Print : Print "Proverka motorov"
Wait 1 : Print "Perechen' komand:" : Print "0-K rabote terminala, posle vvoda komandi  enter"
Print "1-Stop v techenii" : Print "2-Vpered" : Print "3-VperedVpravo"
Print "4-VperedVlevo" : Print "5-Nazad" : Print "6-NazadVpravo"
Print "7-NazadVlevo" : Print "8-RazvorotVpravo" : Print "9-RazvorotVlevo"
Do
$timeout = 100000000
Gosub Стоп
Print : Input "Vvedi komandy napravleni and dlitel'nost' " , ВключениеМоторов , T
If ВключениеМоторов = 1 Then : Print "Stop v techenii " ; T ; " sekynd" : Gosub Стоп : Wait T
Elseif ВключениеМоторов = 2 Then : Print "Vpered v techenii " ; T ; " sekynd" : Gosub Вперёд : Wait T
Elseif ВключениеМоторов = 3 Then : Print "VperedVpravo v techenii " ; T ; " sekynd" : Gosub Вперёд_вправо : Wait T
Elseif ВключениеМоторов = 4 Then : Print "VperedVlevo v techenii " ; T ; " sekynd" : Gosub Вперёд_влево : Wait T
Elseif ВключениеМоторов = 5 Then : Print "Nazad v techenii " ; T ; " sekynd" : Gosub Назад : Wait T
Elseif ВключениеМоторов = 6 Then : Print "NazadVpravo v techenii " ; T ; " sekynd" : : Gosub Назад_вправо : Wait T
Elseif ВключениеМоторов = 7 Then : Print "NazadVlevo v techenii " ; T ; " sekynd" : Gosub Назад_влево : Wait T
Elseif ВключениеМоторов = 8 Then : Print "RazvorotVpravo v techenii " ; T ; " sekynd" : Gosub Разворот_вправо : Wait T
Elseif ВключениеМоторов = 9 Then : Print "RazvorotVlevo v techenii " ; T ; " sekynd" : Gosub Разворот_влево : Wait T
Elseif ВключениеМоторов = 0 Then : Gosub РаботаТерминала : End If
Loop
'*******************************************************************************

Dim Volt As Single , Volt1 As Single , Volt2 As Single , Напряжение_Акб As Single
Dim Procent As Integer , Коифицент As Single
'*******************************************************************************

Do
Akb:

Start Adc : Акб = Getadc(0) : Stop Adc
Коифицент = 45 / 2
Volt = Коифицент * Акб
Volt1 = Volt * 10
Volt2 = Volt1 / 1023
Напряжение_Акб = Volt2 / 10
Procent = Volt2 + 15

If Акб > 375 Then : Gosub 1 : Else : Gosub 2 : End If
Input , Q
If Q = 1 Then : Goto РаботаТерминала : End If
Loop
1:
Print : Print "Заряд аккумулятора 100%" : Waitms 500
Return
2:
Print : Print "1-Возврат" : Print "Заряд аккумулятора состовляет " ; Procent ; "%"
Print Напряжение_Акб ; " Вольт" : Waitms 500
Return

'*******************************************************************************