Teknik Elektro LinksBarrier-Gate & Turnstile Interface, Thermostat, Relay Driver, Microcontroler Board

Program To-Do List Sederhana Menggunakan REBOL + REBGUI

To-Do List adalah catatan kecil yang berisi rencana kegiatan (tugas/pekerjaan) dalam satu hari yang menjadi target untuk kita selesaikan pada hari tersebut. To-Do List bisa kita tulis pada buku catatan, jurnal, agenda atau secarik kertas. Kita juga bisa catat pada komputer/laptop yang kita gunakan sehari-hari untuk bekerja menggunakan program Notepad, MS Word/Excel atau program khusus yang didedikasikan untuk keperluan tersebut seperti Outlook, Evernote dan EssentialPIM (Personal Information Manager).

Atau, kita bisa mencoba membuat sendiri program To-Do List yang sesuai dengan selera kita sambil mengasah keterampilan pemrograman kita. Nah, pada kesempatan ini saya akan membagikan program To-Do List sederhana yang saya buat menggunakan REBOL. Berikut adalah tampilan programnya.

clist

To-Do List yang saya buat ini memiliki 4 buah area (memo/multi-line text) yakni:

  • teknikelektrolinks.com
  • www.usbinov.com
  • Detailing + Marketing
  • Daftar Belanja

Dan tentu saja sebuah kalender bulanan yang selain untuk menampilkan tanggal juga berfungsi sebagai navigasi. Jika user meng-klik sebuah tanggal, maka secara otomatis program akan mengecek apakah file data untuk tanggal tersebut EXISTS. Jika IYA, maka program akan menampilkan To-Do List pada masing-masing area.

Dengan fitur “klik tanggal” yang sederhana tersebut, maka kita dapat mengatur jadwal kegiatan untuk hari-hari mendatang dan melihat kembali jadwal kegiatan hari-hari sebelumnya.

Area teknikelektrolinks.com

Area ini berisi tugas-tugas harian yang berhubungan dengan teknikelektrolinks.com. Tugas bisa berupa pembuatan PCB, perancangan modul baru, pembuatan program baru, revisi firmware dan lain-lain yang berhubungan dengan produksi modul-modul elektronik yang ditawarkan Teknik Elektro Links.

Area www.usbinov.com

Sama seperti area sebelumnya, namun area ini khusus untuk produk-produk dari USBINOV.

Area Detailing + Marketing

Area ini berisi tugas-tugas yang berkaitan dengan pemasaran dan penjualan. Detailing adalah istilah yang saya gunakan untuk menawarkan produk sekaligus mengetahui lebih jauh mengenai kebutuhan konsumen atau user. Contoh tugas pada area ini adalah:

  • pasang ads pada Facebook
  • kontak Mr. A, tanya mengenai kelanjutan order 60 unit KISFORTHUNER
  • blog post tentang USB-2REL untuk kontrol barrier-gate

Area Daftar Belanja

Area ini berisi daftar kebutuhan yang dibutuhkan oleh produksi.

Kode Program

Kode program To-Do List versi REBOL ini tidaklah panjang, tidak sampai 100 baris. Fitur cukup istimewa dari program singkat ini antara lain:

  • menggunakan library REBGUI sehingga tampilan program lebih menarik
  • menggunakan format tanggal untuk penamaan file data
  • menerapkan proses compress/decompress pada file data sehingga file tidak dapat dibaca jika dibuka menggunakan software lain

Nah, berikut adalah kode programnya.

REBOL [
 Title: "Fokus, Chan!"
]

do %rebgui.r

f: to-file rejoin ["lists/" now/date]

display "Fokus, Chan!" [
 group-box "To Do / Notes" data [
 label orange "teknikelektrolinks.com" return
 telinks: 70x45 area
 at 75x0 label green "www.usbinov.com"
 at 75x7 usbinov: 70x45 area
 return
 label yellow "Detailing + Marketing" return
 detailing: 70x45 area
 at 75x54 label sky "Daftar Belanja"
 at 75x61 belanja: 70x45 area
 ]
 ;return
 
 
 at 157x2 panel data [
 cal: calendar [
 f: to-file ajoin ["lists/" face/data]
 f1: to-file rejoin ["lists/" face/data "-telinks"]
 if/else exists? f1 [
 set-text telinks to-string load to-binary decompress read/binary f1
 
 f1: to-file rejoin ["lists/" face/data "-usbinov"]
 set-text usbinov to-string load to-binary decompress read/binary f1

 f1: to-file rejoin ["lists/" face/data "-detailing"]
 set-text detailing to-string load to-binary decompress read/binary f1
 
 f1: to-file rejoin ["lists/" face/data "-belanja"]
 set-text belanja to-string load to-binary decompress read/binary f1
 
 ][
 clear-text telinks
 clear-text usbinov
 clear-text detailing
 clear-text belanja
 ]
 ]
 ]
 return
 
 at 157x60 image %rebol.gif
 at 202x60 dt: text 32 ""
 at 202x65 tm: text 30 "" rate 1
 feel [engage: func [f a e] [
 if a = 'time [
 set-text dt rejoin ["Date: " to-string now/date]
 set-text tm rejoin ["Time: " to-string now/time]
 ]
 ]]
 
 at 157x74 panel data [
 label " Fokus. Inovatif. Produktif. Kontributif. "
 ]
 
 at 157x90 panel data [
 button 70x8 "S A V E" [
 f1: to-file rejoin [to-string f "-telinks"]
 write/binary f1 compress telinks/text
 f1: to-file rejoin [to-string f "-usbinov"]
 write/binary f1 compress usbinov/text
 f1: to-file rejoin [to-string f "-detailing"]
 write/binary f1 compress detailing/text
 f1: to-file rejoin [to-string f "-belanja"]
 write/binary f1 compress belanja/text
 alert rejoin [to-string f " is saved."]
 ]
 return
 button 70x8 "Q U I T" [quit]
 
 ]

]

do-events

Menjalankan Aplikasi To-Do List

Cara menjalankan aplikasi To-Do List versi REBOL adalah sebagai berikut:

  • Simpan file kode program dengan nama clist.r atau tdlist.r
  • Jalankan aplikasi dengan cara mengklik-ganda (double-click) file kode program REBOL
  • Untuk menjalankan melalui console, ketik perintah: rebol clist.r

Nah, semoga postingan ini bermanfaat. Selamat berkarya.

 

 

Add a Comment

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>