Регистрация

[Nazarey]

Прошу прощения за вопрос-я как третий день знакомлюс с книгой.Вобщем у меня вазник такой вопрос помогите пожайлуста!
Подскажите пожайлуста-как можно зделать,чтобы при запуске программы
появлялось диалоговое окно типа регистрационного.Только чтоб при каждом
запуске изменялись данные для ввода.(Ваше имя-Вася,в Следующий раз-заголовок
"Ваше имя"меняется на любое другое сообщение,и вторая строка также изменялась!)
Вобщем чтоб всё было по случайному алгоритму.
Спасибо за ответ.

[Maitris]

Ну Show нужной формы в загрузке основной... С параметром VbModal... Случайность при помощи функции Rnd(). Вопросы?

[Nazarey]

Ну если можно-немного по конкретней

[Хакер]

Nazarej
Это я тебе хотел сказать: по конкретнее сформулируй, что тебе нужно, а главное, что не получается.

[Nazarey]

Хочу чтоб при запуске программы-появлялось окошечко с вопросом,на который необходимо дать ответ.Чтоб вопрос при загрузке каждый раз изменялся,ну и ответ к нему естественно тоже.А когда ответ будет дан правильно,запускалась программа.
Спасибо.

[Хакер]

Отлично. А теперь необходимо также ответить на вопросы: что уже было сделано для достяжения результа и что не получается сделать?

[Nazarey]

Есть уже половина программы,а вот как быть с этим окошком? Вобщем незнаю с чего начать - как должен выглядеть код запуска окна итд.Массу исходников пересмотрел-нечего такого не нашел.Единственно нашел как использовать Show и то при создании MDI приложений.

[Хакер]

При создании обычных приложений Show используется также.

Код запуска окна (гы )

Код: Выделить всё

frmMyWindow.Show

[Nazarey]

Ну это то я уже знаю а вот дальше как быть?
PS(ладно-терпенье и труд... уже немного представляю как это буде выглядеть!)

[Хакер]

А что дальше не получается?

Показываешь на форме случайную надпись, проверяешь правильность ответа, да - пропускаешь пользователя, нет - отвечаешь, что ответ неверный.


Только вот какой смысл всего этого?

[Nazarey]

Ну смысл в том,что человек начинает искать ответ в книге-побуждаеш его туда заглядывать

[Хакер]

Мне проще и быстрее взломать, чем искать ответ в книге. Ты ведь будешь примитивно IF-ом решать, правильный ответ или нет. Тогда сломать - дело нескольких секунд.

[Stop Kran]

http://slil.ru/24575056 - вот тебе форма с запросом ответа на вопрос.
Всего 10 вопросов.

Мне проще и быстрее взломать, чем искать ответ в книге. Ты ведь будешь примитивно IF-ом решать, правильный ответ или нет. Тогда сломать - дело нескольких секунд.

Согласен. Но именно для этого созданы упаковщики про них можно прочитать здеся: http://visualbasic.boom.ru/articles/crack/lesson3.html чтобы такие как я и хакер не взломали твою прогу.

[Maitris]

Stop Kran
Гы, вообще-то упаковщики так же легко распаковываются... Видимо ты имел в виду протекторы?

[Nazarey]

Stop Kran-СПАСИБО!
Это реальная помощь в ответе на поставленный вопрос

[SSecurity]

А не проще делать так .... на форме 4 кнопки cmd(0..3) и один Label1

Код: Выделить всё

Dim CorrectAnswer as Byte

Private Sub Form_Load()
  For i = 0 to 3
    cmd(I).Caption = chr(34) & (I+1) & chr(34)
  Next i
  RANDOMIZE TIMER
  CorrectAnswer = INT(RND*3)+1
  Label1.Caption = "Нажмите кнопку " & CorrectAnswer
End Sub

Private Sub cmd_Click(Index as Integer)
  if Index + 1 = CorrectAnswer then
    'Показываешь главную форму
    frmMain.Show
    Unload Me
  Else
    END
  End IF
End Sub


код не проверял но должен работать, может неточности есть в коде.

С Уважением,
Сергей

[Nazarey]

Спасибо-ради интереса попробую этот код
P.S(сделал проще-неправильный ответ и окно закрыватся вообще )
Ну и по ходу дела чтоб не создавать новую тему хочу спросить:
Подскажите пожайлуста как в Label начать новую строку.(если места еще полно)В одном коде видел что в Caption вводится информация,а потом вводятся символы ввиде квадратов и получается новая строка.
Как это делается?
Спасибо за помощь!

[EUGY]

Label1.Caption = "qwerty" & vbLf & "qwerty"

[Watts[]n!]

Разве не VbCrLf? Я всегда им пользуюсь.

И, кстати, можно создать многострочный Label в режиме разработки (Не из кода), причем с переносом там, где это нужно.
Надо скопировать текст из окна другой программы (например, Блокнота), и потом уже действовать этими квадратиками

[EUGY]

vbCr, vbLf , VbCrLf, vbNewLine

[Watts[]n!]

О как! Не знал, спасибо!

[Хакер]

Нужно использовать vbNewLine. Которая равна vbCrLf. Которая \r\n . Потому что в винде так. Винда, конечно, понимает оба варианта. Но правильно использовать vbNewLine.

[Nazarey]

Спасибо за помощь -хороший у Вас форум
(не хамят и на вопросы чайников терпеливо отвечаете )
не хочется злоупотреблять Вашей добротой-есть еще один вопрос
Попался в исходнике код

Private Sub Form_Resize()
Dim X As Integer
For X = 0 To Height
Line (0, X)-(Width, X), X / (Height / 255)
Next
End Sub

При выходе формы за границы окна-цветность пропадает.
Подскажите пожайлуста в чем причина?

[keks-n]

Потому что градиентную заливку надо рисовать через GradientFill из msimg32.dll.

P. S. Пример из API-Guide для этой функции глючный, лучше не использовать.

[EUGY]

Код: Выделить всё


Private Sub Form_Paint()
    Form_Resize
End Sub

Private Sub Form_Resize()
Dim X As Integer
For X = 0 To Height
Line (0, X)-(Width, X), X / (Height / 255)
Next
End Sub

[Александр Дмитриев]

Код: Выделить всё

Private Sub Form_Paint()
    Form_Resize
End Sub


Да лучше у формы поставить свойство AutoRedraw = True. А вообще, конечно, keks-n прав насчет msimg32.dll.