Sabtu, 10 Maret 2012
JANGAN LAKUKAN INI DISAAT LDR (HUBUNGAN JARAK JAUH)
Jumat, 09 Maret 2012
NGEMIL GA BIKIN GEMUK? SERIUS??
Mengapa Sulit Move On?
Mengapa Sulit Move On ?
Ok guys kali ini gw bakal ngebahas tentang move on, apa sih move on? Aaaaaahhhhh pasti lo bisa jawab sendiri kan move on itu apa? Apa lagi yang suka galau dan nulis status galau karena gagal move on itu lagi ngetrend banget ya di jejaring social alias FB, gw termasuk salah satunya… :P
Hahahha jadi curcol, nah bagi yang lagi mau move on nih pasti bingung kan kenapa sih susah banget buat move on? #sama gw juga bingung haha
Tapi gw kasih tw ya agan dan aganwati kenapa sih sulit banget buat move on…..
Kalo bukan karena “cinta” nih ada alesan lain loh kenapa bisa sulit melupakan sang mantan..hayoo apa tebak? :P
Menurut Love Shack, sulitnya move on pengaruh dari rendahnya nilai diri.
Wewww
Ketika lo bersama si dia, nilai diri lo itu meningkat karena merasa dibutuhkan dan dicintai oleh seseorang. Nah ketika lo putus tuh lo merasa down atau lo kehilangan jati diri karena lo udah ga bersama dia lagi. Hal yang bikin nambah buruknya nih teman, disaat lo lagi galau lu tuh ngerasa kalo lo ga akan bisa mendapatkan penggantinya #caelaaah hahha. Walaupun misalnya lo udah diselingkuhin, udah dibohongin juga sama si doi. Makanya itu tuh yg bikin selalu galau dang a bisa move on dari sang mantan wew…..
Kenapa sih bisa begitu?
Karena :
1. Pura-Pura Tegar.
Kalo baru banget putus nih lo ga mungkin kan bisa langsung nerima kesalahan doi ataupun lo maafin doi? Hayoooo jujur…hahah nah hal ini nih yang bikin menimbulkan nething alias negative thinking dan menganggap diri anda ga sempurna dan sangat buruk..hayoooo jangan begitu yah.. kalo emang bener-bener ngerasa sakit hati ya tumpahin aja dengan nangis buat cewek2 dan cowok juga gpp nangis deh..hahahah…jangan malah pura-pura tegar itu malah bikin nih hati makan sakit dan sulit melupakan mantan dan gagal deh move onnya :P
2. Inget kenangan bersama dia.
Wah ini nih yang paling sering dilakuin para galaures,… disaat lo putus pasti lo mikirin nih dan inget-inget saat-saat bersama dia. Hal ini yang makin sulit buat move on dan pasti kalo lo udah inget kenangan bersama dia pasti lo lupa deh sama kesalahan dia.wahhh ga jadi move on deh :P
3. Masih bingung alasan putus.
Kadang-kadang kita yang niat mau move on nih pasti mikirin kan, kenapa sih gw diputusin? Kadang-kadang kita juga nanya lagi dah sama doi dengan sejelas-jelasnya.wahahahahah ternyata hal ini nih yg bikin kita sulit move on…
Seperti dilansir She Knows, masalah yang mengganjal itulah yg ngebuat banyak galauers masih memikirkan sang mantan. Semakin cari tau apa penyebabnya putus nih, makin lo terobsesi dengan sang mantan.
So, jadi move on ga nih ceritanya? :P
PROGRAM COBOL MENGGUNAKAN PERFORM
PROGRAM COBOL MENGGUNAKAN PERFORM.
Langkah - langkah membuat program COBOL:
1. Untuk memulai program COBOL yang perlu dilakukan adalah menuliskan listing program di editor yang diinginkan,, karena COBOL tidak memiliki editor khusus seperti pascal, c, atau java, jadi kita bisa menuliskan programnya pada notepad, notepad++, atau sidekick.
Lalu masukkan coding :
IDENTIFICATION DIVISION.
PROGRAM-ID. ASIA.
ENVIRONMENT DIVISON.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 JAWAB PIC A.
PROCEDURE DIVISION.
TANYA.
DISPLAY (3, 15) "<
MEMBUAT PROGRAM SEDERHANA PADA DELPHI
MEMBUAT PROGRAM SEDERHANA PADA DELPHI
Jika kita ingin membuat program sederhana pada Delphi, maka dengan cara ini:
Klik “START” pada menu bar PC
Cari aplikasi “Delphi 7”, setelah ketemu double klik pada icon delphinya
Setelah terbuka aplikasi Delphi maka buatlah program yang diinginkan menggunakan component palette yang tersedia pada Delphi.maka akan jadi seperti ini :
Pada Program tersebut terdapat label String1 & String2 yang berfungsi untuk memasukkan data yang akan diolah. Lalu terdapat pula label Awal & Jumlah yang berfungsi untuk yang ingin diproses dari data yang telah dimasukkan.
Lalu masukkan codingnya dengan cara double click pada “concat” lalu masukkan coding seperti ini:
Setelah dimasukkan codingnya kita coba untuk menjalankannya dengan cara tekan f9 atau klik “play”. Maka jika kita memasukkan data pada string 1 & string 2 akan seperti ini:
Lalu “stop” dan double click lagi pada button “copy” dan masukkan codingnya seperti ini:
Kemudian klik f9 pada keyboard atau “play” untuk menjalani program.maka setelah diplay hasilnya akan seperti ini:
Setelah itu double click lagi pada button “delete” , dan masukkan coding seperti ini:
Setelah itu klik f9 atau pliy untuk menjalankan programnya, maka akan seperti gambar ini:
Klik stop untuk mengakhiri program. Kemudian double click lagi pada button “insert” dan masukkan codingnya lagi seperti ini:
Lalu play akan seperti ini:
Kemudian, di close dan double clik pada button “length”, kemudian masukkan codingnya seperti ini:
Setelah itu di play untuk melihat hasilnya:
Kemudian masukkan coding pada button uppercase.upercase berfngsi untuk memperbesar huruf yang terdapat pada string 1 & 2.maka seperti ini codingnya:
Setelah itu kita play untuk melihat hasilnya.dan akan seperti ini:
Dan terakhir kita masukkan coding untuk lowercase seperti ini:
Lalu klik play atau f9.maka akan seperti ini:
Kamis, 08 Maret 2012
DATABASE
Inilah cara membuat table database perbankkan untuk Bank ABC:
1. Memulai Ms.access
a. Klik Start pilih program lalu pilih Microsoft access 2007.
b. Setelah terbuka klik blank database, pada jendela file new database isikan nama file DATABASE2.
c. Lalu pada jendela Database klik Table.
d. Klik dua kali create table in design view.
e. Pada jendela table ketikkan field-field table nasabah, deposito dan transaksi dan tidak lupa pula memberikan primary key.maka hasilnya akan seperti in
i:
TABEL NASABAH
TABEL DEPOSITO
TABEL TRANSAKSI
f. Pilih file save, ketikkan nama table.lalu pilih ok.
3. CARA MEMBUAT QUERY
Langkah-langkah membuat query:
1. Pada jendela database pilih query lalu klik dua kali create query in design view.
2. Masukkan tabel Nasabah, Tabel deposito dan tabel transaksi dengan menekan tombol Add ,lalu setelah itu tekan tombol close untuk keluar dari kotak dialog show tabel.
3. Masukkan field-fieldnya kedalam query.maka akan seperti ini:
4. Untuk mencari Bunga, rumusnya sebagai berikut:
BUNGA:IIf([SALDO]>=50000000,([SALDO]*0.1/100),([SALDO]*0.3/100))
Untuk mencari Administrasi, rumusnya sebagai berikut:
ADMIN: IIf([CREDIT CARD]=Yes,10000,0)
Untuk mencari Bunga Deposito, rumusnya sebagai berikut:
BUNGADEP:IIf([LAMADEP]<3,6/100*[DEPOSITO]*[LAMADEP],8/100*[DEPOSITO]*[LAMADEP])
Untuk mencari Bunga Perbulan, rumusnya sebagai berikut:
BUNGA PER-BULAN: [BUNGADEP]/([LAMADEP]*12)
Untuk mencari Saldo Akhir, rumusnya sebagai berikut:
SALDOAKHIR: [SALDO]+[BUNGA]-[ADMIN]+[BUNGA PER-BULAN]
5. Simpan Query tersebut dengan nama Query Nasabah.
4. TAMPILAN FORM
Maka formnya akan seperti ini:
Penjelasannya adalah seperti ini:
1. Nomor rekening hanya bisa dimasukkan angka 11000*** sampai 15000***.
2. Bunganya adalah 0,01% perbulan
3. Jika kartu kredit dipilih “Ya” ditambah biaya administrasi Rp.10.000; , jika dipilih “Tidak” maka tidak menambah apa-apa.
4. Deposito: Jika deposito lebih dari 3 tahun mendapat bunga 8%, jika kurang dari sama dengan 3 tahun mendapat bunga 5%, bunga yang didapat di berikan dengan cara dicicil tiap bulan.
5. Tombol Tambah data untuk menambah data, tombol hapus data digunakan untuk menghapus data, tombol simpan data untuk menyimpan data.
MEMBUAT KALKULATOR SEDERHANA
MEMBUAT KALKULATOR SEDERHANA
Aplikasi Delphi 7.0 dapat digunakan untuk membuat kalkulator sederhana dengan menggunakan bahasa pemrograman PASCAL.
Langkah-langkahnya:
Double klik pada icon Delphi 7.0
Setelah muncul jendela projectnya, lalu buatlah programnya dengan menggunakan command pallete.
Maka hasilnya akan seperti ini:
Double click pada button “Hitung”, kemudian masukkan codingnya seperti ini:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : integer;
d,e,f : real;
begin
if RadioButton1.Checked =true then
begin
a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
c := a + b ;
edit3.Text := inttostr(c);
end
else if RadioButton2.Checked =true then
begin
a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
c := a - b;
edit3.Text := inttostr(c);
end
else if RadioButton3.Checked = true then
begin
a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
c := a * b;
edit3.Text := inttostr(c);
end
else if RadioButton4.Checked = true then
begin
a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
c := a div b ;
edit3.Text := inttostr(c);
end
else if RadioButton5.Checked = true then
begin
d:= strtofloat(edit1.Text);
e:= strtofloat(edit2.Text);
f := d / e;
edit3.Text := floattostr(f);
end
else if RadioButton7.Checked = true then
begin
a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
c := a Mod b ;
edit3.text := inttostr(c)
end
end;
Maka jalankan program dari coding yang telah dimasukkan pada button “Hitung” dengan cara tekan f9 atau play.
1. Maka akan seperti ini bila kita klik button Penjumlahan :
2. Maka akan seperti ini bila kita klik button Pengurangan:
3. Maka akan seperti ini bila kita klik button Perkalian :
4. Maka akan seperti ini bila kita klik button Pembagian:
5. Maka akan seperti ini bila kita klik button Pembagian Real:
6. Maka akan seperti ini bila kita k;ik button Sisa Bagi:
Double click pada button “Hapus”, kemudian masukkan codingnya seperti ini:
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit1.setfocus;
radiobutton1.checked := false;
radiobutton2.Checked := false;
radiobutton3.Checked := false;
radiobutton4.Checked := false;
radiobutton7.Checked := false;
radiobutton5.Checked := false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;
end.
Maka jalankan program dari coding yang telah dimasukkan pada button “Hapus” dengan cara tekan f9 atau play. Maka akan menjadi seperti ini:
Double click pada button “Keluar”, kemudian masukkan codingnya seperti ini:
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;
end.
MEMBUAT PROGRAM MENGGUNAKAN DELPHI
MEMBUAT PROGRAM MENGGUNAKAN DELPHI PART II
Langkah-langkahnya:
Double klik pada icon Delphi 7.0
Setelah muncul jendela projectnya, lalu buatlah programnya dengan menggunakan command pallete.
Maka hasilnya akan seperti ini:
Double click pada button “Hitung”, kemudian masukkan codingnya seperti ini:
Lalu Double click pada button “Hapus”, kemudian masukkan codingnya seperti ini:
Setelah itu double click pada button “Keluar”, kemudian masukkan codingnya seperti ini :
Lalu setelah itu klik play atau f9 untuk memulai program.
Namun, pertama-tama kita masukkan jari-jarinya.Lalu kita mengklik button “hitung” akan muncul seperti ini:
Kemudian kita klik button “hapus” untuk menghapus data-data yang terdapat pada kolom.maka akan tampil seperti ini:
Lalu klik button “Keluar” untuk mengakhiri program.
MEMBUAT PROGRAM MENGGUNAKAN DELPHI PART I
Aplikasi Delphi 7.0 dapat digunakan untuk membuat program sederhana dengan menggunakan bahasa pemrograman PASCAL.
Langkah-langkahnya:
Double klik pada icon Delphi 7.0
Setelah muncul jendela projectnya, lalu buatlah programnya dengan menggunakan command pallete.
Maka hasilnya akan seperti ini:
Double click pada button “Tampilkan Data”, kemudian masukkan codingnya seperti ini:
Lalu Double click pada button “Hapus”, kemudian masukkan codingnya seperti ini:
Lalu setelah itu klik play atau f9 untuk memulai program.
Maka jika kita mengklik button “Tampilkan Data” akan muncul seperti ini:
Dan Seperti ini:
Langganan:
Komentar (Atom)