Веб программирование

Вычисление процентов в VB

 
 

 Сегодня мы будем делать вычислитель процентов в Вижуал бейсик. На самом деле я делал эту программу для друзей . Слышали когда-нить про игру Point Blank? Там есть такой прикол, как соотношение У/С (убийств к смертям). Меня попросили сделать прогу с помощью которой можно будет вычислять сколько нужно еще убить  что-бы Повысить свой процент У/С .
 вычислитель

Ну так вот делаем такую вот фиговину. ЕЕ можно считать как процентный кулькулятор , хотя насрать. 
Добавляем на форму 4 текстбокса и 2-е кнопки. 

 Далее пишем вот такой вот код:

Dim a As Integer ' Вводим переменную

Private Sub Command1_Click() ' 1-ая кнопка . Узнать У/С
a = Val(Text1.Text) + Val(Text2.Text) ' Что-бы упростить нам работу делаем вот так.
Text3.Text = Text1.Text * 100 / a ' Далее пишем процентное уравнение с переменной
End Sub

Private Sub Command2_Click() ' Узнать сколько осталось до апа 
Text4.Text = a / 100 ' находим сколько будет убийств в одном проценте.
End Sub

Private Sub Menu1_Click() ' Menu1- это первая кнопка в менюхе то есть Справка. 
Form2.Show ' Делаем так , чтобы после нажатия Справка открывалась Form2 .
End Sub

Во второй форме я лично сделал 4 лейбела. в первом Написал я " О программе"
во втором я написал :"С помощью этой простой программы ты можешь вычислять свой процент Убиств/смертей в разных играх . К примеру Point Blank . А также вычислять сколько тебе осталось убить в этой игре противников. Сперва введи колво убийств и смертей , далее нажми кнопку Узнать У/С далее у тебя в поле Твой процент У/С высветится процент У/С. Далее нажми кнопку Сколько осталось до апа. и в последнем (4-м) окне у тебя высветится результат.Он может быть не целым числом.Так что округляй его так как тебе нравится. " В третьем лейбеле я паисал "Дата написания проги 05.11.12"  В четвертом я написал " Автор : Megustan". 
На этом все . не судите строго

Не судите строго. Плз 


Есть вопросы? Спроси на нашем форуме!!
Megustan [05.11.2012 16:43]

Мне почему то кажется что у меня там где то ошибка не подскажете где?

EverybodyLies [05.11.2012 17:24]

Ладно бы еще сделал с нормальными типами данных... Не вижу в этом смысла.

Release [05.11.2012 18:59]

"' Вводим переменную" - такое в следующий раз не пиши.

Кулхацкер [05.11.2012 19:07]

Ох Megustan-Megustan, что-ж с тобой делать?

В сарай али не в сарай?

Megustan [05.11.2012 19:10]

как хочешь желательно не в сарай

geranazavr555 [05.11.2012 20:10]

Мда... в сарай его (сори)

Кулхацкер [06.11.2012 05:55]

На суровый суд Лайса или Алекса. Пусть решают, лентяи...

EverybodyLies [07.11.2012 20:31]

1) Код написан немного криво (не соблюдены типы данных);
2) Кол-во смертей\убийств в PB, насколько я знаю, расчитывается не так. при 50\50 отношение = 1;
3) Программа не представляет практической ценности...
а посему, отправляю ее в сарай.

Алексей(alex13sh) [07.11.2012 21:18]

А что сразу я??
меня неделю небыло((
Я всеми руками ЗА!! (в сарай!!)

безценноая ст.

Megustan, а за правильность написание кода тебе 2 может быть 2.5 (это слишком) )))

Кулхацкер [09.11.2012 18:30]

Они убили Megustan'a.

KrIvEdKA [14.11.2012 20:14]

Щитоэто??? Чувак лучше русский, а потом уже ЯП.

4e4eH [22.11.2012 03:19]

Автор скорее всего школота

Troll [22.11.2012 23:44]

Толсто ! Я бы даже сказал слишком толсто



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.