o2 fresh

Jumat, 19 Desember 2025

0 Program Detail Transaksi Barang dalam dBASE III Plus

Program Detail Transaksi Barang dalam dBASE III Plus

— Sebuah Jejak Logika.

“Kenapa program lama masih bisa berjalan?”

Jawabannya sederhana:

bukan karena bahasanya,

melainkan karena cara berpikir di baliknya.

Tulisan ini bermanfaat sebagai referensi logika sistem, karena alur dan prinsip kerjanya masih relevan dan dapat diterapkan dalam bahasa pemrograman apa pun.

Beberapa fitur yang sudah diterapkan dalam sistem ini antara lain:

Portal dengan kata sandi
Informasi laba saat transaksi
Sistem pencarian fleksibel (?, !, nomor, inisial)
Layar bantu
Pilihan tampilan layar atau cetak
Grafik batang (bar chart)
Dan fitur pendukung lainnya.

ALUR LOGIKA PROGRAM.

Menu Transaksi Barang

(dengan pembatasan portal kata sandi)

1. Menu Langganan dan Suplayer.

Digunakan untuk mengelola relasi usaha.

• Pengelolaan Data

- Input

- Edit

- Hapus

• Informasi

- Seorang langganan/ suplayer

- Seluruh langganan/ suplayer

- Seluruh hutang/ piutang.

2. Menu Barang

Digunakan untuk pengelolaan stok dan harga.

• Pengelolaan Data

- Input

- Edit

- Hapus

• Informasi

- Sebuah barang

- Seluruh barang

- Barang dibawah batas stok

• Pemesanan Barang Kembali

- Berdasarkan tingkatan laba

- Berdasarkan nama barang

• Label Harga.

- Sebuah barang

- Sebuah bon/ faktur.

3. Sistem Transaksi Barang.

Merupakan inti dari sistem pencatatan usaha.

• Pencatatan Penjualan

• Pembayaran

- Hutang

- Piutang

• Info Transaksi Antara Tanggal:

- Transaksi penjualan

- Transaksi pembelian

- Transaksi pembayaran

- Detail keuntungan jual/ beli

• Grafik Transaksi dan Laba

- Transaksi penjualan

- Transaksi langganan

- Transaksi barang

• Informasi Detail Transaksi

- Laba, bonus & diskon

- Laba masuk - keluar barang

- Laba penjualan & langanan

- Laba pembelian & suplayer

- Laba per barang

• Informasi Tagihan

- Sebuah bon/ faktur

- Seluruh bon/ faktur

- Seorang langganan/ suplayer

- Seluruh langganan/ suplayer

• Pencatatan pembelian.

4. Pemeliharaan File.

Digunakan untuk menjaga konsistensi dan kesehatan data.

• Perapihan File

- File langganan

- File barang

- File layar bantu

- File transaksi

- Seluruh file

• Perbaikan File

- File langganan

- File barang

- File layar bantu

- Seluruh file

- Seluruh nama barang

• Pemeriksaan File

- File langganan

- File barang

- Seluruh file

• Perbaikan & Perapihan Seluruh File.

Berikut program dalam bahasa Dbase3 plus.

Andaikan pada saat link di-klik ternyata ditanyakan pilihan email, di klik saja, biasanya untuk pendataan formalitas pada Google Drive.

• PROGRAM MENU UTAMA

MENU.PRG
https://drive.google.com/file/d/1FGwJxXwFNSOmzrAhqrxheknaOy-G5ihx/view?usp=drivesdk

MENU1.PRG
https://drive.google.com/file/d/1Pc1gCf3dvI98gCW-D_JXIjzOybTx4Hl2/view?usp=drivesdk

MENU2.PRG
https://drive.google.com/file/d/1DvQNrfQRQ4vHodVzjy-9aABWTGpyLmNY/view?usp=drivesdk

MENU3.PRG
https://drive.google.com/file/d/1lvgNzHleBa1xE-U26bmo5mn_aPJFNdfS/view?usp=drivesdk

MENU4.PRG
https://drive.google.com/file/d/1pt0viPCWS5h5sLCeRHaDY505i0lJFXng/view?usp=drivesdk

• SUBMENU 1

MENU11.PRG
https://drive.google.com/file/d/1x8Q8l8RgKWURF9GYPrzNaMHaa8BOHzPB/view?usp=drivesdk

MENU12.PRG
https://drive.google.com/file/d/1lz0BiIdWE_vJdVx9J-EJEasvb7QnOERI/view?usp=drivesdk

MENU13.PRG
https://drive.google.com/file/d/13bSx4N_yg_LnSRrnTtEwwM5xn0St430p/view?usp=drivesdk

MENU14.PRG
https://drive.google.com/file/d/18jgbhV68dDf7kquyWMsW_j2ArvFo-IWZ/view?usp=drivesdk

MENU15.PRG
https://drive.google.com/file/d/1Z0jGeRLyZ-Az-qJEUl8IarZ69lGMpfz_/view?usp=drivesdk

MENU141.PRG
https://drive.google.com/file/d/1E4fnfjE4mFqTLlXuNmlZYDn6llTPSIT-/view?usp=drivesdk

MENU142.PRG
https://drive.google.com/file/d/1nL36Ojt0964wTSh-JQsUJ-57o6iGRcYk/view?usp=drivesdk

Submenu 2

MENU21.PRG
https://drive.google.com/file/d/1_CoC7f235yMd90xOXKoGgvb_yNkOG3L1/view?usp=drivesdk

MENU21M.PRG
https://drive.google.com/file/d/1iF3BWGtHiSULZkHhK7IXSEeauYPo2yl1/view?usp=drivesdk

MENU22.PRG
https://drive.google.com/file/d/1rMJJI2I3WFw-MVTH7gUii-4T2AHCNMPW/view?usp=drivesdk

MENU23.PRG
https://drive.google.com/file/d/1IEZcs512ZcwBY-5J1KfQb0Ns0RPNSp5e/view?usp=drivesdk

MENU24.PRG
https://drive.google.com/file/d/14KDY0ZPrZidCRkw2Q_Pjnu4amwTqzboT/view?usp=drivesdk

