Rabu, 10 September 2025
0 Program Decision Making V-room Yetton dalam Bahasa DBase III Plus
Program ini dulu saya buat dengan menggunakan bahasa Dbase III Plus Program.
Sebenarnya aplikasi lebih ditujukan untuk pendataan inventory, tetapi saat itu saya mencoba memanfaatkan 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 android tetapi pada akhirnya saya urungkan mengingat konsekuensi dari keimanan yg saya anut.
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
----- -----
Dari rumusan diatas maka bahasa Dbase III Plus Programnya :
----- -----
Pencarian Informasi Decision Making Vroom-Yetton
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, ^_^
Jumat, 05 September 2025
0 Modifikasi Holder HP Monster yg Retak
Begitu sulit mencari holder untuk di mobil yang mampu menyangga HP yang memiliki berat lebih dari ½ kg (540 gr). Untuk menyiasatinya saya menggunakan holder motor yg dimodifikasi agar mampu mengusung HP monster, memiliki penyangga yang cukup tebal. Meski begitu ternyata hanya mampu bertahan sekitar 7-8 bulanan dengan munculnya sebuah retakan diarea siku penyangga, sehingga posisi HP menjadi sangat tidak stabil dan sangat terasa ketika melihat hasil rekaman video, gambar tampak berayun-ayun tanpa henti walaupun berada dijalan yg rata.
Pada awalnya saya hendak memesan ulang holder sejenis untuk diambil part penyangganya, tetapi waktu sudah tidak memungkinkan.
Tampilan holder HP bila dilihat dari luar.
Seperti inilah tampilan saat melihat Google maps.
Ketika melihat video dengan posisi landscape, terlihat juga tali penahan agar posisi HP tidak terjungkal ke bawah.
Semoga manfaat.
Modifikasi Holder HP yg dibaut pada pilar "A", sesudah diperbaiki dengan modifikasi tambahan.
Jadi saya mencarinya di AZKO (dahulu, Ace hardware), dan menemukan siku besi yg saya butuhkan.
Alhamdulillah, siku besi tersebut memiliki titik lubang yg sama dengan penyangga yg retak.
Setelah diukur dan ditandai dengan seksama, barulah siap dilakukan pemotongan.
Pemotongan dilakukan menggunakan mesin gerinda sementara benda kerja dipegang menggunakan alat bantu tang penjepit.
Hasil potongan besi siku yang tak dipakai.
Ukuran lubang pada plat besi terlalu kecil, cukup dilebarkan menggunakan mini grinder dengan mata gerinda diamond.
Perhatikan bagian yang berwarna putih pada siku holder/ titik retakan, bekas lem power glue yg ternyata tetap tidak berhasil menahan berat dari HP monster.
Besi siku di satukan/ diikat dengan siku holder menggunakan dua buah baut/ mur.
Satu dari sisi bawah dan satunya lagi dari sisi samping yang juga menempel pada pilar "A".
Pemasangan baut menggunakan kunci "T", 10mm.
Pemasangan mur baut pada sisi bawah menggunakan kunci inggris dan obeng.
Seperti ini hasilnya.
Barulah setting ulang kemiringan holder HP menggunakan kunci inggris dan hot gun.
Karena baut yang akan digunakan terlihat kusam, terpaksa dipoles menggunakan mini grinder dengan mata poles serta autosol sebagai pengkilap agar terlihat rapi.
Baut lama tidak bisa dipakai karena terlalu pendek.
Persiapan pemasangan holder HP, jangan lupa dilapisi karet untuk melindungi plastik cover penutup pilar "A".
Pemasangan baut menggunakan kunci "T", 10mm.
Pengecekan tanpa beban HP, sepertinya sudah sempurna, tetapi saat diletakkan HP Doogee Vmax, settingan jadi berubah saking beratnya HP, sehingga harus disetting kembali kemiringannya.
Thx, ^_^
Senin, 25 Agustus 2025
0 Kunci "L" Patah, Jangan di Buang
Saat menggunakan kunci "L" bila mur-baut yg akan kita kendorkan sangat keras, mungkin karena terdapat karat, sehingga kunci "L" yg tidak kuat dan mengalami patah.
Walaupun patah, tetap masih bisa di pergunakan.
Gunakan tang penjepit sebagai alat bantu.
Untuk membuka baut dengan Torsi Maksimum.
Untuk dapat memanfaatkan kembali, cukup lakukan hal seperti ini.
Kunci "L" yg patah.
Letakkan patahan kunci "L" dengan posisi melintang.
Atur putaran pada tang penjepit sampai kira-kira, posisi genggaman pada tang terbuka hingga selebar ini.
Rapatkan genggaman tangan sehingga patahan kunci "L" terjepit sempurna/ dengan kekuatan pres paling maksimal.
Dengan penempatan patahan kunci "L" secara melintang, dapat membuka mur-baut dengan sangat mudah karena dapat menahan torsi putaran dengan kekuatan maksimum. Cara ini khusus digunakan saat pertama kali membuka mur-baut.
Selanjutnya untuk memudahkan pemutaran dan mempercepat proses pelepasan mur-baut, layaknya seperti obeng, tempatkan mata patahan kunci "L" secara tegak lurus dan lakukan seperti cara sebelumnya untuk menjepit mata kunci "L"
Semoga manfaat.
Untuk melepaskan jepitan pada tang penjepit, tekan tuas kecil pada tang penjepit (semakin kuat menjepit, maka semakin kuat penekanan yg harus dilakukan pada tuas)
Penempatan mata patahan kunci "L" secara tegak lurus.
Silahkan klik, untuk memaksimalkan toolbox/ kotak peralatan.
Thx, ^_^
Jumat, 22 Agustus 2025
0 Modifikasi Flash Disk OTG yg Patah
Flash disk OTG memiliki fungsi sangat penting, terutama untuk memindahkan file-file besar dari HP ke laptop atau sebaliknya, tanpa perlu melakukan prosedur yang terkadang begitu rumit.
Sehingga untuk mengeluarkan USB dari cangkangnya mengalami kesulitan.
Begitu juga untuk mengeluarkan micro USB dari cangkangnya juga mengalami kendala.
Akhirnya flash disk OTG dibongkar dan tampak seperti ini tampilannya.
Setelah diukur dengan seksama lalu dilakukan pemotongan cangkang flash disk OTG dengan menggunakan mini grinder.
Untuk penggunaan tinggal di belikan penutup USB dan micro USB yang banyak dijual di online shop.
Saya memiliki flash disk OTG yang cukup handal hanya saja mekanisme bagian penggeser penggunaan antara USB dan micro USB mengalami patah, sehingga flash disk OTG menjadi sulit untuk digunakan.
Untuk modifikasi flash disk OTG sebetulnya sudah lama direncanakan hanya saja waktunya baru bisa dilakukan sekarang ini.
Bagian pengatur USB atau micro USB yang patah.
Setelah cangkang flash disk OTG dirapikan akibat pemotongan, lalu flash disk OTG dirakit ulang.
Lalu di beberapa titik sisi dalam diberi sedikit bubuk baking soda dan diteteskan sedikit power glue dan seperti inilah hasil akhirnya.
Beginilah hasil akhir flash disk OTG seperti yang tampak di foto di bawah ini.
Bila dilihat USB OTG saat ini modelnya jadi apa ya istilahnya.., emm.. terlalu to the point. Tetapi tetap memiliki fungsi yang maksimal seperti awalnya.
Semoga manfaat,
Thx ^_^
Sabtu, 19 Juli 2025
0 Pulley Kruk As Mobil yg Bermasalah
Pulley kruk as ternyata yg jadi biang keladi. Jarang montir yang tahu permasalahan seperti ini, kecuali yg teliti dan paham cara kerja dan menganalisa.
Ternyata lem karet yg menyatukan pulley kruk as, sudah terlepas, sehingga putaran dari mesin yg dihantarkan untuk memutar pulley-pulley lainnya melalui V-Belt menjadi tidak maksimal/ selip, sehingga terjadilah kendala-kendala yg disebutkan di atas.
Pulley kruk as sudah terpasang rapi.
Pulley kruk as terlihat seperti masih baik.
Saya sendiri pun tidak akan pernah terpikir kalau permasalahan yang muncul di kendaraan saya hanya dikarenakan sebuah pulley kruk as.
- Mobil nyaris tak kuat starter.
- Kemungkinan accu, motor starter, dinamo ampere atau kelistrikan/ kabel.
- V-Belt bawah, power steering dan kompresor AC, terlepas.
- Tak lama kemudian V-Belt atas, dinamo ampere dan water pump mulai terbelah. (Alhamdulillah, kejadian di dekat rumah)
- Bila terjadi ditengah jalan/ tol, maka setir menjadi berat, temperatur mesin panas, AC tidak dingin/ hanya angin, indikator accu menyala tanda tak ada pengisian, lampu-lampu meredup lalu tak lama mesin mati karena bisa bertahan hanya karena suplai kelistrikan dari accu.
- Bila dipasang V-Belt pun juga tak akan bertahan lama dikarenakan pulley kruk as sudah rusak dan harus diganti. Dan tidak semua montir yg memahami.
Sekilas masih terlihat baik.
Ini montir mobil saya, Abang Husein (sayang tak terlihat wajahnya).
Terimakasih bang..
Semoga info ini manfaat.
Thx, ^_^Jumat, 27 Juni 2025
0 Klip AI Lagu 'Eneng': Dari Trotoar ke Hati, Betawi Banget!
Klip AI Lagu Eneng: Dari Trotoar ke Hati, Betawi Banget!
Assalamualaikum teman-teman pembaca blog o2-fresh,
Postingan ini ngebahas proses kreatif di balik lagu gue yang judulnya "Eneng"
dulu namanya "Inter Menjo", ditulis 22 Juli 2002, tapi baru sekarang dapet nafas baru lewat
teknologi AI!
Cerita Singkat Lagu
Eneng adalah lagu bergenre Betawi ceria, bercerita soal cowok yang naksir cewek di trotoar...
eh, ternyata ceweknya malah cabut bareng cowok lain naik motor!
Lagu ini dibuat dengan keyboard CASIO CTK-811EX, khas nada klasik zaman itu.
Klip Musik Versi AI
Berkat bantuan AI (ChatGPT alias si Ji'ih), gue berhasil bikin video musik ala sinetron mini komedi.
Ada adegan:
- Ngobrol bareng Eneng sambil nunggu angkot
- Dipunggungin waktu Eneng ngobrol sama cowok lain
- Eneng cabut naik motor
- Dan gue? Ngedumel sendiri sambil ngucek-ngucek mata:
Gara-gara nih mata bikin malu aje
Belum Dirilis Publik
Video ini belum dirilis karena lagu belum didaftarkan ke WAMI secara resmi.
Insya Allah setelah semua berkas beres, video dan lagu akan gue rilis di YouTube.
Penutup
Lagu ini gue ciptakan sendiri, judul aslinya Inter Menjo, dan baru kali ini direalisasiin pakai
teknologi kekinian.
Semoga jadi hiburan dan inspirasi buat yang mau berkarya terus semangat gak boleh kendor!
Thx,
R Arief Priyatna Hafid
(o2-fresh blog)
Lihat juga:
Senin, 31 Maret 2025
0 Membuat Modifikasi Terminal menjadi Mengkotak ke-2..
Pada modifikasi terminal listrik sebelumnya, masih terasa ada bagian menonjol, bagian yg dapat diputar fleksibel tetapi saya tidak mengharapkan karena tak terlihat sisi kegunaannya. Akhirnya muncullah ide untuk membalik posisi engsel, sehingga bentuk akhir dari terminal listrik menjadi mengkotak.
Bagian menonjol yg berhasil saya hilangkan, sehingga terminal listrik terlihat lebih simpel, mungil dan mudah dibawa.
Bagian yg saya coba hilangkan.

Saya menggunakan mata mini grinder diamond untuk proses pemotongan.
Gunakan fluks untuk memudahkan penyolder ujung kabel ke plat kuningan.
Semoga manfaat,
Thx, ^_^
Klik untuk melihat:
Langganan:
Postingan (Atom)
Popular posts
-
Program ini dulu saya buat dengan menggunakan bahasa Dbase III Plus Program. Sebenarnya aplikasi lebih ditujukan untuk pendataan inventory,...
-
Seorang teman, pak Kardi, menceritakan mobil nya (Daihatsu Gran Max, 2008) yg mengalami temperatur tinggi di hari Jumat malam, air radiator ...
-
Rupanya sahabatku mas Heri mendengar suara berdecit dari V-belt pada saat mobil baru di starter. Dia menyarankan menggunakan lilin batangan ...
-
Begitu sulit mencari holder untuk di mobil yang mampu menyangga HP yang memiliki berat lebih dari ½ kg (540 gr). Untuk menyiasatinya saya me...
-
Program Ramalan Primbon Dengan Menggunakan Budaya Timur Dan Barat. Bermula dari kegemaran saya membuat program-program komputer dan juga...
-
Saat menggunakan kunci "L" bila mur-baut yg akan kita kendorkan sangat keras, mungkin karena terdapat karat, sehingga kunci "...
-
Aplikasi kontaktor magnet atau magnetic contactor dalam kehidupan sehari-hari sangat banyak sekali, misalnya : membuat alarm sederhana, ti...
-
Flash disk OTG memiliki fungsi sangat penting, terutama untuk memindahkan file-file besar dari HP ke laptop atau sebaliknya, tanpa perlu mel...
-
1.Kadang kalau kita mencabut paku yg sudah lama, tembok tempat paku itu menancap, lansung bolong, sompal 2.Maka coba kita gunakan tang ...
-
Aplikasi kontaktor magnet atau magnetic contactor dalam kehidupan sehari-hari sangat banyak sekali, misalnya: membuat alarm sederhana, time...