Да использовать надо printbin, иначе нули зажовывать будет.
Почитайте хелп в бэйсике про него, там через массив очень удобно контроллировать объёмы данных и позицию.

Можно создать массив (в Вашем случае из двух чисел) и передавать их в цикле For. Например так:
For i = 1 To 2
  Print Chislo(i);
Next
Правда это не очень хорошо. А можно так:
Printbin Chislo(1)

По поводу кода. Насколько я понял Вам нужно передавать инкремент и декремент числа 1 и 2.
Тогда код должен быть таким:

Dim W As Word , Channel As Byte , Chislo As Word , B1 As Word , Chislo2 As Word , B2 As Word


Do
 If Chislo = 0 Then
  For B1 = 1 To 50
   Incr Chislo
   Waitms 20
   Print Chislo
  Next
 End If

 If Chislo = 50 Then
  For B1 = 1 To 50
   Decr Chislo
   Waitms 20
   Print Chislo
  Next
 End If

 If Chislo2 = 0 Then
  For B2 = 1 To 100
   Incr Chislo2
   Waitms 10
   Print Chislo2
  Next
 End If

 If Chislo2 = 100 Then
  For B2 = 1 To 100
   Decr Chislo2
   Waitms 10
   Print Chislo2
  Next
 End If

Loop
End

В Вашем коде окончание операторов IF и FOR перепутаны местами.
В этом коде в СОМ будут последовательно переданы:
0, 1, 2 ... 49
49, 48, 47 ... 0
Второе число тоже самое , но от 0 до 99.
Числа 50 и 100 не будут достигнуты, т.к. цикл от 1 до 50 и от 1 до 100, а числа меняются от 0 до 49 и 99, соответственно.
Если хотите точно до 50 и до 100, то в каждом цикле нужно добавить по 1 в значение конца цикла. Т.е. например For B2 = 1 To 101.

Отредактировано sva-don (2011-12-23 16:40:53)

Так нельзя.
Массив должен быть ОДИН!

For Idx1 = 1 To 2                                          'fill part of array
  Chislo(idx1) = Idx1
Next

Printbin Chislo(1)

При этом будет передан весь массив Chislo(1) и Chislo(2)

Забыл отметить, что если написать так:
Printbin A(1), 5
То будут переданы первые 5 значений массива A().

Отредактировано sva-don (2011-12-23 16:51:37)

Это уже проблемы компилятора.
Главное, что он это делает.

Отредактировано sva-don (2011-12-23 17:15:08)

Думаю, что при проектировании архитектуры изделия программист и электронщик должны совместно определить протоколы ввода/вывода, поэтому объем данных передаваемых/принимаемых контроллером жестко определен. Понимаю, что бывают случаи, когда эти параметры невозможно определить заранее, но для этого и подходы к проектированию будут другими. Можно сказать, что в BASCOMе процессы обмена по СОМ выполнены весьма впечатляюще. За это Марку огромное спасибо. Если кто писал на С, то должен это оценить.

Не стал плодить новые темы, спрошу здесь . Подскажите кто в курсе , как узнать длину пакета UART т.е. сколько байт предстоит получить ? UART использую хардовый .

Спасибо sva-don, с Input правда у меня ничего не вышло , только через waitkey или inputbin. В пакетах походу только числа. Пакеты имеют такой формат: 11 03 02 50 00 С9 или так:  11 03 01 05 53 я так понимаю что 1-й это у нас заголовок 2-й адрес а 3-й байт и указывает на число байт кот. будет идти за ним , поледний по всей видимости контр.сумма. Приём у меня сделан пока так:
Dim  Rxt_1(8) As Byte
rx:
Inputbin Rxt_1(1)
Gosub Show_disp
return
Show_disp:
lcd                                 Rxt_1(1) Rxt_1(2) и т.д
на иникатор выводится:              СВ 00 АС 11 03 04 55 00
а если посмотреть в терминалке: 11 03 04 55 00 СВ 00 6В

Не могу ни как понять как реализуется приём пакета ? и почему один байт не совпадает ?

так у меня и нули в пакетах , тоже проходят , как с ними быть ?

Отредактировано dimon-790 (2012-02-02 12:05:13)

Поигрался с размерами буфера , вместо 50-ти поставил 8 теперь всё как должно быть по порядку  один в один с терминалкой. Но терзают смутуные сомнения , правильно ли я сделал а если надо буде принять  например 10-ть байт ?

промышленный контроллер , управляется по rs485 принимаю на своё уст-во на меге 8535

да, еслиб разработчик не зажимал-бы протокол , не было-бы и данной проблемы, впрочем длина буфера уже отошла на второй план. Счаз насущная проблема контр.сумма , как её расчитать ? никак не могу понять .

Отредактировано dimon-790 (2012-02-03 21:19:30)

ещё есть checksum, пробовал всё это , правда наскоком, пока безрезультатно...