MENU25.PRG
https://drive.google.com/file/d/1K_uegVXvZ8dpR7T0fUYeO0kgmbFycAJB/view?usp=drivesdk

MENU26.PRG
https://drive.google.com/file/d/1EXE_Cc50FA2RJrvaSAs_MAV4Esgdx9kT/view?usp=drivesdk

MENU241.PRG
https://drive.google.com/file/d/1TVshWAOUf3tNLPEAADRS7YUVYBO9HY8y/view?usp=drivesdk

MENU242.PRG
https://drive.google.com/file/d/1b8xcRoSv0qaDfa6iu4VbUSO2jG_pOQjd/view?usp=drivesdk

MENU261.PRG
https://drive.google.com/file/d/1PuVGfKNocYNEHfXOlw0PcKbHhhFCihZ6/view?usp=drivesdk

MENU262.PRG
https://drive.google.com/file/d/1VY3NuhLRPV4pFUSbg6Yl0zb0yPSoEMH7/view?usp=drivesdk

Submenu 3

MENU31.PRG
https://drive.google.com/file/d/1_H3D_3BL1NnRHuDbBroTElz-3PqniUEF/view?usp=drivesdk

MENU31P.PRG
https://drive.google.com/file/d/19DuuXrqaiSML-t9fSHaUlfnujZRpKy_k/view?usp=drivesdk

MENU31PM.PRG
https://drive.google.com/file/d/19QT2VwGtNsbnEnS6wX-1XF92zPCcqS9D/view?usp=drivesdk

MENU32.PRG
https://drive.google.com/file/d/1wkiHFaZhP9g2YMc3Bgxruna76Jp2AMzS/view?usp=drivesdk

MENU32P.PRG
https://drive.google.com/file/d/1zVt2lwYFQgUM5dcQ0kM8XUpJTKGE2KqO/view?usp=drivesdk

MENU33.PRG
https://drive.google.com/file/d/16aHxwx7oV7kzq3BmhCVmsKbuT1pFkaBU/view?usp=drivesdk

MENU34.PRG
https://drive.google.com/file/d/1GkMHUe7HPXcstvlm0sGvLk_8R7hknWhj/view?usp=drivesdk

MENU35.PRG
https://drive.google.com/file/d/1tpIBCBOwE71lO6-SDLo5NFTVPcWHsUlF/view?usp=drivesdk

MENU36.PRG
https://drive.google.com/file/d/1PzP7esbnjtixJX_mnLmpbhpS4BAiKc1V/view?usp=drivesdk

MENU331.PRG
https://drive.google.com/file/d/17ECU7FEknoktanXbkZBunCr6_jGWh4Pu/view?usp=drivesdk

MENU332.PRG
https://drive.google.com/file/d/1x6Q1IndEqi0nwes4lsxVkFakmPrXaL0D/view?usp=drivesdk

MENU333.PRG
https://drive.google.com/file/d/1bzd_WGaOofA4QN0_vD-EUnJGVwL9lbJT/view?usp=drivesdk

MENU334.PRG
https://drive.google.com/file/d/1xnuZR4zWnFVK_UNXPSz0Gqy3_jLqte-_/view?usp=drivesdk

MENU335.PRG
https://drive.google.com/file/d/1j60gZot3EAtW5oQaxIwtoh8LvAuN_-Yu/view?usp=drivesdk

MENU336.PRG
https://drive.google.com/file/d/10O7W8BS5uR5O5g0W5_peZci3bDmycuxa/view?usp=drivesdk

MENU341.PRG
https://drive.google.com/file/d/1YYR7YG37GM_N3e8cRvuoXEchdOs-Y-PX/view?usp=drivesdk

MENU342.PRG
https://drive.google.com/file/d/1573bGTjO-VNLEd2zt4W9vCH-367wBIWo/view?usp=drivesdk

MENU343.PRG
https://drive.google.com/file/d/1zjs20mlCOmfl6rMaiWPKqUnOGJq-lnmd/view?usp=drivesdk

MENU344.PRG
https://drive.google.com/file/d/1pW89RmHWvIfZHAMFXhc5mX8WrA8vCJ_3/view?usp=drivesdk

MENU3351.PRG
https://drive.google.com/file/d/1jDV3NGlhdxkeCpJ67SOF9Qfa1U04KW-n/view?usp=drivesdk

MENU3352.PRG
https://drive.google.com/file/d/1dQlziYQEJNGS2zacxLcfIKcHUBx-pBJZ/view?usp=drivesdk

MENU3353.PRG
https://drive.google.com/file/d/1gf1XAABTYaWbxu8eAHW4Lpiaco2Nxs8j/view?usp=drivesdk

MENU3361.PRG
https://drive.google.com/file/d/1gTz5otHHhbzaYYK5tbKpfabi0RcVemsR/view?usp=drivesdk

MENU3362.PRG
https://drive.google.com/file/d/1QOW7DDIfccHifw6FRoF8EtNtdKnyNAKs/view?usp=drivesdk

MENU3363.PRG
https://drive.google.com/file/d/1Zs75noTD1rWula52SiAytgP8JMMk68UL/view?usp=drivesdk

MENU3364.PRG
https://drive.google.com/file/d/15oxvUIvslFnYttgRJ3CaCakb0aWkRVz6/view?usp=drivesdk

MENU3365.PRG
https://drive.google.com/file/d/1uh7jBd6OozOEXo_yqBnnCj3Ta_wjEKx7/view?usp=drivesdk

MENU3366.PRG
https://drive.google.com/file/d/1E_8hGrVBt0E7rsc4Qyx5UVLAkJFMBykQ/view?usp=drivesdk

Submenu 4

MENU41.PRG
https://drive.google.com/file/d/1005CkBM8WqHL7CSyci3S1R04W0x6z7Hf/view?usp=drivesdk

MENU42.PRG
https://drive.google.com/file/d/10iLkghfCQ6upDdfTDHxf0qPfqn0Rfs-2/view?usp=drivesdk

MENU43.PRG
https://drive.google.com/file/d/19BOGN36Rv6CRxpGqS1rSphWMG1nk1kTv/view?usp=drivesdk

MENU44.PRG
https://drive.google.com/file/d/17OPZwNDhi2f67f46w4QmKHfXo5uurrbG/view?usp=drivesdk

