Помогите c Microsoft Visual Basic

Fender Stratocaster · 10.10.2007, 16:47

Надо составить программу где можно будет посчитать
сумму цифр
произведение цифр
типа жмешь на кнопку вводишь числа (в 2 разные ячейки) и чтоб ответ выводился на Text box'e
кто поможет поставлю респект

**BuPTy03** · 10.10.2007, 22:40

Мда... Офигительно сложная задача )
Создай на форме:
Text1 - поле для ввода первого числа
Text2 - второго числа
Text3 - вывод результата
Command1 - кнопка "Сумма"
Command2 -кнопка "Произведение"

Код:

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

Может где-т опечатался - у меня нету щас студии - писал прям сюда.

Fender Stratocaster · 12.10.2007, 15:21

BuPTy03, все работает

а еще такой вопрос
Кол-во цифр в числе

Код:

Private Sub Command3_Click()
c = Val(InputBox("Введите натуральное десятичное число", "Ввод числа", 1))
d = c
k = 0
Do While d > 0
d = Int(d / 10)
k = k + 1
Loop
Print "Кол-во цифр в числе"; c; "равно"; k
End Sub

как сделать чтоб отображало на "Text 3" ?

и еще вопрос как сделать чтобы при нажатии кнопки появилась другая кнопка?

**BuPTy03** · 12.10.2007, 23:16

Fender Stratocaster, короче, всё просто.
Чтобы в текстбоксе появилось какое-то значение, просто представь что его имя - это переменная. То есть Text3.Text = k (вроде можно ".Text" даже не писать)
Не пойму только, почему ты в коде используешь синтаксис от QB )
В VB команда Print выводит на принтер кажется

Чтобы появилась кнопка:
Создай на форме 2 кнопки: Command1 и Command2
У второй кнопки выстави аттрибут Visible на False
В коде пропиши:

Код:

Private Sub Command1_Click ()
Command2.Visible = True
End Sub

**Niv_03** · 13.10.2007, 14:32

Цитата:

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

В VB команда Print выводит на принтер кажется

Она выводит данные на саму форму...

Код:

c = Val(InputBox("Введите натуральное десятичное число", "Ввод числа", 1))
d = c

Зачем лишние действия делаешь, или так и должно быть по заданию?

Cot · 13.10.2007, 14:35

А где можно скачать этот Basic? Хочу поучиться программировать!)

**Niv_03** · 13.10.2007, 16:18

Cot11, Похвально, но на долго ли тебя хватит....шучу

У меня есть дистрибутив на 95,2 метра.
Кстати, надо себе поставить, вспомнить былое

Cot · 13.10.2007, 16:35

Niv_03, Не мог бы подкинуть ссылочку?
PS Спасибо заранее.

**BuPTy03** · 13.10.2007, 16:53

Цитата:

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

У меня есть дистрибутив на 95,2 метра.

Что-то мало. Чистый ВБ 6.0?
Если да, выложи плз на каком-нить из хостингов типа депозитфайлз

**Niv_03** · 13.10.2007, 17:35

Цитата:

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

Чистый ВБ 6.0?

Да.
Ок выложу, как только вечером домой приду.

Cot · 13.10.2007, 17:39

Niv_03,

PS Буду ждать basic`а))

Fender Stratocaster · 13.10.2007, 21:02

BuPTy03, print эт значит показать))) Спасибо что выручил

Niv_03, по заданию

**Niv_03** · 13.10.2007, 23:05

С этим нетом с ума сойти можно

, сейчас не получается залить, попробую позже, ночью, а может с утра...

Fender Stratocaster · 13.10.2007, 23:34

Goose, Ваще используй поиск!

но седня я добрый))

скачать Microsoft Visual Basic 6.0 pro + sp6 + keygen

Cot · 14.10.2007, 00:00

Fender Stratocaster, Зачем мне его использовать, если Niv_03 сам согласился его выложить?))
PS За ссылку сенк.

Fender Stratocaster · 14.10.2007, 00:14

Goose, контрибутер а не знает чтоб не писать сообщения есть кнопка "Респект"

**BuPTy03** · 14.10.2007, 01:05

Fender Stratocaster, ты уж извини, но там 6 частей, при том с рапидшары, которая у меня никогда не освобождается.
На рапиду можно закачать 100 метров, тут, по ходу, от 500 до 600, так что лучше подождем Niv_03 )

**Niv_03** · 14.10.2007, 01:21

Вот и дождались... http://depositfiles.com/files/2041883 Прошу...там прям ехе'шником лежит, паковал, но толку ноль, так,что так забирайте...

Cot · 14.10.2007, 09:17

Fender Stratocaster,

10.10.2007, 16:47	#1
Fender Stratocaster Мотоспец Адрес: из Кал-града Телефон: L9 Прошивка: SW Upgrade in progres...=) Сообщений: 400 Уровень респекта: 225	Помогите c Microsoft Visual Basic Надо составить программу где можно будет посчитать сумму цифр произведение цифр типа жмешь на кнопку вводишь числа (в 2 разные ячейки) и чтоб ответ выводился на Text box'e кто поможет поставлю респект

10.10.2007, 22:40	#2
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,235 Уровень респекта: 3,386	Мда... Офигительно сложная задача ) Создай на форме: Text1 - поле для ввода первого числа Text2 - второго числа Text3 - вывод результата Command1 - кнопка "Сумма" Command2 -кнопка "Произведение" Код: Private Sub Command1_Click () Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click () Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Может где-т опечатался - у меня нету щас студии - писал прям сюда.

12.10.2007, 15:21	#3
Fender Stratocaster Мотоспец Адрес: из Кал-града Телефон: L9 Прошивка: SW Upgrade in progres...=) Сообщений: 400 Уровень респекта: 225	BuPTy03, все работает а еще такой вопрос Кол-во цифр в числе Код: Private Sub Command3_Click() c = Val(InputBox("Введите натуральное десятичное число", "Ввод числа", 1)) d = c k = 0 Do While d > 0 d = Int(d / 10) k = k + 1 Loop Print "Кол-во цифр в числе"; c; "равно"; k End Sub как сделать чтоб отображало на "Text 3" ? и еще вопрос как сделать чтобы при нажатии кнопки появилась другая кнопка?

12.10.2007, 23:16	#4
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,235 Уровень респекта: 3,386	Fender Stratocaster, короче, всё просто. Чтобы в текстбоксе появилось какое-то значение, просто представь что его имя - это переменная. То есть Text3.Text = k (вроде можно ".Text" даже не писать) Не пойму только, почему ты в коде используешь синтаксис от QB ) В VB команда Print выводит на принтер кажется Чтобы появилась кнопка: Создай на форме 2 кнопки: Command1 и Command2 У второй кнопки выстави аттрибут Visible на False В коде пропиши: Код: Private Sub Command1_Click () Command2.Visible = True End Sub

13.10.2007, 17:39	#11
Cot Guest Сообщений: n/a	Niv_03, Был кот Вася - теперь Гузя. PS Буду ждать basic`а))


