Merubah lsb-release, issue, issue.net di Jangkar

Kemarin pada waktu mendapatkan tutorial gimana mengubah ls-release, issue, issue.net kemudian software-centernya tidak error. kemudian saya mempraktekkannya dan hasilnya emang benar2 ga error, akan tetapi masih ada ganjalan bahwa dalam merubah lsb-relase anda tidak boleh merubah codename. dalam semalam aku mempelajari maka kita juga dapat merubah codename yang ada di lsb-release sehingga lengkap sudah hasil remasteran kita. oke langsung aja saya tuliskan cara yang aku gunakan.
Langkah-langkah merubah lsb-release, issue, issue.net
1. Merubah lsb-release

gedit /etc/lsb-release

yang asli
DISTRIB_ID=Ubuntu
DISTRIB_RELEASE=12.04
DISTRIB_CODENAME=precise
DISTRIB_DESCRIPTION="Ubuntu precise (development branch)"

aku rubah
DISTRIB_ID=Jangkar
DISTRIB_RELEASE=5.0
DISTRIB_CODENAME=embung
DISTRIB_DESCRIPTION="Jangkar 5.0 Embung Edition"

2. Menyiapkan info dan mirrors

cp /usr/share/python-apt/templates/Ubuntu.info /usr/share/python-apt/templates/Jangkar.info
cp /usr/share/python-apt/templates/Ubuntu.mirrors /usr/share/python-apt/templates/Jangkar.mirrors

3. Merubah Jangkar.info
ini yang asli

Suite: precise
RepositoryType: deb
BaseURI: http://ports.ubuntu.com/ubuntu-ports/
MatchURI: ports.ubuntu.com/ubuntu-ports
BaseURI-amd64: http://archive.ubuntu.com/ubuntu
MatchURI-amd64: archive.ubuntu.com/ubuntu
BaseURI-i386: http://archive.ubuntu.com/ubuntu
MatchURI-i386: archive.ubuntu.com/ubuntu
MirrorsFile-amd64: Ubuntu.mirrors
MirrorsFile-i386: Ubuntu.mirrors
Description: Ubuntu 12.04 'Precise Pangolin'
Component: main
CompDescription: Officially supported
CompDescriptionLong: Canonical-supported free and open-source software
Component: universe
CompDescription: Community-maintained
CompDescriptionLong: Community-maintained free and open-source software
Component: restricted
CompDescription: Non-free drivers
CompDescriptionLong: Proprietary drivers for devices
Component: multiverse
ParentComponent: universe
CompDescription: Restricted software
CompDescriptionLong: Software restricted by copyright or legal issues

aku copy terus aku taruh diatas dan di rubah

Suite: embung
RepositoryType: deb
BaseURI: http://ports.ubuntu.com/ubuntu-ports/
MatchURI: ports.ubuntu.com/ubuntu-ports
BaseURI-amd64: http://archive.ubuntu.com/ubuntu
MatchURI-amd64: archive.ubuntu.com/ubuntu
BaseURI-i386: http://archive.ubuntu.com/ubuntu
MatchURI-i386: archive.ubuntu.com/ubuntu
MirrorsFile-amd64: Jangkar.mirrors
MirrorsFile-i386: Jangkar.mirrors
Description: Jangkar 5.0 'Embung Edition'
Component: main
CompDescription: Officially supported
CompDescriptionLong: Paket bebas dan utama
Component: universe
CompDescription: Community-maintained
CompDescriptionLong: Software Bebas didukung komunitas
Component: restricted
CompDescription: Non-free drivers
CompDescriptionLong: Software yang tidak bebas
Component: multiverse
ParentComponent: universe
CompDescription: Restricted software
CompDescriptionLong: Software dengan copyright

4. Merubah Ubuntu Software Center
copy file Ubuntu.py jadi Jangkar.py

cp /usr/share/software-center/softwarecenter/distro/Ubuntu.py /usr/share/software-center/softwarecenter/distro/Jangkar.py

ubah file Jangkar.py

gedit /usr/share/software-center/softwarecenter/distro/Jangkar.py

berikut hasil perubahan

class Jangkar(Debian):

# see __init__.py description
DISTROSERIES = ["embung", "precise",
"oneiric",
"natty",
]