MENU411.PRG
https://drive.google.com/file/d/1kvzTDEyube8zCmb_PdjBYDu-vyJD7Dts/view?usp=drivesdk

MENU412.PRG
https://drive.google.com/file/d/1EYQIbN53Y-bV--7jc8shp4rqOAj4F0M1/view?usp=drivesdk

MENU413.PRG
https://drive.google.com/file/d/1fGYk-Wwr-H0MI5d5D6TDMa7ea94gVW91/view?usp=drivesdk

MENU414.PRG
https://drive.google.com/file/d/1DhP54v__qNK4XPUOy5Jh_EgEawyUoA6m/view?usp=drivesdk

MENU415.PRG
https://drive.google.com/file/d/1Smofk7xfz1KLgjvtAvZg0B3Y24Fu1y4q/view?usp=drivesdk

MENU421.PRG
https://drive.google.com/file/d/1TaoHYVnbUq1Sx9baF6-7X5dXj2uuXky9/view?usp=drivesdk

MENU422.PRG
https://drive.google.com/file/d/1gVDbvy7c83nrKvrAQANpIhyYYvL8t94i/view?usp=drivesdk

MENU422M.PRG
https://drive.google.com/file/d/13JWqqG_-LZCjKS5TpNCquwvMVQD7VkHU/view?usp=drivesdk

MENU423.PRG
https://drive.google.com/file/d/1E8SGL2oKzRcWM3AqCCkMvqoWdP3twwS8/view?usp=drivesdk

MENU424.PRG
https://drive.google.com/file/d/1O2HDnRy8CHEey703iRP5UiqTQmZzsEe0/view?usp=drivesdk

MENU425.PRG
https://drive.google.com/file/d/16wxVBxovMqscoc43p_JVBpiLRd-7QGF2/view?usp=drivesdk

MENU431.PRG
https://drive.google.com/file/d/1PErN5NBFCPa6dfQnLrz_KTXP5U0gCQ4l/view?usp=drivesdk

MENU432.PRG
https://drive.google.com/file/d/12jI6Px_2ygxpm5zuS3CoKkIVjQqiwnML/view?usp=drivesdk

MENU433.PRG
https://drive.google.com/file/d/1aHeAIEe6s07NBhlvVOJdAGv979ipxH5f/view?usp=drivesdk

MENUKWI.PRG
https://drive.google.com/file/d/1OsZxd3DXjVRzSm0FAa4fjpxd6J5QI8G7/view?usp=drivesdk

• Data Base File

BON.DBF
https://drive.google.com/file/d/1S_-k7a-WkocazfwMjgtNmdD1VY8UrGUK/view?usp=drivesdk

KRI.DBF
https://drive.google.com/file/d/19U2s-Py_XUKihT5N2QOGxK1Iyrjs-XWN/view?usp=drivesdk

LABA.NDX
https://drive.google.com/file/d/1X81Jxd7ybClbHrp9JxeBPbmk5Km9n1QU/view?usp=drivesdk

LAKU.DBF
https://drive.google.com/file/d/1xEtNjxvavp2gxvyL4ukKBfQMLpexzptS/view?usp=drivesdk

NAMA_BRG.NDX
https://drive.google.com/file/d/1QU1ZqVWeiQvblNLM9d8Y_JA7q8rGyAjt/view?usp=drivesdk

NAMA_LGN.NDX
https://drive.google.com/file/d/1Xw5XGMBR4Ir-_C2oZibq1_opzrjZ-XyR/view?usp=drivesdk

NAMABRG2.NDX
https://drive.google.com/file/d/1jrhem6y3mbq90RsgJ2HQBg77erMMQnTR/view?usp=drivesdk

NAMALGN2.NDX
https://drive.google.com/file/d/1sbAYyQekY4kerPp1N7DOPSZELH_Vveqs/view?usp=drivesdk

NO_BON.NDX
https://drive.google.com/file/d/17uE1_fj5t5OLJEbF5qfzHxpPl6XNx6Co/view?usp=drivesdk

NO_BON2.NDX
https://drive.google.com/file/d/1Z4nMrQtH-sxLiqDrb630ujKGqEs2FwbY/view?usp=drivesdk

NO_BRG.NDX
https://drive.google.com/file/d/1tvIJjfOuJ2p-2SbtHeKGmQSyK2PWrhvE/view?usp=drivesdk

NO_BRG2.NDX
https://drive.google.com/file/d/1JCz-hRf77xrq5qi9lee8DR3mVIuR2MUX/view?usp=drivesdk

NO_LGN.NDX
https://drive.google.com/file/d/1--IiZ_6ESoikM_V5GsOHPxe7XUVQSE0t/view?usp=drivesdk

NO LGN2.NDX
https://drive.google.com/file/d/1sa143ODhXHJ80blPk0v8bOcLVsO-Hk8j/view?usp=drivesdk

NOTES
https://drive.google.com/file/d/1gRJeNJC_a6MYNXeek0bxkQHBkUAnmzJX/view?usp=drivesdk

TG_BAYAR.NDX
https://drive.google.com/file/d/1XHfcC8PabNm0kJnJXkytWxJWL3m6bnCF/view?usp=drivesdk

TG_JUAL.NDX
https://drive.google.com/file/d/1iM388Ypd2MGdrQ55tAbqNzc5nyx7tsow/view?usp=drivesdk

Xbarang.dbf
https://drive.google.com/file/d/1N2vFfT4KXmHEpfY4oX74h6qFkE3eCLuR/view?usp=drivesdk

Xjual.dbf
https://drive.google.com/file/d/1L5-PN4QxsqJJcr_EvUSAoZ5chZ6yEvyu/view?usp=drivesdk

Xlanggan.dbf
https://drive.google.com/file/d/1UuIcAXG5ednHsmqXTnsEULI-hyCsDUiX/view?usp=drivesdk

Alhamdulillah.

Lebih dari satu dekade dihabiskan untuk mengukir serentetan pemahaman logika

yang terpahat dalam satu prasasti utuh.

Prasasti itu mungkin tak banyak dibaca,

namun siapa pun yang membacanya,

tak akan kembali menjadi orang yang sama.

