Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / По информатике "Баскару элементтері" (10 класс)

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

Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

К ОПЛАТЕ ЗА ОДНОГО УЧЕНИКА: ВСЕГО 28 РУБ.

Конкурс проходит полностью дистанционно. Это значит, что ребенок сам решает задания, сидя за своим домашним компьютером (по желанию учителя дети могут решать задания и организованно в компьютерном классе).

Подробнее о конкурсе - https://urokimatematiki.ru/


Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

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

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:

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


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

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

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. Бағалау

Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy



Автор
Дата добавления 08.10.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров203
Номер материала ДВ-041756
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

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

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests


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