Belajar Pascal dengan turbo pascal Windows ( For Adam )

Turbo Pascal… Memulai pemrograman dengan turbo pascal… Di bawah ini link untuk download Aplikasi Turbo pascal . Sebagai latihan pertama coba membuat program mencari Luas dan Keliling Lingkaran. Download

Ketikkan Coding pascal berikut ( tercetak tebal )di turbo pascal, kemudian Run dengan tekan Ctrl + F9

program menghitung luas dan keliling lingkaran;
uses wincrt;

var
a,b,r:integer;
L,K:real;
const phi=3.14;
begin
write(‘masukkan jari-jari lingkaran = ‘); readln(r);
L:=phi*r*r;
K:=2*phi*r;
writeln(‘jadi luas lingkarannya adalah = ‘,L:0:2);
writeln(‘jadi keliling lingkarannya adalah = ‘,K:0:2);

Tutorial Membuat Kuitansi Sederhana dengan Lazarus

Postingan ini saya tujukan khusus untuk cosim micho’s dan Ido umumnya untuk semua yang ingin belajar pemrograman dengan Lazarus.

  1. Buatlah form utama seperti gambar di bawah ini

Kuitansi 1Terdiri dari TEdit, Label, Button dan DateTimePicker, jika ingin membuat menu juga menggunakan MainMenu.

2. Membuat form baru untuk report dengan menggunakan Fortes Report dan susun seperti gambar di bawah ini, saya menggunakan backgroung gambar Kuitansi

Kuitansi 2 report

Di report saya hanya menggunakan RLLabel sebagai komponennya.

3. Kemudian klik 2x pada button Print di form pertama yang dibuat, dan isikan code sebagai berikut

Kuitansi 3 PrintKemudian terakhir buatlah Unit UFunctions dan isikan kode terbilang berikut ini.

Function1

Function2

Function3

Function4

Function5O iya pada edit2 event onchange buat kode di bawah ini, gunanya untuk menampilkan terbilang.

procedure TFrmMain.Edit2Change(Sender: TObject);
begin
  Edit4.Text:=SpellAll(edit2.Text)
end;

Semoga bermanfaat, jika masih ada kesulitan silahkan tinggalkan Coment…

Agar Anak tidak bertengkar

Bagaiman kita mengajari anak kita supaya tidak bertengkar

Memaklumi yang tidak pada tempatnya. Sering orang tua kita menjumpai anaknya berbuat nakal dan ibunyapun sering mengucapkan “ Ya namanya juga anak laki-laki, ya biasalah” kemudian ada juga ketika orang tua melihat adik bertengkar dengan kakaknya mengatakan “Namanya juga anak-anak” ketika pula anaknya memukul anak tetangganya mereka mengatakan “Namanya juga anak-anak ngak sengaja kok”

Apabila kita tetap mendiamkan atau memakluminya perilaku ini terus, maka anak itu beranggapan bahwa perilaku yang ia lakukan itu benar dan tidak ada yang harus diperbaiki, perilaku inilah yang akan di bawa dan dipertahankan hingga dewasa.sehingga kita sering melihat anak dewasa yang beperilaku tidak baik,Lalu apa yang sebaiknya harus kita lakukan? Sebenarnya tidak ada yang harus dimaklumi dari anak-anak kita, setiap anak harus dididik sesuai tipe sifat dasarnya tanpa kecuali apakah dia laki-laki atau perempuan,setiap anak bisa dididik mulai 2 tahun ia akan mau bekerjasama sepanjang kita mengajak berkomunikasi dari hati kehati dengan konsisten, semakin dini kita melakukan semakin baik, karena anak-anak kita yang masih kecildi ibarat besi yang masih panas, yang masih lentur untukdi bentuk dan diarahkan, semakin bertambahnya umur anak kita maka semakin berkurang kelenturan anak kita untuk kita atur, jadi jangan menunggu anak kita besar baru kita mulai mendidik, karena sesungguhnya masa-masa TK sampai dengan SLTA masa krisis pembentukan prilaku anak, apabila berhasil maka setelah ia masuk SMA memiliki identitas diri dan prilaku yang sangat baik.

