Перевод целых неотрицательных чисел в различных системах счисления
Министерство образования Республики ТаджикистанТаджикский Технический Университет им. ак. М.С. Осимикафедра АСОИиУЛабораторная работа №4«Перевод целых неотрицательных чисел в различных системах счисления»Выполнил:Принял:-Душанбе 2009-Программа Enhanced ConverterPublic x0, x, i, j, z As Double Процедура инициализации приложенияPublic y As StringPrivate Sub clr_Click()inp.Text = "" Процедура очистки текстовых полей out.Text = ""End SubВнешний вид окна приложения с введёнными даннымиPrivate Sub Form_KeyPress(KeyAscii As Integer)Dim val As Stringval = Chr(KeyAscii)Select Case cmb.ListIndexCase 0Select Case valCase "0"inp.Text = inp.Text & "0"Case "1"inp.Text = inp.Text & "1"End SelectCase 1If val >= "0" And val <= "9" ThenIf val >= "8" And val <= "9" And inp.Text = "" ThenExit SubElseEnd Ifinp.Text = inp.Text & CStr(val)ElseEnd IfCase 2If (val >= "0" And val <= "9") Or (val >= "a" And val <= "f") Or (val >= "A" And val <= "F") Theninp.Text = inp.Text & CStr(val)ElseEnd IfCase 3, 4, 5If val >= "0" And val <= "9" Theninp.Text = inp.Text & CStr(val)ElseEnd IfEnd SelectEnd SubPrivate Sub inp_KeyDown(KeyCode As Integer, Shift As Integer)On Error GoTo err:If (KeyCode = vbKeyBack) Theninp.Text = Left(inp.Text, Len(inp.Text) - 1)ElseIf (KeyCode = vbKeyDelete) Theninp.Text = ""ElseEnd IfExit Suberr:BeepEnd SubPrivate Sub Form_Load()inp.Text = ""End SubPrivate Sub inp_Change()Dim d(100) As DoubleDim ds(100) As StringSelect Case cmb.ListIndexCase 0inp.MaxLength = 40If inp.Text = "" Thenout.Text = ""Exit SubElsei = (Len(inp.Text))x = 0j = 0Dox = x + (val(Mid(inp.Text, i, 1)) * (2 ^ j))i = i - 1j = j + 1Loop Until i = 0out.Text = xEnd IfCase 1inp.MaxLength = 40If inp.Text = "" Thenout.Text = ""Exit SubElsei = (Len(inp.Text))x = 0j = 0Dox = x + (val(Mid(inp.Text, i, 1)) * (8 ^ j))i = i - 1j = j + 1Loop Until i = 0out.Text = xEnd IfCase 2inp.MaxLength = 40z = 0If inp.Text = "" Thenout.Text = ""Exit SubElse
Другие файлы:
Система счисления
Порождение целых чисел в позиционных системах счисления. Почему мы пользуемся десятичной системой, а компьютеры - двоичной (восьмеричной и шестнадцате...
Действия над числами в различных системах счисления
Сопоставление наиболее важных систем счисления. Перевод целых десятичных чисел в недесятичную систему и обратно. Особенности преобразования дробей. Пр...
Разработка электронных таблиц
Организация средствами Microsoft Excel автоматического выполнения операций над представлениями чисел в позиционных системах счисления. Разработка элек...
Позиционные системы исчисления. Двоичная система счисления
Примеры правила перевода чисел с одной системы в другую, правила и особенности выполнения арифметических операций в двоичной системе счисления. Перево...
Изучение систем счисления
Возникновение понятия системы счисления. Запись чисел в позиционной системе счисления. Перевод чисел из десятичной системы в любую другую позиционную...
