2020-07-12
116
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Dim v, a1 ' Объявляем переменные
v = Val(Text1.Text) ' Присваиваем переменным значения из окон ввода
o = Val(Text2.Text) ' Если выбрана первая кнопка, вычислим сложение
If Option1.Value = True Then
a = v 'исходное число в 10-ой системе
Do
b = a Mod 2
a = a \ 2
If b >= 10 Then
s = s & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
s = s & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text3.Text = StrReverse(s) 'выводим полученное число в обратном порядке
a1 = o 'исходное число в 10-ой системе
Do
d = a1 Mod 2
a1 = a1 \ 2
If d >= 10 Then
h = h & Chr(d + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
h = h & d 'Запоминаем остаток от деления на основание
End If
Loop Until a1 = 0
Text4.Text = StrReverse(h) 'выводим полученное число в обратном порядке
End If
If Option2.Value = True Then
a = v 'исходное число в 10-ой системе
Do
b = a Mod 8
a = a \ 8
If b >= 10 Then
s = s & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
s = s & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text3.Text = StrReverse(s) 'выводим полученное число в обратном порядке
|
|
|
a1 = o 'исходное число в 10-ой системе
Do
d = a1 Mod 8
a1 = a1 \ 8
If d >= 10 Then
h = h & Chr(d + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
h = h & d 'Запоминаем остаток от деления на основание
End If
Loop Until a1 = 0
Text4.Text = StrReverse(h) 'выводим полученное число в обратном порядке
End If
If Option3.Value = True Then
a = v 'исходное число в 10-ой системе
Do
b = a Mod 16
a = a \ 16
If b >= 10 Then
s = s & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
s = s & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text3.Text = StrReverse(s) 'выводим полученное число в обратном порядке
a1 = o 'исходное число в 10-ой системе
Do
d = a1 Mod 16
a1 = a1 \ 16
If d >= 10 Then
h = h & Chr(d + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
h = h & d 'Запоминаем остаток от деления на основание
End If
Loop Until a1 = 0
Text4.Text = StrReverse(h) 'выводим полученное число в обратном порядке
End If
End Sub
Private Sub Command3_Click()
Dim First, Second, a, p ' Объявляем переменные
First = Val(Text1.Text) ' Присваиваем переменным значения из окон ввода
Second = Val(Text2.Text) ' Если выбрана первая кнопка, вычислим сложение
If Option4.Value = True Then
If Option1.Value = True Then
a = First + Second
Do
b = a Mod 2
a = a \ 2
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
If Option2.Value = True Then
a = First + Second
Do
b = a Mod 8
a = a \ 8
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке Если выбрана вторая кнопка, вычислим вычитание
|
|
|
End If
If Option3.Value = True Then
a = First + Second
Do
b = a Mod 16
a = a \ 16
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
End If 'Конец сложения
If Option5.Value = True Then
a = First - Second
If Option1.Value = True Then
Do
b = a Mod 2
a = a \ 2
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
If Option2.Value = True Then
a = First - Second
Do
b = a Mod 8
a = a \ 8
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке Если выбрана вторая кнопка, вычислим вычитание
End If
If Option3.Value = True Then
a = First - Second
Do
b = a Mod 16
a = a \ 16
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
End If 'Конец вычитания
If Option6.Value = True Then
If Option1.Value = True Then
a = First * Second
Do
b = a Mod 2
a = a \ 2
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
If Option2.Value = True Then
a = First * Second
Do
b = a Mod 8
a = a \ 8
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке Если выбрана вторая кнопка, вычислим вычитание
End If
If Option3.Value = True Then
a = First * Second
Do
b = a Mod 16
a = a \ 16
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
End If 'Конец умножения
If Option7.Value = True Then
If Option1.Value = True Then
a = First / Second
Do
b = a Mod 2
a = a \ 2
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
If Option2.Value = True Then
a = First / Second
Do
b = a Mod 8
a = a \ 8
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке Если выбрана вторая кнопка, вычислим вычитание
End If
If Option3.Value = True Then
a = First / Second
Do
b = a Mod 16
a = a \ 16
If b >= 10 Then
p = p & Chr(b + 55) 'в таблице символов символы A - Z имеют номера 65 - 90
Else
p = p & b 'Запоминаем остаток от деления на основание
End If
Loop Until a = 0
Text5.Text = StrReverse(p) 'выводим полученное число в обратном порядке
End If
End If 'Конец деления
End Sub
