Visual Basic

[kukli]

Привет программеры, вы тут такие шаристые, молодцы!-))

мне уже в одном вопросе помогли - спасибо большое-))

а вот дали задание: Даны координаты вектора (их мы сами записываем потом в пустом окошке)

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

26052011181.jpg

[kukli]

Мне препод сказал что это самое лекгое..ноя блин в этом ваще ни бум бум

теорему Пифагора незнаю....стыдновато канешно -))

[Biggs]

a=val(text1)
b=val(text2)
c=val(text3)
Length=sqrt(a^2+b^2+c^2)

[kukli]

ой и это все??-))
прям работать будет??

спасибо вам молодой человек)

[Biggs]

Неа, это не программа , а только ее ядро,
тебе надо сделать для него упаковку , создать проект , поместить на форму контролы и вывести результат на метку
Справишься?

[kukli]

ну форму я сделала все эти кнопочки и окошечки

а потом когда нажимаю двойным щелчком по кнопке "вычислить" у меня выскакивает окно уда код ввести надо
так вот там вроде как написано

Sub main ()






End


а вот между этими словами надо код вписать какой?

[Biggs]

На форме три текстовых поля ,кнопка и метка
Код для кнопки
Private Sub Command1_Click()
Dim a as double,b as double ,c as Double,Length as Double
a=Val(text1.text)
b=Val(text2.text)
c=Val(text3.text)
Length=sqrt(a^2+b^2+c^2)
Label1.Caption= "Длина вектора равна" & Str(Length)
End Sub

[kukli]

ок спасибооочки просто огроомное!-)

а код я так поняла тольк для кнопки писать нужно?-))

[Biggs]

Код только для кнопки, я его немного изменил Label1.Caption="Длина вектора равна" & Str(Length)
Но нужно еще зайти в свойства(Параметры или Properties) и у кнопки изменить параметр Caption надо написать -Вычислить
Кроме того слева от текстовых полей поставь три маленьких метки и присвой им также Caption -a=,b=,c=

[kukli]

ок приду дамой сделаю отпишусь))

у меня просто завтра экзамен..думаю все получиться-)) Thanks