perkaliian oktal dengan visual basic

Function DesimalKeOktal$(Nilai&)

Dim Nilai2 As Long

Dim Hasil As String

Dim LHasil As Integer

Dim i As Integer

Do Until Nilai = 0

Nilai2 = Nilai Mod 8

Nilai = Nilai \ 8

Hasil = Hasil & CStr(Nilai2)

Loop

LHasil = Len(Hasil)

For i = 0 To LHasil - 1

DesimalKeOktal$ = DesimalKeOktal$ & _

Mid(Hasil, LHasil - i, 1)

Next

End Function

Function OktalKeDesimal$(Nilai$)

Dim LNilai As Integer

Dim i As Integer

Dim Hasil As Long

LNilai = Len(Nilai$)

For i = 1 To LNilai

Hasil = Hasil + CLng(Mid(Nilai, i, 1)) * (8 ^ (LNilai - i))

Next

'

OktalKeDesimal$ = Hasil

End Function

Private Sub cmdJumlah_Click()

Dim Temp1&, Temp2&

Dim Angka1&, Angka2&

Dim Hasil&

Angka1 = Me.txtAngka1.Text

Angka2 = Me.txtAngka2.Text

'Mengubah oktal ke desimal lebih dulu dari angka-angka yg diinputkan

Temp1 = OktalKeDesimal$(CStr(Angka1))

Temp2 = OktalKeDesimal$(CStr(Angka2))

'Menghitung angka yg diinputkan (dalam basis desimal)

Hasil& = Temp1 * Temp2

Me.txtHasil.Text = DesimalKeOktal(Hasil&) '<-- mengembalikan ke basis oktal

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Format(Now, "dd mmmm yyyy hh:mm:ss")

End Sub

Private Sub txtAngka1_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= ("0") And _

KeyAscii <= Asc("7") Or _

KeyAscii = vbKeyBack Or _

KeyAscii = vbKeyReturn Or _

KeyAscii = vbKeyDelete) Then

'KeyAscii adalah 0 (tidak berfungsi)

Beep

KeyAscii = 0

End If

End Sub

Private Sub txtAngka2_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= 48 And _

KeyAscii <= Asc("7") Or _

KeyAscii = vbKeyBack Or _

KeyAscii = vbKeyReturn Or _

KeyAscii = vbKeyDelete) Then

'KeyAscii adalah 0 (tidak berfungsi)

Beep

KeyAscii = 0

End If

End Sub