Исходники и листинги ::: Basic ::: Калькулятор
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
  Private Sub Clear_Click()
  x = " "
  y = " "
  z = " "
  End Sub
 
  Private Sub del_proc_Click()
  If (x = " ") Or (y = " ") Or (x = "") Or (y = "") Then z = "Нет значений" Else z = (Val(x) / 100) * Val(y)
  End Sub
 
  Private Sub delen_Click()
  If (x = " ") Or (y = " ") Or (x = "") Or (y = "") Then z = "Нет значений" Else If y = 0 Then z = "На ноль делить нельзя!!!" Else z = Val(x) / Val(y)
  End Sub
 
  Private Sub Exit_Click()
  End
  End Sub
 
  Private Sub koren_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = (Val(x)) ^ (1 / 2)
  End Sub
 
  Private Sub kvadrat_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 2
  End Sub
 
  Private Sub kyb_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 3
  End Sub
 
  Private Sub sum_Click()
  If (x = " ") Or (y = " ") Or (x = "") Or (y = "") Then z = "Нет значений" Else z = Val(x) + Val(y)
  End Sub
 
  Private Sub v_stepen_Click()
  If (x = " ") Or (y = " ") Or (x = "") Or (y = "") Then z = "Нет значений" Else z = Val(x) ^ Val(y)
  End Sub
 
  Private Sub v10_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 10
  End Sub
 
  Private Sub v4_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 4
  End Sub
 
  Private Sub v5_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 5
  End Sub
 
  Private Sub v6_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 6
  End Sub
 
  Private Sub v7_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 7
  End Sub
 
  Private Sub v8_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 8
  End Sub
 
  Private Sub v9_Click()
  If (x = " ") Or (x = "") Then z = "Нет значений" Else z = Val(x) ^ 9
  End Sub
 
  Private Sub vich_Click()
  If (x = " ") Or (y = " ") Or (x = "") Or (y = "") Then z = "Нет значений" Else z = Val(x) - Val(y)
  End Sub
 
  Private Sub ymn_Click()
  If (x = " ") Or (y = " ") Or (x = "") Or (y = "") Then z = "Нет значений" Else z = Val(x) * Val(y)
  End Sub
 
  Private Sub ymn_proc_Click()
  If (x = " ") Or (y = " ") Or (x = "") Or (y = "") Then z = "Нет значений" Else z = (Val(x) * Val(y)) / 100
  End Sub
<<< Предыдущая работа

Вернуться в галерею исходников 		Калькулятор
Автор: GsU.rus
Город: Иркутск
 Дата: 25.10.2006  06:43
Комментариев: 1
Просмотров: 630
Оценка: 1 (0|1|0|0|0) [1]
Вернуться на главную
Авторский комментарий к работе: Самый элементарный калькулятор на Visual Basic 6
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Нет комментариев