Я начал изучать VB6.0

[Serg17]

Здравствуйте. Я начал изучать VB6.0, по ссылке http://vbzero.narod.ru/part1.htm, и на 2-м шаге появилась проблема(калькулятор). Я вел код который там дан, но у меня выходит ошибка "Method or data member not found". Неужели ошибка в коде.
Помогите разобраться!!!

[BV]

404 Нет такой страницы

[GSerg]

Подозреваю, что там учебник Падре...
Если это так, Serg17, выброси его, и купи нормальную книжку.

[Serg17]

Учебник Пособие-самоучитель on-line "Visual Basic с нуля"
А вот код
Private Sub Command1_Click() ‘подпрограмма нажатия кнопки Command1
Text3.Text = Val(Text1.Text) + Val(Text2.Text) 'операция сложения
Label2.Caption = "Плюс" 'указаваем в метке математическую операцию
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text) 'операция умножения
Label2.Caption = "Умножить"
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text) 'операция вычитания
Label2.Caption = "Вычесть"
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text) 'операция деления
Label2.Caption = "Разделить"
End Sub

Private Sub Command5_Click()
Text1.Text = "" 'присвоим текстбоксам значение пустой строки
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command6_Click()
Text3.Text = Sqr((Text1.Text)) 'функция вычисления корня
Text2.Text = "" 'очистка Text2, так как он не нужен при этой операции
Label2.Caption = "Кв. корень"
End Sub

Private Sub Form_Load() ‘процедура загрузки формы
Form1.Caption = "Калькулятор" 'меняем заголовок формы
Text1.Text = "" 'присвоим текстбоксам значение пустой строки
Text2.Text = ""
Text3.Text = ""
Label2.Caption = "Действие" 'присвоим лейблам
Label1.Caption = "Результат:" 'нужные значения
End Sub

[DirectXManiac]

Serg17
Ты хоть на форму поместил 6 кнопок, 2 лейбла, 3 текстбокса?

[BIOS]

Делай так:
Входи в VB и кликай Standart exe. Помещай на форму 3 текстовых поля, у первых двух ставь свойство Text="" а у третьего Text="0". Дальше кидай на форму 5 кнопок со свойством Caption:
у 1 - CE
у 2 - X
у 3 - /
у 4 - +
у 5 - -
И вот код:
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = "0"
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Надеюсь где вводить код ты знаеш:)
Вот и всё:) И ешё не советую читать онлайн учеьники а качнуть хороший офлайн учебничек, лично я советую от Падре. У меня сейчас около 10 хороших учебников, и если тебе нада тогда пиши: bios@mail.nnov.ru

[Viper]

Вот как раз "учебник" от Падре нужно выкинуть в первую очередь

[BIOS]

Ну не знаю, излагает он в тему, да и примеры-исходники есть, я не говорю что это божеская книга, но для начинающего сойдёт.