Отправляет email-рассылки с помощью сервиса Sendsay

Подборка статей по Visual Basic

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
denkil

Статистика

5 подписчиков
0 за неделю
←   Все выпуски   →

Подборка статей по Visual Basic


Подборка статей по Visual Basic

 Пример работы с переменными

  На форме вы должны расставить такие объекты :

1) Кнопку с Caption'ом - Покупка ;
2) Кнопку с Caption'ом - Продажа ;
3) Надпись (Label) с Caption'ом - Деньги ;
4) Надпись (Label) с Caption'ом - 100 и Name'ом - money
5) Надпись (Label) с Caption'ом - Товар
6) Надпись (Label) с Caption'ом - 0 и Name'ом - goods
7) Надпись (Label) с Caption'ом - Цена товара
8) Надпись (Label) с Caption'ом - 10 и Name'ом - price

  Далее приступим к программированию в коде :

  Для начала объявим переменные (объяснм программе какие переменные будут у нас в программе. Для этого напишем :

  Option Explicit - тут мы как бы говорим, что будем объявлять переменные

  Dim mon - объявляем переменную с именем mon - деньги.

  Dim g - объявляем переменную с именем g - товар.

  Dim pr - объявляем переменную с именем pr - цена товара.
  Все, переменные мы объявили.

  Далее войдем в код формы (кликнув на неё 2 раза) - это будет код формы с действием Load ( действие которое исполняется при загрузке формы), и придадим переменным mon и g значения 100 и 0 соответственно :

  g = 0 - придаем переменной g значение 0

  mon = 100 - придаем переменной mon значение 100

  pr = 10 - придаем переменной pr значение 10

  Ну а сейчас создадим сами действие покупки.

  Войдите в код кнопки - Покупка и введите :

  if mon - pr => 0 then - тут идет проверка : если деньги оставшиеся после покупки будут больше или равны нулю то ...

  mon = mon - pr - придаем переменной деньги значение деньги минус цена товара, то есть от денег отнимаем цену товара.

  g = g + 1 - придаем переменной товар значение товар плюс 1 (увеличиваем значение переменной товар на 1)

  else - иначе (то есть если деньги оставшиеся после покупки будут меньше нуля то ...

  Msgbox "У вас не хватает денег на покупку" , vbCritical - выдать сообщение о том, что денег на покупку не хватит со значком ошибки.

  end if - завешаем процедуру проверки.

  money.Caption = mon - придаем свойству Caption элемента money значение переменной mon.

  goods.Caption = g - придаем свойству Caption элемента goods значение переменной g.

  А теперь создадим действие продажи. Для этого войдите в код кнопки Продажа и напишите там :

  If g - 1 >= 0 then - проверям : будет ли g минус 1 (то есть кол-во товара после того, как от него отнимут 1 больше или равно нулю) и если да то...

  mon = mon + pr - придаем переменной mon значение mon плюс 1 (то есть прибавляем к деньгам цену товара)

  g = g - 1 - придаем переменной g значение g минус 1 ( то есть отнимаем от кол-ва товара 1)

  Else - иначе, то есть если g минус 1 будет меньше нуля то ...

  Msgbox "У вас нет товара на продажу", vbCritical - выводим сообщение о том, что нет товара на продажу со значком ошибки.

  End If - заканчиваем процедуру проверки

  money.Caption = mon - придаем свойству Caption элемента money значение переменной mon.

  goods.Caption = g - придаем свойству Caption элемента goods значение переменной g.

Источник: "Программирование для студентов"

В избранное