Создание обучающей программы

[cfvbh]

Сообщение от R Dmitry

одевайте стринги

Debug.Print Perevod("4D2", 16, 10)

долго ржал надо будет запомнить)))

Сообщение от IgorGO

cfvbh,
внимательно смотрим за типом параметров...
Function Perevod(ByVal N1 As String, ByVal Base1 As Long, ByVal Base2 As Long) As String
собственно, Дима уже все обьяснил...

блиииин))) стыдно (как то не обратил на это внимание)

"скелет" программы почти готов, только ни как не могу определиться как реализовать чтоб программа останавливалась и ждала пока юзер не нажмет на кнопку на форме
читал про различные операторы, но находил только ожидание нажатия на клавиатуре или ожидание по времени

не знаете существует ли такй оператор в природе?

[doober]

А как же муха и слон

Dim Flag As Boolean
Private Sub CommandButton1_Click()
Flag = True
End Sub

Sub OJOJ()
'Код 
Flag = False
Do
DoEvents
'Здесь ждет нажатия
Loop Until Flag = True
'Код 
End Sub

[cfvbh]

Сообщение от doober

А как же муха и слон

Dim Flag As Boolean
Private Sub CommandButton1_Click()
Flag = True
End Sub

Sub OJOJ()
'Код 
Flag = False
Do
DoEvents
'Здесь ждет нажатия
Loop Until Flag = True
'Код 
End Sub

оооо отлично))) благодарю
очень рационально

[cfvbh]

Скажите а как осуществить работу со счетчиком?
нужно чтобы он показывал сколько уже прошло с начала тестирования
причем чтоб на форме текли секунды в реальном времени

[doober]

Однако долго делаете.
Ключевые слова для поика по ветке Timer,часы,часики

[cfvbh]

Сообщение от doober

Однако долго делаете

ну дак сессия, дел много вот и не успеваю нормально сесть за программу
___________________________________ ________________________________

Не получается закрыть или скрыть форму

у меня есть 2 формы:
форма1 - ввод фио и группы, по нажатию кнопки "начать тест" форма должна вызвать форму2 и ЗАКРЫТЬСЯ

Hide и Unload Me не помогают ( форма1 остается за формой2 )

[cfvbh]

Как можно пустить такое выражение в цикл?

If rez(1) = 1 Then
З1.BackColor = &H80FF80: З1.Caption = "+": Т_1.BackColor = &HFEB047
Else
Т_1.BackColor = &HFEB047
End If
If rez(2) = 1 Then
З2.BackColor = &H80FF80: З2.Caption = "+": Т_1.BackColor = &HFEB047
Else
Т_1.BackColor = &HFEB047
End If
If rez(3) = 1 Then
З3.BackColor = &H80FF80: З3.Caption = "+": Т_1.BackColor = &HFEB047
Else
Т_1.BackColor = &HFEB047
End If
If rez(4) = 1 Then
З4.BackColor = &H80FF80: З4.Caption = "+": Т_1.BackColor = &HFEB047
Else
Т_1.BackColor = &HFEB047
End If
If rez(5) = 1 Then
З5.BackColor = &H80FF80: З5.Caption = "+": Т_1.BackColor = &HFEB047
Else
Т_1.BackColor = &HFEB047
End If

[cfvbh]

Люди помогите пожалйста