Membuat Generator Prompt Artikel dengan AI di Visual Basic 6.0

Perkembangan teknologi yang cukup pesat membuat semua harus beradaptasi tak terkecuali para programmer untuk menjawab tantangan jaman saat ini.

Seiring dengan itu banyak sekali bermunculan aplikasi-aplikasi yang berbasis AI mulai dari pembuatan gambar, vidio dan artikel yang semuanya bisa di kerjakan dalam waktu singkat.

Visual Basic memang pemrograman lawas, sitidaknya kita bereksprimen untuk membuat program yang relevan saat ini. Meski termasuk bahasa lama, VB6 masih digunakan di banyak sistem internal dan aplikasi desktop legacy.  Salah satu implementasi yang cukup keren adalah membuat Generator Prompt Artikel dengan AI.

Dalam artikel blog ini, kita akan membahas tutorial generator artikel dengan VB6 secara santai, lengkap, dan step by step sampai aplikasi benar-benar running. 

---

Apa Itu Generator Prompt Artikel dengan AI?

Sederhananya, generator prompt artikel adalah aplikasi yang membantu kita membuat perintah (prompt) otomatis untuk AI agar menghasilkan artikel sesuai kebutuhan.

Contoh prompt:

"Buatkan artikel blog 800 kata dengan gaya santai tentang SEO dan AI"

Dengan generator ini, kita tinggal isi:

• Judul artikel

• Gaya bahasa

• Panjang artikel

• Kata kunci SEO

Lalu aplikasi akan menyusun prompt AI secara otomatis.

---

Kenapa Menggunakan Visual Basic 6.0?

Mungkin kamu bertanya, kenapa tidak pakai Python atau JavaScript? Alasannya sederhana:

• Banyak aplikasi internal masih berbasis VB6

• Mudah membuat aplikasi desktop GUI

• Cepat untuk prototyping

• Cocok untuk tool internal atau pribadi

Dengan sedikit trik, VB6 tetap bisa terhubung ke API AI modern.

---

Gambaran Umum Aplikasi yang Akan Dibuat

Aplikasi Generator artikel AI ini akan memiliki fitur:

• Input judul artikel

• Input gaya bahasa

• Input jumlah kata

• Input kata kunci SEO

• Tombol Generate Prompt

• Output prompt siap pakai

Generator Prompt Artikel

---

Persiapan Awal

Yang Perlu Disiapkan

Sebelum mulai coding, pastikan kamu punya:

• Visual Basic 6.0 (IDE)

• Windows OS

• Koneksi internet (untuk testing AI)

• API AI (misalnya OpenAI, tapi di artikel ini fokus ke generator prompt)

Step by Step Membuat Generator Prompt Artikel dengan VB6

1. Membuat Project Baru

1. Buka Visual Basic 6.0

2. Pilih Standard EXE

3. Klik OK

VB6 akan otomatis membuat Form1.

2. Mendesain Tampilan (Form)

Tambahkan komponen berikut:

Input Artikel

• txtJudul (TextBox) → Judul / topik artikel

• txtKeyword (TextBox) → Kata kunci SEO (optional)

• cboJenis (ComboBox) → Jenis artikel

• cboGaya (ComboBox) → Gaya bahasa

• cboPanjang (ComboBox) → Panjang artikel

• txtInstruksi (TextBox, MultiLine) → Instruksi tambahan

• txtOutput (TextBox, MultiLine, Locked=True, ScrollBars=Both)

Button

• cmdGenerate → Generate Prompt

• cmdCopy → Copy ke clipboard

• Desain Form sesuai selera

Desain Form

Desain Form

Code 

Buka jendela code kemudian copy-paste code dibawah ini di bagian General-Declaration:

Option Explicit

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long

Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long

Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long

Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal pDest As Long, ByVal pSource As String, ByVal dwLength As Long)

Const GMEM_MOVEABLE = &H2

Const CF_TEXT = 1

Private Sub CopyClipboardAPI(ByVal sText As String)

    Dim hMem As Long

    Dim lpMem As Long

    OpenClipboard 0

    EmptyClipboard

    hMem = GlobalAlloc(GMEM_MOVEABLE, Len(sText) + 1)

    lpMem = GlobalLock(hMem)

    CopyMemory lpMem, sText, Len(sText)

    GlobalUnlock hMem

    SetClipboardData CF_TEXT, hMem

    CloseClipboard

End Sub

