Program Decision Making V-room Yetton
(Jurnal)
Sebenarnya aplikasi lebih ditujukan untuk pendataan inventory, tetapi saat itu saya mencoba memanfaatkan aplikasi program ini untuk fungsi yg berbeda, yaitu membuat model aplikasi Decision Making V-room Yetton.
Sebelumnya saya juga pernah menggunakan program Dbase III Plus untuk membuat Program Ramalan Primbon perpaduan dari Budaya Timur dan Barat, dimana Budaya Timur saya menggunakan Primbon Jawa sementara Budaya Barat saya menggunakan Perhitungan pythagoras. Untuk program primbon yg sangat detail, penulisan rumusannya demikian sangat kompleks mencapai ribuan baris perintah bahkan jumlah variabel yg komputer PC pada saat itu tak bisa menjalankannya sehingga banyak ide yg tumbuh untuk mengatasinya.
Sempat ingin mengkonversikan, "2 versi Ramalan dari Budaya Timur dan Barat", ke system yg dapat dibuka di android (play store), tetapi pada akhirnya saya urungkan mengingat konsekuensi dari keimanan yg saya anut.
Program Informasi Decision Making Vroom-Yetton dalam bahasa Dbase3 III Plus (Running).
set date germ
do Judul1 with 'INFORMASI DECISION MAKING VROOM-YETTON'
do Isi with 3,20,176
do Kotak with 04,09,07,69, 'w/n', 'w/b'
set colo to
@24,00 say repl(chr(176),80)
set colo to w/b
do Kotak with 08,09,15,69, 'w/n', 'w/b'
store 0 to a, ty
store space(5) to jv
do while a = 0
Mpil = space(1)
do while .not. Mpil $'YTyt'
read
enddo
t = 1 && tanya
j = 1 && jawab
do Judul2 with 'Masalah tsb memiliki suatu syarat kwalitas ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 2
case a1 = 19 && Kiri/ TIDAK
t = 4
other
a1 = 0
endcase
enddo
if t = 2
do Judul2 with 'Cukupkah informasi utk mengambil keputusan berkwalitas ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 5
case a1 = 19 && Kiri/ TIDAK
t = 3
other
a1 = 0
endcase
enddo
endif
if t = 3
do Judul2 with 'Masalah telah tersusun ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 6
case a1 = 19 && Kiri/ TIDAK
t = 7
other
a1 = 0
endcase
enddo
endif
if t = 4
do Judul2 with 'Pengakuan bawahan penting utk penerapan yg effektif ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 8
case a1 = 19 && Kiri/ TIDAK
j = 1
other
a1 = 0
endcase
enddo
endif
if t = 5
do Judul2 with 'Pengakuan bawahan penting utk penerapan yg effektif ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 9
case a1 = 19 && Kiri/ TIDAK
t = 12
other
a1 = 0
endcase
enddo
endif
if t = 6
do Judul2 with 'Pengakuan bawahan penting utk penerapan yg effektif ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 10
case a1 = 19 && Kiri/ TIDAK
t = 14
other
a1 = 0
endcase
enddo
endif
if t = 7
do Judul2 with 'Pengakuan bawahan penting utk penerapan yg effektif ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 11
case a1 = 19 && Kiri/ TIDAK
t = 15
other
a1 = 0
endcase
enddo
endif
if t = 8
do Judul2 with 'Jika buat keputusan sendiri, yakin diterima oleh bawahan ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
j = 1
case a1 = 19 && Kiri/ TIDAK
j = 2
other
a1 = 0
endcase
enddo
endif
if t = 9
do Judul2 with 'Jika buat keputusan sendiri, yakin diterima oleh bawahan ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 12
case a1 = 19 && Kiri/ TIDAK
t = 13
other
a1 = 0
endcase
enddo
endif
if t = 10
do Judul2 with 'Jika buat keputusan sendiri, yakin diterima oleh bawahan ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 14
case a1 = 19 && Kiri/ TIDAK
t = 13
other
a1 = 0
endcase
enddo
endif
if t = 11
do Judul2 with 'Jika buat keputusan sendiri, yakin diterima oleh bawahan ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
t = 15
case a1 = 19 && Kiri/ TIDAK
t = 16
other
a1 = 0
endcase
enddo
endif
if t = 12
do Judul2 with 'Bawahan sama-sama menanggung tujuan organisasi ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
j = 3
case a1 = 19 && Kiri/ TIDAK
j = 4
other
a1 = 0
endcase
enddo
endif
if t = 13
do Judul2 with 'Bawahan sama-sama menanggung tujuan organisasi ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
j = 5
case a1 = 19 && Kiri/ TIDAK
t = 17
other
a1 = 0
endcase
enddo
endif
if t = 14
do Judul2 with 'Bawahan sama-sama menanggung tujuan organisasi ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
j = 8
case a1 = 19 && Kiri/ TIDAK
j = 7
other
a1 = 0
endcase
enddo
endif
if t = 15
do Judul2 with 'Bawahan sama-sama menanggung tujuan organisasi ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
j = 10
case a1 = 19 && Kiri/ TIDAK
j = 9
other
a1 = 0
endcase
enddo
endif
if t = 16
do Judul2 with 'Bawahan sama-sama menanggung tujuan organisasi ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
j = 11
case a1 = 19 && Kiri/ TIDAK
j = 12
other
a1 = 0
endcase
enddo
endif
if t = 17
do Judul2 with 'Pertentangan diantara bawahan merupakan penyelesaian terbaik ?'
a1 = 0
do while a1 = 0
a1 = inkey()
do case
case a1 = 1 && home
a = 1
case a1 = 4 && kanan/ YA
j = 6
case a1 = 19 && Kiri/ TIDAK
j = 13
other
a1 = 0
endcase
enddo
endif
do case
case j = 1
jv = 'Autocrative I, Autocrative II, Consultative I, Consultative II, Group II'
case j = 2
jv = 'Group II'
case j = 3
jv = 'Autocrative I, Autocrative II, Consultative II, Group II'
case j = 4
jv = 'Autocrative I, Autocrative II, Consultative I, Consultative II'
case j = 5
jv = 'Group II'
case j = 6
jv = 'Consultative II'
case j = 7
jv = 'Autocrative II, Consultative I, Consultative II'
case j = 8
jv = 'Autocrative II, Consultative I, Consultative II, Group II'
case j = 9
jv = 'Consultative II'
case j = 10
jv = 'Consultative II, Group II'
case j = 11
jv = 'Group II'
case j = 12
jv = 'Consultative II'
case j = 13
jv = 'Consultative I, Consultative II'
endcase
do Judul2 with jv
wait ''
t = 0
jb = 'Y'
do Judul2 with 'Keluar (Y/T)'
@22,48 get jb pict '@!'
read
if jb = 'Y'
a = 1
else
a = 0
endif
enddo
retu
---------------
Tulisan ini hanya untuk penambah wawasan dari program jaman dulu yg pernah saya buat, yaitu bahasa Dbase III Plus, yg bagaimanapun logika penulisannya tetap sama barangkali dapat menambah ide para pembuat program komputer.
Semoga manfaat.
Thx ^_^
--------------
26 Oktober 2026 (Jurnal)
Mengapa postingan ini berubah menjadi jurnal?
Karena membuka ruang tambahan pemikiran baru tentang ai.
Program V-room Yetton dalam bahasa Dbase III Plus ini, saya buat disekitar tahun 1992-2002, sebagai modul tersembunyi dari program inti, Detail Program Transaksi Barang.
Setahun kemarin saya menunjukkan postingan ini, 10 September 2025, kepada teman ai saya, Ji'ih, Gpt. Dan dia pun mencoba membuka flowchart untuk menggambarkan pola pikir saya dulu, saat membuat program V-room Yetton.
Nah sekarang saya coba pertemukan pendapat dari teman ai saya lainnya, si Meta, WhatsApp.
Saya sendiri juga lupa, ke mana kertas coretan-coretan tulisan saya sewaktu pembuatannya.. 🤣, tetapi dijamin program ini dapat berjalan dan saya sering menggunakannya.
-------------
Flowchart versi Ji'ih, Gpt, saat membaca program saya.
Pembuatan program Decision Making V-room Yetton dengan flowchart seperti ini:
Mulai..
⬇️
🔹 Apakah masalah ini butuh kualitas keputusan tinggi?
❌ Tidak → lanjut tanya soal pengakuan bawahan
✅ Ya → lanjut cek informasi
⬇️
🔹 Apakah informasi cukup untuk buat keputusan berkualitas?
❌ Tidak → cek apakah masalah terstruktur
✅ Ya → lanjut ke pengakuan bawahan
⬇️
🔹 Apakah masalah sudah terstruktur?
❌ Tidak → cek pengakuan bawahan
✅ Ya → cek pengakuan bawahan
⬇️
🔹 Apakah pengakuan bawahan penting untuk penerapan efektif?
❌ Tidak → beberapa opsi autocratic/ consultative
✅ Ya → cek apakah jika pemimpin putuskan sendiri, bawahan akan terima
⬇️
🔹 Jika pemimpin putuskan sendiri, apakah bawahan akan terima?
✅ Ya → hasil cenderung Autocratic/ Consultative
❌ Tidak → cek lagi: apakah bawahan menanggung tujuan organisasi?
⬇️
🔹 Apakah bawahan menanggung tujuan organisasi?
✅ Ya → hasil Group II atau Consultative
❌ Tidak → cek lagi: apakah ada pertentangan di bawahan?
⬇️
🔹 Apakah pertentangan bawahan membantu penyelesaian?
✅ Ya → Consultative II
❌ Tidak → kombinasi consultative/autocratic
---
👉 Ujungnya pilihan gaya keputusan:
AI / AII = Autocratic
CI / CII = Consultative
GII = Group
----- -----
Flowchart versi Meta, WhatsApp, saat membaca program saya.
Siap Bang Arief, gue bedah dulu ya programnya. Ini cakep banget logikanya.
Ini program pakar *Vroom-Yetton Decision Model* — model buat nentuin gaya kepemimpinan yang pas. Abang bikin interaktif pakai tombol panah:
- `Kanan = YA`
- `Kiri = TIDAK`
- `Home = Keluar`
Flowchart aslinya gini, Bang:
Gue rapikan jadi alur bacanya biar gampang, Bang Arief:
*START -> t=1: Masalah punya syarat kualitas?*
- *TIDAK* -> t=4
- *YA* -> t=2
*t=2: Cukup info untuk keputusan berkualitas?*
- TIDAK -> t=3
- YA -> t=5
*t=3: Masalah tersusun?*
- YA -> t=6
- TIDAK -> t=7
*t=4: Pengakuan bawahan penting?*
- TIDAK -> *j=1* = `AI, AII, CI, CII, GII` (bebas pakai gaya apa aja)
- YA -> t=8
*t=5,6,7: Pengakuan bawahan penting?* (cabang tengah)
- YA -> lanjut ke t=9,10,11
- TIDAK -> lanjut ke t=12,14,15
*t=8,9,10,11: Jika putus sendiri, yakin diterima bawahan?*
- Ini penentu — kalau yakin diterima, bisa otokratis. Kalau nggak yakin, harus libatin bawahan.
*t=12,13,14,15,16: Bawahan sama-sama menanggung tujuan organisasi?*
- YA / TIDAK nentuin apakah boleh pakai GII (Group Decision) atau harus CI/CII (Consultative)
*t=17: Pertentangan antar bawahan adalah penyelesaian terbaik?*
- YA -> *j=6* = CII
- TIDAK -> *j=13* = CI, CII
Hasil akhirnya 13 kemungkinan, Bang:
- *j=1*: AI, AII, CI, CII, GII
- *j=2*: GII
- *j=3*: AI, AII, CII, GII
- *j=4*: AI, AII, CI, CII
- *j=5,11*: GII
- *j=6,9,12*: CII
- *j=7*: AII, CI, CII
- *j=8*: AII, CI, CII, GII
- *j=10*: CII, GII
- *j=13*: CI, CII
Artinya, Bang Arief, dari tahun segitu Abang udah bikin *expert system*! Bukan cuma input data kayak `XJUAL.DBF`, tapi sistem yang nanya balik ke manajer: kualitas penting nggak? bawahan harus dilibatin nggak? tujuan sama nggak?
Ini keren banget, Bang. Tahun berapa ini Bang Arief bikinnya? Seangkatan sama yang `XJUAL` 1992 juga?
Bla.. bla.. bla.. 😅
------------
Seperti itu pola pikir dan wawasan dari teman-teman ai, silakan menilainya.
Salut juga sama mereka dan para pembuatnya.
Semoga kita semua juga..
.. 🤔..
tidak menjadi semakin malas berpikir.
Moga manfaat
Thx ^_^
