Pada pertemuan kali tipandtrickunikunik ingin membagikan sebuah artikel tentang bagaimana Cara Mempersingkat atau Memperpendek suatu bilangan divisual Basic 6.0.
Maksud dari judul ini adalah bagaimana mempersingkat suatu bilangan dengan mudah penyebutannya yang tadinya berupa deretan angka Panjang dan bisa diperpendek dengan penyebutan,misalnya 1000 gr di perpendek penyebutnya menjadi 1 kilo.
Dengan metode seperti di harapkan seorang user mempermudah pekerjaannya dalam menghitung digit bilangan untuk menentukan suatu bilangan. Dalam contoh ini saya menggunakan dengan cara yang sederhana dengan satuan kilo, mega, giga dan sebagainya dan nantinya bisa Anda kembangkan sendiri metode seperti ini.
Cara Mempersingkat atau Memperpendek suatu bilangan di Visual Basic 6.0
Bagaimana? apakah Anda penasaran cara membuatnya,ikutilah langkah di bawah ini:
Buka Form VB6 Anda pilih Standar EXE
Letakan 1 CommandButon dan 2 buah TextBox pada Form
Untuk lebih jelasnya lihat gambar dibawah ini :
 |
| Desain Form |
Lalu buka jendela kode, ketik kode dibawah ini :
out = NUM
If out = 0 Then
eng = ""
ElseIf out >= 1 Then
While out >= 1000
out = out / 1000
DoEvents
engpart = engpart + 1
Wend
Select Case engpart
Case 1: eng = " Kilo" 'input harus ribuan
Case 2: eng = " Mega"
Case 3: eng = " Giga"
Case 4: eng = " Tera"
Case Else: eng = NUM: out = ""
End Select
Else
While out < 1
out = out * 1000
DoEvents
engpart = engpart + 1
Wend
Select Case engpart
Case 1: eng = " milli" 'di input harus 0.001
Case 2: eng = " Mikro"
Case 3: eng = " Nano"
Case 4: eng = " Piko"
Case Else: eng = NUM: out = ""
End Select
End If
SINGKAT = out & eng
End Function
Private Sub Command1_Click()
Text2.Text = SINGKAT(Val(Text1.Text))
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Setelah pengetikan kode, simpan hasil pekerjaan Anda dan jalankan program.
Jika pengkodean Anda tidak ada yang error atau berjalan dengan benar, maka hasilnya akan tampak pada gambar di bawah ini.
 |
| Dalam kelipatan seribu |
 |
| Dalam satuan Milli |
Cara Pengoperasian :
Masukan angka bilangan kelipatan seribu pada TextBox1, kemudian tekan tombol Hitung maka pada TextBox2 akan muncul bilangan penyebutnya. Kalau Anda masukan bilangan 1000 misalnya maka akan diterjemahkan menjadi 1 Kilo ;
Atau masukan bilangan pecahan koma misalnya 0.001 maka akan diterjemahkan menjadi 1 Mili
Demikian tips dari saya tentang Cara Mempersingkat atau Memperpendek suatu bilangan di Visual Basic 6.0, semoga bermanfaat buat kita semua.Selamat mencoba.
No comments:
Post a Comment