Private Sub Form_Load()

    txtJudul.Text = ""

    txtKeyword.Text = "(opsional)"

    txtInstruksi.Text = ""

    txtOutput.Text = ""

    '==== Isi pilihan JENIS ARTIKEL ====

    cboJenis.Clear

    cboJenis.AddItem "Artikel Blog"

    cboJenis.AddItem "Artikel SEO"

    cboJenis.AddItem "Artikel Berita"

    cboJenis.AddItem "Artikel Review"

    cboJenis.AddItem "Artikel Edukasi"

    cboJenis.AddItem "Artikel Marketing"

    cboJenis.AddItem "Artikel Tutorial"

    cboJenis.ListIndex = 0

    '==== Isi pilihan GAYA ====

    cboGaya.Clear

    cboGaya.AddItem "Formal"

    cboGaya.AddItem "Santai"

    cboGaya.AddItem "Profesional"

    cboGaya.AddItem "Storytelling"

    cboGaya.AddItem "Teknis"

    cboGaya.ListIndex = 1

    '==== Isi pilihan PANJANG ====

    cboPanjang.Clear

    cboPanjang.AddItem "300 kata"

    cboPanjang.AddItem "500 kata"

    cboPanjang.AddItem "800 kata"

    cboPanjang.AddItem "1000 kata"

    cboPanjang.AddItem "1500 kata"

    cboPanjang.ListIndex = 2

End Sub

Private Sub cmdGenerate_Click()

    Dim s As String

    s = "Buatkan artikel lengkap dengan spesifikasi berikut:" & vbCrLf & vbCrLf

    

    s = s & "Topik / Judul Artikel: " & txtJudul.Text & vbCrLf

    s = s & "Jenis Artikel: " & cboJenis.Text & vbCrLf

    s = s & "Gaya Bahasa: " & cboGaya.Text & vbCrLf

    s = s & "Panjang Artikel: " & cboPanjang.Text & vbCrLf

    

    If Trim$(txtKeyword.Text) <> "" Then

        s = s & "Kata kunci SEO wajib disertakan: " & txtKeyword.Text & vbCrLf

    End If

    

    If Trim$(txtInstruksi.Text) <> "" Then

        s = s & vbCrLf & "Instruksi Tambahan:" & vbCrLf & txtInstruksi.Text & vbCrLf

    End If

    ' Format artikel

    s = s & vbCrLf & "Struktur artikel yang harus diikuti:" & vbCrLf

    s = s & "- Judul utama yang kuat dan menarik" & vbCrLf

    s = s & "- Paragraf pembuka yang engaging" & vbCrLf

    s = s & "- Subjudul (H2 dan H3) yang relevan" & vbCrLf

    s = s & "- Penjelasan detail, contoh, dan rekomendasi" & vbCrLf

    s = s & "- Bullet point jika diperlukan" & vbCrLf

    s = s & "- Paragraf penutup + call to action (jika relevan)" & vbCrLf

    ' Perintah bahasa

    s = s & vbCrLf & "Tulis artikel dalam Bahasa Indonesia yang natural dan mudah dipahami."

    txtOutput.Text = s

End Sub

Private Sub cmdCopy_Click()

     CopyClipboardAPI txtOutput.Text

    MsgBox "Prompt disalin ke clipboard!", vbInformation, "Informasi"

End Sub

Private Sub txtKeyword_Click()

txtKeyword.Text = ""

End Sub

Jalankan Project Anda, jika berhasil coba isi Form dengan isian sebagai berikut :

Misal user mengisi:

• Judul: Manfaat AI dalam Industri Pendidikan

• Jenis: Artikel Edukasi

• Gaya: Profesional

• Panjang: 800 kata

• Keyword: AI Education, teknologi AI

• Instruksi tambahan: Sertakan data dan studi kasus

Maka hasilnya:

Buatkan artikel lengkap dengan spesifikasi berikut:

Topik / Judul Artikel: Manfaat AI dalam Industri Pendidikan

Jenis Artikel: Artikel Edukasi

Gaya Bahasa: Profesional

Panjang Artikel: 800 kata

Kata kunci SEO wajib disertakan: AI Education, teknologi AI

Instruksi Tambahan:

Sertakan data dan studi kasus

Struktur artikel yang harus diikuti:

- Judul utama yang kuat dan menarik

- Paragraf pembuka yang engaging

- Subjudul (H2 dan H3) yang relevan

- Penjelasan detail, contoh, dan rekomendasi

- Bullet point jika diperlukan

- Paragraf penutup + call to action (jika relevan)

Tulis artikel dalam Bahasa Indonesia yang natural dan mudah dipahami.

Paste ke ChatGPT → langsung menghasilkan artikel berkualitas profesional.

Membuat Generator Prompt Artikel dengan AI di Visual Basic 6.0 ternyata tidak sesulit yang dibayangkan. Dengan pendekatan sederhana, kita sudah bisa membuat tool yang sangat berguna untuk content creator dan blogger.

Generator Prompt Artikel