Pertengkaran itu disebabkan orang tua tidak bisa menjelaskan arti pertengkaran pada anak-anaknya,apasih sisi sebuah pertengkaran kita,sering orang tua tidak memahami apasih sisi dari bertengkar itu dan menganggap pertengkaran adalah hal yang negatife, padahal dari pertengkaran itu ada sisi positifnya, seorang anak umur 4 tahun dan hanya baru mengalami kehidupan 4 tahun mereka belum memiliki konsep-konsep, dengan pertengkaran itu anak kita menceritakan bahwa mereka mempunyai keinginan tapi tidak bisa menyampaikan keinginan itu, akirnya apa yang terjadi,”rebutan”, dan yang mempunyai mainan mempertahankan hak miliknya demi keadilan,maka dari pertengkaran ini kita bisa memetik, anak yang bertengkar belum memiliki konsep hak milik bersambung…..

Aplikasi Kuitansi Update

Untuk menjawab pertanyaan saudara liem, saya revisi/update aplikasi kuitansi yang dulu pernah saya posting. Berikut Screen Shotnya. Di aplikasi yang dulu masih sangat sederhana, belum ada terbilang dari nominal secara otomatis, untuk aplikasi updatenya sudah saya sertakan. Keunggulan yang lain, di aplikasi ini report/hasil print langsung saya berikan background kuitansi, jadi tidak perlu kita beli form kuitansi, cukup pakai kertas Continue Form atau kertas F4.
sshot-1

sshot-2

sshot-3Silahkan download aplikasi ini :

  1. Versi Linux (Ubuntu)
  2. Versi Windows

Semoga bermanfaat

Jadikan kita seperti Pensil “Filosofi Pensil”

Fisolofi Pensil

“Setiap orang membuat kesalahan.

Itulah sebabnya, pada setiap pensil

ada penghapusnya”

Kali ini saya ingin menceritakan kepada Anda sebuah kisah penuh hikmah dari sebatang pensil. Dikisahkan,sebuah pensil akan segera dibungkus dan dijual kepasar. Oleh pembuatnya, pensil itu dinasihati mengenai tugas yang akan diembannya.Maka, beberapa wejangan pun diberikan kepada si pensil.Inilah yang dikatakan oleh si pembuat pensil tersebut kepada pensilnya.

“Wahai pensil, tugasmu yang pertama dan utama adalah membantu orang seingga memudahkan mereka dalam menulis.Kamu boleh melakukan fungsi apa pun, tapi tugas utamamu adalah sebagai alat penulis.Kalau kamu gagal berfungsi sebagai alat tulis.Macet, rusak, maka tugas utamamu gagal.”

“Kedua, agar dirimu bisa berfungsi dengan sempurna, kamu akan mengalami proses penajaman.Memang menyakitkan, tapi itulah yang akan membuat dirimu menjadi berguna dan berfungsi optimal”.

“Ketiga, yang penting bukanlah yang ada di luar dirimu.Yng penting yang utama dan yang paling berguna adalah yang ada di dalam dirimu. Itulah yang membuat dirimu berharga dan berguna bagi manusia”.

“Keempat, kamu tidak bisa berfungsi sendirian.Agar bisa berguna dan bermanfaat, maka kamu harus membiarkan dirimu bekerja sama dengan manusia yang menggunakanmu”.

“Kelima, disaat-saat terakhir, apa yang telah engkau hasilkan itulah yang menunjukkan seberapa hebatnya dirimu yang sesungguhnya.Bukanlah pensil utuh dianggap berhasil, melainkan pensil-pensil yang telah membantu menghasilkan karya terbaik, yang berfungsi hingga potongan terpendek.Itulah yang sebenarnya paling mencapai tujuanmu dibuat”.