Insya Allah. 🤲🌺

Bila tulisan ini memberi manfaat, kiranya kebaikan itu dapat diteruskan

dengan menyisihkan sedikit rezeki untuk kaum dhuafa.

Terima kasih.

^_^

2 114 Surat Al-Qur'an dan Terjemahnya + Ruqyah

Alhamdulillah, niatan saya untuk membuat link MP3 yg berisikan 114 Surat Al-Qur'an beserta Terjemahannya akhirnya bisa diwujudkan.

Insya Allah, akan merasakan pengalaman yg berbeda dengan mendengarkan morotal bersama terjemahannya, karena kita jadi mengetahui isi kandungan dalam setiap surat yg diturunkan Allah Subhanahu Wa Ta'ala melalui nabi Muhammad shallallahu alaihi wasallam kepada kita semua, Insya Allah, Aamiin ya rabbal alamiin 🤲🌺.

Sebisa mungkin, minimal sekali dalam hidupmu, mendengarkan Al-Qur'an beserta terjemahannya secara komplit.

Pada bagian akhir juga terdapat bacaan Ruqyah.

Andaikan pada saat di-klik ternyata ditanyakan pilihan email, di klik saja, biasanya untuk pendataan formalitas pada Google Drive.

1. Al-Fatihah, 7 Ayat, Pembukaan
https://drive.google.com/file/d/1iy0c_W7sVSQwn7Ld4ZY_3XLGiDWZJZmd/view?usp=drivesdk

2. Al-Baqarah, 286 Ayat, Sapi Betina
https://drive.google.com/file/d/1QPbvcyxHjkF3_PKxQ6zuZPmuMxK7a4Ce/view?usp=drivesdk

3. Ali 'Imran, 200 Ayat, Keluarga Imran
https://drive.google.com/file/d/1VG1FqwUhqtGwa7nTrX9IS6Li5aSYJEHs/view?usp=drivesdk

4. An-Nisa’, 176 Ayat, Wanita
https://drive.google.com/file/d/18H1H6bz51YUYVKWmxa3Coj5DiYMXa_Ts/view?usp=drivesdk

5. Al-Ma’idah, 120 Ayat, Hidangan
https://drive.google.com/file/d/1LOcWJ5lcUi3LO2qnodRB6BOXFnWQiypv/view?usp=drivesdk

6. Al-An‘am, 165 Ayat, Binatang Ternak
https://drive.google.com/file/d/1nxdrKCfbqZz4aJkf7ZEuUpgLDaig35cU/view?usp=drivesdk

7. Al-A‘raf, 206 Ayat, Tempat Tertinggi
https://drive.google.com/file/d/1IUrzlnbPqOJf5bvJ7gb-0-hvd8jiX3cW/view?usp=drivesdk

8. Al-Anfal, 75 Ayat, Harta Rampasan Perang
https://drive.google.com/file/d/1N5tOAcABETQBdWA0X5hFWoDDGhT6kEqM/view?usp=drivesdk

9. At-Taubah, 129 Ayat, Pengampunan
https://drive.google.com/file/d/1QDv2GvndDnx_Tnzry84lLPZmlFPg6v9z/view?usp=drivesdk

10. Yunus, 109 Ayat, Yunus
https://drive.google.com/file/d/1lP9fI6oKeB6HMrd3sExkzjKVg6STLAen/view?usp=drivesdk

11. Hud, 123 Ayat, Hud
https://drive.google.com/file/d/1XCpLPKA4m_UY82Gg2S-VbKRv-0Gh3rlT/view?usp=drivesdk

12. Yusuf, 111 Ayat, Yusuf
https://drive.google.com/file/d/1iPuY8Zy6QFsm6x_EXQ856W0J99rV7NoU/view?usp=drivesdk

13. Ar-Ra‘d, 43 Ayat, Guruh
https://drive.google.com/file/d/1k9DL4ZoBBBfIz-sK0rnMonhMs0RgyA3X/view?usp=drivesdk

14. Ibrahim, 52 Ayat, Ibrahim
https://drive.google.com/file/d/1SZvMwqr2VUEzgXoLglc6mRcZ6XHEvEvs/view?usp=drivesdk

15. Al-Hijr, 99 Ayat, Negeri Kaum Samud
https://drive.google.com/file/d/1FAdiaeUZqb79cx74qMRzcHGLqGniQXHV/view?usp=drivesdk

16. An-Nahl, 128 Ayat, Lebah
https://drive.google.com/file/d/1hMNz2ixBjq-fB1mBx7PetwSHUVqb0fzW/view?usp=drivesdk

17. Al-Isra’, 111 Ayat, Perjalanan Malam
https://drive.google.com/file/d/1Oci8GgtTDxXpWvTVimM7q6h-iYyzoStV/view?usp=drivesdk

18. Al-Kahfi, 110 Ayat, Gua
https://drive.google.com/file/d/1jgNfVHRe3oeXqhdFF3WiN0B1jRxkgzKS/view?usp=drivesdk

19. Maryam, 98 Ayat, Maryam
https://drive.google.com/file/d/19ulHAp2TLbO86THF3gXsv-XjmvmSKeXc/view?usp=drivesdk

20. Ta-Ha, 135 Ayat, Ta-Ha
https://drive.google.com/file/d/1B8HULe_fhefKkKVrGldabz72XYBhJJrx/view?usp=drivesdk

21. Al-Anbiya’, 112 Ayat, Nabi-Nabi
https://drive.google.com/file/d/14knh35RlrmGLt776IHXms6Mc5c5rUJH3/view?usp=drivesdk

22. Al-Hajj, 78 Ayat, Haji
https://drive.google.com/file/d/1zhuIvBO3ud3esfvAEQOnd0nTdKwN34RD/view?usp=drivesdk

23. Al-Mu’minun, 118 Ayat, Orang-orang yang Beriman
https://drive.google.com/file/d/1Wsi1g0-OfYczfXIZU5Qs17PUtP9dGfoM/view?usp=drivesdk

24. An-Nur, 64 Ayat, Cahaya
https://drive.google.com/file/d/1I1JySA45vZCrHpa1FL4g6-1YWMqJNrFS/view?usp=drivesdk

