Kamis, 22 Desember 2011

CFW C5-03 Frog by Bancetsawah

Base FW
RM: 697 country variant singapore
Version : V21.0.003
Lang Pack : 22 modd to English & Indonesian

Feature:
  • Camera Modd (sound)
  • Indonesian lang
  • Not Error @samsung widget while indonsian languae selected
  • 6 Page symbol
  • 5 homescreen
  • Belle theme by default
  • Included gadget.swf samsung widget collection (untuk mengganti gaget di samsung widget:
    copy gadget.swf di drive E:\SWF\\gadget.swf ke E:\
    ***replace gadget yg sudah ada)
  • Many more modd

Jumat, 16 Desember 2011

Cara Merubah Tapilan Facebook Menjadi Tampilan Timeline

Cara Merubah Tampilan Facebook Menjadi Tampilan Timeline

Bosan dengan tampilan facebook yang biasa? Ada cara untuk merubah tampilan facebook yang biasa-biasa saja itu menjadi tampilan baru yang lebih unik, dan sedikit menjadi mirip blog seperti gambar di atas. 

Senin, 12 Desember 2011

Aplikasi-aplikasi HP Symbian

Malam ini saya akan berbagi aplikasi-aplikasi hp symbianm :
1. TTPod V4.40 & skins TTPod
    Pleyer Music keren.
2. X-Plore
    Tempat penyimpanan Data & File.
3. AnySymb
    Aplikasi copy autotext BB.
4. I-Sms
    Aplikasi sms kayak chat.
5. Callrecorder
    Perekam pangillan telepon.
6. Fonts
    Font support autotext BB.

Rabu, 18 Mei 2011

membuat program pascal menggunakan array dalam record

uses wincrt;

type tb_mhs=record
nim:longint;
nama:string;
nilai:integer;
end;

var
mhs:array[1..10] of tb_mhs;
a,b,ke:integer;
tukar:tb_mhs;
pilih:char;
posisi:array[1..10] of integer;

begin
pilih:='y';
while ((pilih='y') or (pilih='Y')) do
begin
ke:=ke+1;
writeln;
writeln('masukkan data mahasiswa ke ',ke,' :');
writeln('===================================');
write('masukkan nim : ');readln (mhs[ke].nim);
write('masukkan nama : ');readln (mhs[ke].nama);
write('masukkan nilai: ');readln(mhs[ke].nilai);
writeln('====================================');
write('ingin tambah mahasiswa ? y/t: ');readln(pilih);
end;

for a:=1 to ke do
begin
for b:=a+1 to ke do
begin

if mhs[a].nilai tukar:=mhs[a];
mhs[a]:=mhs[b];
mhs[b]:=tukar;

end;

clrscr;
for a:=1 to ke do
begin
writeln;
writeln(' tabel mahasiswa ');
writeln('--------------------------');
writeln('no | nim | nama | nilai |');
writeln('==========================');
for a:=1 to ke do
writeln(a:4,'|',mhs[a].nim:7,'|',mhs[a].nama:8,'|',mhs[a].nilai:8,'|');
writeln('--------------------------');
writeln;

end;
end;
end.