|
Главная страница Следующая >>>>
Программа на Visual Basic для выполнения простых математических действий по школьной программе для 4 класса. Программа позволяет быстро складывать и вычитать площади фигур, заданные в формате "квадратные метры-дециметры-сантиметры-миллиметры" и представлять результат в разных форматах.
Программа позволяет экономить до 70% времени при проверке домашнего задания, выполненного учеником, по сравнению с расчетами на калькуляторе.
Скачать программу solution.zip
Листинг программы на Visual Basic совсем не сложный. Пользователь вводит в текстовые поля площадь фигур и нажимает кнопку |Вычислить|. Программа сразу вычисляет разность и сумму площадей фигур. Для этого сначала площади фигур приводятся к одной размерности - квадратным миллиметрам.
Private Sub Command1_Click()
Form_Load
e = a + b + c + d 'Первое значение в МИЛЛИМЕТРАХ
j = f + g + h + i 'Второе значение в МИЛЛИМЕТРАХ
'Сумма в МИЛЛИМЕТРАХ
k = e + j
Text18.Text = k
'Сумма в САНТИМЕТРАХ и МИЛЛИМЕТРАХ
n = k / 100
o = Int(n) 'Число САНТИМЕТРОВ
Text16.Text = o
p = k - o * 100
Text17.Text = p 'Число МИЛЛИМЕТРОВ
'Сумма в ДЕЦИМЕТРАХ, САНТИМЕРАХ и МИЛЛИМЕТРАХ
r = Int(o / 100) 'Число ДЕЦИМЕТРОВ
Text13.Text = r 'Число ДЕЦИМЕТРОВ
s = o - r * 100
Text14.Text = s 'Число САНТИМЕТРОВ
'p - попрежнему число МИЛЛИМЕТРОВ
Text15.Text = p
'Сумма в МЕТРАХ, ДЕЦИМЕТРАХ, САНТИМЕТРАХ и МИЛЛИМЕТРАХ
t = Int(r / 100) 'Число МЕТРОВ
Text9.Text = t 'Число МЕТРОВ
u = r - t * 100 'Остаток ДЕЦИМЕТРОВ
Text10.Text = u 'Число ДЕЦИМЕТРОВ
Text11.Text = s 'Число САНТИМЕТРОВ
Text12.Text = p 'Число МИЛЛИМЕТРОВ
'Разность в МИЛЛИМЕТРАХ
l = Abs(e - j)
Text28.Text = l
'Разность в САНТИМЕТРАХ и МИЛЛИМЕТРАХ
v = Int(l / 100) 'Число САНТИМЕТРОВ
Text26.Text = v
w = l - v * 100
Text27.Text = w 'Число МИЛЛИМЕТРОВ
'Разность в ДЕЦИМЕТРАХ, САНТИМЕРАХ и МИЛЛИМЕТРАХ
X = Int(v / 100) 'Число ДЕЦИМЕТРОВ
Text23.Text = X 'Число ДЕЦИМЕТРОВ
Y = v - X * 100
Text24.Text = Y 'Число САНТИМЕТРОВ
'w - попрежнему число МИЛЛИМЕТРОВ
Text25.Text = w
'Разность в МЕТРАХ, ДЕЦИМЕТРАХ, САНТИМЕТРАХ и МИЛЛИМЕТРАХ
z = Int(X / 100) 'Число МЕТРОВ
Text19.Text = z 'Число МЕТРОВ
mn = X - z * 100 'Остаток ДЕЦИМЕТРОВ
Text20.Text = mn 'Число ДЕЦИМЕТРОВ
Text21.Text = Y 'Число САНТИМЕТРОВ
Text22.Text = w 'Число МИЛЛИМЕТРОВ
End Sub
Кнопка |Load| позволяет загрузить веб страницу программы
Private Sub Command4_Click()
Call ShellExecute(GetDesktopWindow, "Open", "http://solution.oflameron.ru/", "", "c:\", SW_SHOWNORMAL)
End Sub
Здесь Call ShellExecute используется для загрузки веб страницы в броузер, установленный в системе по умолчанию.
Листинг программы на Visual Basic listing.doc
Скачать курсовую работу бесплатно
Главная страница Следующая >>>>
|
|