$regfile = «m8def.dat»
Правильно так:
Код: Выделить всё
$regfile = "m8def.dat"
Ну и в самом коде ошибки есть... Полно ошибок и опечаток. Не код а квест какой-то...
$regfile = «m8def.dat»
Код: Выделить всё
$regfile = "m8def.dat"
Opie писал(а):Вот скажите что не так? Сижу битый час не могу понять в чем проблема.Код: Выделить всё
$regfile = «m8def.dat»
$crystal = 8000000
'Настройка поттов
Config Portb = Output
Config Portc = Input
Config Portd = Output
'Подтяжки к портам
Set Portc.5
Set Portc.4
Выдает ошибку 101 на строчку
Config Portc = Input
И ошибку 41 на строчку
Set Portc.5
Часы с индикатором с ОА. Сам в этом Bascome не силен но код приблизительно понимаю.
Брал отсюда http://atmega.blog.ru/84807315.html
Код: Выделить всё
Config Portc = inputКод: Выделить всё
Cifri(2) = Cifri(1) * 10 ‘2 * 10 = 20
Cifri(2) = _hour — Cifri(2) ’21 – 20 = 1
Код: Выделить всё
If_hour = 24 Then_hour = 00

edm2007 писал(а):
Ну и в самом коде ошибки есть... Полно ошибок и опечаток. Не код а квест какой-то...
Opie писал(а):А ведь пишут заразы что работает
max50 писал(а):причем не правильно
Код: Выделить всё
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Config Serialin = Buffered , Size = 40
Print "111"
End
edm2007 писал(а):А и не надо их дружить, они и так неплохо знакомы.Все работает и в Протеусе:
Проверьте фьюзы и настройку терминала.
edm2007 писал(а):Ну так я показываю что все пракрасно и сейчас работает, из Протеуса же скрин. Ну посмотрите какой шрифт стоит, куча шрифтов кракозябры дает...
Passer писал(а):да похоже опять на си уйду ...хотя и винда х64 нужна
протеус не устанавливался, а просто папка взята с другого компьютера.
TRIOD писал(а):Вобщем при преобразовании строки типа "123.3" с помощью функции VAL в итоге получается 123.299995421.
Как сделать чтоб неполучать такие результы.
Заранее блогодарен.