Macro untuk Membuat Kotak Ular Tangga Otomatis di CorelDraw

Siapa yang tak kenal permainan ular tangga? permainan yang pada masa kecil penulis sangat mbooming ini masih asik untuk dimainkan, tapi kali ini penulis tidak ingin mengajak anda bermain ular tangga, melainkan GRAFISin ingin berbagi kode macro kreasi sendiri untuk Membuat Kotak Ular Tangga Secara Otomatis di CorelDraw beserta Nomornya. Kenapa menggunakan macro? ya tentunya lebih praktis dan cepat, suatu saat anda butuhkan bisa anda panggil.

Fitur macro ini adalah dapat membuat macro sesuai jumlah kotak yang diinginkan, mengatur panjang dan otomatis mengatur nomornya juga.

Berikut screenshotnya:

 Berikut kodenya :

Sub MembuatUlarTangga()
    'Membuat Ular Tangga Otomatis
    Dim panjang_kotak As Double
    Dim jumlah_kotak As Integer
    Dim kelipatan As Integer
    Dim posisi_atas As Double, posisi_bawah As Double
    
    ActiveDocument.Unit = cdrMillimeter
    '--------Atur di bawah ini dalam Milimeter------------
    panjang_kotak = 40
    jumlah_kotak = 100
    kelipatan = 10
    margin_nomor = 5
    
    'Deklarasi variabel
    Dim kotak As Shape
    Dim nomor As Shape
    Dim tulisan As Shape

    'Membuat Perulangan
    For i = 0 To jumlah_kotak - 1
    posisi_atas = i \ kelipatan
    Set kotak = ActiveLayer.CreateRectangle(0#, 0#, panjang_kotak, panjang_kotak)
    'Anda bisa mengatur warnanya di sini secara acak
    'Hasil nomor warna jangan melebihi 100 atau kurang 0 untuk CMYK
    kotak.Fill.UniformColor.CMYKAssign 100 - i, i, 100 - i, 0
    kotak.Outline.SetNoOutline

    'Mengatur Posisi Kotak
    kotak.Move ((i - (kelipatan * posisi_atas)) * panjang_kotak), (posisi_atas * panjang_kotak)

    'Membuat Nomor Otomatis
    Set nomor = ActiveLayer.CreateArtisticText(0, 0, i + 1)
    nomor.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
    nomor.AlignToShape cdrAlignRight + cdrAlignTop, kotak, cdrTextAlignBoundingBox
    nomor.Move -margin_nomor, -margin_nomor

    'Membuat Tulisan Start dan Finish
    'Jika di Awal tulisannya Start
    If i = 0 Then
    Set tulisan = ActiveLayer.CreateArtisticText(0, 0, "Start")
    tulisan.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
    tulisan.AlignToShape cdrAlignHCenter + cdrAlignVCenter, kotak, cdrTextAlignBoundingBox
    End If

    'Jika di Akhir tulisannya Finish
    If i = jumlah_kotak - 1 Then
    Set tulisan = ActiveLayer.CreateArtisticText(0, 0, "Finish")
    tulisan.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
    tulisan.AlignToShape cdrAlignHCenter + cdrAlignVCenter, kotak, cdrTextAlignBoundingBox
    End If
    Next i
    
End Sub

Silahkan Copy Paste kode di atas  ke Macro Editor di bagian Modul GlobalMacros dan jalankan di CorelDraw setiap kali anda butuhkan, tapi ingat atur terlebih dahulu pada kode yang berwarna merah dalam milimeter

Atau bila ingin urutan angkanya nyambung, angka 11 diatas 10 dan 21 diatas 20 bisa di rubah dengan kode yang saya warnai biru dengan kode tebal pada bagian Mengatur posisi kotak dengan kode berikut:

'Mengatur Posisi Kotak
    If posisi_atas Mod 2 = 0 Then
    kotak.Move ((i - (kelipatan * posisi_atas)) * panjang_kotak), (posisi_atas * panjang_kotak)
    Else
    kotak.Move (kelipatan - 1) * panjang_kotak, 0#
    kotak.Move ((i - (kelipatan * posisi_atas)) * -panjang_kotak), (posisi_atas * panjang_kotak)
    End If
    Set nomor = ActiveLayer.CreateArtisticText(0, 0, i + 1)

Sehingga nanti hasilnya seperti ini :

Jika anda cermati kode di atas, anda bisa mengatur warnanya secara random dan menghasilkan efek warna yang ciamik, berikut hasil akhir kreasi ular tangganya

Download Vektor Ular Tangga Format CorelDraw

Gak mau pusing dengan kode? Silahkan Download Macronya di sini:

Download Macro Kotak Ular Tangga Otomatis - CorelDraw X7
Download Macro Kotak Ular Tangga Otomatis - CorelDraw X6
Download Macro Kotak Ular Tangga Otomatis - CorelDraw X5
Download Macro Kotak Ular Tangga Otomatis - CorelDraw X4
Download Macro Kotak Ular Tangga Otomatis - CorelDraw X3
Download Macro Kotak Ular Tangga Otomatis - CorelDraw 12
Download Macro Kotak Ular Tangga Otomatis - CorelDraw 11

Selanjutnya setelah kotak ular tangga terbentuk anda bisa menambahkan komponen tangga, ular, dan icon-icon lainnya sehingga tampilannya lebih menarik.

Selamat Mencoba, Semoga Berhasil! #HappyCoding #CreativeDesign #GRAFISin