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

Поиск:

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


Шустрый
*


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

Репутация: нет
Всего: нет
Возможно ли на VBA реализовать управление LPT? Например к date я подключаю светодиод, и чтобы он засветился при подаче команды из VBA.
PM MAIL ICQ   Вверх
kapbepucm
Дата 16.9.2008, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 12
Видимо, используя ТОЛЬКО VBA- нет. Но есть разные возможности. Например, подключить какую нибудь процедуру из *.dll


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


Шустрый
*


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

Репутация: нет
Всего: нет
kapbepucm, а как подключить библиотеку?
PM MAIL ICQ   Вверх
kapbepucm
Дата 17.9.2008, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 12
Основной способ используя Declare. Вот пример модуля:
Код
Option Explicit
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal HWND As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long
Public Sub Test()
  MessageBox 0, "Text", "Caption", 0
End Sub



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


Шустрый
*


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

Репутация: нет
Всего: нет
kapbepucm, Спасибо, уже разобрался. Вопрос теперь такой 
Код

Private Sub CommandButton16_Click()
Out &H378, 4
Application.Wait (Now + TimeValue("0:00:01"))
Out &H378, 8
Application.Wait (Now + TimeValue("0:00:01"))
Out &H378, 16
Application.Wait (Now + TimeValue("0:00:01"))
Out &H378, 32
Application.Wait (Now + TimeValue("0:00:01"))
End Sub

Как сделать чтобы данный код повторялся, т.е. чтобы после команды Out &H378, 32, опять шла команда Out &H378, 4?
И после нажатия другой кнопки повтор прекращался. Таким макаром:
Код

Private Sub CommandButton16_Click()
Dim k As Integer
Do
k = 0
Out &H378, 4
Application.Wait (Now + TimeValue("0:00:01"))
Out &H378, 8
Application.Wait (Now + TimeValue("0:00:01"))
Out &H378, 16
Application.Wait (Now + TimeValue("0:00:01"))
Out &H378, 32
Application.Wait (Now + TimeValue("0:00:01"))
Loop Until k = 1
End Sub

Система уходит в висяк и кнопку отмены я нажать не могу... :(
И ещё вопрос. Можно ли как-нибудь задать время задержки выполнения команды меньше чем одна секунда? Банальное Application.Wait (Now + TimeValue("0:00:01")/10) не помогло...

Это сообщение отредактировал(а) STRIKER221 - 18.9.2008, 17:02
PM MAIL ICQ   Вверх
kapbepucm
Дата 19.9.2008, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 12
Цитата(STRIKER221 @  18.9.2008,  16:57 Найти цитируемый пост)
Система уходит в висяк и кнопку отмены я нажать не могу...
Вставляйте DoEvents после задержки.
Цитата(STRIKER221 @  18.9.2008,  16:57 Найти цитируемый пост)
Можно ли как-нибудь задать время задержки выполнения команды меньше чем одна секунда?
Попробуйте использовать Sleep
Код
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)



Это сообщение отредактировал(а) kapbepucm - 19.9.2008, 15:23


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


Опытный
**


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

Репутация: 6
Всего: 12
Код
Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Flag As Boolean
Private Sub CommandButton16_Click()
  Flag = False
  Cikl
End Sub
Private Sub CommandButton17_Click()
  Flag = True
End Sub
Sub Cikl()
  Do
    'Что то делаем
    Sleep 1000
    DoEvents
  Loop Until Flag
End Sub


Это сообщение отредактировал(а) kapbepucm - 19.9.2008, 15:35


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


Шустрый
*


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

Репутация: нет
Всего: нет
kapbepucm, Спасибо. Заработало. Теперь если можно ещё один вопрос:

Код

Out &H378, 16
Sleep t
Out &H378, 32
Sleep t
Out &H378, 64
Sleep t
Out &H378, 128
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Out &H37A, 9
Sleep t
Out &H37A, 255
Sleep t
Out &H37A, 3
Sleep t
Out &H37A, 11
Out &H378, 1
Sleep t
Out &H378, 2
Sleep t
Out &H378, 4
Sleep t
Out &H378, 8

Как сделать чтобы эти команды шли random'ом??? Т.е. чтобы лампочки не светились по одному, постоянно повторяющемуся циклу, а в хаотичном порядке.
PM MAIL ICQ   Вверх
kapbepucm
Дата 21.9.2008, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 12
надо, что-бы шли в случайном порядке строки 1;3;5;7;9;11;13;15...25?


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


Шустрый
*


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