25. Al-Furqon, 77 Ayat, Pembeda
https://drive.google.com/file/d/1_phy30MTH2RbNHoRmZtV42d47na54eDi/view?usp=drivesdk

26. Asy-Syu‘ara’, 227 Ayat, Para Penyair
https://drive.google.com/file/d/1n5RPlE6_oBACkGGcKXb8KHl1gESufvHB/view?usp=drivesdk

27. An-Naml, 93 Ayat, Semut
https://drive.google.com/file/d/1fTA8MKigZPXxK2sR6EXdAa0_q_vHk7Mg/view?usp=drivesdk

28. Al-Qasas, 88 Ayat, Cerita-cerita
https://drive.google.com/file/d/16iXxaZgZmPFwBe5tYlX_JS6Qdpyqo8N-/view?usp=drivesdk

29. Al-‘Ankabut, 69 Ayat, Laba-laba
https://drive.google.com/file/d/1AXq980hs6woICCkF212_SvXuMI-w2kga/view?usp=drivesdk

30. Ar-Rum, 60 Ayat, Bangsa Romawi
https://drive.google.com/file/d/1JO06h6fEOpRsBug12DBQ9Nl1mDEVG2Sv/view?usp=drivesdk

31. Luqman, 34 Ayat, Luqman
https://drive.google.com/file/d/1e8Iys38JM-KWOnyr-KH8dBFuY933LcVG/view?usp=drivesdk

32. As-Sajdah, 30 Ayat, Sujud
https://drive.google.com/file/d/1KanGULDoIeMGylrVZpaXJohKDdzcg6eN/view?usp=drivesdk

33. Al-Ahzab, 73 Ayat, Golongan yang Bersekutu
https://drive.google.com/file/d/19BMKa9eN4GkdzMbzRLILkiQ080XbbATf/view?usp=drivesdk

34. Saba’, 54 Ayat, Kaum Saba'
https://drive.google.com/file/d/1r-p_mSwUPjDvb9pvU5Bm3dehxtiYAFyx/view?usp=drivesdk

35. Fatir, 45 Ayat, Pencipta
https://drive.google.com/file/d/1BIc5VSC58hsJ5vUfHxYwyk1Aax6pf-MT/view?usp=drivesdk

36. Ya-Sin, 83 Ayat, Ya-Sin
https://drive.google.com/file/d/1cREDzg0kM9Ut9A-FJUbbGGszmAJJnr7h/view?usp=drivesdk

37. As-Saffat, 182 Ayat, Yang bersaf-saf
https://drive.google.com/file/d/1UbmJXgVlFZtQ6snyvSldYGo7LeY71pEK/view?usp=drivesdk

38. Sad, 88 Ayat, Sad
https://drive.google.com/file/d/1NDCjoGp0om5GBIXweesUj5jvoBZU2RXd/view?usp=drivesdk

39. Az-Zumar, 75 Ayat, Rombongan-rombongan
https://drive.google.com/file/d/1qAkfHQPiU2MPtadjqGFM3W8Z9ZEOwwJm/view?usp=drivesdk

40. Ghafir, 85 Ayat, Pengampun
https://drive.google.com/file/d/1MtBfuUGpblH9v8M6mzn3Km8HRZU3IYQl/view?usp=drivesdk

41. Fussilat, 54 Ayat, Yang Dijelaskan
https://drive.google.com/file/d/1GqHT_wDHD2vU76yyZ0wfEMXNBHQsUUg9/view?usp=drivesdk

42. Asy-Syura, 53 Ayat, Musyawarah
https://drive.google.com/file/d/1qSVC31JYML56RLfe3_3p_D8jVfacWOs6/view?usp=drivesdk

43. Az-Zukhruf, 89 Ayat, Perhiasan
https://drive.google.com/file/d/1XaLA5DLGcb-4r1pftKSgp19rSORA3Fz8/view?usp=drivesdk

44. Ad-Dukhan, 59 Ayat, Kabut
https://drive.google.com/file/d/12B7BZKIsumk_kxzpX4-pI8OixlOXVm-_/view?usp=drivesdk

45. Al-Jasiyah, 37 Ayat, Yang Berlutut
https://drive.google.com/file/d/1F4Sst3UnF8tQ_Badk4EQ90VHPOOer8ID/view?usp=drivesdk

46. Al-Ahqaf, 35 Ayat, Bukit-bukit Pasir
https://drive.google.com/file/d/1c5REqG9aDZA4wcPmVbOz_DmILCJMWUba/view?usp=drivesdk

47. Muhammad, 38 Ayat, Nabi Muhammad SAW
https://drive.google.com/file/d/1_iqle1oe_OOV-UpYkJowFGDD7spP5rIa/view?usp=drivesdk

48. Al-Fath, 29 Ayat, Kemenangan
https://drive.google.com/file/d/12GkmaAHRXTVt5Nq4ojpQ9z2WGw0Y4C0N/view?usp=drivesdk

49. Al-Hujurat, 18 Ayat, Kamar-kamar
https://drive.google.com/file/d/1GnrJgC3qtj9WLwZlSoflhy6wTVMYvv5O/view?usp=drivesdk

50. Qaf, 45 Ayat, Qaf
https://drive.google.com/file/d/1fdfjBz9vNMxw_k2SQDVuKFMVH-Ajf0lP/view?usp=drivesdk

51. Adz-Dzariyat, 60 Ayat, Angin yang menerbangkan
https://drive.google.com/file/d/18MIuhZ-rtJsCG296hjaSMVwdj4PQmOXN/view?usp=drivesdk

52. At-Tur, 49 Ayat, Bukit
https://drive.google.com/file/d/181kbURSy4c634o9ovWnUu6uinHq_WSOQ/view?usp=drivesdk

53. An-Najm, 62 Ayat, Bintang
https://drive.google.com/file/d/1cCPTtn4kGJSyxmvF9y1EB2LEZEhvMuw-/view?usp=drivesdk

54. Al-Qamar, 55 Ayat, Bulan
https://drive.google.com/file/d/1yWHYNmqEb16B-Eo9-HN4eA6abZ8t01Fk/view?usp=drivesdk

