Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VBA]Управление LPT 
:(
    Опции темы
STRIKER221
Дата 24.9.2008, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
Цитата(kapbepucm @  24.9.2008,  12:34 Найти цитируемый пост)
Чтобы понять, где ошибка, опубликуйте, пожалуйста, полный код.


Код

Sub clock3()
Dim M
Dim H
M = Minute(Time)
H = Hour(Time)
t = 500
Do
Select Case H
Case 0, 12
Select Case M
Case 0 To 4
 Out &H378, 0
Out &H37A, 11
Out &H378, 8
Sleep t
Out &H378, 0
Sleep t
 Case 5 To 9
  Out &H378, 0
Out &H37A, 11
Out &H378, 24
Sleep t
Out &H378, 8
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H378, 40
Sleep t
Out &H378, 8
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H378, 72
Sleep t
Out &H378, 8
Sleep t
Case 20 To 24
Out &H378, 0
Out &H37A, 11
Out &H378, 136
Sleep t
Out &H378, 8
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 8
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H378, 8
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 8
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 8
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 9
Sleep t
Out &H378, 8
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H378, 10
Sleep t
Out &H378, 8
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H378, 12
Sleep t
Out &H378, 8
Sleep t
End Select




Case 1, 13
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H378, 24
Sleep t
Out &H378, 16
Sleep t
 Case 5 To 9
  Out &H378, 0
Out &H37A, 11
Out &H378, 16
Sleep t
Out &H378, 0
Sleep t
Case 10 To 14
 Out &H378, 0
Out &H37A, 11
Out &H378, 48
Sleep t
Out &H378, 16
Sleep t
Case 15 To 19
 Out &H378, 0
Out &H37A, 11
Out &H378, 96
Sleep t
Out &H378, 32
Sleep t
Case 20 To 24
Out &H378, 0
Out &H37A, 11
Out &H378, 144
Sleep t
Out &H378, 16
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 16
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
DoEvents
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H378, 16
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 16
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 16
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 17
Sleep t
Out &H378, 16
Sleep t
Case 50 To 54
 Out &H378, 0
Out &H37A, 11
Out &H378, 18
Sleep t
Out &H378, 16
Sleep t
Case 55 To 59
 Out &H378, 0
Out &H37A, 11
Out &H378, 20
Sleep t
Out &H378, 16
Sleep t
End Select





Case 2, 14
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H378, 40
Sleep t
Out &H378, 32
Sleep t
 Case 5 To 9
 Out &H378, 0
Out &H37A, 11
Out &H378, 48
Sleep t
Out &H378, 32
Sleep t
Case 10 To 14
 Out &H378, 0
Out &H37A, 11
Out &H378, 32
Sleep t
Out &H378, 0
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H378, 96
Sleep t
Out &H378, 32
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H378, 160
Sleep t
Out &H378, 32
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 32
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
DoEvents
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H378, 32
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 32
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 32
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 33
Sleep t
Out &H378, 32
Sleep t
Case 50 To 54
 Out &H378, 0
Out &H37A, 11
Out &H378, 34
Sleep t
Out &H378, 32
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H378, 36
Sleep t
Out &H378, 32
Sleep t
End Select




Case 3, 15
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H378, 72
Sleep t
Out &H378, 64
Sleep t
 Case 5 To 9
 Out &H378, 0
Out &H37A, 11
Out &H378, 80
Sleep t
Out &H378, 64
Sleep t
Case 10 To 14
 Out &H378, 0
Out &H37A, 11
Out &H378, 96
Sleep t
Out &H378, 64
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H378, 64
Sleep t
Out &H378, 0
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H378, 192
Sleep t
Out &H378, 64
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 64
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
DoEvents
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H378, 64
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 64
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 64
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 65
Sleep t
Out &H378, 64
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H378, 66
Sleep t
Out &H378, 64
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H378, 68
Sleep t
Out &H378, 64
Sleep t
End Select








Case 4, 16
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H378, 136
Sleep t
Out &H378, 128
Sleep t
 Case 5 To 9
 Out &H378, 0
Out &H37A, 11
Out &H378, 144
Sleep t
Out &H378, 128
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H378, 160
Sleep t
Out &H378, 128
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H378, 192
Sleep t
Out &H378, 128
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H378, 128
Sleep t
Out &H378, 0
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 128
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H37A, 24
Sleep t
Out &H37A, 10
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 128
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 128
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 129
Sleep t
Out &H378, 128
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H378, 130
Sleep t
Out &H378, 128
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H378, 132
Sleep t
Out &H378, 128
Sleep t
End Select




Case 5, 17
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 8
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
 Case 5 To 9
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 16
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 32
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 64
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 128
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
DoEvents
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H37A, 8
Sleep t
Out &H37A, 10
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H37A, 14
Sleep t
Out &H37A, 10
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H37A, 18
Sleep t
Out &H37A, 10
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 1
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 2
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H37A, 10
Out &H378, 4
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
End Select




Case 6, 18
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 8
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
 Case 5 To 9
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 16
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 32
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 64
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 128
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H37A, 8
Sleep t
Out &H37A, 9
Sleep t
DoEvents
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H37A, 13
Sleep t
Out &H37A, 9
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H37A, 17
Sleep t
Out &H37A, 9
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 1
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 2
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H37A, 9
Out &H378, 4
Sleep t
Out &H378, 0
Out &H37A, 9
Sleep t
End Select





Case 7, 19
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 8
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
 Case 5 To 9
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 16
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 32
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 64
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 128
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H37A, 14
Sleep t
Out &H37A, 11
Out &H37A, 15
Sleep t
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H37A, 13
Sleep t
Out &H37A, 11
Out &H37A, 15
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H37A, 7
Sleep t
Out &H37A, 11
Out &H37A, 15
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 1
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 2
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H37A, 15
Out &H378, 4
Sleep t
Out &H378, 0
Out &H37A, 15
Sleep t
End Select




Case 8, 20
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 8
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
 Case 5 To 9
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 16
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 32
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 64
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 128
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H37A, 2
Sleep t
Out &H37A, 11
Out &H37A, 3
Sleep t
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H37A, 1
Sleep t
Out &H37A, 11
Out &H37A, 3
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H37A, 7
Sleep t
Out &H37A, 3
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 1
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 2
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H37A, 3
Out &H378, 4
Sleep t
Out &H378, 0
Out &H37A, 3
Sleep t
End Select





Case 9, 21
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H378, 9
Sleep t
Out &H378, 1
Sleep t
 Case 5 To 9
 Out &H378, 0
Out &H37A, 11
Out &H378, 17
Sleep t
Out &H378, 1
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H378, 33
Sleep t
Out &H378, 1
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H378, 65
Sleep t
Out &H378, 1
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H378, 129
Sleep t
Out &H378, 1
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 1
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H378, 1
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 1
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 1
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 1
Sleep t
Out &H378, 0
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H378, 3
Sleep t
Out &H378, 1
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H378, 5
Sleep t
Out &H378, 1
Sleep t
End Select



Case 10, 22
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H378, 10
Sleep t
Out &H378, 2
Sleep t
 Case 5 To 9
 Out &H378, 0
Out &H37A, 11
Out &H378, 18
Sleep t
Out &H378, 2
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H378, 34
Sleep t
Out &H378, 2
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H378, 66
Sleep t
Out &H378, 2
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H378, 130
Sleep t
Out &H378, 2
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 2
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H378, 2
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 2
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 2
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 3
Sleep t
Out &H378, 2
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H378, 2
Sleep t
Out &H378, 0
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H378, 6
Sleep t
Out &H378, 2
Sleep t
End Select





Case 11, 23
Select Case M
Case 0 To 4
Out &H378, 0
Out &H37A, 11
Out &H378, 12
Sleep t
Out &H378, 4
Sleep t
 Case 5 To 9
 Out &H378, 0
Out &H37A, 11
Out &H378, 20
Sleep t
Out &H378, 4
Sleep t
Case 10 To 14
Out &H378, 0
Out &H37A, 11
Out &H378, 36
Sleep t
Out &H378, 4
Sleep t
Case 15 To 19
Out &H378, 0
Out &H37A, 11
Out &H378, 68
Sleep t
Out &H378, 4
Sleep t
Case 20 To 24
 Out &H378, 0
Out &H37A, 11
Out &H378, 132
Sleep t
Out &H378, 4
Sleep t
Case 25 To 29
Out &H378, 0
Out &H37A, 11
Out &H378, 4
Out &H37A, 10
Sleep t
Out &H37A, 11
Sleep t
Case 30 To 34
Out &H378, 0
Out &H37A, 11
Out &H378, 4
Out &H37A, 9
Sleep t
Out &H37A, 11
Sleep t
Case 35 To 39
Out &H378, 0
Out &H37A, 11
Out &H378, 4
Out &H37A, 15
Sleep t
Out &H37A, 11
Sleep t
Case 40 To 44
Out &H378, 0
Out &H37A, 11
Out &H378, 4
Out &H37A, 3
Sleep t
Out &H37A, 11
Sleep t
Case 45 To 49
Out &H378, 0
Out &H37A, 11
Out &H378, 5
Sleep t
Out &H378, 4
Sleep t
Case 50 To 54
Out &H378, 0
Out &H37A, 11
Out &H378, 6
Sleep t
Out &H378, 4
Sleep t
Case 55 To 59
Out &H378, 0
Out &H37A, 11
Out &H378, 4
Sleep t
Out &H378, 0
Sleep t
End Select
End Select
DoEvents
Loop Until FINISH
End Sub


Не совсем понял про пробелы... Всмысле чтобы код не шёл одним столбцом, а были какие-то отступы? Можете показать хотя бы маленький пример где должен быть какой отступ. Если не затруднит на примере какого-нибудь маленького Selecta??? 

Это сообщение отредактировал(а) STRIKER221 - 24.9.2008, 15:13
PM MAIL ICQ   Вверх
kapbepucm
Дата 24.9.2008, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
На всякий случай приведите список команд: какая команда включает первый диод, какая второй, третий ... двенадцатый

Добавлено через 1 минуту и 30 секунд
Цитата(STRIKER221 @  24.9.2008,  14:45 Найти цитируемый пост)
Можете показать хотя бы маленький пример
Код
Public Function GetMinuteDiod() As Long
  If Round(Minute(Now()) * 12 / 60) = 0 Then
    GetMinuteDiod = 12
  Else
    GetMinuteDiod = Round(Minute(Now()) * 12 / 60)
  End If
End Function
Public Function GetHourDiod() As Long
  If Round(Hour(Now()) / 2) = 0 Then
    GetHourDiod = 12
  Else
    GetHourDiod = Round(Hour(Now()) / 2)
  End If
End Function
Sub clock3()
  Const t As Long = 500
  Dim MinuteEnabled As Boolean
  Do
    MinuteEnabled = Not MinuteEnabled
    If MinuteEnabled Then
      
    Else

    End If
    Sleep t
    Out &H378, 0
    Out &H37A, 11
  Loop Until FINISH
End Sub


Добавлено через 2 минуты и 19 секунд
Всмысле пробелы перед операторами


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
STRIKER221
Дата 24.9.2008, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
kapbepucm, 
0 он же 12 Out &H378, 8
1. Out &H378, 16
2. Out &H378, 32
3. Out &H378, 64
4. Out &H378, 128
5. Out &H37A, 10
6. Out &H37A, 9
7. Out &H37A, 15
8. Out &H37A, 3
9. Out &H378, 1
10. Out &H378, 2
11. Out &H378, 4

Добавлено @ 16:20
kapbepucm, Если честно, то я не совсем понял как это работает...

Цитата(kapbepucm @  24.9.2008,  15:43 Найти цитируемый пост)
Public Function GetMinuteDiod() As Long
  If Round(Minute(Now()) * 12 / 60) = 0 Then
    GetMinuteDiod = 12
  Else
    GetMinuteDiod = Round(Minute(Now()) * 12 / 60)
  End If
End Function
Public Function GetHourDiod() As Long
  If Round(Hour(Now()) / 2) = 0 Then
    GetHourDiod = 12
  Else
    GetHourDiod = Round(Hour(Now()) / 2)
  End If
End Function



Это сообщение отредактировал(а) STRIKER221 - 24.9.2008, 16:21
PM MAIL ICQ   Вверх
kapbepucm
Дата 24.9.2008, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Цитата(STRIKER221 @  24.9.2008,  16:16 Найти цитируемый пост)
как это работает
Эти функции пока временные. Идея в том, чтобы узнать номер "часового" и "минутного" диода в данный момент времени. В моём коде они пока не задействованы. Завтра попробую дописать код до рабочего состояния.


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
STRIKER221
Дата 24.9.2008, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
kapbepucm, ОК. Спасибо заранее
PM MAIL ICQ   Вверх
STRIKER221
Дата 25.9.2008, 00:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
kapbepucm, Нашёл в чём была ошибка. Достаточно было Do поставить перед 
Код

M = Minute(Time)
H = Hour(Time)
t = 500

и всё прекрасно заработало. Если не лень и есть время, напишите Ваш вариант с определением часового и минутного диода в данный момент времени.
Вот готовый код:
Код

Sub CLOCK()
Dim M
Dim H
  Do
    M = Minute(Time)
    H = Hour(Time)
    t = 500
    Select Case H
    Case 0, 12
      Select Case M
      Case 0 To 4
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 8
        Sleep t
        Out &H378, 0
        Sleep t
      Case 5 To 9
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 24
        Sleep t
        Out &H378, 8
        Sleep t
      Case 10 To 14
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 40
        Sleep t
        Out &H378, 8
        Sleep t
      Case 15 To 19
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 72
        Sleep t
        Out &H378, 8
        Sleep t
      Case 20 To 24
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 136
        Sleep t
        Out &H378, 8
        Sleep t
      Case 25 To 29
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 8
        Out &H37A, 10
        Sleep t
        Out &H37A, 11
        Sleep t
      Case 30 To 34
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 8
        Out &H37A, 9
        Sleep t
        Out &H37A, 11
        Sleep t
      Case 35 To 39
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 8
        Out &H37A, 15
        Sleep t
        Out &H37A, 11
        Sleep t
      Case 40 To 44
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 8
        Out &H37A, 3
        Sleep t
        Out &H37A, 11
        Sleep t
      Case 45 To 49
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 9
        Sleep t
        Out &H378, 8
        Sleep t
      Case 50 To 54
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 10
        Sleep t
        Out &H378, 8
        Sleep t
      Case 55 To 59
        Out &H378, 0
        Out &H37A, 11
        Out &H378, 12
        Sleep t
        Out &H378, 8
        Sleep t
      End Select
' и так далее
    End Select
  DoEvents
  Loop Until FINISH
End Sub


Это сообщение отредактировал(а) STRIKER221 - 25.9.2008, 01:16
PM MAIL ICQ   Вверх
kapbepucm
Дата 25.9.2008, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Цитата(STRIKER221 @  25.9.2008,  00:17 Найти цитируемый пост)
Нашёл в чём была ошибка
Наверно не стоит мне продолжать... Данный этап
Код
Public Function GetMinuteDiod() As Long
  If Round(Minute(Now()) * 12 / 60) = 0 Then
    GetMinuteDiod = 12
  Else
    GetMinuteDiod = Round(Minute(Now()) * 12 / 60)
  End If
End Function
Public Function GetHourDiod() As Long
  If Round(Hour(Now()) / 2) = 0 Then
    GetHourDiod = 12
  Else
    GetHourDiod = Round(Hour(Now()) / 2)
  End If
End Function
Public Sub Diod1(Nomer As Long)
  Select Case Nomer
  Case 1:  Out &H378, 16
  Case 2:  Out &H378, 32
  Case 3:  Out &H378, 64
  Case 4:  Out &H378, 128
  Case 5:  Out &H37A, 10
  Case 6:  Out &H37A, 9
  Case 7:  Out &H37A, 15
  Case 8:  Out &H37A, 3
  Case 9:  Out &H378, 1
  Case 10: Out &H378, 2
  Case 11: Out &H378, 4
  Case 12: Out &H378, 8
  End Select
End Sub
Public Sub Diod2(Nomer1 As Long, Nomer2 As Long)

End Sub
Sub clock3()
  Dim H As Long, M As Long
  Const t As Long = 500
  Dim MinuteEnabled As Boolean
  Do
    H = GetHourDiod
    M = GetMinuteDiod
    MinuteEnabled = Not MinuteEnabled
    If MinuteEnabled Then
    Select Case H
    Case 1
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    Case 2
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    Case 3
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    Case 4
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    Case 5
    Case 6
    Case 7
    Case 8
    Case 9
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    Case 10
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    Case 11
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    Case 12
      Select Case M
      Case 5 To 8
        Diod2 H, M
      Case Else
        Diod1 1
        Diod1 M
      End Select
    End Select
    Else
      Diod1 H
    End If
    sleep t
    DoEvents
    Out &H378, 0
    Out &H37A, 11
  Loop Until FINISH
End Sub



--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1346 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.