Sejak itulah, pensil-pensil itupun masuk kedalam kotaknya, dibungkus, dikemas, dan dijual kepasar bagi para manusia yang membutuhkan.

Pembaca, pensil-pensil ini pun mengingatkan kita mengenai tujuan dan misi kita berada di dunia ini.Saya pun percaya bahwa bukanlah tanpa sebab kita berada dan diciptakan ataupun dilahirkan di dunia ini.Yang jelas ada sebuah purpose dalam diri kita yang perlu untuk digenapi dan diselesaikan.

Sama seperti pensil itu, begitu pulalah diri kita yang berada didunia ini.Apa profesinya, saya yakin kesadaran kita mengenai tujuan dan panggilan hidup kita, akan membuat hidup kita menjadi semakin bermakna.

Hilang arah

Tidak mengherankan jika Victor Frankl yang mempopulerkan Logoterapi, yang dia sendiri pernah disiksa oleh Nazi, mengemukakan “tujuan hidup yang jelas, membuat orang punya harapan serta tidak mengakhiri hidupnya”.Itulah sebabnya, tak mengherankan jika dikatakan bahwa salah satu penyebab terbesar dari angka bunuh diri adalah kehilangan arah ataupun tujuan hidup.Maka, dari filosofi pensil di atas kita kita belajar mengenai lima hal penting dalam kehidupan.

Pertama, hidup harus punya tujuan yang pasti.Apapun kerja ataupun peran yantg kita mainkan di dunia ini, kita harus berdaya guna.Jika tidak maka sia-sialah tujuan diri kita di ciptakan.Calakanya kita lahir tanpa sebuah instruksi ataupun buku manual yang menjelaskan untuk apakah kita hadir di dunia ini.Pencarian akan tujuan dan panggilan kita , menjadi tema penting selama kita hidup di dunia.

Yang jelas, kehidupan kita dimaknakan untuk menjadi berguna dan bermanfaat serta positif bagi orang-orang di sekitar kita, minimal untuk orang-orang terdekat.Jika tidak demikian, maka kita useless.Tidak ada gunanya.Sama seperti sebatang pensil yang tidak bisa dipakai untuk menulis, maka ia tidaklah berguna sama sekali.

Kedua, akan terjadi proses penajaman sehingga kita bisa berfungsi optimal, oleh karena itulah,sering terjadi kesulitan, hambatan atauun tantangan.Seuanya berguna dan bermanfaat sehingga kita selalu belajar darinya untuk jadi lebih baik.Ingat kembali soal Lee Iacocca, salah satu eksekutif yang justru menjadi besar dan terkenal, setelah dia di depak keluar dari mobil Ford.Pengalaman itu justru menjadi pemacu semangat baginya untuk berhasil di Chrysler.

Ingat pula Donald Trump yang sempat diguncang masalah finansial dan nyaris bangkrut.Namun, kebangkrutannya itulah yang justru menjadi pelajaan dan motivasi baginya untuk sukses lebih langgeng.Kadang penajaman itu ‘Sakit’.Namun, itulah yang justru akan memberikan kesempatan kita mengeluarkan yang terbaik.

Ketiga, bagian internal diri kitalah yang akan berperan.Saya sering menyaksikan banyak artis ataupun bintang film yang terkenal, jusru yang hebat bukanlah karena mereka paling cantik ataupun paling tampan.tetapi, kemampuan dalam diri mereka, filosofi serta semangat merekalah yang membuat mereka menjadi luar biasa.Demikan pula pada diri kita seperti karakter, kemmpuan , bakat , motivasi, semangat pola pikir itulah yang akan lebih berdampak daripada tampilan luar diri kita.

