Программирование BASCOM
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » BASCOM » Вопросы-ответы » Помогите начинающему ATtiny13 (Хочу сделать таймер 58 мин - простоя ; 2 мин - работы)
Помогите начинающему ATtiny13
sillverДата: Четверг, 21.10.2010, 00:59 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 11
Статус: Offline
'///////////////////////////////////////////////////////////////////////////////
'// Òàéìåð âðåìåíè //
'// Compiler: Bascom 1.11.9.0 //
'// Programmer: //
'// Web: _____________________ //
'// Email: sillver@meta.ua //
'///////////////////////////////////////////////////////////////////////////////

Dim Minyt As Word
Dim Chas As Word
Dim Minyt1 As Word
Dim Chas1 As Word

Config Portb = Output

'----------------------------------
Do
For Minyt = 0 To 5 Step 1 'Step 1 => Speed
Portb = 0
For Chas = 0 To 6 Step 1 'Step 1 => Speed
Portb = 0
Waitms 1
Portb = 8
Waitms 1
Next Chas
Next Minyt
For Minyt1 = 0 To 2 Step 1 'Step 1 => Speed
Portb = 1
For Chas1 = 0 To 6 Step 1 'Step 1 => Speed
Portb = 1
Waitms 1
Portb = 9
Waitms 1
Next Chas1
Next Minyt1

Loop

End

секунды на порт3 управление на порт0
может кто подскажет в чем ошибка?

 
Форум » BASCOM » Вопросы-ответы » Помогите начинающему ATtiny13 (Хочу сделать таймер 58 мин - простоя ; 2 мин - работы)
Страница 1 из 11
Поиск:

Copyright Radan Studio © 2017