Визуал бейсикте Санак тізімі - Информатика - Ұстаздарға көмек - Скачать Рефераты, слайды, тесты - Қазақстандық оқушыларға тегін рефераттар сайты
MENU
Главная » Файлы » Ұстаздарға көмек » Информатика

Визуал бейсикте Санак тізімі
[ Скачать с сервера (35.2Kb) ] 22.12.2015, 20:19
1. Форманы жасаймыз:


2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command1_Click()
a = Val(Text1)
c = Oct(Text1)
d = Hex(Text1)
Text3 = c
Text4 = d
For i = 1 To Len©
k = Mid(c, i, 1)
If k = 0 Then
Text2 = Text2.Text + "000"
Else
If k = 1 Then
Text2 = Text2.Text + "001"
Else
If k = 2 Then
Text2 = Text2.Text + "010"
Else
If k = 3 Then
Text2 = Text2.Text + "011"
Else
If k = 4 Then
Text2 = Text2.Text + "100"
Else
If k = 5 Then
Text2 = Text2.Text + "101"
Else
If k = 6 Then
Text2 = Text2.Text + "110"
Else
If k = 7 Then
Text2 = Text2.Text + "111"
End If
End If
End If
End If
End If
End If
End If
End If
Next
End Sub
3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub
4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command3_Click()
End
End Sub

http://www.referati.kz/load/ustazdarga/informatika/vizual_bejsikde_sanak_tizimi/120-1-0-4207
Категория: Информатика | Добавил: tashxodjaev2 | Теги: бейсикте, Визуал, Санак, тізімі
Просмотров: 297 | Загрузок: 98 | Рейтинг: 0.0/0
Всего комментариев: 0
avatar