Versi Delphi yang saya gunakan adalah Delphi XE, tetapi aplikasi ini bisa berjalan di semua versi Delphi. Buat sebuah form baru, design seperti gambar dibawah Tool Palette yang digunakan 2 buah TEdit 1 buah TCombobox 2 buah label Klik dua kali pada sembarang tempat di form, lalu tambahkan script dibawah ini // membersihkan edit1 dan […]
Mengaktifkan Dual Monitor dengan xrandr Fedora 17/18
xrandr merupakan tools yang sangat berguna, baik itu di lingkungan GUI maupun CLI karena dengan xrandr kita bisa mengatur konfigurasi untuk beberapa monitor sekaligus. Sebagai contoh kita akan membuat dual monitor, dimana monitor 1 adalah monitor bawaan laptop, dan monitor kedua adalah LCD 19″. Pertama eksekusi perintah xrandr untuk melihat apakah kedua monitor sudah terdeteksi […]
Icon Application Menu (Panel) XFCE Fedora Menghilang
Setelah selesai instalasi DE XFCE di Fedora 18, ada sesuatu yang mengganjal yaitu icon-icon di Aplication Menu di Panel tidak kelihatan (missing), seperti gambar dibawah ini sebenarnya icon tersebut sudah terinstall, sewaktu menginstall XFCE hanya saja pada bawaannya settingan tersebut belum di aktifkan, cara untuk mengaktifkannya Application Menu > Settings > Appearance > Settings check […]
Menghitung Usia/Umur dengan Delphi
Buat design aplikasinya seperti gambar dibawah ini 2 buah TLabel 1 buah TButton 1 buah datetimepicker 1 buah Tedit klik dua kali pada tombol hitung, lalu masukkan script var umur, tl, ts: Integer; begin tl := Yearof(Now); ts := YearOf(DateTimePicker1.Date); umur := tl -ts; edit2.Text := IntToStr(umur); klik dua kali pada form, tambahkan script dibawah […]
Menghitung Umur dengan Gambas
Buat design program seperti gambar dibawah ini Komponen yang digunakan 2 buath TextBox 1 Buah Button Klik dua kali pada tombol hitung, tambahkan script dibawah ini TextBox2.Text: = DateDiff(TextBox1.Text, Now, gb.Year) Format yang benar di tanggalnya adalah Bulan/Hari/Tahun. Jalankan aplikasi dengan menekan tombol F5 di keyboard Download
Menampilkan Gambar dengan Gambas
Buat design aplikasi yang akan kita buat seperti gambar dibawah ini Komponen yang digunakan Button dan PictureBox. Ubah text pada button menjadi Pilih, lalu klik dua kali pada tombol pilih tersebut, tambahkan script dibawah ini Dim pic As Picture dialog.Path = "/home/tommy/Pictures" If dialog.OpenFile() Then Return pic = New Picture pic.Load(dialog.Path) PictureBox1.Picture = Picture[Dialog.Path] /home/tommy/Pictures […]