Video Soal Pembahasan UKK Paket 2

Berikut saya berikan video tutorial UKK Tahun 2012 untuk Program Keahlian Teknik Komputer Jaringan. untuk semenstara ini untuk paket 2 yang membahas Web Server DNS Server dan FTP Server.

Read more

LiberOffice 3.4.5 buat Ubuntu 11.10 Oneiric melalui PPA

LibreOffice merupakan pengembangan office yang bersifat opensource dalam perjalanan pembuatannya di dukung oleh komunitas open source. sekarang udah sampai libre office 3.5 tapi masih versi beta (udah di pakai ubuntu 12.04 build tanggal 19 Januari 2012) sedangkan untuk versi stabil libre office mencapai versi 3.4.5 yang sekarang bisa digunakan untuk ubuntu 11.10. untuk dapat menggunakannya silahkan update melalui PPA.
silahkan masuk ke terminal dan lakukan perintah berikut:

sudo add-apt-repository ppa:libreoffice/ppa
sudo apt-get update
sudo apt-get upgrade

dan dalam libreoffice ini sudah bisa melakukan SHIFT + F3 yang berfungsi untuk change case (merubah kata kalimat dengan huruf besar atau kecil dengan cepat) seperti Microsoft Office.

Read more

Metode Perulangan dan Percabangan Lazarus

Pembuatan form pembelian dimana nantinya didalan form itu ada pemilihan tanggal, bulan dan tahun yang mana di buat dengan perulangan. Kemudian ada pemilihan kode barang dan diikuti dengan munculnya nama barang dan harga yang di mana merupakan metode percabangan.
Berikut tampilan seluruhnya

berikut design tampilan form

kode nya adalah

unit pembelian;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;

type

{ TfrmPembelian }

TfrmPembelian = class(TForm)
cmbTanggal: TComboBox;
cmbBulan: TComboBox;
cmbTahun: TComboBox;
cmbKode: TComboBox;
Label9: TLabel;
txtJumlah: TEdit;
txtNota: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
txtNama: TEdit;
txtHarga: TEdit;
txtTotal: TEdit;
txtBayar: TEdit;
txtKembalian: TEdit;
procedure cmbBulanChange(Sender: TObject);
procedure cmbKodeChange(Sender: TObject);
procedure cmbTahunChange(Sender: TObject);
procedure cmbTanggalChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure txtBayarExit(Sender: TObject);
procedure txtBayarKeyPress(Sender: TObject; var Key: char);
procedure txtJumlahExit(Sender: TObject);
procedure txtJumlahKeyPress(Sender: TObject; var Key: char);
private
{ private declarations }
public
{ public declarations }
end;

var
frmPembelian: TfrmPembelian;

implementation

procedure TfrmPembelian.FormCreate(Sender: TObject);
var
i,j,l:integer;
begin
cmbtanggal.Items.Clear;
for i:=1 to 31 do
begin
cmbtanggal.Items.add(inttostr(i));
end;
cmbbulan.Items.clear;
for j:=1 to 12 do
begin
cmbbulan.items.Add(inttostr(j));
end;
cmbtahun.Items.clear;
for l:=2000 to 2999 do
begin
cmbtahun.items.Add(inttostr(l));
end;
end;

