Pertemuan ke 4, Membuat Koneksi Lazarus ke MYSQL

Dalam membuat aplikasi dengan menggunakan database, tahap awal yang kita lakukan adalah, menentukan terlebihdahulu database yang digunakan, pilihlah database yang mampu melayani aplikasi yang akan kita buat nanti.Disini saya memilih menggunakan database Mysql. Selain free penggunaan server pun nanti juga free, bayangkan jika kita menggunakan SqlServer, dari databasenya sudah mahal, belum System operasinya. Oke lanjut…

  1. Buat projek baru

     Projectbaru1

     2. Kemudian buat form baru, dengan klik file – > New -> Create Module

konekmysql1     3. Akan muncul tampilan berikut

       konekmysql2    4. Pilih Mysql connection, untuk versi mysql 51.

konekmysql3   konekmysql5

  5. Lihat pada properties

      Isikan

      – DatabaseName : Database yang telah di buat

      – HostName : Lokasi database (jika dikomputer local =localhost, jika di network = IP)

      – LoginPrompt : False

      – Password : isikan password database Anda

      – Port : Defaultnya 3306

      – User name : Username dari database( Defaultnya = root )

konekmysql4

Setelah semua di sini aktifkan dengan merubah properties Connected =True, Jika berhasil kita lanjut ke materi berikutnya.

Mengatasi Hilangnya File System Di Windows

Pada dasarnya semua file system yang ada pada windows kita, ada di windows instalasi. Jadi ketika kita kehilangan Salah satu file system, kita bisa copy dari Cd Windows instaler.

  1. Masukkan CD windows instaler
  2. Tekan SHIFT ( Menutup tampilan Autoplay Instaler windows)
  3. Buka Run -> CMD
  4. Setelah muncul CMD ketikkan perintah berikut ( Contoh jika file srvsvc.dll hilang ) Cat. CD drive ada di E.

        expand E:\i386\srvsvc.dl_ C:\Windows\system32\srvsvc.dll

Semoga bermanfaat

Perintah RUN Windows

Instal Font Windows .Ttf Di Linux Ubuntu

Kadang kala ketika kita desain menggunakan Inkscape di windows ataupun menggunakan program Open source lainnya, terkendala pada jenis font. Contoh kasus, pertama kita desain banner ataupun Brosur dengan inkscape di windows, kemudian kita buka menggunakan inkscape yang ada di linux akan telihat berantakan, karena ada font yang tidak dipenuhi di linux.

Berikut cara instal font .Ttf si linux ubuntu.

1. Download font yang ingin anda instal

instalfont0

2. Klik 2x pada file font …..Ttf, kemudian nanti akan muncul

instalfont

3. Klik Instal Font ( Ada di pojok Bawah kanan ), setelah klik instal font dan succes. Font langsung bisa digunakan, kalau belum muncul di daftar font, silahkan restart program yang anda jalankan.

instalfont2

Semoga bermanfaat

Membuat menu di Lazarus

Membuat menu pada lazarus

Buatlah sebuah aplikasi baru, dengan cara klik Project -> New Project. Setelah muncul form1 selanjutnya klik Menu Standar, klik TmainMenu. Lihat gambar di bawah.

menu12. Klik 2x pada TMain menu

menu2

3. Klik New item, kemudian rubah Caption sesuai nama menu yang ingin ditampilkan.

menu3

4. Untuk menambah menu maupun Sub Menu silahkan klik kanan pada menu transaksi  yang telah dibuat.

menu5Insert new item (After) atau Insert new item ( Before ) sesuai letakmenu utama yang akan ditampilkan.

Sedangkan untuk membuat Sub menu silahkan klik Kanan -> Create Sub Menu

berikut tampilan 2 menu utama yang telah dibuat

menu5

5. Sekarang bagaimana caranya menu maupun sub menu yang telah kita buat tadi bisa berfungsi ketika kita klik. Klik pada menu utama maupun sub menu, kemudian buka even On Klik, disitulah kita akan mengisi sintak untuk memanggil form yang kita inginkan.

Menu8

Berikut hasil Menu dan sub menu yang telah dibuat.

Menu7Semoga bermanfaat.

Timer Lazarus

Jawaban untuk Saudari Farida…

Nilai interval 1000 mempunyai arti jeda (1) satu detik. Jadi setelah timer posisi enable=true, event yang ada ditimer akan di eksekusi setelah 1 detik. Jadi jika ingin membuat sound berhenti sendiri, buat interval timer sesuai yang Mbak Farida inginkan, kemudian di event timer isikan perintah sound berhenti (sndPlaySound(nil, 0))

Membuat event timernya dengan cara klik 2x.

Untuk jelasnya nanti akan saya berikan contohnya. Semoga bermanfaat.

Memutar File Sound Di Lazarus

Posting kali ini saya tujukan khusus untuk Mbak Farida, dan umumnya untuk temen-temen yang ingin mencoba. Untuk memutar sound ketika sebuah event kita jalankan, untuk mencoba silahkan buat form seperti dibawah ini. Download File untuk mencoba, exstrak di drive D, kemudian jalankan.Download di sini

sound1

Kemudian klik 2x pada button play, isikan kode berikut, catatan file sound berextensi wav ya, untuk mp3 belum bisa. File sound saya simpan di D:\mas-adi\lazarus\Sound\1212.wav 

Fungsi SN_Loop paling belakang mempunyai fungsi untuk memutar ulang saound yang kita putar, untuk memutar sekali saja, silahkan hilangkan fungsi SN_loop yang ada pada baris perintah di bawahsound2procedure TForm1.Button1Click(Sender: TObject); begin   sndPlaySound(‘D:\mas-adi\lazarus\Sound\1212.wav ‘,   SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); end;