Membuat Bilangan Persen Atau ProgressBar menurut Persen Di Visual basic 6 - VB6

by viandwi 11.45 0 komentar vb6 Visual Basic 6.0

Pernah kalian berfikir untuk membuat sebuah aplikasi di visual basic dengan membuat sebuah persen?
kali ini akan kita bahas disini.... persen dapat kita gunakan untuk membuat bilangan input kita menjadi bilangan persen yang kita hendaki... misalnya saya menggunakan sebuah Progressbar dengan maxbar 14500, lalu value yang saya isi adalah 4000 dan saya ingin menampilakn di sebuah label sebagai bentuk pesan, maka perintah yang kita gunakan disini adalah :

Round(4000 / 14500 * 100) & "%"

Tulisan Merah adalah Jumlah value yang akan di jadikan persen
Tulisan hijau adalah maksimal dari value yang dapat dibagi oleh bilangan persen
 Tulisan kuning adalah jumlah persen yang akan dimuat, disini jika kita menggunakan 100% maka tulis angka 100
Tulisan biru adalah tambahan huruf untuk memuat lambang persen
Dan hasil yang diperoleh dari perintah tersebut adalah : 28%,kalian juga dapat membuat bilangan desimal di persen tersebut jika value yang digunakan sangat besar, dapat menggunkana perintah:

Round(4000 / 14500 * 100, 2) & "%"

sama seperti diatas, hanya saja didalam perintah ini terdapat tambahan angka 2 (angka yang digaris bahwah dan huruf tebal diatas), itu adalah angka perintah untuk menampilakn desimal yang di belakng koma, kalian bisa mengatur berapa huruf yang ada di belakng koma.. setelah memasukan perinta tersebut maka hasil nya akn seperti ini : 27.59%

kalian dapat membuatnya sendiri diatas kode vb6 kalian, kalian dapat menambah sebuah label di dalam form kalian lalu masukan kode ini :

Private Sub Form_Load()
Me.Label1.Caption = Round(4000 / 14500 * 100,2)
End Sub

kalian juga dapat memanfaatkan persen dalam progress bar... misalnya :
>load progressbar kalian ke dalam form vb6 dengan cara "add component > Microsoft windows common control 6.0(sp6)"

 >seret progres bar kedalam form, lalu beri 4 label, 1 commandbutton dan 2 textbox seperti di bawah ini:

> masukan kode dibawah ini dalam form kode:

Private Sub Command1_Click()
Dim maxEnergy As String
Dim nowEnergy As String
maxValue = Me.Text2.Text
nowValue = Text1.Text
'ini timer untuk mengatur progress bar dari form utama menuju ke form ini
With Me.ProgressBar1
.Max = 100
Me.Label3.Caption = "100%/" & Val(100 - Round(nowValue / maxValue * 100, 2)) & "%"
.Value = Val(100 - Round(nowValue / maxValue * 100))
If .Value < 75 Then
    If .Value < 35 Then
    Label3.ForeColor = vbRed
    ElseIf .Value > 35 Then
    Label3.ForeColor = vbYellow
    Else
    .Refresh
    End If
ElseIf .Value > 75 Then
Label3.ForeColor = &HFF00&
End If
End With
End Sub

Private Sub Form_Load()
Me.atur_tampilan
Command1_Click
End Sub
Sub atur_tampilan()
Me.Caption = "Contoh Form progressbar presen - project Visual Studio"
Label1.Caption = "Jumlah Value ="
Label2.Caption = "Maksimal value ="
Text1.Text = "2000"
Text2.Text = "14500"
Command1.Caption = "Terapkan"
Label3.Caption = ""
Label4.Caption = "Jika warna merah, berarti value berjumah <45%" & vbNewLine & "Jika warna Kuning, berarti value berjumah <75%" & vbNewLine & "Jika warna Hijau, berarti value berjumah <100%"
End Sub

oke, kalian dapat membuat warna progresbar nya yang ganti menurut jumlah persen nya, misalnya jika persen dibawah akngka 50 maka progress warnya akan berubah menjadi merah...

tampilah akhri akan menjadi seperti ini :


coba kalian perhatikan.... warna label 3 akan berubah mengikuti progressbar dan persenya.. jika persen menunjukan di atas 75& maka label3 akan berwarna hijau, tetapi jika value persenya dibawah 45% label3 berubah warna menjadi warna merah... kalian dapat memanfaatkan persen sebagai perubawahn warna dalam progressbar, hal ini sangat cocok jika kalin membuat semacam Grafik Perfomace dengan menggunakan progressbar.
oke sampai disini saja, jika ada kekurangan mohon maaf, karna saya juga dalam tahap belajar.. jika ada yang ditanyakan dapat memuat komentar dibawah.
semoga bermanfaat...