Категория
Информатика
Тип
реферат
Страницы
4 стр.
Дата
04.04.2014
Формат файла
.html — Html-документ
Архив
1015926.zip — 2.38 kb
  • perevod-celyx-neotricatelnyx-chisel-v-razlichnyx-sistemax-schislenija_1015926_1.html — 6.7 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Министерствообразования Республики Таджикистан

ТаджикскийТехнический Университет им. ак. М.С. Осими

кафедраАСОИиУ

Лабораторнаяработа №4

«Переводцелых неотрицательных чисел в различных системах счисления»

Выполнил:

Принял:

-Душанбе2009-


ПрограммаEnhanced Converter

Public x0, x, i, j, z As Double Процедура инициализации приложения

Public y AsString

Private Subclr_Click()

inp.Text = "" Процедура очистки текстовых полей

out.Text = ""

End Sub

/>

Внешний вид окнаприложения с введёнными данными

Private SubForm_KeyPress(KeyAscii As Integer)

Dim val AsString

val =Chr(KeyAscii)

/>Select Case cmb.ListIndex

Case 0

Select Caseval

Case«0»

inp.Text =inp.Text & «0»

Case«1»

inp.Text =inp.Text & «1»

End Select

Case 1

If val >=«0» And val <= «9» Then

If val >=«8» And val <= «9» And inp.Text = "" Then

Exit Sub

Else

End If

inp.Text =inp.Text & CStr(val)

Else

End If

Case 2

If (val >=«0» And val <= «9») Or (val >= «a» And val<= «f») Or (val >= «A» And val <= «F»)Then

inp.Text =inp.Text & CStr(val)

Else

End If

Case 3, 4, 5

If val >=«0» And val <= «9» Then

inp.Text =inp.Text & CStr(val)



Ваше мнение



CAPTCHA