55. Ar-Rahman, 78 Ayat, Yang Maha Pengasih
https://drive.google.com/file/d/1DgLW5Zf0euKkbUrg80g9xglqgGJcRl8S/view?usp=drivesdk

56. Al-Waqi‘ah, 96 Ayat, Hari Kiamat
https://drive.google.com/file/d/17jKn1QhfbRxebausOFdJGkzuEe5N9lAW/view?usp=drivesdk

57. Al-Hadid, 29 Ayat, Besi
https://drive.google.com/file/d/17yCCXiDJcuntEea8utDoSAI5VA_iRCkD/view?usp=drivesdk

58. Al-Mujadilah, 22 Ayat, Wanita yang mengajukan gugatan
https://drive.google.com/file/d/1rj5V6Wvsydj0d1RMWI3L8Z26TPCX4tqd/view?usp=drivesdk

59. Al-Hasyr, 24 Ayat, Pengusiran
https://drive.google.com/file/d/1ZMe2jShp5793HlqTNEd6Rl_dod7QK3J6/view?usp=drivesdk

60. Al-Mumtahanah, 13 Ayat, Perempuan yang Diuji
https://drive.google.com/file/d/1kbyJMkGo2XVItPGhB5dztXWFZf2a2yJM/view?usp=drivesdk

61. As-Saff, 14 Ayat, Barisan
https://drive.google.com/file/d/1VNJ70irrrhybnQOb9pKRV7ohQTZc6muu/view?usp=drivesdk

62. Al-Jumu‘ah, 11 Ayat, Hari Jum'at
https://drive.google.com/file/d/1mGFZd52B3S7LS24LxeS1HLkwU0t279LF/view?usp=drivesdk

63. Al-Munafiqun, 11 Ayat, Orang-orang yang Munafik
https://drive.google.com/file/d/1hGdHv7eh14vPP4Ys99oVgo4uMkdzZakW/view?usp=drivesdk

64. At-Taghabun, 18 Ayat, Hari Ditampakkan Segala Kesalahan
https://drive.google.com/file/d/1vfN7zhvHRDly9Xvmn-YOVxKh4V_eBQJD/view?usp=drivesdk

65. At-Talaq, 12 Ayat, Talak
https://drive.google.com/file/d/1F8RNUv8D6mtY-yWmsqO1pm9dJW8OjPFk/view?usp=drivesdk

66. At-Tahrim, 12 Ayat, Mengharamkan
https://drive.google.com/file/d/1l0JVf_UfPOIZ7ms-OFGTQqluMaOyMIeE/view?usp=drivesdk

67. Al-Mulk, 30 Ayat, Kerajaan
https://drive.google.com/file/d/1K3EVvW1vrIp0tA4EuYgMguD0sgTd_sQ_/view?usp=drivesdk

68. Al-Qalam, 52 Ayat, Kalam
https://drive.google.com/file/d/1I4ZvE_Bjhs_S0pVTQMxqrnzgssw7KyeQ/view?usp=drivesdk

69. Al-Haqqah, 52 Ayat, Hari Kiamat
https://drive.google.com/file/d/1DdBNotJnk-8P3V3s36M-hF6El_ItdIXj/view?usp=drivesdk

70. Al-Ma‘arij, 44 Ayat, Tempat-tempat Naik
https://drive.google.com/file/d/1SBooy-hV1RuN4Uy4PRXH9OnUaaVi_Te7/view?usp=drivesdk

71. Nuh, 28 Ayat, Nuh
https://drive.google.com/file/d/1eczu5_ameJVhwR-0MUDi1yTsjaXcK1Dx/view?usp=drivesdk

72. Al-Jin, 28 Ayat, Jin
https://drive.google.com/file/d/1mzdlAvQfdomdjlNKkmgWm5IJFYuMMmqY/view?usp=drivesdk

73. Al-Muzzammil, 20 Ayat, Orang-orang yang Berselimut
https://drive.google.com/file/d/1aJFRDJTW55AQ2OmUEPsP4gD6__a4Ub2D/view?usp=drivesdk

74. Al-Muddatsir, 56 Ayat, Orang yang Berkemul
https://drive.google.com/file/d/101TIw9pY0NwypndZuZHOwoi8lSKoniLR/view?usp=drivesdk

75. Al-Qiyamah, 40 Ayat, Hari Kiamat
https://drive.google.com/file/d/1zD0L4PvDJ4bz1QzJ2X0Yw1-gfe7hthVx/view?usp=drivesdk

76. Al-Insan, 31 Ayat, Manusia
https://drive.google.com/file/d/1Hg4sbSg1PF8_bDyvoClm7dJG1fYFOcRr/view?usp=drivesdk

77. Al-Mursalat, 50 Ayat, Malaikat yang Diutus
https://drive.google.com/file/d/1O6iZqrKWWykRNwP9ErjQeyEeQQPggCCX/view?usp=drivesdk

78. An-Naba’, 40 Ayat, Berita Besar
https://drive.google.com/file/d/16EZ9bFPVugYHc8LMhUBHDiPvuOhM2IVq/view?usp=drivesdk

79. An-Nazi‘at, 46 Ayat, Malaikat-malaikat yang Mencabut
https://drive.google.com/file/d/1bFXCioPYnhy9_WRsUZYwn2APm80XpEYZ/view?usp=drivesdk

80. ‘Abasa, 42 Ayat, Ia Bermuka Masam
https://drive.google.com/file/d/1lJzwSMauhdxZH8fYLj7NGZ0ocWXG2A3F/view?usp=drivesdk

81. At-Takwir, 29 Ayat, Menggulung
https://drive.google.com/file/d/1gUGcljBSdVq6gaoJbj7ps5avVli9tjZh/view?usp=drivesdk

82. Al-Infitar, 19 Ayat, Terbelah
https://drive.google.com/file/d/112FqlQ0TNFB2845yJ9vK68naee8TYmpM/view?usp=drivesdk

83. Al-Mutaffifin, 36 Ayat, Orang-orang yang Curang
https://drive.google.com/file/d/1XUgQKA0y_XGMKWNmUfyrchuWvArSPWw-/view?usp=drivesdk

