Проект “Коды символов”

Проект “Коды символов”
Проект “Перевод чисел”
Проект “Калькулятор”
В проекте на форме создаются управляющие элементы:
1.textbox1 – для ввода символа, textbox2 – для вывода кода
символа, button1 “Asc” – кнопка для событийной процедуры ,
реализующей преобразование символа в числовой код.
2.Listbox1 – многострочный список для вывода символов и их
числовых кодов, button12 “Chr” – кнопка для событийной
процедуры, реализующей преобразование числового кода в
символ.
Программный код
Public Class Form1
Dim N As Integer
Dim sss As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button1.Click
‘ Преобразование числового кода в символ
For N = 255 To 0 Step -1
sss = Chr(N) + " - числовой код " + Str(N)
ListBox1.Items.Add(sss)
Next N
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button2.Click
‘ Преобразование символа в числовой код
sss = TextBox1.Text
TextBox2.Text = Str(Asc(sss))
End Sub
End Class
Проект “Перевод чисел”
 На форме создаются управляющие элементы:
textbox1 – для ввода десятичного числа, textbox2– для вывода преобразованного
восьмеричного числа, textbox3 – для вывода преобразованного шестнадцатеричного числа, button1 1 “Перевод в восьмеричное” – кнопка для событийной
процедуры , реализующей преобразование в восьмеричное число в строковой
форме, button12 “Перевод в шестнадцатеричное” – кнопка для событийной
процедуры, реализующей преобразование в шестнадцатеричное число в
строковой форме.
Программный код
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
‘ Преобразовать в восьмеричную строковую форму
TextBox2.Text = Oct(Val(TextBox1.Text))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
‘Преобразовать в шестнадцатеричную строковую форму
TextBox3.Text = Hex(Val(TextBox1.Text))
End Sub
End Class
Проект “Калькулятор”
На форме создаются управляющие элементы:
textbox1 – для ввода 1 –го операнда, textbox2– для ввода 2-го операнда,
textbox3 – для вывода результата вычисления , button1 1 “+” – кнопка для
событийной процедуры , реализующей сложение двух чисел, button12 “-”
– кнопка для событийной процедуры, реализующей вычитание двух
чисел, button13 “*” – кнопка для событийной процедуры, реализующей
умножение двух чисел, button14 “/” – кнопка для событийной процедуры,
реализующей деление двух чисел.
Программный код
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
TextBox3.Text = Str(Val(TextBox1.Text) + Val(TextBox2.Text))
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
TextBox3.Text = Str(Val(TextBox1.Text) * Val(TextBox2.Text))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
TextBox3.Text = Str(Val(TextBox1.Text) - Val(TextBox2.Text))
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
TextBox3.Text = Str(Val(TextBox1.Text) / Val(TextBox2.Text))
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Me.Close()
End Sub
End Class