T A J P R O G Панҷшанбе, 27.06.2019, 13:37
Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
VB6 [4]
VB.NET [27]

Наш опрос
Аз кадом фанн маълумотнома лозим аст!
Ҷавобҳо ҳамагӣ: 2285

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


Хисоби фоиз
14.05.2014, 02:18

 

 

Хисоби фоиз

Барномаи навбатй барои хисоб намудани фоиз хидмат менамояд. Пеш аз огози сохтани дилхох барнома мо бояд «формулахои» зарурие, ки барои хали масъала истифода мешаванд дастрас намоем. Барои хисоб кардани фоиз бояд киматро ба фоиз зарб карда ба 100 таксим намоем.

Дар барномаи мазкур чунин элементхо истифода шуд:

  1. Label – 3-то
  2. TextBox – 2-то
  3. CommandButton – 1-то

Хосияти Name-и TextBox-хоро TxtSumma, TxtFoiz ва Nam  e-и CommandButton-ро Cmd1 гузошта шуд. Хосияти Caption-и ду Label-ро «Суммаи умумй» ва «Фоиз» кайд намуда, ба Caption-и CommandButton «Натича» навишта шуд.

Сипас коди барнома бо як чумла чунин шуд:

Private Sub Cmd1_Click()

Lbljavob.Caption = Val(TxtFoiz.Text) * Val(TxtSumma.Text) / 100

End Sub

Албатта мешавад дар код шартхо низ гузошт, ки дар холати холй ё гайриадад будани TextBox-хо хато гуфта амал ичро нашавад:

If Not IsNumeric(TxtFoiz.Text) Or Not IsNumeric(TxtSumma.Text) Then

MsgBox (“Адад дохил намоед!”)

TxtSumma.Text = “”

TxtFoiz.Text = “” 

Lbljavob.Caption = “”

Exit Sub

End If

Хаминтарик намуди зохирии барнома чунин шуд:

 
Категория: VB.NET | Добавил: aplove
Просмотров: 423 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Ном *:
Email:
Код *:
Реклама

Поиск

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.