Моделируем калькулятор с последующим выведением результатов в виде HTML страницы
Microsoft Excel имеет встроенный язык программирования - Visual Basic for Аpplications (VBA). Этот язык позволяет создавать приложения, выполняемые в среде Microsoft Office. Редактор Visual Basic for Application позволяет существенно расширить возможности Excel.
С помощью VBA можно легко и быстро создавать различные приложения, даже не являясь специалистом в области программирования. Редактор Visual Basic for Application имеет графическую инструментальную среду, позволяющую создавать экранные формы и управляющие элементы. С его помощью можно создавать свои собственные функции для Excel, вызываемые мастером функций, разрабатывать макросы, создавать собственные меню и многое другое.
Работа для тех, кто владеет азами программирования на бейсике или на любом другом языке программирования.
Программный код:
Private Sub userform_activate()
Width = 355
Height = 238
End Sub
Private Sub webbrouser1_statustextchange(ByVal text As String)
3051810128270End Sub
Private Sub CommandButton1_Click()Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
Рисунок 1
z = x + y
TextBox3.text = z
3147060292735End Sub
Private Sub CommandButton2_Click()Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
z = x - y
Рисунок 2
TextBox3.text = z
End Sub
3110230154305Private Sub CommandButton3_Click()Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
z = x * y
TextBox3.text = z
Рисунок 3
End Sub
Private Sub CommandButton4_Click()
Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
If y <> 0 Then
z = x / y
TextBox3.text = z
ElseTextBox3.text = "Делить на ноль нельзя"
End If
End Sub
Private Sub CommandButton7_Click()
Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
z = Log(x)
TextBox3.text = z
End Sub
Private Sub CommandButton5_Click()
Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
z = (x) ^ 1 / 2
TextBox3.text = z
End Sub
Private Sub CommandButton8_Click()
Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
z = x ^ y
TextBox3.text = z
End Sub
Private Sub CommandButton6_Click()
Dim x As Double
Dim y As Double
Dim z As Double
x = CDbl(TextBox1.text)
y = CDbl(TextBox2.text)
z = x * y / 100
TextBox3.text = z
End Sub
Private Sub CommandButton10_Click()
WebBrowser1.navigate "C:\Users\гыук\Documents\n.html"
WebBrowser1.Visible = True
End Sub
Private Sub CommandButton11_Click()
Width = 500
Height = 400
WebBrowser1.Visible = True
CommandButton9.Visible = True
CommandButton10.Visible = True
End Sub
Private Sub CommandButton9_Click()
Dim fso As Scripting.fileSystemObjectDim r As Scripting.textstreamSet fso = New Scripting.fileSystemObjectSet r = fso.OpenTextFile("C:\Users\гыук\Documents\n.html", forWriting, True)
r.WriteLine "<html>"
r.WriteLine "<body bgcolor=yellow>"
Dim z As Single
Dim x As Single
Dim c As Single
x = TextBox1.text
y = TextBox2.text
z = TextBox3.text
r.WriteLine "<body>Число 1=</body>"
r.WriteLine x
r.WriteLine "<br>"
r.WriteLine "<body>Число 2=</body>"
r.WriteLine y
r.WriteLine "<br>"
r.WriteLine "<body>Результат=</body>"
r.WriteLine z
Workbooks.Open Filename:="C:\Users\гыук\Documents\n.html"
End Sub