o2 fresh

Jumat, 19 September 2025

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.