Проблемы с техтбоксом

@Яблочница · Регистрация: 24.07.2009

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Я поступаю в колледж, где на интересующий меня факультет надо сдавать информатику. Профессия моя не будет иметь много общего с этим предметом, однако сдать мне его надо на отлично.......Так вот, в целях самоподготовки прикупила я себе учебник по программированию в висуал бэйсике(первая тема всех билетов для поступления). Открыла, теорию прочитала, приступила к практике. Первое задание-сделать подобие калькулятора....Начала и тут же закончила.....В учебнике написано, что после перенесения на форму двух полей текстбокса вводить в них текст и прочее можно будет сразу......потыкала-потыкала....поняла, что ввести текст можно только с помощью панели properties и задала себе вопрос: а когда я на преемной комиссии буду делать этот злосщастный калькулятор и при проверке заставлю вводить текст через панель пропертис они меня сразу пинком выгонят или ради интереса еще посмотрят, как я им петь буду? так что помогите плз, кто чем может)
З.Ы.: у меня висуал бэйсик 0.6. и код долже выглядеть вот так

Visual Basic

1
2
3

Private Sub Button1_Click
Label1= Val.(TextBox1.Text + TextBox2.Text)
End Sub

и так еще три кнопки (деление, умнжение, вычитание)

Vourhey · 25.07.2009, 20:48

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

Запусти программу-то

@Toxa33rus · 25.07.2009, 22:41

Сообщение от Яблочница

Label1= Val.(TextBox1.Text + TextBox2.Text)

надо:

Visual Basic

1	Label1= Val(TextBox1.Text + TextBox2.Text)

@arch-vile · 25.07.2009, 23:37

ТАК!!! =>

PureBasic

Dim X, Y As Integer
Private Sub Button1_Click
        X = Val(TextBox1.Text)
        Y = Val(TextBox2.Text)
        Label1.Text = X + Y
End Sub

Для начала, надо объявить переменные

PureBasic

1	Dim X, Y As Integer

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

PureBasic

1	Dim X, Y As Double

Остальные кнопки тем же макаром...
А форма выглядит так:

@Яблочница · 25.07.2009, 23:48 **[ТС]**

спасибо всем вам большое, теперь я уже могу целое 1 задание из билетов сделать)))))))

@arch-vile · 25.07.2009, 23:48

В случае с делением же, можно после Label'a добавить следующее:

PureBasic

1
2
3

If Y = 0 Then
            Label1.Text = "На ноль делить нельзя!"
End If

Что дословно означает: если делитель (Y) равен 0, то вместо результата следует вывести сообщение, что на 0 делить нельзя...

Vourhey · 26.07.2009, 00:21

Сообщение от Яблочница

спасибо всем вам большое, теперь я уже могу целое 1 задание из билетов сделать)))))))

Не по теме:

Нет. Сможешь, когда сама напишешь.

@Яблочница · 26.07.2009, 19:21 **[ТС]**

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

@arch-vile · 26.07.2009, 19:34

Яблочница, Внимание!!! Visual Basic! Опасно! Затягивает!!!

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	25.07.2009, 20:48	2
	ээээ...автор имел ввиду, что вводить ты в них можешь после того, как программу запустишь на выполнение Запусти программу-то 0

@Яблочница 0 / 0 / 0 Регистрация: 24.07.2009 Сообщений: 25
	25.07.2009, 23:48 [ТС]	5
	спасибо всем вам большое, теперь я уже могу целое 1 задание из билетов сделать))))))) 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	26.07.2009, 00:21	7
	Сообщение от Яблочница спасибо всем вам большое, теперь я уже могу целое 1 задание из билетов сделать))))))) Не по теме: Нет. Сможешь, когда сама напишешь. 0

@Яблочница 0 / 0 / 0 Регистрация: 24.07.2009 Сообщений: 25
	26.07.2009, 19:21 [ТС]	8
	и то правда, но я реально стараюсь....сегодня вот написала код для нахождения гипотенузы через катеты....вроде работает.....вообще, стала сомневаться я уже по поводу выбранной мною профессии..... 0

@arch-vile 3215 / 773 / 26 Регистрация: 12.07.2009 Сообщений: 3,184
	26.07.2009, 19:34	9
	Яблочница, Внимание!!! Visual Basic! Опасно! Затягивает!!! 0