Этот пользователь выразил Респект BuPTy03	Fender Stratocaster

13.10.2007, 14:35	#6
Cot Guest Сообщений: n/a	А где можно скачать этот Basic? Хочу поучиться программировать!)

13.10.2007, 16:18	#7
Niv_03 Mons Regalis Адрес: OstPreuβen Königsberg Pr. Kanonenweg Телефон: Nokia 6681 Сообщений: 35 Уровень респекта: 153	Cot11, Похвально, но на долго ли тебя хватит....шучу У меня есть дистрибутив на 95,2 метра. Кстати, надо себе поставить, вспомнить былое

13.10.2007, 16:35	#8
Cot Guest Сообщений: n/a	Niv_03, Не мог бы подкинуть ссылочку? PS Спасибо заранее.


Этот пользователь выразил Респект Niv_03

13.10.2007, 21:02	#12
Fender Stratocaster Мотоспец Адрес: из Кал-града Телефон: L9 Прошивка: SW Upgrade in progres...=) Сообщений: 400 Уровень респекта: 225	BuPTy03, print эт значит показать))) Спасибо что выручил Niv_03, по заданию

13.10.2007, 23:05	#13
Niv_03 Mons Regalis Адрес: OstPreuβen Königsberg Pr. Kanonenweg Телефон: Nokia 6681 Сообщений: 35 Уровень респекта: 153	С этим нетом с ума сойти можно , сейчас не получается залить, попробую позже, ночью, а может с утра...

13.10.2007, 23:34	#14
Fender Stratocaster Мотоспец Адрес: из Кал-града Телефон: L9 Прошивка: SW Upgrade in progres...=) Сообщений: 400 Уровень респекта: 225	Goose, Ваще используй поиск! но седня я добрый)) скачать Microsoft Visual Basic 6.0 pro + sp6 + keygen

14.10.2007, 00:00	#15
Cot Guest Сообщений: n/a	Fender Stratocaster, Зачем мне его использовать, если Niv_03 сам согласился его выложить?)) PS За ссылку сенк.

14.10.2007, 00:14	#16
Fender Stratocaster Мотоспец Адрес: из Кал-града Телефон: L9 Прошивка: SW Upgrade in progres...=) Сообщений: 400 Уровень респекта: 225	Goose, контрибутер а не знает чтоб не писать сообщения есть кнопка "Респект"

14.10.2007, 01:05	#17
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,235 Уровень респекта: 3,386	Fender Stratocaster, ты уж извини, но там 6 частей, при том с рапидшары, которая у меня никогда не освобождается. На рапиду можно закачать 100 метров, тут, по ходу, от 500 до 600, так что лучше подождем Niv_03 )

14.10.2007, 01:21	#18
Niv_03 Mons Regalis Адрес: OstPreuβen Königsberg Pr. Kanonenweg Телефон: Nokia 6681 Сообщений: 35 Уровень респекта: 153	Вот и дождались... http://depositfiles.com/files/2041883 Прошу...там прям ехе'шником лежит, паковал, но толку ноль, так,что так забирайте... Да кста...чуть не забыл вводим при установке все единицы


Следующие 2 пользователя(ей) выразили Респект Niv_03:	BuPTy03

14.10.2007, 09:17	#19
Cot Guest Сообщений: n/a	Fender Stratocaster, Я то знаю - но я же не обязан..