Membuat Grafik Berbentuk Garis (Line Chart) dengan Visual Basic 6.0

Artikel kali ini saya akan membuat grafik berbentuk Garis atau Line dengan menggunakan vb6, biasanya garfik itu berbentuk batang atau bar.

Berikut contoh program lengkap membuat grafik garis (line chart) di Visual Basic 6.0 (VB6) tanpa ActiveX tambahan—cukup menggunakan PictureBox dan fungsi Line bawaan VB6.

Line Chart

1. Buat Komponen di Form1

Tambahkan:

Komponen	Name	Pengaturan
PictureBox	picChart	AutoRedraw = True, BorderStyle = 1, ScaleMode = 3 (Pixel), Width & Height agak besar
CommandButton	cmdDraw	Caption = "Draw Chart"

---

2. Kode Lengkap Line Chart di VB6

Copy-Paste ke Form1:

Private Sub cmdDraw_Click()
    Dim data(1 To 10) As Integer
    Dim i As Integer
    Dim maxValue As Integer
    Dim scaleY As Double
    Dim xStep As Double
    
    ' Contoh data grafik
    data(1) = 10
    data(2) = 15
    data(3) = 30
    data(4) = 20
    data(5) = 40
    data(6) = 35
    data(7) = 45
    data(8) = 30
    data(9) = 50
    data(10) = 60
    
    ' Cari nilai maksimum untuk skala
    maxValue = 0
    For i = 1 To 10
        If data(i) > maxValue Then maxValue = data(i)
    Next i
    
    ' Bersihkan grafik
    picChart.Cls
    
    ' Tentukan skala
    scaleY = picChart.ScaleHeight / maxValue
    xStep = picChart.ScaleWidth / 9
    
    ' Gambar garis
    picChart.DrawWidth = 2
    picChart.ForeColor = vbBlue
    
    For i = 1 To 9
        picChart.Line (xStep * (i - 1), picChart.ScaleHeight - data(i) * scaleY) _
                      -(xStep * i, picChart.ScaleHeight - data(i + 1) * scaleY)
    Next i
End Sub

Demikian artikel tentang cara Membuat Grafik Berbentuk Garis (Line Chart) dengan Visual Basic 6.0 semoga artikel ini bermanfaat buat kita semua