Проект Коды символов Проект Перевод чисел Проект Калькулятор

В проекте на форме создаются управляющие элементы: 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