Selasa, 26 Oktober 2010

unit penjualan; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Button1: TButton; Button2: TButton; editharga: TEdit; editjumlah: TEdit; editbayarbarang: TEdit; Label6: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var hargabarang,jumlahbarang,jumlahbayar:integer; begin hargabarang := StrtoInt(editharga.Text); jumlahbarang := StrtoInt(editjumlah.Text); jumlahbayar := hargabarang * jumlahbarang; editbayarbarang.text:=InttoStr (jumlahbayar); end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; end.

07.16  karawang2  No comments

Read More

Jumat, 22 Oktober 2010

coba sejak pertama ku tau halaman login hatimu. langsung saja ku injeck kan hatimu dengan Love Injection

23.13  karawang2  No comments

Read More

Rabu, 20 Oktober 2010

http://world-of-programmer.blogspot.com

09.31  karawang2  No comments

Read More

Selasa, 19 Oktober 2010

banyak waktu yang habis (terbuang) dengan sia - sia...

21.44  karawang2  No comments

Read More

mudah2an keturunan gw ga ikut2an lebay...

01.15  karawang2  No comments

Read More

Jumat, 15 Oktober 2010

belajar jaringan hari ini cukup...cukup memusingkan

02.47  karawang2  No comments

Read More

Kamis, 14 Oktober 2010

<html> <head> <title>MENU</title> </head> <body> <u><h3>MENU</h3></u> <br> <hr> <a href =latihan1.html target =isinya>Lat I</a><br> <a href =latihan2.html target =isinya2>Lat II</a> </body> </html>

07.20  karawang2  No comments

Read More

<html> <head> <frameset rows="258,758 "> <frame src=latihan1.html> <frameset cols="30%,70%"> <frame src=latihan2.html> <frameset rows="258,758 "> <frame src=latihan4.html name=isinya> <frame src=latihan5.html> </frameset> </frameset> </frameset> </head> <body> </body> </html>

07.10  karawang2  No comments

Read More

<?php if (!empty($_SERVER['HTTPS']) && ('on' == $_SERVER['HTTPS'])) { $uri ='https://'; } else { $uri = 'http://'; } $uri .= $_SERVER['HTTP_HOST']; header('Location: '.$uri.'/purno87'); exit; ?>

06.28  karawang2  No comments

Read More

Minggu, 10 Oktober 2010

http://mirror01.th.ifl.net/releases//maverick/

00.31  karawang2  No comments

Read More

Rabu, 06 Oktober 2010

kamis,jumat,sabtu

20.05  karawang2  No comments

Read More
Twitter Delicious Facebook Digg Stumbleupon Favorites More