84. Al-Insyiqaq, 25 Ayat, Terbelah
https://drive.google.com/file/d/1AuRHtoHYVwRp24Xy8mnM5W9u64B-UPbw/view?usp=drivesdk

85. Al-Buruj, 22 Ayat, Gugusan Bintang
https://drive.google.com/file/d/1we360INLhFNy4fH3HsTLKPYIN5w1JOiR/view?usp=drivesdk

86. At-Tariq, 17 Ayat, Yang Datang di Malam Hari
https://drive.google.com/file/d/1TRhurll_Z_dVRz5MX0OPZPoBZ7Cwf-dM/view?usp=drivesdk

87. Al-A‘la, 19 Ayat, Yang Paling Tinggi
https://drive.google.com/file/d/18cHMurqtU9LRap4nqSBm8zhCacovu5Cj/view?usp=drivesdk

88. Al-Ghasyiyah, 26 Ayat, Hari Pembalasan
https://drive.google.com/file/d/1pWXHWqVNTQMU1lS2ao4Db9EeiRmphwwb/view?usp=drivesdk

89. Al-Fajr, 30 Ayat, Fajar
https://drive.google.com/file/d/1Aicu894KiPfhpiejIZj-7r6WFL0ApLm6/view?usp=drivesdk

90. Al-Balad, 20 Ayat, Negeri
https://drive.google.com/file/d/1ohso6l4tAhpTf1He3xL53szkiNBTj_TU/view?usp=drivesdk

91. Asy-Syams, 15 Ayat, Matahari
https://drive.google.com/file/d/1P3x_Mf6gN1UQ0h5AgyWJ6v2axwsEGMTT/view?usp=drivesdk

92. Al-Lail, 21 Ayat, Malam
https://drive.google.com/file/d/1HkNmAWvDb8EEIn9GqZQ-fywC8PAgDRf6/view?usp=drivesdk

93. Adh-Dhuha, 11 Ayat, Waktu Dhuha
https://drive.google.com/file/d/1YY5864m4HgxuQIZRlpz1lNxWIOjyWY0F/view?usp=drivesdk

94. Al-Insyirah, 8 Ayat, Kelapangan
https://drive.google.com/file/d/1LWW1dfmnzKDIaKmc4tdqwUDnE-x7-zJR/view?usp=drivesdk

95. At-Tin, 8 Ayat, Buah Tin
https://drive.google.com/file/d/1hiWYff4zfexMA9_qM_Bdsuv8eHNAaLCL/view?usp=drivesdk

96. Al-‘Alaq, 19 Ayat, Segumpal Darah
https://drive.google.com/file/d/1nLpTjuEvhnlO5mLHXx7Lv0JgtuAc4EWg/view?usp=drivesdk

97. Al-Qadr, 5 Ayat, Kemuliaan
https://drive.google.com/file/d/11PTa_qr_lq4Z-ouN2CpFTnBQAZJO5wqU/view?usp=drivesdk

98. Al-Bayyinah, 8 Ayat, Bukti yang Nyata
https://drive.google.com/file/d/1jtY2o4F-dDz_oDQDnv99HUg95DO3hanh/view?usp=drivesdk

99. Az-Zalzalah, 8 Ayat, Keguncangan
https://drive.google.com/file/d/1icvWkBBK0E4xj-8xnHfN4Z67Gpt01X-5/view?usp=drivesdk

100. Al-‘Adiyat, 11 Ayat, Kuda Perang yang Berlari Kencang
https://drive.google.com/file/d/1BxP7m31Jl5_iOmw0hG1sbhzppkz8pF2U/view?usp=drivesdk

101. Al-Qari‘ah, 11 Ayat, Hari Kiamat
https://drive.google.com/file/d/1DJLn9jMjsn4nXMEq8G-aW4c-yojYa6tZ/view?usp=drivesdk

102. At-Takatsur, 8 Ayat, Bermegah-megahan
https://drive.google.com/file/d/1EvYfzkrkubKPYjk4qVCnxVq80X8bX1F1/view?usp=drivesdk

103. Al-‘Asr, 3 Ayat, Masa
https://drive.google.com/file/d/1-vG-99f6Il4Am0K1YjTq69XITsoldO_j/view?usp=drivesdk

104. Al-Humazah, 9 Ayat, Pengumpat
https://drive.google.com/file/d/1e6qtFnbJMdzJCzd2gS1DeOY3TGi8NBpk/view?usp=drivesdk

105. Al-Fil, 5 Ayat, Gajah
https://drive.google.com/file/d/1Mj_FVxF2GNDWN70mEsX-i7gv7xvgci5n/view?usp=drivesdk

106. Quraisy, 4 Ayat, Suku Quraisy
https://drive.google.com/file/d/18Jj941gupT8YWYZ3_9RHruEiG682XMMv/view?usp=drivesdk

107. Al-Ma‘un, 7 Ayat, Barang-barang yang Berguna
https://drive.google.com/file/d/1zVAPzd-WenTwbCD6r7XtOlbX3hfoFe4w/view?usp=drivesdk

108. Al-Kautsar, 3 Ayat, Nikmat yang Banyak
https://drive.google.com/file/d/1mlQPD8uF5Qnyt6V2sLb1XUoF6Nd6RyrB/view?usp=drivesdk

109. Al-Kafirun, 6 Ayat, Orang-orang Kafir
https://drive.google.com/file/d/1hviZ4PxZGsL9R1ni1JnWJuVC26EwMVUl/view?usp=drivesdk

110. An-Nasr, 3 Ayat, Pertolongan
https://drive.google.com/file/d/1CxSFbjI0a8TaZzhADA7rzIYbqjZZalxy/view?usp=drivesdk

111. Al-Lahab, 5 Ayat, Gejolak Api
https://drive.google.com/file/d/1U2sHgGw60YI5q0Bpg6FXuN5kHG5kDPmV/view?usp=drivesdk

112. Al-Ikhlas, 4 Ayat, Kemurnian Keesaan Allah
https://drive.google.com/file/d/1iowBnRCwQWkjvEudPlhWQOV4sfLQ94GT/view?usp=drivesdk

113. Al-Falaq, 5 Ayat, Waktu Subuh
https://drive.google.com/file/d/1f-Bi_jaMU6aD2Nen6jDwlUWWrGXT-005/view?usp=drivesdk

