Визуал бейсикде санак тізімін есептеу
материал по информатике и икт (8 класс) на тему
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(c)
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
Скачать:
Вложение | Размер |
---|---|
Визуал бейсикде санак тізімін есептеу | 35.21 КБ |
Предварительный просмотр:
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(c)
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
По теме: методические разработки, презентации и конспекты
Визуал, аудиал, кинестетик, дискрет - кто это?
Каждый человек, в т.ч. и ребенок, по-разному воспринимает и перерабатывает информацию, поступающую из окружающего мира. Как распознать ведущий канал восприятия и переработки информации? Достаточно быв...
Кто ваш ребёнок по восприятию и усвоению информации: аудиал, визуал или кинестетик?
В зависимости от особенностей восприятия и переработки информации людей условно можно разделить на три категории:Визуалы - люди, воспринимающие большую часть информации с помощью зрения.Аудиалы - те, ...
Методика "Аудиал, визуал, кинестетик"
Методика служит для определения ведущего типа восприятия: аудиального, визуального или кинестетического...
Визуал бейсикде санак тізімін есептеу
1. Форманы жасаймыз: 2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз:Private Sub Command1_Click()a = Val(Text1)c = Oct(Text1)d = Hex(Text1)Text3 = cText4 = dFor i = 1 To ...