[Tutor] Menjalankan animasi GIF di Form VB

[asong123]

hasilnya mantabh om

ma'acih

[DC™Rebels]

om Rudi

[RUD1]

(10-30-2012 12:11 AM)Alldy Newbie Wrote:  Sukses om,,,
kren hasil'a

ane mau nanya nie om untk membuat kalkulator scientific tuh gmna om,,,

ane dah buat tapi kalkulator biasa blum jadi scientific,
penjelasannya gni,, untuk menjumlahkan nilai 2+3*4 jawaban'a 14 tapi program yg ane buat hasil'a 20 om,,
tu logikanya gmna om???
nie scrip'a yang ane buat


Option Explicit
Dim TekanPertama As Boolean
Dim NilaiTerakhir As Long
Dim OperatorTerakhir As Long

Private Sub CmdAC_Click()
Call Form_Load
End Sub

Private Sub CmdAngka_Click(Index As Integer)
Dim strIndex As String
strIndex = CStr(Index)
If (TekanPertama) Then
TxtDisplay.Text = strIndex
TekanPertama = False
Else
If (TxtDisplay.Text = " 0 ") Then
TxtDisplay.Text = strIndex
Else
TxtDisplay.Text = TxtDisplay.Text & strIndex
End If
End If
End Sub

Private Sub CmdC_Click()
TxtDisplay.Text = ""
End Sub

Private Sub CmdOperator_Click(Index As Integer)
TekanPertama = True
If (OperatorTerakhir >= "0") Then
Call CmdSamadg_Click
End If
OperatorTerakhir = Index
NilaiTerakhir = TxtDisplay.Text
End Sub

Private Sub CmdSamadg_Click()
Dim Hasil As Long
' Jika operator terakhir TAMBAH '
If (OperatorTerakhir = 0) Then
Hasil = NilaiTerakhir + TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
' Jika operator terakhir KURANG '
If (OperatorTerakhir = 1) Then
Hasil = NilaiTerakhir - TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
' Jika operator terakhir KALI '
If (OperatorTerakhir = 2) Then
Hasil = NilaiTerakhir * TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
' Jika operator terakhir BAGI '
If (OperatorTerakhir = 3) Then
' Apakah Pembaginya NOL '
If (TxtDisplay.Text = "0") Then
TxtDisplay.Text = "E"
Else
Hasil = NilaiTerakhir / TxtDisplay.Text
TxtDisplay.Text = Hasil
End If
End If
OperatorTerakhir = -1
End Sub

Private Sub Form_Load()
TekanPertama = True
NilaiTerakhir = 0
TxtDisplay.Text = "0"
OperatorTerakhir = -1
End Sub


tolong d bantu om,,

2+3*4 emang jadi beda hasilnya. Visual basic akan menghitung perkalian terlebih dahulu setelah itu menghitung penambahannya, jadi ini sama aja 3*4=12+2=14.
Kalo mau menghitung penambahan terlebih dahulu kemudian menghitung perkaliannya harus kasih tanda kurung kaya gini (2+3)*4, ini sama aja 2+3=5*4=20

---

Thank u om asong dan om rebel