114. An-Nas, 6 Ayat, Manusia
https://drive.google.com/file/d/18-3SUEBr6Fbs_3L6AlXCVN_R8CG3t-6D/view?usp=drivesdk

Ruqyah
https://drive.google.com/file/d/19dxh7HI9A1khWai6qHHfqRKcdTrCwujw/view?usp=drivesdk

Insya Allah akan mendatangkan manfaat.

Aamiin ya rabbal alamiin 🤲🌺

Thx, ^_^

0 Perbaiki Pintu yg Dirudapaksa Linggis

Karena kunci kamar tidak diketemukan, akhirnya pintu harus dibuka dengan menggunakan linggis.

Pintu akhirnya terbuka tetapi dampak kerusakannya cukup menyeramkan.

Terlihat bagian daun pintu.

Kusen pintu juga ikut terkoyak.

Akhirnya untuk perbaikan muncul ide dengan menggunakan beberapa alat dibawah ini.

Dengan memberikan ketukan-ketukan ringan menggunakan palu karet, bagian sisi kayu yang terkoyak diusahakan kembali ke tempat semula hingga permukaan sisi kayu terlihat rata. Barulah setelah itu diberikan beberapa paku kecil menggunakan stapler tembak agar sisi kayu yang sudah rata memiliki tulang-tulang penahan untuk mempertahankan posisinya.

Sementara untuk bagian daun pintu juga di lakukan hal yg sama berupa ketukan-ketukan ringan menggunakan palu karet sehingga terlihat rata. Hanya saja dikarenakan sisi daun pintu terbuat dari bahan triplek, maka perlu menggunakan potongan karton untuk menutup bagian yang berlubang. Setelah itu diberikan juga beberapa paku dengan menggunakan stapler tembak. Untuk memperkuat dudukan karton, perlu diberikan cairan power glue/ lem korea secara merata, begitu juga pada bagian serpihan² kayu triplek yg sudah dikondisikan rata, harus diberikan power glue agar bisa tetap mempertahankan posisinya.

Seperti inilah tampilan daun pintu setelah diberi paku dengan menggunakan stapler tembak dan power glue.

Terlihat permukaan pada bagian yg sebelumnya hancur, sudah terlihat rata dan kuat di bantu dengan menggunaan potongan karton dan tetesan power glue.

Pelat pengunci pada kusen pintu dipasangkan kembali ketempat semula, setelah pelat pengunci diluruskan terlebih dahulu.

Bagian karton yg berwarna putih segera di warnai dengan spidol hitam untuk menyamarkan, lalu pasangkan kembali handel pintu.

Alhamdulillah.., sekilas seperti tidak pernah terjadi apa-apa.. 🤭😁

Paku tembak yg digunakan dengan panjang 1,5 Cm

Terlihat tampilan dari dekatnya.

Semoga manfaat.

Thx ^_^

0 Program Penghancur atau Destroyer

Cerita lama dimana saya pernah terbesit untuk membuat sebuah program yg bila digunakan dapat merusak data atau suatu program.

Alhamdulillah, dibuatlah program sederhana dalam bahasa Dbase III plus, sebuah program penghancur yg akan aktif apabila ada variabel yg sudah ditentukan muncul/ ter-input.

Eksekusi tidak langsung terjadi pada saat itu, melainkan menunggu waktu yg sudah ditentukan sebelumnya. Misalnya: 3 bulan setelah pemicu aktif.

Waktu saya mencoba program ini, ternyata berjalan dengan baik, hanya saja saat itu saya tidak memiliki backup field-field data yg baru (field-field tambahan akibat pengembangan program inti yg semakin meluas/ kompleks) menjadi hilang, terhapus, yg tertinggal hanyalah field-field data dasar, sehingga butuh waktu cukup lama untuk menormalisasi jalannya program.

Senang, bingung, kesal dan sedih, tetapi itulah konsekuensi dari mencoba sesuatu yg iseng dan berbahaya.

--- ---

Bentuk bahasa Dbase III Plus-nya seperti bawah ini, dengan fungsi logika yg kurang lebih sama dengan program saat ini.

Perintah penghapusannya diubah hanya sebatas file 3362.* , bukan pada field data.

--- ---

set talk off

set stat off

set scor off

set bell off

set date germ

set dele on

set inte off

set deli on

set deli to '[]'

set colo to

clea

set proc to menular

set safe off

restore from c:\prog-awi\menuwkt additive

if hari <> date()

waktu1 = time()

hari = date()

save to c:\prog-awi\menuwkt.mem

endif

M5 = ctod('21.03.98')

M1 = date()

if M1 = M5

erase 3362.*

endif

retu

--- ---

Saya ingatkan, bahwa program seperti ini akan bisa membawa dampak yg sangat besar dan merugikan orang lain bahkan bisa berakhir ke jalur hukum, yg tidak main-main.

Jadi berhati-hatilah dengan niat pembuatannya 😁.

--- ---

Sebenarnya ada sebuah program lagi yg pernah saya buat, sebuah program yg sangat kompleks, Program Transaksi Jual Beli Barang, dengan menu-menu yg sangat banyak dan saling terkait.

Sedang dipikirkan untuk membuatnya sebagai satu bahan postingan didalam blog ini, hanya saja saya belum menemukan format yg pas untuk menuliskannya. Mengingat banyaknya menu dan sub-sub menu program yg beberapa diantaranya berisikan lebih dari seribu baris penulisan perintah hanya untuk satu file programnya.

Sebagai perbandingan, file program penghancur diatas, hanya berisikan sebanyak 25 baris perintah.

Semoga manfaat.

Thx ^_^

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 ^_^

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.

Modifikasi Holder HP yg dibaut pada pilar "A", sesudah diperbaiki dengan modifikasi tambahan.

Pada awalnya saya hendak memesan ulang holder sejenis untuk diambil part penyangganya, tetapi waktu sudah tidak memungkinkan.

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".

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.

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.

Pengecekan tanpa beban HP, sepertinya sudah sempurna, tetapi saat diletakkan HP Doogee Vmax, settingan jadi berubah saking beratnya HP, sehingga harus disetting kembali kemiringannya.