Орта мектепте жаңа оқыту технологиялар көмегімен оқушылардың физика сабағына қызығушылығын арттыру

10 Мақамбаев М. Педагогикалық технологияны оқу процесінде қолдану /М. Мақамбаев// Математика және физика. -2004. -№1.

11 Ақтанова А. Оқутыдың жаңа технологиясын пайдалану – сапалы білім негізі /А. Ақтанова// Математика және физика. -2005. -№1.

12 Абылкасымова А.Е. Современный урок. Оқу құралы: Современные методы обучения.-Алматы, НИЦ «Ғылым», 2003. -85б.

13 Өтегенова Г. Модульдік оқыту технологиясы /Г. Өтегенова// Математика және физика. -2003. -№3.-31б.

14 Алиханова Ш. Деңгейлеп оқыту  технологиясын пайдалана отырып, оқушылардың шығармашылық әрекетін дамыту /Ш. Алиханова// Физика және астрономия. – 2006. -№2. -6б.

15 Қажымғалиева К. Жаңа технология – физикада /К. Қажымғалиева// Физика және астрономия. -2006. -№2, 5бет.

16 Жақыпова Н. Физика сабағында компьютерлік технологияны тиімді пайдалану /Н. Жақыпова// Физика және астрономия. -2002. -№4. -61б.

17 Шалимбетова Т. Сабақта жаңа технология әдісін қолдану /Т. Шалимбетова// Математика және физика. -2005.-№5.-47б.

18 Исаев Ү. Тест тапсырмалары / Ү. Исаев // Физика және информатика. - 2006.-№1.

19 Қаленова Б.С. Visual Basic-те бағдарламалау /Б.С. Қаленова, Н.Ф.      Денисова//, Өскемен «ШҚМУ баспасы», 2003.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША А

 

 

 

 

 

 

 

ҚОСЫМША Б

 

 

 

 

 

 

  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША В

 

 

ҚОСЫМША Г

 

 

Dim i As Integer

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim c1 As Integer

Dim X As Boolean

Dim Y As Long

Dim z As Long

Dim Zstep As Long

Dim Ystep As Long

 

'случайный выбор

Dim mas As Variant

Dim mas1 As Variant

Dim a1 As Integer

Dim a2 As Integer

Dim sl As Integer

 

Private Sub Command1_Click()

test

End Sub

Private Sub Form_Activate()

 

X = True

While X

DoEvents

If Form1.Visible = False Then

End

End If

 

Wend

End Sub

Private Sub test()

Label1.Caption = "Билет №" + CStr(a1)

Randomize

sl = Fix(Rnd() * 19) + 1

While Not mas(sl)

sl = Fix(Rnd() * 19) + 1

Wend

a = sl

mas(sl) = False

 

If a1 > 1 Then

If Option1.Item(a2).Value = True Then

b = b + 1

MsgBox "ДУРЫС!!!", 0, "Жарайсын!!!"

Else

MsgBox "НАШАР!!!ОКУ КЕРЕК!!!", 0, "КАТЕ!!!"

End If

End If

 

If a = 1 Then

Label6.Caption = "Мына жагдайлардын  кайсысында гарыш кемесин материалык  нукте деп санауга болады?"

Label2.Caption = "Зауыттын арнайы цехында  кемени монтаждауда"

Label3.Caption = "Кеме орбита бойымен  козгалган жагдайда"

Label4.Caption = "Кеме старт аланында турганда"

Label5.Caption = "Корсетилген жагдайлардын  барлыгында"

End If

 

 

If a = 2 Then

Label6.Caption = "Жузгиш озен агысынын  багытымен жузип келеди. Онын  суга катысты жылдамдыгы 1,5 м/с, ал  озен жылдамдыгы 0,5 м/с. Жузгиштин  жагага катысты жылдамдыгы кандай?"

Label2.Caption = "0,5 м/с"

Label3.Caption = "Жауап тардын ешкайсысы  емес"

Label4.Caption = "10 м/с"

Label5.Caption = "1 м/с"

End If

 

 

If a = 3 Then