Keempat, pensil pun mengajarkan agar bisa berfungsi sempurna kita harus belajar bekerja sama dengan orang lain.Bayangkanlah seorang aktor atau aktris yang tidak mau di atur sutradaranya.Bayangkan seorang anak buah yang tidak mau diatur atasanya.Ataupun seorang service provider yang tidak mau diatur oleh pelanggannya.Mereka semua tidak akan berfungsi sempurna.Agar berhasil kita kadang kala harus belajar dari pensil untuk “tunduk” dan membiarkan diri kita berubah menjadi alat yang sempurna dengan belajar dan mendengar dari ahlinya.Itulah sebabnya, kemampuan untuk belajar bekerja sama dengan orang lain, belajar dari “guru” yang lebih tahu adalah sesuatu yang membuat kita menjadi lebih baik.

Terakhir, pensil pun mengajarkan kita meninggalkan warisan yang berharga melalui karya-karya yang kita tinggalkan.Tugas kita bukan kembali dalam kondisi utuh dan sempurna, melainkan menjadikan diri kita berarti dan berharga.Yang penting, hingga pada akhir kehidupan kita ada karya ataupun hasil berharga yang mampu kita tinggalkan.

Dikutip : Majalah Bisnis Indonesia Edisi 27 Juli 2008.

Aplikasi Sekolah Untuk Linux dengan lazarus

Kali ini saya coba membuat Aplikasi sekolah dengan Lazarus yang berjalan/di instal di Linux, Aplikasi ini saya buat dan saya Peruntukkan siystem operasi Linux, khususnya linux Ubuntu. Tidak lengkap jika aplikasi gratis berlicensi tapi harus di instal di system operasi berbayar, atau gratis tapi bajakan… Malu lah jaman sekarang pakai OS bajakan. hehehe… Sekarang saya coba buat aplikasi gratis berlicensi dan di jalankan di System Operasi gratis berlicensi Pula… sungguh  banyak  sekali penghematan yang kita dapat. Ini merupakan kelebihan dari Lazarus, kita bisa membuat aplikasi  yang bisa berjalan/diinstal dibeberapa System Operasi.

Berikut Screen Shotnya

1. Tampilan utama dari aplikasi utama

AplikasiSekolahLinux1

2. Tampilan Menu Pendaftaran Siswa Baru

AplikasisekolahLinux23. Tampilan Sub Menu Admin

AplikasiSekolahLinux AplikasiSekolah5 AplikasiSekolahLinux6

Namun aplikasi belum Selesai… Semoga dapat diselesaikan secepatnya.

Prosesor dan Kipas Prosesor Harus Menyatu Tidak bisa hidup masing-masing

Dalam perangkat keras komputer ada namanya Prosesor dan Kipas Prosesor, mereka mempunyai peran sangat penting di dalam kinerja komputer. Dan bahkan komputer  tidak akan berfungsi tanpa mereka, karena mereka bagian dari komputer. Seperti halnya mereka bagian dari pasangan suami istri.

Prosesor akan merasa kepanasan dan tidak betah hidup jika dia tidak ada sang kipas. Mereka tidak bisa dipisahkan.. Mereka harus bersatu… Tidak bisa mereka sendiri-sendiri.. Mereka tidak boleh egois.. Saling hidup sendiri..Kipas tidak ada gunanya…dan prosesor akan kepanggang matiii…. Ketika mereka berpisah komputer tiada artinya.. Memori tiada artinya, kasing tiada artinya, monitor tiada fungsinya… Komputer tidak ada artinya.

Kalian harus paham dengan mereka.. Mereka harus selalu menyatu untuk saling memberikan fungsinya di dalam komputer. Mereka harus bersatu tidak boleh saling egois untuk hidup sendiri.. walau hanya hitungan menit dan bahkan hitungan detik.. Komputer tidak akan menyala.. Kalian harus paham itu…Komputer akan mati.. hitungan detik..komputer akan mati..  jangan sampai mereka tidak saling menyatu…  Mereka akan menyatu terus dan hidup dan menghidupkan Komputer.