Ne znam što mi je ovdje krivo, kad odem na debugg ne pokazuje mi probleme, ali kad stisnem gumb da izračuna ili očisti, ne rade
kod:
Option Explicit On
Public Class Form1
Dim S As Double
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim m As Double
Dim g As Double
Dim ArithmeticProcess As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
ArithmeticProcess = "-"
S = Val(TextBox1.Text)
a = Val(TextBox2.Text)
b = Val(TextBox3.Text)
c = Val(TextBox4.Text)
d = Val(TextBox5.Text)
m = Val(TextBox6.Text)
g = Val(TextBox7.Text)
If ArithmeticProcess = "-" Then
S = a * (b + c) * d - 2 * (g * d * m)
End If
TextBox1.Text = S
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
End Class