lanjut

def get_app_name(self):
return _("Jangkar Software Center")

def get_app_description(self):
return _("Lets you choose from thousands of applications available for Jangkar.")

terus kebawah semua kata-kata Ubuntu (huruf U pakai yang besar) aku ubah menjadi Jangkar

Readmore..

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.

Readmore..

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.

Readmore..

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

Readmore..

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

Readmore..

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)

Readmore..

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

Readmore..

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

Readmore..

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

Readmore..

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

Readmore..

Install Gnome-Pie di Jangkar

Aplikasi gnome-pie ini mengingatkan saya pada waktu dulu sebelum windows 7 keluar bahwa nantinya windows 7 tidak akan menggunakan startmenu melainkan dengan sebuah lingkaran yang di sekilingnya ada shortcut-shortcut yang mewakili sebuah program. akan tetapi pada kenyataannya pada waktu windows 7 diluncurkan tetep memakain startmenu seperti winows-windows pendahulunya.
kemudian ditahun 2011 ini saya menemukan dengan nama gnome-pie yang di buat oleh Simon Schneegans yang merupakan aplikasi di linux terutama turunan debian dimana aplikasi ini akan menampilkan lingkaran dengan di keliling shortcut-shortcut yang sesuai dengan kelompok-kelompok yang ada. ini nantinya bisa sebagai alternatif penggunaan menu-menu yang sudah ada.


untuk dapat menginstall gnome-pie ternyata cukup mudah yaitu
1. download aplikasi ini disini.
2. jalankan terminal (untuk Jangkar 3.x) kemudian ketik
sudo dpkg -i /letakfiledownloatan/gnome-pie.deb
3. untuk Jangkar 4 langsung aja double klik gnome-pie
4. jalankan gnome-pie yang berada di accesories
5. sehingga di pojok kanan bawah ada icon

6. klik icon tersebut dan pilih preferences
tab general digunakan untuk mensetting gnome-pie

tab pie untuk mensetting aplikasi-aplikasi yang akan di munculkan di lingkaran

7. kemudian tinggal menjalankan dengan cara menekan kombinasi keyboard CTRL + ALT + ....
8. untuk keluar dengan menekan esc atau klik bagian tengah.
Semoga bermanfaat

Readmore..

Program Pythagoras dengan Free Pascal

Program ini saya buat sambil nunggu giliran mempresentasikan blog ini ke depan dewan juri lomba blog guru pendidikan menengah di BPTIKP Semarang. juga sebagai bahan pembelajaran anak didik saya yang akan ikut lomba OSTN tingkat provinsi pada tanggal 22 September 2011. semoga aja dengan sedikit pembelajaran ini dapat bermanfaat bagi yang membaca.
langsung aja ya:
1. Buka program free pascal
masuk ke terminal kemudian ketik sudo fp
2. Kemudian masukkan script berikut

program pythagoras;
uses crt;
var
a,b,c:real;
begin
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Hasilnya c adalah ',c:4:2);
end.

lihat gambar di bawah

pembahasan dari script diatas adalah

program .....;

digunakan untuk menamakan nama dari program kita

uses crt;

memulai program

var

untuk mendefinikan variable yang akan di pakai

a,b,c:real;

merupakan variabel yang akan kita gunakan yaitu a, b, c yang bertipe bilangan real, mengapa kita memakain real tidak integer, karena nantinya kalau kita memakai bilang yang ada koma maka bilangan real aja yang bisa menampung.

begin
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);

memulai mendefinikan variabel dengan melakukan input bahasanya write, kalau ada pertanyaan mengapa tidak pakai writeln, karena nantinya akan di di tulis di sebelahnya baru kalau nanti ada penginputan nilai kemudian enter baru ke bawah.

c:=sqrt((a*a)+(b*b));

ini rumus pythagirasnya yaitu nilai c adalah akar dari a kuadrat di tambah b kuadrat

writeln('Hasilnya c adalah ',c:4:2);

ini mencetak hasil dari rumus diatas, kemudian dengan menggunakan c:4:2 artinya menampung 4 digit karakter dan 2 digit di belakang koma.

end.

mengakhiri program.
3. simpan, compile dan run
maka akan menghasilkan

Readmore..