Санок тизими
материал по информатике и икт (10 класс) на тему
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
По теме: методические разработки, презентации и конспекты
Л.Сачковăн "Чĕкеçĕм,чĕкеç..." хайлавĕнчи Ырăпа Усал.
8 класра чăваш литературипе проект мелĕпе ирттермели урок конспекчĕ...
![](/sites/default/files/pictures/2013/01/10/picture-175882-1357845098.jpg)
ИНСТРУКЦИЯ по правилам безопасности на СНЕЖНОЙ (ЛЕДЯНОЙ) ГОРКЕ ,по правилам безопасности во время ГОЛОЛЕДА, при катании на санках
Зима прекрасное время для веселых подвижных игр на свежем морозном воздухе, к которым относится и катание со снежных (ледяных) горок. Можно получи...
![](/sites/default/files/pictures/2013/04/02/picture-229687-1364903314.jpg)
Санки для Снегурочки
Данная презентация даёт учащимся возможность уяснить в ходе выполнения задания сущность масштабного увеличения, а также технологию изготовления изделия, пригодного для дальнейшего использования в быту...
"Саами - коренной малочисленный народ России"
Данная презентация расчитана на школьников 6-8 классов как дополнение к образовательному процессу и как информация об исконном народе российского государства.Саамы (лопари) - небольшой народ Севера Ев...
![](/sites/default/files/pictures/2013/08/12/picture-272888-1376284572.jpg)
Сценарий Детской шоу-программы "Джуманджи: Саяны-Гиндукуш-Гималаи" Международного медийного фестиваля дикой природы "Мой снежный барс".
Сценарий Детской шоу-программы "Джуманджи: Саяны-Гиндукуш-Гималаи" Международного медийного фестиваля дикой природы "Мой снежный барс"....