Код: Выделить всё
Fpch1 = Frcvwork + Rcvpch1 'Частота = частота + промежуточнаяКод: Выделить всё
Dim Fpch1 As Word
Dim Frcvwork As Long
Действительно взрыв мозга 
Ладно попробую конечно еще что нибудь прикрутить в прогу 
Правда пока не придумал что и как 
ничего сложного, просто нужно понимать, что такое Byte, Word, Long, Integer - в родном хэлпе есть всё это. В начале программы объявляют переменные как Byte или Word - и под них в памяти устройства отводится место, фиксированное количество памяти, Байт это FF (255), ворд уже займет в два раза больше FFFF (65535) и так далее, т.е. определенное количество ячеек и больше не влезет - старшие байты просто потеряются.осторожно! леоныч!!! писал(а):Действительно взрыв мозга
Код: Выделить всё
dim Temp as Long
...........................
Temp = Frcvwork + Rcvpch1 'Частота = частота + промежуточная
Temp = Temp / 50 'Сумма частоты и промежуточной деленная на 50
Fpch1 = Tempа так не ?осторожно! леоныч!!! писал(а):но вот когда надо воткнуть запятую, это ппц...
Код: Выделить всё
Lcd Var1; ","; var2;" "осторожно! леоныч!!! писал(а):Неее... Проблема в том что переменная одна... К примеру в ней число 433000. Надо вывести его на дисплей так 433 запятая или точка и 000.
temp = 433573
Var1 = temp/1000 ' всё после запятой откинется само .т.е будет 433
Temp2 = var1 *1000 ' какая-то очередная промежуточная переменная - возвращаем обратно, будет 433000
var2 = temp-temp2 ' вторая переменная после запятой
с семисегментниками когда-нибудь работал ? тут как вариант то же самое. Берем var2 (то что после запятой) и раскладываем на 3 цифры.осторожно! леоныч!!! писал(а):Будем думать...
Код: Выделить всё
Dim dig1 as byte, dig2 as byte, dig3 as byte
а дальше раскидываем на цифери
dig1 = var2 / 100 ' т.е. 743/100 даст 7
dig2 = var2 mod 100 ' это остаток от деления на 100, т.е. 43 промежуточный этап исчесления
dig2 = dig2/10 ' это оконечная 4 , т.е. 43/10 , после запятой само откинется
dig3 = var2 mod 10 ' остаток от 743/10 будет искомая 3
'теперь вывод на дисплей выглядеть так будет
LCD var1; ","; dig1; dig2; dig3осторожно! леоныч!!! писал(а):Dim Dig1 As Byte , Dig2 As Byte , Dig3 As Byte как раз есть. Забыл про них. Извиняюсь.
все тогда Long попробуйтеосторожно! леоныч!!! писал(а):Нет. Бесполезно. Блин такая мелочь а столько с ней проблем. Ппц......
Код: Выделить всё
Dim Frcvwork As Long
Dim Var1 As Long
Dim Var2 As Word '
Dim Temp2 As Long
Dim Dig1 As Word , Dig2 As Word , Dig3 As Word
...................................................................
Var1 = Frcvwork / 1000
Temp2 = Var1 * 1000 '
Var2 = Frcvwork - Temp2
Dig1 = Var2 / 100
Dig2 = Var2 Mod 100
Dig2 = Dig2 / 10
Dig3 = Var2 Mod 10
Locate 2 , 1
Lcd Var1 ; "," ; Var2 ; " " ; Dig1 ; Dig2 ; Dig3 ; " "
Код: Выделить всё
S = "12345"
S = Format(s , "000.000")
Print S
Moto_v3x писал(а):осторожно! леоныч!!!
а через формат не пробовали:
Код: Выделить всё
Dim Strochka As String * 7 'переменная строчка из 7-ми символов
..........................................
Strochka = str (Frcvwork) ' это команда перевода числа в строчное значение
Strochka = Format(stroch , "000.000") ' а это уже форматируем наше строчное выражение
Locate 2 , 1 'ну и наконец выводим его на экран
Lcd Strochka