Visual Basic ортасында басқару элементтері бойынша практикалық жұмыс (Ғажайып жетілік)

В и з у а л ь д ы п р о г р а м м а л а у

Ақтөбе облысы

Шалқар ауданы

№ 6 орта мектебінің информатика пәні мұғалімі

Досмалова Гүлжанар

Төменде ұсынылып отырған практикалық жұмыс - Visual Basic ортасында өз беттерінше программаларды құру арқылы, оқушылардың пәнге деген қызығушылығын, ойлау қабілетін және шығармашылық жұмысын арттыруға негізделген.

Сабақтың тақырыбы : Б а с қ а р у э л е м е н т т е р і

Сабақтың мақсаты:

Оқушыларға элементтер панелі компоненттерін дұрыс қолдануды, жобалау, программа мәтінін дұрыс құра білуді меңгерту;
Теориялық білімдерін практикамен ұштастыра білуге, шығармашылыққа баулу, логикалық ойлау қабілетін дамыту;
Өз бетінше жұмыс жасай білуге, шапшаңдыққа, ұқыптылыққа тәрбиелеу.

Сабақтың типі: аралас сабақ

Қолданылатын көрнекі құралдар: интерактивті тақта, слайд материалдары

Оқыту әдісі: практикалық - шығармашылық әдіс

Сабақтың барысы:

І. Ұйымдастыру

ІІ. Үй тапсырмасын тексеру

(Басқару батырмалары бойынша интерактивті тақта арқылы беріледі)

Қайталау сұрақтары :

Басқару элементтерінің қызметін атаңыздар

. . .

Visual Basic ортасында қолданба құру неше кезеңге бөлінеді?

- Қолданба құру екі кезеңнен тұрады

1. Экрандық интерфейсті жобалау

2. Программа мәтінін жазу

ІІІ. Практикалық жұмыс

Практикалық жұмыс негізінен « Ғажайып жетілік » деп аталатын 7 бөлімнен тұрады, әр бөлімде түрлі практикалық тапсырмалар берілген:

10 - Shape (Фигура) элементі арқылы төмендегі тапсырманы орындау:

20 - « Берілген телеграммадағы сөздің санын анықтау» қосымшасын жасау :

Private Sub Command1_Click()

f = InputBox("matin engiz")

n = Len(f)

k = 0

For i = 1 To n

p = Mid(f, i, 1)

If p = " " Then k = k + 1

Next

Print "сіздіњ телеграмманызда"; k + 1; "соз бар"

End Sub

Private Sub Command2_Click()

Form4. Show

End Sub

30 - « Ағымдағы уақыт пен мерзімді шығаратын » қосымшасын жасау:

Private Sub Timer 1_Timer()

Form1. Caption= Time& “ ” & Date

Label1. Caption = Time

Text1. Text=Date

End Sub

40 - « Ә ріп санын анықтау » қосымшасын жасау :

Private Sub Command1_Glick ()

F=InputBox (“Фамилияңызды енгіз”)

N=Len (F)

Print “Сіздің фамилияңызда” : N : ”әріп бар ”

End Sub

50 - « ЕСҮ табу » қосымшасын жасау:

Private Sub Command1_Click()

а = Val(Text1. Text)

b = Val(Text2. Text)

If a > b Then MsgBox "max=a" Else MsgBox "max=b"

End Sub

60 - « Енгізілген санның жұп не тақ сан екендігін анықтайтын » қосымша жасау:

Private Sub Command1_Click()

Dim a As Integer

Dim s As String

a = Val(Text1. Text)

Select Case a Mod 2

Case Is = 0

s = "zhup"

Case Is <> 0

s = "tak"

End Select

Label1. Caption = s

End Sub