1088379
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

ИнфоурокИнформатикаДругие методич. материалыПо информатике "Баскару элементтері" (10 класс)

По информатике "Баскару элементтері" (10 класс)

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

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


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

Шалқар қаласы

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

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


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


Сабақтың тақырыбы: Б а с қ а р у э л е м е н т т е р і (практикалық жұмыс)

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

  1. Оқушыларға элементтер панелі компоненттерін дұрыс қолдануды, жобалау, программалау элементтерін дұрыс құра білуді меңгерту;

  2. Теориялық білімдерін практикамен ұштастыра білуге, шығармашылыққа баулу, логикалық ойлау қабілетін дамыту;

  3. Өз бетінше жұмыс жасай білуге, шапшаңдыққа, ұқыптылыққа тәрбиелеу.

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

Сабақтың түрі: практикалық жұмыс

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

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

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

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

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

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

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

  1. Негізгі басқару элементерін атаңдар және оларға сипаттама беріңдер?

  2. Басқару элементерінің қасиеттерін қалай өзгертуге болады?

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

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

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

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

  1. Формадағы элементтер топтары қалай жасалады?

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

Практикалық жұмыс негізінен «Ғажайып жетілік» деп аталатын 7 бөлімнен тұрады, әр бөлімде түрлі практикалық тапсырмалар берілген: (Практикалық жұмыс әр бөлімде әр түрлі деңгей бойынша ұсынылған. Оқушылар өз деңгейіне қарай таңдай отырып, кем дегенде 3 жұмыс орындауы тиіс. Әр бөлім белгіленген ұпайы бойынша есептеледі.)

hello_html_1d37aacb.png






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


элементтер

қасиеттер

name

index

shape

forecolor

эллипс

Shape5

0

oval

қhello_html_m2f7a1767.pngызыл

эллипс

Shape5

1

oval

қара

шеңбер

Shape5

2

circle

қара

шеңбер

Shape5

3

circle

қара

шеңбер

Shape5

4

circle

қара

шеңбер

Shape5

5

circle

қара

шеңбер

Shape5

6

circle

қара

шеңбер

Shape5

7

circle

қара

шеңбер

Shape5

8

circle

қара

сызық

Line1

0



сызық

Line1

1



сызық

Line1

2




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

70 – «Экологиялық аймақтар» тақырыбында аймақ атын енгізгенде сол аймақ туралы ақпарат беретін қосымша жасау:

Dim A As String

Private Sub Command1_Click()

A = InputBox("АЙМАК АТЫН ЕНГIЗ:", "ЕЛДЕР", "КАЗАКСТАН")

End Sub

Private Sub Command2_Click()

If A = "АРАЛ" Then B = "АРАЛ ТЕНІЗІНІҢ ТАРТЫЛУЫ САЛДАРЫНАН"

If A = "БАЛКАШ" Then B = "КОЛДИН ХИМИЯЛЫҚ ЗАТТАР САЛДАРЫНАН ЛАСТАНУЫ"

If A = "СЕМЕЙ" Then B = "ЯДРОЛЫК СЫНАҚ АЙМАГЫ"

Print B

End Sub

ІV. Сабақты қорытындылау:

«Әзіл-тест» - окушылар жауап береді, тест қосымшасын жасау үшін қандай элементтердің қолданылғаны туралы сұралады:

Dim K, S As Integer

Private Sub Command1_Click()

S = S + 1

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

K = K + 1

If K = 1 Then Label2.Caption = "1.СIЗ САБАККА ДАЙЫНДЫКСЫЗ КЕЛДIНIЗ БЕ?"

If K = 2 Then Label2.Caption = "2.СIЗ ОТIРIК АЙТАСЫЗ БА?"

If K = 3 Then Label2.Caption = "3.СIЗ АЙТКАН ОТIРIГIНIЗ УШIН ОЗГЕЛЕРДIН АЛДЫНДА УЯЛАСЫЗ БА?"

If K = 4 Then Label2.Caption = "4.CЕРГIТУ САТI УНАДЫ МА?"

Rem КОЛДАНУШЫНЫН КАТЕ АРЕКТТЕРИНЕН КОРГАНЫС.

If K = 5 And S <= 4 Then

Label1.Caption = "ПСИХОЛОГИЯЛЫК ЗЕРТТЕУДIН НАТИЖЕСIНДЕ АЙКЫНДАЛГАНЫ , С I З -"

Rem НАТИЖЕЛЕР

If S = 0 Then Label2.Caption = "КУ АДАМСЫЗ"

If S = 1 Then Label2.Caption = "АЙЛАКЕРСIЗ"

If S = 2 Then Label2.Caption = "ОТIРIК ОРЫНДЫ КОЛДАНА БIЛЕСIЗ"

If S = 3 Then Label2.Caption = "ОЗIНIЗДI ЖАКСЫ ТАНИСЫЗ"

If S = 4 Then Label2.Caption = "КIРШIКСIЗ ШЫНАЙЫ АДАМСЫЗ"

End If

End Sub

Private Sub FORM_LOAD()

K = 0: S = 0

End Sub

V. Үйге тапсырма

1. «Әзіл-тест» программасын өз беттерінше 3 сұрақ арқылы құрастыру,

2. 2.3-тақырып

VI. Бағалау

Общая информация

Номер материала: ДВ-041756

Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «1С: Предприятие 7.7»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.