PPt4Web Хостинг презентаций

Главная / Информатика / Создание проектов в Visual Basic
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

Чтобы скачать данную презентацию, порекомендуйте, пожалуйста, её своим друзьям в любой соц. сети.

После чего скачивание начнётся автоматически!

Кнопки:

Презентация на тему: Создание проектов в Visual Basic


Скачать эту презентацию

Тема: «Создание проектов в Visual Basic»
Цель урока: 1. Научить учащихся составлять проекты для работы с числами. 2. Развить навыки работы с программой Visual Basic. 3. Воспитать будущих программистов.
Повторение пройденного материала 1.Типы переменных (byte, integer, string ….) 2.Функция ввода (InputBox) 3.Условный оператор ( IF усл. THEN действ.1 ELSE действ.2 ) 4.Операторы цикла ( FOR I=A TO B STEP H тело цикла NEXT ----------------------------…
Действия выполняемые при создании проектов. Постановка задачи. Выбор метода решения. Составление алгоритма. Составление программы. Выполнение программы. Анализ полученных результатов.
Проект «Подсчёт цифр в числе»
Алгоритм выполнения проекта 1. Поместить на форму кнопку cmd1 и создать для неё событийную процедуру. 2. Ввод чисел осуществить с использованием функции ввода данных InputBox. Для преобразования строкового значения функции в десятичное число использ…
Программный код проекта будет следующий: Dim intDec, intD, intA As Integer, bytK As Byte Private Sub cmd1_click() intDec=Val(InputBox(“Введите натуральное десятичное число”, “ Десятичное число”) intD=intDec bytK=0 Do While intD>0 intD=Int(intD/10) b…
Проект «Печать цифр числа» Модернизировать предыдущий проект. В событийной процедуре для выделения остатка от деления числа X на число Y использовать оператор X Mod Y. Для печати по зонам в качестве разделителя списка печати использовать запятую: Do…
Проект «Сумма цифр числа» Модернизировать предыдущий проект. В программном коде цикла значениями переменной bytB являются цифры числа, а их сумма накапливается в переменной bytS: Do While intD>0 bytB=intD Mod 10 bytS=bytS+bytB intD=(intD-bytB)/10 Loop
Объяснение нового материала: Проекты: Проект «Числа без одинаковых цифр» Проект «Перевёртыш чисел» Проект «Перевод десятичного числа в двоичную систему счисления»
Проект «Числа без одинаковых цифр» В событийной процедуре используем вложенные циклы и неполное ветвление, которое обеспечи-вает в случае совпадения цифр переход к следую-щей цифре: Dim intI, intJ As Byte Private Sub cmd1_click() For intI=1 to 9 For…
Проект «Перевёртыш чисел» В первом цикле с предусловием заполнить массив цифрами числа, а во втором цикле со счётчиком обеспечить обратный порядок их следования в числе. Программный код проекта будет следующий:
Dim intN, intN1, intN2 As Integer, bytI, bytJ As Byte, sngA(1 to 10) As Single Private Sub cmd1_click() intN= Val(InputBox(0 bytI=bytI+1 sngA(bytI)=intN Mod 10 intN=Int(…" title="Dim intN, intN1, intN2 As Integer, bytI, bytJ As Byte, sngA(1 to 10) As Single Private Sub cmd1_click() intN= Val(InputBox("Введите целое десятичное число”, “Ввод числа”) intN2=intN bytI=0 Do While intN>0 bytI=bytI+1 sngA(bytI)=intN Mod 10 intN=Int(…" >
Проект «Перевод десятичного числа в двоичную систему счисления» Реализовать перевод натурального десятичного числа в двоичное число с использованием известного алгоритма последовательного деления числа на основание новой системы счисления. Реализова…
Программный код проекта будет следующий: Dim intDec, intD, intA As Integer, strBin As String Private Sub cmd1_click() intDec=Val(InputBox(“Введите натуральное десятичное число”, “ Десятичное число”) strBin=” “ intD=intDec Do While intD>0 intA=intD M…
Работа с программой Visual Basic 1. Ввод текста программы (проекта) 2. Запуск и редактирование программы. 3. Анализ полученных результатов.
Домашнее задание
1 из 17

Презентация на тему: Создание проектов в Visual Basic


Скачать эту презентацию



№ слайда 1 Тема: «Создание проектов в Visual Basic»
Описание слайда:

Тема: «Создание проектов в Visual Basic»

№ слайда 2 Цель урока: 1. Научить учащихся составлять проекты для работы с числами. 2. Разв
Описание слайда:

Цель урока: 1. Научить учащихся составлять проекты для работы с числами. 2. Развить навыки работы с программой Visual Basic. 3. Воспитать будущих программистов.

№ слайда 3 Повторение пройденного материала 1.Типы переменных (byte, integer, string ….) 2.
Описание слайда:

Повторение пройденного материала 1.Типы переменных (byte, integer, string ….) 2.Функция ввода (InputBox) 3.Условный оператор ( IF усл. THEN действ.1 ELSE действ.2 ) 4.Операторы цикла ( FOR I=A TO B STEP H тело цикла NEXT ------------------------------- Do While intN>0 тело цикла Loop)

№ слайда 4 Действия выполняемые при создании проектов. Постановка задачи. Выбор метода реше
Описание слайда:

Действия выполняемые при создании проектов. Постановка задачи. Выбор метода решения. Составление алгоритма. Составление программы. Выполнение программы. Анализ полученных результатов.

№ слайда 5 Проект «Подсчёт цифр в числе»
Описание слайда:

Проект «Подсчёт цифр в числе»

№ слайда 6 Алгоритм выполнения проекта 1. Поместить на форму кнопку cmd1 и создать для неё
Описание слайда:

Алгоритм выполнения проекта 1. Поместить на форму кнопку cmd1 и создать для неё событийную процедуру. 2. Ввод чисел осуществить с использованием функции ввода данных InputBox. Для преобразования строкового значения функции в десятичное число использовать функцию Val. 3. Количество цифр в числе равно количеству выполнения тела цикла, в котором десятичное число делится на 10 и выделяется целая часть частного от деления. Для выделения целой части воспользоваться встроенной функцией Int(x), которая возвращает целую часть числа:

№ слайда 7 Программный код проекта будет следующий: Dim intDec, intD, intA As Integer, bytK
Описание слайда:

Программный код проекта будет следующий: Dim intDec, intD, intA As Integer, bytK As Byte Private Sub cmd1_click() intDec=Val(InputBox(“Введите натуральное десятичное число”, “ Десятичное число”) intD=intDec bytK=0 Do While intD>0 intD=Int(intD/10) bytK=bytK+1 Loop Print”Количество цифр в натуральном числе”;intDec;” равно “; bytK End Sub

№ слайда 8 Проект «Печать цифр числа» Модернизировать предыдущий проект. В событийной проце
Описание слайда:

Проект «Печать цифр числа» Модернизировать предыдущий проект. В событийной процедуре для выделения остатка от деления числа X на число Y использовать оператор X Mod Y. Для печати по зонам в качестве разделителя списка печати использовать запятую: Do While intD>0 bytB=intD Mod 10 Print bytB, intD=Int(intD/10) Loop

№ слайда 9 Проект «Сумма цифр числа» Модернизировать предыдущий проект. В программном коде
Описание слайда:

Проект «Сумма цифр числа» Модернизировать предыдущий проект. В программном коде цикла значениями переменной bytB являются цифры числа, а их сумма накапливается в переменной bytS: Do While intD>0 bytB=intD Mod 10 bytS=bytS+bytB intD=(intD-bytB)/10 Loop

№ слайда 10 Объяснение нового материала: Проекты: Проект «Числа без одинаковых цифр» Проект
Описание слайда:

Объяснение нового материала: Проекты: Проект «Числа без одинаковых цифр» Проект «Перевёртыш чисел» Проект «Перевод десятичного числа в двоичную систему счисления»

№ слайда 11 Проект «Числа без одинаковых цифр» В событийной процедуре используем вложенные ц
Описание слайда:

Проект «Числа без одинаковых цифр» В событийной процедуре используем вложенные циклы и неполное ветвление, которое обеспечи-вает в случае совпадения цифр переход к следую-щей цифре: Dim intI, intJ As Byte Private Sub cmd1_click() For intI=1 to 9 For intJ=0 to 9 If intJ =intI Then intJ=intJ+1 Print intJ*10+intJ; Next intJ Next intI End Sub

№ слайда 12 Проект «Перевёртыш чисел» В первом цикле с предусловием заполнить массив цифрами
Описание слайда:

Проект «Перевёртыш чисел» В первом цикле с предусловием заполнить массив цифрами числа, а во втором цикле со счётчиком обеспечить обратный порядок их следования в числе. Программный код проекта будет следующий:

№ слайда 13 Dim intN, intN1, intN2 As Integer, bytI, bytJ As Byte, sngA(1 to 10) As Single P
Описание слайда:

Dim intN, intN1, intN2 As Integer, bytI, bytJ As Byte, sngA(1 to 10) As Single Private Sub cmd1_click() intN= Val(InputBox("Введите целое десятичное число”, “Ввод числа”) intN2=intN bytI=0 Do While intN>0 bytI=bytI+1 sngA(bytI)=intN Mod 10 intN=Int(intN/10) Loop intN1=sngA(1) For bytJ=2 To bytI intN1=intN1*10+sngA(bytJ) Next bytJ Print “Исходное число “; intN2; “Перевёртыш”;intN1 End Sub

№ слайда 14 Проект «Перевод десятичного числа в двоичную систему счисления» Реализовать пере
Описание слайда:

Проект «Перевод десятичного числа в двоичную систему счисления» Реализовать перевод натурального десятичного числа в двоичное число с использованием известного алгоритма последовательного деления числа на основание новой системы счисления. Реализовать последовательное деление введённого числа на 2 в цикле с предусловием intD>0, который будет выполняться до тех пор, пока частное от деления не станет дробным числом. В переменной intA хранить остатки деления. С помощью оператора ветвления преобразовать числовое значение остатка (переменная intA) в строковую переменную strBin, хранящую двоичное число.

№ слайда 15 Программный код проекта будет следующий: Dim intDec, intD, intA As Integer, strB
Описание слайда:

Программный код проекта будет следующий: Dim intDec, intD, intA As Integer, strBin As String Private Sub cmd1_click() intDec=Val(InputBox(“Введите натуральное десятичное число”, “ Десятичное число”) strBin=” “ intD=intDec Do While intD>0 intA=intD Mod 2 If intA=1 strBin=”1”+strBin Else strBin=”0”+strBin intD=Int(intD/2) Loop Print”Десятичное число”;intDec,”Двоичное число”; strBin End Sub

№ слайда 16 Работа с программой Visual Basic 1. Ввод текста программы (проекта) 2. Запуск и
Описание слайда:

Работа с программой Visual Basic 1. Ввод текста программы (проекта) 2. Запуск и редактирование программы. 3. Анализ полученных результатов.

№ слайда 17 Домашнее задание
Описание слайда:

Домашнее задание

Скачать эту презентацию


Презентации по предмету
Презентации из категории
Лучшее на fresher.ru