Реферат по предмету "Информатика, программирование"


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

Министерствообразования Республики Таджикистан
ТаджикскийТехнический Университет им. ак. М.С. Осими
кафедраАСОИиУ
Лабораторнаяработа №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
If val >=«8» And val
Exit Sub
Else
End If
inp.Text =inp.Text & CStr(val)
Else
End If
Case 2
If (val >=«0» And val = «a» And val= «A» And val
inp.Text =inp.Text & CStr(val)
Else
End If
Case 3, 4, 5
If val >=«0» And val
inp.Text =inp.Text & CStr(val)
Else
End If
End Select
End Sub
Private Subinp_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoToerr:
/>If (KeyCode = vbKeyBack)Then
inp.Text =Left(inp.Text, Len(inp.Text) — 1)
ElseIf(KeyCode = vbKeyDelete) Then
inp.Text =""
Else
End If
Exit Sub
err:
Beep
End Sub
Private SubForm_Load()
inp.Text =""
End Sub
Private Subinp_Change()
/>Dim d(100) As Double
Dim ds(100) AsString
Select Casecmb.ListIndex
Case 0
inp.MaxLength= 40
If inp.Text ="" Then
out.Text =""
Exit Sub
Else
i =(Len(inp.Text))
x = 0
j = 0
Do
x = x +(val(Mid(inp.Text, i, 1)) * (2 ^ j))
i = i — 1
j = j + 1
Loop Until i =0
out.Text = x
End If
Case 1
inp.MaxLength= 40
If inp.Text ="" Then
out.Text =""
Exit Sub
Else
i =(Len(inp.Text))
x = 0
j = 0
Do
x = x +(val(Mid(inp.Text, i, 1)) * (8 ^ j))
i = i — 1
j = j + 1
Loop Until i =0
out.Text = x
End If
Case 2
inp.MaxLength= 40
z = 0
If inp.Text ="" Then
out.Text =""
Exit Sub
Else
i =(Len(inp.Text))
x = 0
j = 0
Do
Select CaseMid(inp.Text, i, 1)
Case«A», «a»
z = 10
Case«B», «b»
z = 11
Case«C», «c»
z = 12
Case«D», «d»
z = 13
Case«E», «e»
z = 14
Case«F», «f»
z = 15
Case«0», «1», «2», «3», «4»,«5», «6», «7», «8», «9»
z =val(Mid(inp.Text, i, 1))
End Select
x = x + z *(16 ^ j)
i = i — 1
j = j + 1
Loop Until i =0
out.Text = x
End If
Case 3
inp.MaxLength= 15
On Error GoToerr:
If inp.Text ="" Then
out.Text =""
Exit Sub
ElseIfval(inp.Text) = 0 Or val(inp.Text) = 1 Then
out.Text =inp.Text
Exit Sub
Else
i = 1
x0 =val(inp.Text)
Do
d(i) = val(x0- (val(x0 / 2) * 2))
x = Round((x0/ 2) — 0.3, 0)
i = i + 1
x0 = x
Loop Until x =1
d(i) = x
out.Text =""
Do
out.Text =out.Text & val(d(i))
i = i — 1
Loop Until i =0
End If
Case 4
inp.MaxLength= 15
On Error GoToerr:
If inp.Text ="" Then
out.Text =""
Exit Sub
Else
i = 1
x0 =val(inp.Text)
If x0 >= 0And x0
out.Text =inp.Text
Exit Sub
Else
Do
d(i) = val(x0- (val(x0 / 8) * 8))
x = val(x0 /8)
If x >= 0And x
i = i + 1
d(i) = x
Exit Do
Else
i = i + 1
x0 = x
End If
Loop Until x =1
out.Text =""
Do
out.Text =val(out.Text) & val(d(i))
i = i — 1
Loop Until i =0
End If
End If
Case 5
inp.MaxLength= 15
z = 0
If inp.Text ="" Then
out.Text =""
Exit Sub
Else
i = 1
x0 =val(inp.Text)
Ifval(inp.Text) >= 0 And val(inp.Text)
Select Caseval(inp.Text)
Case 10
y =«A»
Case 11
y =«B»
Case 12
y =«C»
Case 13
y =«D»
Case 14
y =«E»
Case 15
y =«F»
Case 0, 1, 2,3, 4, 5, 6, 7, 8, 9
y = inp.Text
End Select
out.Text = y
Exit Sub
Else
Do
z = val(x0 — (val(x0 / 16) * 16))
Select Case z
Case 10
y =«A»
Case 11
y =«B»
Case 12
y =«C»
Case 13
y =«D»
Case 14
y =«E»
Case 15
y =«F»
Case 0, 1, 2,3, 4, 5, 6, 7, 8, 9
y = CStr(z)
End Select
ds(i) = y
x = val(x0 /16)
If x
i = i + 1
x0 = x
Loop Until x =1
out.Text =""
Do
out.Text =out.Text & ds(i)
i = i — 1
Loop Until i =0
End If
End If
End Select
Exit Sub
err:
MsgBox «Введены неверные значения илизначения не являются корректными»,, "=VaMp1r3=™"
Call clr_Click
End Sub
Private Subcmb_Click()
Call clr_Click
End Sub
Private Subext_Click()
End
End Sub
Private Subcop_Click()
MsgBox "=VaMp1r3=™.Все права защищены. По всем вопросам а также с претензиями обращаться в гр.6546 Б2 к Столову Юрию.",, "=VaMp1r3=™"
End Sub


Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Silly Old Bear Essay Research Paper Silly
Реферат Крестовый поход солнца
Реферат Оптимізація параметрів динамічної системи підресорювання корпуса БТР
Реферат Техника предварительной ласки
Реферат Воздействия электрического тока на организм человека
Реферат Стратегия и тактика ценообразования 2
Реферат Подтверждение соответствия продовольственных товаров
Реферат Stripes Essay Research Paper StripesCharactersJohn Winger Bill
Реферат Определение скоростных характеристик автомобиля ЗИЛ-431410
Реферат Кредитний механізм в комерційних банках
Реферат Определение тяговой мощности электровоза
Реферат Определение эксплуатационных и технологических параметров причала и нормативного времени стоянки
Реферат Определение температуры охлаждающей среды и скоропортящихся грузов
Реферат Реализация системы технического зрения (СТЗ) на базе многокристального микропроцессора (К1804)
Реферат Анализ Указа Президента Республики Беларусь от 27032008 178 О порядке проведения и контроля