Помогите, пожалуйста, нужна помощь новичку

[Vetaliy13]

Знающие люди помогите, я попал в ужасное положение, мне нужен подробный (по возможности) электронные Хелп по Байсику, для того чтобы писать код для проги в VB6.
Я прочитал несколько статей для начинающих по VB6, где подробно изучил, как работать с формами, кнопками и событиями. И когда дело дошло до практик я понял что ничего не помню из школьного курса. Вся трагикомичность ситуации заключается в том, что я плотно участвую в разработке игрового Интернет портала (неплохо знаю HTML, PHP, MySQL), но ничего не помню по BASIC.

Очень прошу, скиньте пару ссылок, где можно в самом языке разобраться.
Если есть возможность кидайте сразу в аську 205479079, меня очень печет (сессия).

[FaKk2]

Ну ты спрашивай, что пойму, постараюсь объяснить

[Vetaliy13]

Мне бы почитать, а то слишком много вопросов.

[RayShade]

Я буду циничем и трививален - самый подробный хелп по бейсику и его концепции - MSDN. если на диске нет - msdn.microsoft.com это то, куда я вас посылаю

[EvilCoder]

<DELETE>

[Vetaliy13]

Полазил, нарыл немного инфы. Спасибки.

У меня возник такой вопрос.
У меня в проге есть выпадающие списки, как мне приввоить выбраное значение какой нибуть переменной, при нажатии общей кнопки "Готово".

[ChelDm]

Если ты про это, то вроде так

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


Dim s as string
s=combo1.text



[Vetaliy13]

пишу

Dim s As String,

Private Sub Combo1_Change()
s = Combo1.Text
End Sub

Private Sub Command1_Click()

Print s
End Sub

Никак нехочит выводить.
Помогите пожалуста.

[Vetaliy13]

Удивительно, на изменение прога не реагирует, зато на клик все пошло на ура.
Теперь возникла другая проблема, как запритить пользователю вводить свой вариант, и заставить вибирать токо и представленых вариантов

[areh]

Надо у Combo свойству Style присвоить значение "DropDownList", тогда всё получиться...

[Vetaliy13]

Спасибо за подсказку.

Мне надо сравнить переменные с текстовыми значениями.

Делаю так ничего не выходит


Private Sub Coman_Click()
If o = ЦЛ Then
m = (MsgBox("Выбран не правельный код поверхности", 0, " Ошибка!"))
End If

Print p; " "; a; "."; b; " "; o
End Sub

С цифрами все проходит на ура, а вот буквы никак.
Подскажите что мне сделать (обойтись без руских букв никак нельзя)

[Oxygen]

А ты не пробывал писать буквы в кавычках?

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


o="ЦЛ"



[Oxygen]

Ах, да еще, текстовую переменную не мешало бы объявить. Только желательно это делать не в пределах процедур и функций..... И до использования.

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

Dim o as string


[Vetaliy13]

Спасибо за помощь.

У меня возникло еще 2 вопроса:
1. Мне надо выводить несколько ( с одной происходит все отлично)текстовых переменных в текстовое окошко програмы, пишу так

Coment2.Text = p1; " "; a1; "."; b1; " "; o1; " "; p2; " "; a2; "."; b2; " "; o2
стриляет ошибками.

2. Немного навоял, можно и преподу показать. Как сохранить проект в . ЕХЕ (там несколько менюшек и кнопка).

Зарание благодарен.

[FaKk2]

Ключевой оператор

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

&

иными словами пишешь так:

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

Coment2.Text = p1 &  " " & a1 & "." & b1 & " " & o1 & " " & p2 & " " & a2 & "." & b2 & " " & o2


А если это кому то будеш показывать, то лучше показывай исходники (то что руками написал), а не EXE.
А вообще File->Make Project

[Oxygen]

Ключевой оператор

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

&

иными словами пишешь так:

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

Coment2.Text = p1 &  " " & a1 & "." & b1 & " " & o1 & " " & p2 & " " & a2 & "." & b2 & " " & o2


Можно еще написать так:

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

Coment2.Text = p1 +  " " + a1 + "."+ b1 + " " + o1 + " " + p2 + " " + a2 + "." + b2 + " " + o2


ИМХО одно и тоже, но некоторым так проще.