Репутация: нет
Всего: нет
kapbepucm, Да именно так. Все строки начинающиеся с out.
PM MAIL ICQ   Вверх
kapbepucm
Дата 22.9.2008, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 12
Дополнительный вопрос: при более детальном изучении, я вижу, что для "хаоса" достаточно
Out &H378, X
и
Out &H37A, Y
Не подскажите, какие значения могут принимать X и Y?

Добавлено через 4 минуты и 40 секунд
Ещё, строки 9-10 и 18-19 стоят без разделения Sleep


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


Шустрый
*


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

Репутация: нет
Всего: нет
kapbepucm, X может принимать значения, 1, 2, 4, 8, 16, 32, 64, 128, 255.
Y может принимать значения 10, 9, 15, 3.

Команда Out &H378, 0 переводит все даты в состояние логического 0, а команда Out &H37A, 11 переводит все остальные пины (busy, error и т.д.) в состояние логического 0.
Без разделения они стоят потому что, если светится светодиод на 7-ой дате (Out &H378, 128), и далее идёт команда Out &H37A, 10 то светодиод на 7-ой дате не погаснет. Поэтому сначала идёт команда Out &H378, 0 отключающая даты и только затем посылается Out &H37A, 10 включающая следующий диод. 
Чтобы включить две даты одновременно, нужно сложить их индексы например чтобы 6 и 7 дата перешли в состояние 1 нужно (64+128=192 ). Команда будет такая Out &H378, 192 и т.д. При значении 255 все даты в состоянии 1.
PM MAIL ICQ   Вверх
kapbepucm
Дата 23.9.2008, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 12
Попробуйте заменить
Цитата(STRIKER221 @  20.9.2008,  13:48 Найти цитируемый пост)
Код
Out &H378, 16
Sleep t
Out &H378, 32
Sleep t
Out &H378, 64
Sleep t
Out &H378, 128
Sleep t
Out &H378, 0
Out &H37A, 10
Sleep t
Out &H37A, 9
Sleep t
Out &H37A, 255
Sleep t
Out &H37A, 3
Sleep t
Out &H37A, 11
Out &H378, 1
Sleep t
Out &H378, 2
Sleep t
Out &H378, 4
Sleep t
Out &H378, 8
на
Код
  Select Case Int(12 * Rnd + 1)
  Case 1
    Out &H378, 16
    Sleep t
    Out &H378, 0
  Case 2
    Out &H378, 32
    Sleep t
    Out &H378, 0
  Case 3
    Out &H378, 64
    Sleep t
    Out &H378, 0
  Case 4
    Out &H378, 128
    Sleep t
    Out &H378, 0
  Case 5
    Out &H37A, 10
    Sleep t
    Out &H37A, 11
  Case 6
    Out &H37A, 9
    Sleep t
    Out &H37A, 11
  Case 7
    Out &H37A, 255
    Sleep t
    Out &H37A, 11
  Case 8
    Out &H37A, 3
    Sleep t
    Out &H37A, 11
  Case 9
    Out &H378, 1
    Sleep t
    Out &H378, 0
  Case 10
    Out &H378, 2
    Sleep t
    Out &H378, 0
  Case 11
    Out &H378, 4
    Sleep t
    Out &H378, 0
  Case 12
    Out &H378, 8
    Sleep t
    Out &H378, 0
  End Select



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


Шустрый
*


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

Репутация: нет
Всего: нет
kapbepucm, Спасибо, всё прекрасно работает. Теперь, если можно, ещё один вопрос:
У меня на плате 12 светодиодов расположенных по окружности, есть идея сделать часы c привязкой к системному времени. Т.к. все диоды красного цвета, поэтому решил что часовой светодиод будет светиться постоянно, а минутный мигать.
Код получается такой:

Код

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
...............
.............
End Select
Case ......
End Select 
..................
End Select
DoEvents
Loop Until FINISH
End Sub


Проблема возникла вот какая: минутный диод не переключается. Допустим идёт 4 минута, мигает диод, начинается 5-ая, 6-ая минуты, а светится по прежнему диод 4-ой минуты. В чём ошибка?
PM MAIL ICQ   Вверх
kapbepucm
Дата 24.9.2008, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 12
Чтобы понять, где ошибка, опубликуйте, пожалуйста, полный код. Пока я встал на грабли, что каждому Select Case должен соответствовать только один End Select. Их больше ((: Если не затруднит, пользуйтесь пробелами- наглядность вложенности улучшается.

Это сообщение отредактировал(а) kapbepucm - 24.9.2008, 12:39


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
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   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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