Label6.Caption = "Велосипедшинин жылдамдыгы 36 км/саг, ал оган карсы соккан  желдин жылдамдыгы 4км/саг. Велосипедшимен байланыс?"

Label2.Caption = "40 км/саг"

Label3.Caption = "6 км/саг"

Label4.Caption = "32 км/саг"

Label5.Caption = "14 км/саг"

End If

 

If a = 4 Then

Label6.Caption = "Тыныштык куйдеги тас 2 с ишинде кулап туседи. Тастын кандай биыктиктен кулаганын табу керек?"

Label2.Caption = "1,96 м"

Label3.Caption = "9,8 м"

Label4.Caption = "19,6 м"

Label5.Caption = "2 м"

End If

 

 

If a = 5 Then

Label6.Caption = "Модулдери 3 Н жане 4 Н  еки куш дененин бир нуктесине  тусирилеген. Олардын багыттарынын арасындагы бурыш 90 градуска тен болса, онда бериген нуктеге тусирилген тен асерли куш неге тен?"

Label2.Caption = "7 Н"

Label3.Caption = "1 Н"

Label4.Caption = "12 Н"

Label5.Caption = "5 Н"

End If

 

 

If a = 6 Then

Label6.Caption = "Илгерилмели козгалыс дегенимиз ..."

Label2.Caption = "Дене озине параллель  кошетин козгалыс"

Label3.Caption = "Бир осьти айнала  козгалатын козгалыс"

Label4.Caption = "Бир нуктени айнала  козгалатын козгалыс"

Label5.Caption = "Кез-келген багытта  кез-келген жагдаймен байланысты  козгалыс "

End If

 

 

If a = 7 Then

Label6.Caption = "Абсолют дене дегенимиз..."

Label2.Caption = "Деформацияга тусетин  дене"

Label3.Caption = "Кез-келген катты дене"

Label4.Caption = "Деформацияга туспейтин  катты дене"

Label5.Caption = "Колемин ескермеуге болатын дене"

End If

 

 

If a = 8 Then

Label6.Caption = "Денени удеумен тик  котереди. Осы жагдайда дененин  салмагына катысты айтылган мына  тужырымдардын кайсысы дурыс?"

Label2.Caption = "Салмак 0-ге тен"

Label3.Caption = "Салмак ауырлык кушинен артык"

Label4.Caption = "Салмак ауырлык кушине  тен"

Label5.Caption = "Салмак ауырлык кушинен  аз"

End If

 

 

 

If a = 9 Then

Label6.Caption = "Бурыштык удеу  ..."

Label2.Caption = "Бурыштык жылдамдыктын  годографы"

Label3.Caption = "Периодтын жиыликке  кобейтиндиси"

Label4.Caption = "Бурыштык жылдамдыктын  уакыт бойынша биринши туындысы"

Label5.Caption = "Бурыштык жылдамдыктын  уакыт бойынша екинши туындысы"

                  

   End If

  

If a = 10 Then

Label6.Caption = "Удеу 2 м/с, бастапкы жылдамдык 1 м/с. 4 с ишинде дене канша жол журеди?"

Label2.Caption = "9 м"

Label3.Caption = "10 м"

Label4.Caption = "6 м"

Label5.Caption = "12 м"

                  

   End If

  

   If a = 11 Then

 

Label6.Caption = "Айналу жиылиги  5 рад/с, радиусы 10 м дисктин сызыктык жылдамдыгы кандай ?"

Label2.Caption = "0,5 м/с"

Label3.Caption = "15 м/с"

Label4.Caption = "50 м/с"

Label5.Caption = " 2 м/с "

                  

   End If

  

  

If a = 12 Then

Label6.Caption = "Журилген жолдын уакытка  катынасы - бул ..."

Label2.Caption = "Куш"

Label3.Caption = "Импульс"

Label4.Caption = "Удеу"

Label5.Caption = "Жылдамдык"

                  

   End If

  

  If a = 13 Then

Label6.Caption = "Удеу..."

Label2.Caption = "Жылдамдыктын екинши  уакыт бойынша туындысы"

Label3.Caption = "Жылдамдыктын биринши уакыт бойынша туындысы"

Label4.Caption = "Жылдамдыктын уакыт  бойынша интегралы"