[Vetaliy13]

Еще вопросик.

Мне надо в зависимости от текстовых переменных выводить разные картинки.
Пишу так ничего не выходит

If p1 = "ЦП" And a1 = 2 And b1 = 0 Then
Picture1.Picture = e:\1\1.bmp

И вообще как выводит картинки в зависимости от переменных.
Зарание благодарен.

[Rainbow]

А что у тебя не выходит? Как это проявляется?

If (p1 = "ЦП") And (a1 = 2) And (b1 = 0) Then
Picture1.Picture = LoadPicture(e:\1\1.bmp)
End If

[Vetaliy13]

Пишу
Picture1.Picture = LoadPicture(15. bmp )

или
Picture1.Picture = LoadPicture(е : \1\115.bmp)
Стреляет такие ошибки, я разные вариантц пробовол и никак.

[Oxygen]

Пишу
Picture1.Picture = LoadPicture(15. bmp )

или
Picture1.Picture = LoadPicture(е : \1\115.bmp)
Стреляет такие ошибки, я разные вариантц пробовол и никак.

А как бы надо имя файла писать в кавычках. Это же строковая переменная! Так должно работать:

Picture1.Picture = LoadPicture("15. bmp")
или
Picture1.Picture = LoadPicture("е : \1\115.bmp")

[FaKk2]

Запомни, все что не является переменной, и используется как строка, обязательно должно обрамляться кавычками. Иначе работать не будет

[Vetaliy13]

2 FAKK2.

Спасибо за совет.

У меня новые вопросы:

1. Мне надо открыть кнопкой новую форму, пишу так:

Show "Form2.form"
перепробовал кучу вариантов (с кавычками и без, ставил равно, менял мистами) и никак.

2. Надо обявить переменные которые будут работать сразу в нескольких фомах. Создавал модуль, писал Глобал, но чтото никак не вышло. Помогите пожалуста.

[X-BOND]

1. Мне надо открыть кнопкой новую форму, пишу так:
Show "Form2.form"
перепробовал кучу вариантов (с кавычками и без, ставил равно, менял мистами) и никак.

А надо так: Form2.Show

2. Надо обявить переменные которые будут работать сразу в нескольких фомах. Создавал модуль, писал Глобал, но чтото никак не вышло. Помогите пожалуста.

Public Переменная As Long
Будет работать везде

[Vetaliy13]

Cпасибо за предыдущие ответы. (с меня пиво)

Подскажите как мне такое сделать.
Мне необходимо сделать проверку какая картинка сейчас стоит, я делаю так?

Private Sub Option1_Click()
Picture1.Picture = LoadPicture("e:\2.gif")
End Sub

Private Sub Option2_Click()
Picture1.Picture = LoadPicture("e:\1.gif")
End Sub

Private Sub Picture1_Click()
If Picture1.Picture = "e:\1.gif" Then
p = 5
End If

If Picture1.Picture = "e:\2.gif" Then
p = 10
End If

End Sub

Выдиляет строку и пишет "несовпадение типов"
Подскажите что не так, или как это можно сделать по другому.

[EvilCoder]

<DELETE>

[Oxygen]

Так, как у тебя, работать точно не будет, можно попробывать так:

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

Public flag as Integer

Private Sub Option1_Click()
Picture1.Picture = LoadPicture("e:\2.gif")
flag=1
End Sub

Private Sub Option2_Click()
Picture1.Picture = LoadPicture("e:\1.gif")
flag=2
End Sub

Private Sub Picture1_Click()
Select Case flag
Case 1:p=10
Case 2:p=5
End Select
End sub

Если есть какие-то еще какие-то картинки которые нужно загрузить, то назначаешь переменно flag значения 3,4,5..... А потом смотришь по значению этой переменной.

[Vetaliy13]

Исправил топик, а код всерано не работает.

[EvilCoder]

<DELETE>

[Oxygen]

Oxygen привел правельный пример!

Извиняюсь, но правелнее будет привела. Я женского рода.

А это было наверное относительно твоего замечания (он бы все равно в таком виде у него не заработал). Ну, не думаю я, что бы человек за одну минуту смог скопировать код, проверить его и написать ответ.

[EvilCoder]

<DELETE>