[HELP]help gan, dewa VB masuk!

[RootSeeker]

help gan ...! ane dapet tugas dari guru ane ... disuruh bikin program sendiri menggunakan Visual Basic ... VB nya ane pake yang VB 6.0 nah ketika ane ngerjain untuk membuat program Kalkulator sederhana sendiri ane temuin beberapa masalah



dibawah ini contoh form yang ane bikin cekidot


[/spoiler]

Spoiler for open this:

Spoiler for open this:

for Penampakan tugas ane:






Begitulah gan penampakan Tugas ane...









untuk codingnya ane kayak gini gan ...! CEKIDOT

Spoiler for open this:

Spoiler for open this:

for Coding nya ane begini gan:




Private Sub Hapus()

Dim txt As String

Dim min_len As Integer

txt = txtDisplay.Text

If Left$(txt, 1) = � - � Then

min_len = 2

Else

min_len = 1

End If

If Len(txt) > min_len Then

txtDisplay.Text = Left$(txt, Len(txt) - 1)

Else

txtDisplay.Text = "0"

End If

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdTutup_Click()

Unload Me

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdClear_Click()

hasil = 0

Operator = opNol

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdClearEntry_Click()

txtDisplay.Text = ��

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdKoma_Click()

If InStr(txtDisplay.Text, �.�) Then

Beep

Else

If NilaiBaru Then

txtDisplay.Text = �.�

NilaiBaru = False

Else

txtDisplay.Text = txtDisplay.Text & �.�

End If

End If

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdSamaDengan_Click()

Dim HasilBaru As Double

If txtDisplay.Text = �� Then

HasilBaru = 0

Else

HasilBaru = CDbl(txtDisplay.Text)

End If

Select Case Operator

Case opNol

hasil = HasilBaru

Case opTambah

hasil = hasil + HasilBaru

Case opKurang

hasil = hasil - HasilBaru

Case opKali

hasil = hasil * HasilBaru

Case opBagi

If HasilBaru = 0 Then

MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku Error"

Call cmdClear_Click

Else

hasil = hasil / HasilBaru

End If

End Select

Operator = opNol

NilaiBaru = True

txtDisplay.Text = Format$(hasil)

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdAngka_Click(Index As Integer)

If NilaiBaru Then

txtDisplay.Text = Format$(Index)

NilaiBaru = False

Else

txtDisplay.Text = _

txtDisplay.Text & Format$(Index)

End If

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdOperator_Click(Index As Integer)

cmdSamaDengan_Click

Operator = Index

NilaiBaru = True

End Sub

--------------------------------------------------------------------------------------

Private Sub cmdPlusMinus_Click()

If NilaiBaru Then

txtDisplay.Text = � - �

ElseIf Left$(txtDisplay.Text, 1) = � - � Then

txtDisplay.Text = Right$(txtDisplay.Text, 2)

Else

txtDisplay.Text = � - � & txtDisplay.Text

End If

End Sub

--------------------------------------------------------------------------------------

Private Sub Form_KeyPress(KeyAscii As Integer)

txtDisplay_KeyPress KeyAscii

End Sub

--------------------------------------------------------------------------------------

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

txtDisplay_KeyUp KeyCode, Shift

End Sub

--------------------------------------------------------------------------------------

Private Sub txtDisplay_Change()

txtDisplay.SelStart = Len(txtDisplay.Text)

End Sub

--------------------------------------------------------------------------------------

Private Sub txtDisplay_GotFocus()

txtDisplay_Change

End Sub

--------------------------------------------------------------------------------------

Private Sub txtDisplay_KeyPress(KeyAscii As Integer)

Dim ch As String

ch = Chr$(KeyAscii)

Select Case ch

Case "0"

cmdAngka_Click 0

Case "1"

cmdAngka_Click 1

Case "2"

cmdAngka_Click 2

Case "3"

cmdAngka_Click 3

Case "4"

cmdAngka_Click 4

Case "5"

cmdAngka_Click 5

Case "6"

cmdAngka_Click 6

Case "7"

cmdAngka_Click 7

Case "8"

cmdAngka_Click 8

Case "9"

cmdAngka_Click 9

Case � * �, �X�, �X�

cmdOperator_Click opKali

Case � + �

cmdOperator_Click opTambah

Case vbCrLf, vbCr, � = �

cmdSamaDengan_Click

Case � - �

cmdOperator_Click opKurang

Case �.�

cmdKoma_Click

Case � / �

cmdOperator_Click opBagi

Case �c�, �c�

cmdClearEntry_Click

End Select

KeyAscii = 0

End Sub

--------------------------------------------------------------------------------------

Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyNumpad0

cmdAngka_Click 0

Case vbKeyNumpad1

cmdAngka_Click 1

Case vbKeyNumpad2

cmdAngka_Click 2

Case vbKeyNumpad3

cmdAngka_Click 3

Case vbKeyNumpad4

cmdAngka_Click 4

Case vbKeyNumpad5

cmdAngka_Click 5

Case vbKeyNumpad6

cmdAngka_Click 6

Case vbKeyNumpad7

cmdAngka_Click 7

Case vbKeyNumpad8

cmdAngka_Click 8

Case vbKeyNumpad9

cmdAngka_Click 9

Case vbKeyMultiply

cmdOperator_Click opKali

Case vbKeyAdd

cmdOperator_Click opTambah

Case vbKeySeparator

cmdSamaDengan_Click

Case vbKeySubtract

cmdOperator_Click opKurang

Case vbKeyDivide

cmdOperator_Click opBagi

Case vbKeyDecimal

cmdKoma_Click

Case vbKeyBack, vbKeyDelete

Hapus

End Select

KeyCode = 0

End Sub









Begitu lah gan, coding yang ane pake ... ane nyontek dari sini gan --->>Sumber



Semua nama form, dan semua yang di sertakan di Link atas sudah ane kerjakan dengan teliti dan tidak ada yang salah ... atau penamaan (name) nya pun semua sesuai...



saya merasa sudah puas karena tugas saya sudah selesai ... ketika saya tekan f5 untuk menjalankan malah jadi gini .... Cekidot

[spoiler=open this] for masalahnya gan Dibuka!!!:




Begitulah ... masalah dimulai dari Private Sub cmdClear_Click() sampai seterusnya kebawah ... padahal dengan perintah codingnya saya rasa benar tidak masalah, karna jika masalah setau saya warnanya tulisannya berubah menjadi MERAH bukan HITAM











Bagi para Dewa VB mohon bantuannya ... agar saya dapat belajar dan mengetahui dimana kesalahan saya ... karna saya masih sangat awam dalam hal ini ...! Mohon pencerahannya



Maav gan masih newbie, sorry kalau tritnya berantakan !