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

Визуал бейсикде Санак тізімі
[ Скачать с сервера (35.2Kb) ] 20.12.2015, 20:43
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
Категория: Информатика | Добавил: sultantashhodjaev | Теги: Визуал, Санак, бейсикде, тізімі
Просмотров: 265 | Загрузок: 90 | Рейтинг: 0.0/0
Всего комментариев: 0
avatar