roboforum.ru

Дааа...
Заметно что на Синклере топтали кнопки.
БАСКОМ восхвален тем что у него входной код как у VisualBasic,
Подпрограмма начинается SUB ,а заканчивается END SUB,хотя возможно и такие команды компилятор переваривает.

И не видать что Вы стек инициализируете,
100% будет прога уходить в аут при первом же возврате из подпрограммы.

Я так понял прога чисто двигается на свет?

bodja писал(а):У вас кстати нет лекарства на БАСКОМ?

есть бэйсик от "Микроэлектроника" и лекарства,

там:

==========

-> Краткий Курс микроконтроллеры AVR - где взять примеры, куски кода ШИМ=PWM Servo LCD i2c 1-wire MotorControl - как сделать электронное устройство - основы электроники

и здесь на форуме.

Вот кстати более древний код, на нем робот ездил на свет объезжая препятствия основываясь на ИК-локаторе.


$regfile = "m8DEF.dat"
$baud = 1200
$crystal = 8000000
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40
Config Pind.4 = Output : Ir_led Alias Portd.4
Config Pind.5 = Output : Led Alias Portd.5 : Led = 1
Config Pind.2 = Input : Tsop Alias Pind.2
'Config Pinc.5 = Input
Dim Temp As Byte
Dim ГлазЛ As Word : ГлазЛ = 0
Dim ГлазП As Word : ГлазП = 0
Dim ГлазЛПрош As Word : ГлазЛПрош = 0
Dim ГлазППрош As Word : ГлазППрош = 0
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Pinb.1 = Output                                      ': Config Pinb.6 = Output             ': Pwml Alias Portb.1 : Pwml = 0
Config Pinb.2 = Output                                      ': Config Pinb.7 = Output             ': Pwmr Alias Portb.2 : Pwmr = 0
Config Pinc.0 = Output : РеверсЛ Alias Portc.0
Config Pinc.1 = Output : РеверсП Alias Portc.1
Dim Препятствие As Word
Dim ВремПерем1 As Word
Dim ВремПерем2 As Word
Препятствие = 0
Dim Направление As Byte : Направление = 0
Dim ШИМ As Byte
ШИМ = 150
Dim Нога As Byte : Нога = 100
Dim НогаЛ As Byte : НогаЛ = 0
Dim НогаП As Byte : НогаП = 0
Dim Скорость As Byte : Скорость = 0
Dim Зарядка As Long : Зарядка = 200
Wait 1
Start Adc
ГлазППрош = Getadc(7)
ГлазЛПрош = Getadc(6)
'ГлазЛ = Getadc(2) Напряж основ
'ГлазП = Getadc(3) Напряж двигат
Do
  Gosub Локатор
  If Препятствие = 0 Then
     Направление = 0
     Led = 1
     Gosub Вперед
     Decr Нога
     If Нога = 0 Then
        Gosub Стоп
        ГлазЛ = Getadc(7)
        ГлазП = Getadc(6)
        НогаЛ = 0
        НогаП = 0
        If ГлазЛ > ГлазП Then
           ВремПерем1 = ГлазЛ - ГлазП
           If ВремПерем1 > 10 Then НогаЛ = 40
        End If
        If ГлазП > ГлазЛ Then НогаП = 40
        If ГлазП = ГлазЛ Then
           НогаЛ = 20
           НогаП = 20
        End If
        If ГлазП < ГлазППрош Then
           ГлазППрош = ГлазП
        End If
        If ГлазЛ < ГлазЛПрош Then
           ГлазЛПрош = ГлазЛ
        End If
        If Зарядка = 0 Then
           Led = 0
           ВремПерем1 = 0
           If ГлазП > ГлазППрош Then
              ВремПерем1 = ГлазП - ГлазППрош
           End If
           ВремПерем2 = 0
           If ГлазЛ > ГлазЛПрош Then
              ВремПерем2 = ГлазЛ - ГлазЛПрош
           End If
           If ВремПерем1 < 30 Then
              If ВремПерем2 < 30 Then
                 Gosub Стоп
                 Wait 10
                 Зарядка = 200
                 Препятствие = 400
                 If Направление = 0 Then
                    Направление = Rnd(2) + 1
                 End If
              End If
           End If
        Else
           Decr Зарядка
        End If
        Нога = 100
     End If
  Else
     Led = 0
     НогаЛ = 0
     НогаП = 0
     If Направление = 1 Then Gosub Влево
     If Направление = 2 Then Gosub Вправо
     Decr Препятствие
  End If
Loop
Локатор:
For Temp = 1 To 20
  Ir_led = 1
  Waitus 18
  Ir_led = 0
  Waitus 17
Next
If Tsop = 0 Then
  Препятствие = 400
  If Направление = 0 Then
     Направление = Rnd(2) + 1
  End If
End If
Waitus 100
Return
Влево:
  РеверсЛ = 1
  РеверсП = 0
  Pwm1a = ШИМ + 38
  Pwm1b = ШИМ + 20
Return
Вправо:
  РеверсЛ = 0
  РеверсП = 1
  Pwm1a = ШИМ + 38
  Pwm1b = ШИМ + 20
Return
Вперед:
  РеверсЛ = 0
  РеверсП = 0
  Скорость = ШИМ + 18
  Скорость = Скорость + НогаП
  Pwm1a = Скорость
  Скорость = ШИМ + НогаЛ
  Pwm1b = Скорость
Return
Стоп:
РеверсЛ = 0
РеверсП = 0
Pwm1a = 0
Pwm1b = 0
Return

это импульсный преобразователь который из низкого делает  более высокое напряжение, я например использую очень распространенную MC34063 в стандартной схеме включения. Мне нравиться

P.S. нет тебе прощенья, только кровь смоет твой позор.

там и ответил