roboforum.ru

На странице wiki/GP2D12 приведена функция для работы с GP2D12
Function Sharp_d12(byval Adc_chanel As Byte) As Byte

Похоже, что там ошибка: возвращаемое значение должно быть объявлено как WORD, а не Byte, не так ли?

В man-е BASICa написано, что:
'Note that the same data type must be used !
'So when declared as an Integer function, the result can only be
'assigned with an Integer in this case.

Проблема разрешилась, и она не связана с этой функцией.
Вчера при экспериментах с этой функцией она иногда возвращала странные результаты. Работа следующего фрагмента:

Код: Выделить всё • Развернуть

Vout1 = Vout + B                                      
Print "Vout1:" ; Str(vout1)
Range = M / Vout1                                     
Print "Range:" ; Str(range)
Sharp_d12 = Range - K                                 
Print "Distance:" ; Str(sharp_d12)

приводила к таким результатам:

Код: Выделить всё • Развернуть

Vo:742
Vout1:702
Range:14
Distance:14
Sharp_d12 has returned:0 

Vo:283
Vout1:243
Range:41
Distance:0
Sharp_d12 has returned:0

После добавления в преамбулу программы директив:
$hwstack = 32
$swstack = 10
$framesize = 50
все заработало как должно. Жаль, что basic не предупреждает об этом. Это бы сэкономило время начинающих: то, что необходимо позаботиться о стеке в голову пришло не сразу