Визуал бейсикде санак тізімін есептеу
материал по информатике и икт (8 класс) на тему

Ташходжаев Султанмурат Акмалович

 

 

1. Форманы жасаймыз:

image

 

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 = 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 ...