Cara Membuat Heatmap di Visual Basic 6.0 (vb6)

Kali ini saya akan berbagi sebuah kode yang berfungsi untuk menggambar sebuah HeatMap seperti Matplotlib dengan menggunakan Visual Basic 6.0 (vb6).

Heatmap (peta panas) adalah visualisasi data 2D yang menggunakan gradasi warna untuk menunjukkan intensitas atau nilai data di berbagai area, di mana warna lebih pekat (hangat) menandakan nilai tinggi dan warna lebih pudar (dingin) menandakan nilai rendah, sering dipakai untuk analisis perilaku pengguna situs web, area ramai pesanan, atau pergerakan saham, crypto dll. Ini membantu melihat tren dan area penting secara sekilas tanpa perlu melihat data mentah, misalnya area klik terbanyak di web atau zona lalu lintas padat di kota (Sumber Ringkasan AI).

HeatMap dengan VB6

Cara Membuat Heatmap dengan Visual Basic 6.0 (VB6)

1. Buka Form Visual Basic 6.0 Anda dengan standar EXE
2. Tanamkan PictureBox dalam Form
3. Copy kode di bawah in :

Option Explicit

Dim data(1 To 10, 1 To 10) As Integer

Private Sub Form_Load()

    Dim i As Integer, j As Integer

    Randomize

    'nilai 0–100 ? jumlah tikus per area

    For i = 1 To 10

        For j = 1 To 10

            data(i, j) = Int(Rnd * 100)

        Next j

    Next i

    Call DrawHeatmap

End Sub

Private Function HeatColor(value As Integer) As Long

    Dim r As Integer, g As Integer

    'value 0 = hijau, value 100 = merah

    r = value * 2.55

    g = 255 - (value * 2.55)

    HeatColor = RGB(r, g, 0)

End Function

Private Sub DrawHeatmap()

    Dim cellW As Integer, cellH As Integer

    Dim i As Integer, j As Integer

    Dim x As Integer, y As Integer

    Dim warna As Long

    Picture1.AutoRedraw = True

    Picture1.Cls

    cellW = Picture1.ScaleWidth / 10

    cellH = Picture1.ScaleHeight / 10

    For i = 1 To 10

        For j = 1 To 10

            warna = HeatColor(data(i, j))

            x = (i - 1) * cellW

            y = (j - 1) * cellH

            Picture1.Line (x, y)- _

                          (x + cellW, y + cellH), warna, BF

        Next j

    Next i

End Sub

Setelah itu jalankan Project Anda dan hasilnya akan tampak seperti Gambar diatas