procedure TfrmPembelian.txtBayarExit(Sender: TObject);
begin
if txtbayar.Text='' then txtbayar.Text:='0'; //mengatasi error karena txtbayar belum diisi
if txttotal.Text='' then txttotal.Text:='0'; //error itu cuma terjadi di linux, kalau dijalankan di windows ga error
if strtofloat(txtbayar.Text) < strtofloat(txttotal.Text) then MessageDlg('Maaf bayarnya kurang dari total.', mtInformation, [mbOK], 0) else txtkembalian.Text:=floattostr(strtofloat(txtbayar.Text)-strtofloat(txttotal.Text)); txtbayar.SetFocus; end; procedure TfrmPembelian.txtBayarKeyPress(Sender: TObject; var Key: char); begin if not ( Key in ['0'..'9', #8] ) then Key := #0; end; //jika txtjumlah tidak fokus atau kursor di tempat lain maka lakukan perkalian procedure TfrmPembelian.txtJumlahExit(Sender: TObject); begin if txtjumlah.Text='' then begin MessageDlg('Maaf Jumlah pembelian belum diisi.', mtInformation, [mbOK], 0); txtjumlah.SetFocus; end else txttotal.Text:=floattostr(strtofloat(txtharga.Text)*strtofloat(txtjumlah.Text)); txtbayar.SetFocus; end; //txtjumlah wajib di isi angka kalau tidak diabaikan procedure TfrmPembelian.txtJumlahKeyPress(Sender: TObject; var Key: char); begin if not ( Key in ['0'..'9', #8] ) then Key := #0; end; //ini jika terjadi perubahan text di combo kode procedure TfrmPembelian.cmbKodeChange(Sender: TObject); begin if cmbkode.Text='A1' then begin txtnama.Text:='Sabun Mandi'; txtharga.Text:='2500'; end else if cmbkode.Text='A2' then begin txtnama.Text:='Durian'; txtharga.Text:='10000'; end else if cmbkode.Text='A3' then begin txtnama.Text:='Susu'; txtharga.Text:='5000'; end; txtjumlah.SetFocus; end; //memindahkan kursor procedure TfrmPembelian.cmbTahunChange(Sender: TObject); begin cmbkode.SetFocus; end; procedure TfrmPembelian.cmbBulanChange(Sender: TObject); begin cmbtahun.SetFocus; end; procedure TfrmPembelian.cmbTanggalChange(Sender: TObject); begin cmbbulan.SetFocus; end; initialization {$I pembelian.lrs} end.

Keterangan:
pada procedure TfrmPembelian.txtBayarExit terdapat script jika txtbayar.text='' maka txtbayar.text='0' dan di bawah ini untuk mengatasi error jika di compile di linux, kaau di compile di windows script diatas yang di perlukan dan tidak berpengaruh. Dan penjelasan sedikit udah saya masukkan di dalam script dengan memberikan tanda // semoga dapat membantu memahaminya.

Kemudian untuk txtnama, txtharga dan txtkembalian saya ubah enablenya menjadi flase karena hanya untuk dilihat bukan untuk di inputkan

Read more

Delphi vs Lazarus (Study kasus Pembuatan Kalkulator)

Sudah lama ga posting untuk menuutp tahun 2011 ini saya akan memposting.
Pembuatan kalkulator ini digunakan untuk tugas mata kuliah Perancangan Sistem Berorientasi object, yang kali ini saya membuat dengan menggunakan lazarus, mengapa lazarus? Padahal tugas harus dikerjakan dengan Delphi, karena lazarus free (tanpa harus mengecrak, keygen atau membajak) dan srciptnya sama dengan Delphi, semoga aja dengan menggunakan lazarus dapat mengurangi ketergantungan software yang berbayar. Dan kali ini saya membuat dalam 2 versi yaitu dengan Delphi 7 (hasil pembajakan dan jangan di tiru) kemudian menggunaan lazarus dengan os Jangkar 5.0 (berbasis LinuxMint 12).

Berikut pembuatan dengan lazarus
tampilan seluruh

tampilan formnya

berikut sourcecodenya

unit Kalkulator;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, LCLType;

type

{ TfrmKalkulator }

TfrmKalkulator = class(TForm)
cmd0: TButton;
cmd9: TButton;
cmdTitik: TButton;
cmdPlusMin: TButton;
cmdClear: TButton;
cmdBagi: TButton;
cmdKali: TButton;
cmdKurang: TButton;
cmdTambah: TButton;
cmdSamaDengan: TButton;
cmd1: TButton;
cmd2: TButton;
cmd3: TButton;
cmd4: TButton;
cmd5: TButton;
cmd6: TButton;
cmd7: TButton;
cmd8: TButton;
txtAngka: TEdit;
procedure proses_hitung();
procedure proses_inc(kar : Char);
procedure proses_array(kar : Char);
procedure FormCreate(Sender: TObject);
procedure cmd0Click(Sender: TObject);
procedure cmd1Click(Sender: TObject);
procedure cmd2Click(Sender: TObject);
procedure cmd3Click(Sender: TObject);
procedure cmd4Click(Sender: TObject);
procedure cmd5Click(Sender: TObject);
procedure cmd6Click(Sender: TObject);
procedure cmd7Click(Sender: TObject);
procedure cmd8Click(Sender: TObject);
procedure cmd9Click(Sender: TObject);
procedure cmdPlusMinClick(Sender: TObject);
procedure cmdTitikClick(Sender: TObject);
procedure cmdClearClick(Sender: TObject);
procedure cmdTambahClick(Sender: TObject);
procedure cmdKurangClick(Sender: TObject);
procedure cmdKaliClick(Sender: TObject);
procedure cmdBagiClick(Sender: TObject);
procedure cmdSamaDenganClick(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ private declarations }
public
{ public declarations }
end;

var
frmKalkulator: TfrmKalkulator;
tempstr : String;
tmpOpr:string;
tmpangka:string;
hasil : Real;

implementation
procedure TfrmKalkulator.FormCreate(Sender: TObject);
begin
hasil := 0;
tempstr := '';
txtangka.Text:= FloatToStr(hasil);
end;

procedure TfrmKalkulator.proses_inc(kar : Char);
begin
tempstr:=txtangka.Text;
tempstr:=tempstr+kar;
hasil:=StrToFloat(tempstr);
txtAngka.Text:=FloatToStr(hasil);
end;
{$R *.lfm}
procedure TfrmKalkulator.cmd0Click(Sender: TObject);
begin
proses_inc('0');
end;

procedure TfrmKalkulator.cmd1Click(Sender: TObject);
begin
proses_inc('1');
end;

procedure TfrmKalkulator.cmd2Click(Sender: TObject);
begin
proses_inc('2');
end;

procedure TfrmKalkulator.cmd3Click(Sender: TObject);
begin
proses_inc('3');
end;

procedure TfrmKalkulator.cmd4Click(Sender: TObject);
begin
proses_inc('4');
end;

procedure TfrmKalkulator.cmd5Click(Sender: TObject);
begin
proses_inc('5');
end;

procedure TfrmKalkulator.cmd6Click(Sender: TObject);
begin
proses_inc('6');
end;

procedure TfrmKalkulator.cmd7Click(Sender: TObject);
begin
proses_inc('7');
end;

procedure TfrmKalkulator.cmd8Click(Sender: TObject);
begin
proses_inc('8');
end;

procedure TfrmKalkulator.cmd9Click(Sender: TObject);
begin
proses_inc('9');
end;

procedure TfrmKalkulator.cmdPlusMinClick(Sender: TObject);
var angka:real;
begin
angka:=StrToFloat(txtAngka.Text);
if (angka>0) then
angka:=(-angka)
else
angka:=angka+(-angka)+(-angka);
txtAngka.Text:=FloatToStr(angka);
end;

procedure TfrmKalkulator.cmdTitikClick(Sender: TObject);
begin
if (pos('.', txtAngka.Text) = 0) then
txtAngka.Text:=txtAngka.Text+'.';
end;

procedure TfrmKalkulator.cmdClearClick(Sender: TObject);
begin
tempstr := '';
hasil := 0;
txtAngka.Text:='0';
tmpopr:='';
tmpangka:='';
end;

procedure TfrmKalkulator.proses_array(kar : Char);
begin
tmpangka:=txtangka.Text;
txtangka.Text:='';
tmpOpr:=kar;

end;

procedure TfrmKalkulator.cmdTambahClick(Sender: TObject);
begin
proses_array('+');
end;

procedure TfrmKalkulator.cmdKurangClick(Sender: TObject);
begin
proses_array('-');
end;

procedure TfrmKalkulator.cmdKaliClick(Sender: TObject);
begin
proses_array('x');
end;

procedure TfrmKalkulator.cmdBagiClick(Sender: TObject);
begin
proses_array('/');
end;

procedure TfrmKalkulator.proses_hitung();
begin
if tmpOpr='+' then txtAngka.Text:=floattostr(strtofloat(tmpangka)+strtofloat(txtAngka.Text));
if tmpOpr='-' then txtAngka.Text:=floattostr(strtofloat(tmpangka)-strtofloat(txtAngka.Text));
if tmpOpr='x' then txtAngka.Text:=floattostr(strtofloat(tmpangka)*strtofloat(txtAngka.Text));
if tmpOpr='/' then txtAngka.Text:=floattostr(strtofloat(tmpangka)/strtofloat(txtAngka.Text));
end;
procedure TfrmKalkulator.cmdSamaDenganClick(Sender: TObject);
begin
proses_hitung();
end;
procedure TfrmKalkulator.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=96) then proses_inc('0');
if (Key=97) then proses_inc('1');
if (Key=98) then proses_inc('2');
if (Key=99) then proses_inc('3');
if (Key=100) then proses_inc('4');
if (Key=101) then proses_inc('5');
if (Key=102) then proses_inc('6');
if (Key=103) then proses_inc('7');
if (Key=104) then proses_inc('8');
if (Key=105) then proses_inc('9');
if (Key=48) then proses_inc('0');
if (Key=49) then proses_inc('1');
if (Key=50) then proses_inc('2');
if (Key=51) then proses_inc('3');
if (Key=52) then proses_inc('4');
if (Key=53) then proses_inc('5');
if (Key=54) then proses_inc('6');
if (Key=55) then proses_inc('7');
if (Key=56) then proses_inc('8');
if (Key=57) then proses_inc('9');
end;
end.

berikut hasil setelah di jalankan.

Semoga aja dengan penggunaa Lazarus ini dapat mengubah pemikiran kita bahwa menggunakan yang Free bisa juga untuk membuat program sesuai dengan yang kita inginkan.

Untuk mengambil lazarus silahkan download di http://sourceforge.net/projects/lazarus/files/

la kog ga da delphinya, he..he... untuk lebih lengkap baca ebook saya aja deh
SIlahkan download disini

kalau mau source kedua2nya yaitu delphi n lazarus silahkan download disini

Read more

Jangkar 5.0 codename embung

Menggunakan codename embung atau waduk yang merupakan tempat penampungan air dan berguna untuk mengairi pertanian. semoga aja jangkar 5.0 dapat berguna mengairi para pengguna FOSS dan dapat digunakan.

Rencana Jangkar 5.0
1. Menggunakan desktop gnome 3.2 yang fallback (bukan gnome-shell)
2. Berisi codec dan pemutar musik dan film
3. program aplikasi perkantoran
4. program pendidikan (rencana)

Read more

Repo Lokal Ubuntu 11.10 (oneiric ocelot)

Tulisan ini untuk memudahkan saya mengubah repo ke repo lokal yang ada di Indonesia

berikut repo yang sering aku gunakan
Repo dari UI (kambing.ui.ac.id)

deb http://kambing.ui.ac.id/ubuntu/ oneiric main restricted universe multiverse
deb http://kambing.ui.ac.id/ubuntu/ oneiric-updates main restricted universe multiverse
deb http://kambing.ui.ac.id/ubuntu/ oneiric-security main restricted universe multiverse

repo dari UGM (repo.ugm.ac.id)

deb http://repo.ugm.ac.id/ubuntu/ oneiric main restricted universe multiverse
deb http://repo.ugm.ac.id/ubuntu/ oneiric-updates main restricted universe multiverse
deb http://repo.ugm.ac.id/ubuntu/ oneiric-security main restricted universe multiverse

Read more

Gnome 3.2 di SIS 671/672 [Byon atau Axioo]

Setelah sekian lama menunggu untuk dapat menggunakan tampilan GNOME 3 yang terbaru dan bisa di gunakan untuk laptop dengan chipset VGA SIS 671/672 seperti laptop saya BYON atau yang lain laptop AXIOO. pada awal akan di luncurkannya ubuntu 11.10 yang akan berbasis GNOME 3 udah aku coba dari rilis alpha sampai beta hasilnya nihil, karena laptop BYON saya tidak mau menjalankan GNOME 3 yang didalamnya udah ada Gnome-Shell. akhirnya setelah ada waktu senggang untuk ngoprek lagi dan ingin mencoba Ubuntu 11.10 yang versi final maka aku coba dengan ubuntu tersebut, dengan sedikit kecewa karena ubuntu masih pakai unity walaupun udah banyak perubahan unity yang digunakan.

kemudian VGA sisnya juga belum di support oleh ubuntu (capek juga nunggu driver sis bisa di suuport dari ubuntu 7 sampai ubuntu 11). setelah mencoba di install kemudian aku coba pakai driver sis yang ubuntu natty 11.04 yang aku compile dari github helnest baca disini. setelah browsing-browsing malah nemu link http://www.linuk.web.id/2011/10/ubuntu-1110-oneiric-ocelot-restricted.html yang di dalamnya ada cara install gnome-shell dan fallback mode yang saya ga tahu apa itu, setelah aku coba ternyata merupakan gnome3 versi 2D bukan yang 3D, akhirnya aku bisa menikmati gnome3 di laptop byon yang mengantar saya untuk belajar linux lebih jauh.
kalau mau download silahkan klik filenya
Gnome-Shell+Fallback mode
kemudian cara istallnya cukup mudah
1. Download file kemudian ekstrak

2. Masuk ke folder ekstrak kemudian jalankan file install.sh

3. masukkan password terus tunggu sampai proses selesai
4. kemudian logoff
5. pada waktu login pilih GNOME

dengan klik gambar disamping username

Read more

Tugas Untuk Kelas MM dan 3 MO 3

Untuk kelas 1 MM silahkan anda cari software untuk edit audio yang open source kemudian anda install di komputer masing2.
kemudian anda tuliskan konsep membuat iklan di radio mengenai SMK NU Lasem, kemudian anda lakukan rekaman dengan software yang tadi anda dapat. atau (pakai hp anda juga bisa) minggu depan presensi. konsep di kirim ke alamat email mm@xwaja.web.id

untuk kelas 3 MO 3 silahkan anda buat blog, kemudian alamat blog anda kirim ke email kkpi@xwaja.web.id

Read more

Ubuntu 11.10 Oneiric Ocelot Rilis

Pada tanggal 13 Oktober 2010 Ubuntu 11.10 telah di rilis dengan memakain kernal 3 dan Unity 3D sebagai defaultnya. akan tetapi unity yang sekarang digunakan berbeda dengan unity-unity pada ubuntu 11.04 dimana pada waktu di klik tampilan menu tidak menutupi seluruh dekstop.

kemudian adanya menu thumbnail pada waktu kita tekan alt + tab untuk berpindah windows.

dan perbedaan ubuntu software center dan sekarang menggunakan lightDM

sumber : http://www.webupd8.org/2011/10/ubuntu-1110-released-see-whats-new.html

Read more