Label5.Caption = "Жылдамдыктын уакыт  бойынша екинши интегралы"

                  

   End If

  

   If a = 14 Then

Label6.Caption = "Траектория дегенимиз ..."

Label2.Caption = "Материалык нуктенин жылдамдыгынын орналаскан жери"

Label3.Caption = "Годограф"

Label4.Caption = "Материалык нуктенин  козгалыс кезинде сызатын тузуи"

Label5.Caption = "материалык нуктенин  орналаскан нуктеси"

                  

   End If

  

  

     If a = 15 Then

Label6.Caption = "Машина жолдын 1/3 болигин 30 м/с, ал калганын 20 м/с жылдамдыкпен  журди. Орташа жалдамтык?"

Label2.Caption = "20 м/с"

Label3.Caption = "15 м/с"

Label4.Caption = "25 м/с"

Label5.Caption = "10 м/с"

                  

   End If

  

  

     If a = 16 Then

Label6.Caption = "Дене жылдамдыгы 5 м/с  болса, ол 2 м/с удеумен 3 секундта  кандай жылдамдыкка жетеди? "

Label2.Caption = " 6 м/с"

Label3.Caption = "30 м/с"

Label4.Caption = "15 м/с"

Label5.Caption = "11 м/с"

   End If

  

  

  If a = 17 Then

Label6.Caption = "Донгелектин козгалысын  кандай козгалыска жаткызуга  болады?"

Label2.Caption = "Илгерилмели"

Label3.Caption = "Айналмалы"

Label4.Caption = "Дурыс жауабы жок"

Label5.Caption = "Екеуине"

                  

   End If

  

     If a = 18 Then

Label6.Caption = "Бурыштык жылдамдык?"

Label2.Caption = "Удеудин биринши туындысы"

Label3.Caption = "Озгеретин бурыштын  уакыт бойынша туындысы"

Label4.Caption = "Период туындысы"

Label5.Caption = "Жылдамдыктын биринши  интегралы"

                  

   End If

 

  

  

     If a = 19 Then

Label6.Caption = "Егер ушып бара жаткан  гарыш кеменин удеуи а=5g болса, онда кеме ишиндеги массасы 75 кг гарышкер кемеге кандай  кушпен тартылады?"

Label2.Caption = "4,41 Н"

Label3.Caption = "2960 Н"

Label4.Caption = "3675 Н"

Label5.Caption = "4,41 кН"

                  

   End If

 

     If a = 20 Then

         

Label6.Caption = "Массасы 2 кг денеге  туракты 4 Н куш асер етеди. Дене  козгалысы кандай болады?"

Label2.Caption = "2 м/с жылдамдыкпен  биркалыпты"

Label3.Caption = "0,5 м/с^2 удеумен биркалыпты"

Label4.Caption = "8 м/с^2 удеумен биркалыпты"

Label5.Caption = "2 м/с^2 удеумен биркалыпты"

End If

If a1 = 10 Then

MsgBox "Сиз " + CStr(b + 1) + " балл жинадыныз", 0, "Багасы"

       If b = 9 Or b = 10 Then MsgBox "Сиздин баганыз-5", 0, "Багасы"

        If (b >= 7) And (b < 9) Then MsgBox "Сиздин баганыз-4", 0, "Багасы"

        If (b >= 5) And (b < 7) Then MsgBox "Сиздин баганыз-3", 0, "Багасы"

        If b < 5 Then MsgBox "Тестти Оте алмадыныз. Окыныз !!!", 0, "Багасы"

End If

If a1 < 10 Then

  a1 = a1 + 1

  Else

fr

End If

a2 = mas1(a - 1)

End Sub

Private Sub fr()

a1 = 1

b = 0

mas = Array(True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)

mas1 = Array(1, 3, 2, 2, 3, 0, 2, 1, 2, 0, 2, 3, 1, 2, 1, 3, 3, 1, 2, 3)

test

End Sub

 

Private Sub Form_Load()

Frame1.Visible = True

X = False

c = False

fr

End Sub

 

Private Sub mnuTest_Click()

 

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША Д

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША Е

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША Ж

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША З