Сабақтың тақырыбы:"Есептер шығару"

1. Бағдарлама жазуға дайындық жасау

Тапсырма 1.

 Пішінде сызық салып, оны экранда жылжыту, анимация эффектісін жасау.  Пішін тақтада орналастырады. Оқушыларға келесі сұрақтар қойылады?

1 Пішге қандай басқару элементтері орналастырылған?

2 Сызықтың қасиеттерін сипаттаңыз

3 Пішінде  орындалатын оқиғаларды атаңыз

4 Бағдарламаның кодын жазыңыз

 1- Тапсырма

 Бағдарлама коды:

 Private Sub Command1_Click()

Line1.X1 = Int(Form1.Width * Rnd)

Line1.Y1 = Int(Form1.Height * Rnd)

Line1.X2 = Int(Form1.Width * Rnd)

Line1.Y2 = Int(Form1.Height * Rnd)

End Sub

 Private Sub Command2_Click()

End

End Sub

 1-ші тапсырманы қорытындылау. 

 Тапсырма 2.

 - Пішінде элементтер панеліндегі қандай басқару элементтері қолданылған?

 - Пішіндегі элементтердің бағдарлама кодын жазыңыз .

 Тапсырма бойынша қосымша сұрақтар беру:

-         Көлденең айналдыру жолағы басқару элементіне  сипаттама беру.

-         Фигура басқару элементіне сипаттама беріп өту.

-         Shape қасиетінің тұсындағы цифрларға тоқталып, оларға сәкес геометриялық фигураларды атап өту.

  Екінші тапсырманы қорытындылау. Бағдарлама кодында қандай функциялар мен процедуралар қолданылғанын айтып өту.

Үшінші тапсырманы орындар алдында оқушылармен тарихи оқиғаларды еске түсіру.

1. Балалар 1,2 желтоқсанда елімізде Қазақстан Республикасында қандай үлкен тарихи оқиға болды?

Жауап:

1. Осы қаңтар айының аяғында   қандай іс- шара өткізуге дайындалып жатыр?

Жауап:

 Тапсырма 3

1. Пішінге үш берілген суреттерді орналастырыңыз, ондағы үшінші суретке  (барыс бейнесіне) анимация жасаңыз.

2. Пішінде қандай басқару элементтері      орналастырылған?

3. Таймер басқару элементін сипаттап өту.

4.  Image басқару элементін сипаттап өту

  Бағдарламаның кодын жазу

Код.

Private Sub Command1_Click()

Timer1.Enabled = True

Timer3.Enabled = True

End Sub

Private Sub Command2_Click()

End

End Sub 

Private Sub Timer1_Timer()

Image3.Left = Image3.Left + 25

End Sub

Private Sub Timer2_Timer()

Image1.Left = Image1.Left - 25

End Sub

Private Sub Timer3_Timer()

If Image3.Left