mogao si da prekopiras kod u poruku umesto sto si ceo projekat okacio, mene na primer mrzi da skidam pa da raspakujem posle, a i nemam vb tako da mi projektni fajlovi uopste i ne trebaju...
dakle, posto nisam skinuo ne znam sta si uradio ali evo kako bi to otprilike trebalo da se uradi:
Code:
Enum OperationType
Nop = -1
Addition = 0
Subtraction
Multiplication
Division
End Enum
Dim lvalue as Double
Dim rvalue as Double
Dim operation As OperationType = Nop ' nop = no operation
Function Calc As String
Select Case operation
case addition
lvalue = lvalue + rvalue
Case Subtraction
lvalue = lvalue - rvalue
Case MUltiplication
lvalue = lvalue * rvalue
case Division
If rvalue = 0 then
Calc = "Error: division by zero"
operation = Nop
Exit Function
End If
lvalue = lvalue / rvalue
End select
Calc = Str(lvalue)
operation = Nop
End Function
Sub cmdDigit_Click(Index As Integer) ' recimo da ti se sve cifre nalaze u cmdDigit nizu commandbutton kontrola i da imaju odgovarajuce indexe
txtDisplay.Text = txtDisplay.Text + cmdDigit(Index).Caption
End SUb
Sub cmdOperation_Click(Index As Integer) ' a operacije se nalaze u cmdOperation nizu, i to onim redom kojim su definisani u OperationType enumeraciji
lvalue = Val(txtDisplay.Text)
txtDisplay.Text = ""
operation = Index
End Sub
Sub cmdEquals_Click
rvalue = Val(txtDisplay.Text)
txtDisplay.Text = Calc
End Sub
ako nisam negde pogresio (sto je moguce, kucam napamet i bez testiranja) to bi trebala da ti bude neka osnova ti samo malo sredi to i dodaj sta ti jos sve treba...
[edit: pretece me vasic :)]