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

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

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

ВНИМАНИЕ: Скидка действует ТОЛЬКО сейчас!

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок")

ИнфоурокИнформатикаПрезентации"Visual Basic айнымалылармен жұмыс" презентация

"Visual Basic айнымалылармен жұмыс" презентация

Выберите документ из архива для просмотра:
Айнымалылармен жумыс.ppt 560 КБ
донгелек.JPG 3.2 КБ
конус.JPG 4.82 КБ
цилиндр.JPG 4.69 КБ

Выбранный для просмотра документ Айнымалылармен жумыс.ppt

библиотека
материалов
Айнымалылармен жұмыс
Программаның орындалу барысында әр түрлі мәндерді қабылдап, мәнін өзгертіп от...
Тапсырма: дөңгелектің, цилиндрдің, конустің ауданын есептейтін программа құру...
2. Программаға арналған математикалық моделі: S_krug= Pi*R^2 S_cilindra= 2*S_...
3. Экрандық формасының эскизі:
4. Программасы Шеңбердің ауданы: Private Sub Command1_Click() Const Pi As Dou...
Цилиндрдің ауданы Private Sub Command2_Click() Const Pi As Double = 3.1415926...
Конустың ауданы Private Sub Command3_Click() Const Pi As Double = 3.141592653...

Описание презентации по отдельным слайдам:

1 слайд Айнымалылармен жұмыс
Описание слайда:

Айнымалылармен жұмыс

2 слайд Программаның орындалу барысында әр түрлі мәндерді қабылдап, мәнін өзгертіп от
Описание слайда:

Программаның орындалу барысында әр түрлі мәндерді қабылдап, мәнін өзгертіп отыратын шаманы айнымалы деп атаймыз. Айнымалыларды сипаттау үшін: Dim айнымалының аты As типі Мұндағы Dim – Dimension – «өлшемділік» деген мағына береді Тұрақтыларды сипаттау үшін: Const айнымалының аты As типі

3 слайд Тапсырма: дөңгелектің, цилиндрдің, конустің ауданын есептейтін программа құру
Описание слайда:

Тапсырма: дөңгелектің, цилиндрдің, конустің ауданын есептейтін программа құру керек. Математикалық моделі: Sкр= πR2 Sцл= Sосн + Sбок= 2πR2+2πRН Sкон= Sосн + Sбок= πR2+πRL

4 слайд 2. Программаға арналған математикалық моделі: S_krug= Pi*R^2 S_cilindra= 2*S_
Описание слайда:

2. Программаға арналған математикалық моделі: S_krug= Pi*R^2 S_cilindra= 2*S_krug + 2*Pi*R*Н S_konusa = S_krug +Pi*R*L R айнымалысын сипаттау үшін Dim R As Single S айнымалысын сипаттау үшін Dim S As Single Pi тұрақтысын сипаттау үшін Const Pi As Double (Single – сандық айнымалы, ондық нүктелі сандардан тұрады) (Double – сандық айнымалы, Single кеңдеу интервалмен ерекшеленеді)

5 слайд 3. Экрандық формасының эскизі:
Описание слайда:

3. Экрандық формасының эскизі:

6 слайд 4. Программасы Шеңбердің ауданы: Private Sub Command1_Click() Const Pi As Dou
Описание слайда:

4. Программасы Шеңбердің ауданы: Private Sub Command1_Click() Const Pi As Double = 3.14159265358979 Dim s_krug As Single Dim R As Single R = Val(Text1.Text) s_krug = Pi * R ^ 2 Text4.Text = Str(s_krug) End Sub

7 слайд Цилиндрдің ауданы Private Sub Command2_Click() Const Pi As Double = 3.1415926
Описание слайда:

Цилиндрдің ауданы Private Sub Command2_Click() Const Pi As Double = 3.14159265358979 Dim R As Single Dim H As Single Dim s_cil As Single R = Val(Text1.Text) H = Val(Text2.Text) s_cil = 2 * s_krug + 2 * Pi * R * H Text5.Text = Str(s_cil) End Sub

8 слайд Конустың ауданы Private Sub Command3_Click() Const Pi As Double = 3.141592653
Описание слайда:

Конустың ауданы Private Sub Command3_Click() Const Pi As Double = 3.14159265358979 Dim R As Single Dim L As Single Dim s_konusa As Single R = Val(Text1.Text) L = Val(Text3.Text) s_konusa = s_krug + Pi * R * L Text6.Text = Str(s_konusa) End Sub

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

Номер материала: ДБ-289736

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

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «Оператор персонального компьютера»
Курс «3D Studio MAX»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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