Программа определение кода символа
Вашему вниманию представляется программа для вычисления кода символа.
1. Для вычисления кода любого символа, нужно в текстовое поле находящееся над кнопкой «Определить код символа» ввести любой символ, и далее нажать на эту кнопку. В результате в текстовое поле находящееся ниже этой кнопки будет выведен десятичный код этого символа.
2. Для вывода кодировочной таблицы Windows нужно нажать кнопку: «Вывести кодировочную таблицу» будет выведена таблица с десятичными и шестнадцатеричными значениями.
Основной код программы VERSION 5.00:
Private Sub cmd1_Click()
txt2.Text = Asc(txt1.Text)
End Sub
Private Sub cmd2_Click()
txtKod = ""
txtKod.Text = txtKod.Text & "СИМВОЛ | HEX | DEC" & Chr(13) & Chr(10) & " "
For N = 33 To 255 Step 1
strA = Chr(N)
txtKod.Text = txtKod.Text & strA & " | " & Hex(N) & " | " & N & Chr(13) & Chr(10) & " "
Next N
End Sub
Скачать готовую программу: http://kosmonavtom.rusedu.net/gallery/143/2010-01-24_Kod_simvola_i_kodirovochnaya_tablica.zip