'Deskripsi: Membulatkan angka ke dalam kelipatan seratus berikutnya
' Contoh: Anda memiliki angka 101, maka jika dibulatkan
' ke dalam kelipatan seratus berikutnya, hasilnya adalah 200.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Tanggal : Selasa, 14 Oktober 2008
'Persiapan: 1. Buat sebuah project standard exe dengan satu form.
' 2. Tambahkan satu CommandButton ke atas form.
' 3. Copy-paste code berikut ke editor form yang bertalian.
'--------------------------------------------------------------------
Public Function BulatkanAngka(lngAngka As Long) As Long
If lngAngka Mod 100 > 0 Then
Dim lngHasil As Long
lngHasil = lngAngka \ 100
BulatkanAngka = (lngHasil * 100) + 100
Else
BulatkanAngka = lngAngka
End If
End Function
Private Sub Command1_Click()
Ulangi:
Dim lngAngka As Long
If lngAngka = 0 Then lngAngka = 729
lngAngka = InputBox("Masukkan sebuah angka!", "Angka", lngAngka)
MsgBox "Angka " & lngAngka & " setelah dibulatkan ke dalam " & vbCrLf & _
"kelipatan seratus berikutnya adalah: " & BulatkanAngka(lngAngka)
If MsgBox("Ulangi lagi?", vbQuestion + vbYesNo, "Ulangi?") = vbNo Then
Exit Sub
Else
GoTo Ulangi
End If
End Sub
No comments:
Post a Comment