Презентация, доклад по информатике на тему Пішінге Line (Түзу) және Shape (Фигура)

кірістіру

(Түзу) және Shape (Фигура) графикалық нысандары арқылы фигураларды кірістіруді үйрете отырып, ойлау қабілеттерін, іскерліктерін, пәнге деген қызығушылығын дамыту, сенімділікке, өз ойларын айта білуге, ұқыптылыққа тәрбиелеу.

арқылы ұйымшылдықпен жұмыс жасап, компьютерде тапсырмаларды орындай алады.

Сабақтың көрнекілігі: интербелсенді тақта, постерлер, смайликтер, үлестірме қағаздар

жаңа технологияларды жүзеге асырып, өмірге енгізу, игеру және жетілдіру - бүгінгі мектеп оқушылары сіздердің еншілеріңіз”
Н.Ә. Назарбаев

АРТЫНДА
ЖАСЫРЫЛҒАН
ӘРІПТЕР БАР, СОЛ ӘРІПТЕРДІ ҚҰРАСТЫРУ АРҚЫЛЫ ТОПТЫҢ
АТЫ ШЫҒАДЫ

LINE

SHAPE

Топ басшыларын сайлау, бағалау парағын тарату.

файлдардан қандай айырмашылығы бар?

Picture Box және Image элементтерінің айырмашылығы неде?

Қандай графикалық әдістерді білесіңдер?

Графиканың процедурасын жазғанда қандай функциялар қолданылады?

БІЛУ

Label2, Command1, Command2, Text1, Text2, Text3 басқару
элементтерін орнатыңдар.

3. Басқару элементтерінің қасиеттерін келесі кестедегідей өзгертіңдер:
 
4. Жапсыру батырмасына келесі программалық кодты жазамыз (батырманы екі рет шерту арқылы код терезесін шақырамыз):
Private Sub cmdSplic_Click() txtResult.Text = txt1.Text & txt2.Text End Sub
5. Қосу батырмасына келесі программалық кодты жазамыз (батырманы екі рет шерту арқылы код терезесін шақырамыз):
Private Sub cmdPlus_Click() txtResult.Text=Val(txt1.Text)+Val(txt2.Text) End Sub
6. Қосымшаны іске қосып, нәтижені көріңдер

түсініктерін постерге салады. Әр топ өз постерлерін қорғап, жаңа тақырыптың мазмұнын ашады

Жобаны сақтап қойыңдар.
2.     Пішінге келесі басқару элементтерін орнатып,
олардың қасиеттерін сәйкесінше өзгертіңдер:

True
End Sub
4.     Command2 батырмасына келесі процедураны жазамыз:
Private Sub Command2_Click()
End
End Sub
5.     Пішінді екі рет басып, келесі процедураны толтырыңдар:
Private Sub Form_Load()
Timer1.Enabled = False
k = 0
For i = 0 To 8
Shape1(i).Visible = False
Next
For i = 0 To 2
Line1(i).Visible = False
Next
End Sub

k >= 10 And k < 20 Then For i = 0 To 8 Shape1(i).Visible = True Next For i = 0 To 2 Line1(i).Visible = True Next Else For i = 0 To 8 Shape1(i).Visible = False Next For i = 0 To 2 Line1(i).Visible = False Next End If If  k = 20 Then k = 0 End Sub 7.     Қосымшаны іске қосып, Пуск батырмасын бассаңдар,  өшіп-жанып тұрған «қанқыз» графикалық объектісін көресіңдер.

Picture арқылы батырмаға компьютер жадынан кез келген суретті немесе Paint, Word программасына графикалық нысандарды пайдаланып, суреттер салып, сақтаңдар. Осы сақталған файлдардың адресіне сілтеме жасап, Image батырмасына кірістіріңдер.
Файлдың Scretch қасиетіне True мәнін беріңдер.
Файлдың биіктігі мен енін Қасиеттер терезесінен өз қалауларыңмен өзгертіңдер.
Файлды сақтаңдар.