Blangkon Pedia: June 2014

Saturday, 21 June 2014

HTML (JavaScript) Iput Nilai Angka

Assalamu'alaikum Warahmatullahi Wabarakatu.

OK jumpa lagi sama saya artis terkenal ahahahahaha bercanda gan, ok hari ini saya akan membagi pengetahuan lagi mengenai WEB kususnya HTML (JavaScript), untuk mengimput nilai angka dan hasilnya pada saat klik proses akan terlihat pesan, hayoooo pesan apa, mau tau banget atau mau tau aja, hahahahahaha bercanda biar tidak terlalu tegang coy, santai seperti di pantai.

ok tidak usah bertele-tela kalian bisa copy paste listing HTML di bawah ini, simpan dengan extensi .HTML ok Cekidot lihatlah hasilnya mantapkan.

#listing HTML di bawah ini:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Nilai Angka </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<script language="JavaScript">
var na=document.frm.nakhir.value;
function proses()
{
if ((document.frm.nakhir.value >= 85) && (document.frm.nakhir.value <= 100))
{
    alert("Nilai Huruf: A")
    alert("Predikat: Sangat Memuaskan")
    }
else if ((document.frm.nakhir.value >= 75) && (document.frm.nakhir.value <= 84))
{   alert("Nilai Huruf: B")
   alert("Predikat: Memuaskan")}
else if ((document.frm.nakhir.value >= 60) && (document.frm.nakhir.value <= 74))
{ alert("Nilai Huruf: C")
    alert("Predikat: Cukup") }
else if ((document.frm.nakhir.value >= 45) && (document.frm.nakhir.value <= 59))
   { alert("Nilai Huruf: D")
    alert("Predikat: Kurang") }
else
   { alert("Nilai Huruf: E")
    alert("Predikat: Buruk") }
}
</script>
<BODY>
<br>
<br>
<table border='2' align='center'>
<tr>
<td>
<form name="frm">
<table border=0 align='center'>
<caption><h2>Input Nilai</h2></caption>
<tr>
    <td>Nilai Angka</td>
    <td>:</td>
    <td><input type="text" name="nakhir" size=30></td>
</tr>
<tr>
    <td colspan='3' align='center'><input type="button" value="Proses" onclick="proses();"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<br>
<br>
<hr>
<center>&copy Ghofar Afrozi (122077)</center>
</BODY>
</HTML>

OK itulah tadi sebagian dari pembelajaran saya tolong simpan komentarnya yah, kita ketemu lagi di pembelajaran yang lainnya, thanks broo sudah nyempetin waktu buka blog ane,

Wassalam Broo

Tuesday, 10 June 2014

Delphi7 Program Penjualan Barang Sederhana Menggunakan Diskon & PPN

Assalamu'alaikum Warahmatullahi Wabarakatu.

Sebelum anda melihat atau mengcopy paste listing di bawah ini, anda sudah dianggap tau tols yang dibutuhkan untuk membuat program di atas. apabila anda belum tau silahkan komentar diposting ini dan tunggu balasan dari saya brooo, ok langsung saja anda copy paste listingnya dibawah ini cekidottt......

perhatian untuk bagian ComboBox1 saya mengisinya di bagian property bagian item broo.

#listing HTML dibawah ini:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

ComboBox1: TComboBox;

Label3: TLabel;

Edit1: TEdit;

Label4: TLabel;

Edit2: TEdit;

Label5: TLabel;

Edit3: TEdit;

Label6: TLabel;

Edit4: TEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

Label7: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Edit5: TEdit;

Label8: TLabel;

Edit6: TEdit;

Edit7: TEdit;

Label9: TLabel;

procedure ComboBox1Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

edit3.SetFocus;

if combobox1.Text='B001' then

begin

edit1.Text:='Notebook';

edit2.Text:='3000000';

end

else if combobox1.Text='B002' then

begin

edit1.Text:='Printer';

edit2.Text:='350000';

end

else if combobox1.text='B003' then

begin

edit1.Text:='Monitor';

edit2.Text:='900000';

end

else if combobox1.text='B004' then

begin

edit1.Text:='TV';

edit2.Text:='500000';

end

else

begin

edit1.Text:='Radio';

edit2.Text:='200000';

end

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

hs, jp, th, jd:real;

begin

hs:=strtofloat(edit2.Text);

jp:=strtofloat(edit3.Text);

th:=(hs*jp);

edit4.Text:=floattostr(th);

procedure TForm1.CheckBox1Click(Sender: TObject);

var

th, jd:real;

begin

th:=strtofloat(edit4.Text);

jd:=th*0.05;

edit5.Text:=floattostr(jd);

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

var

th, jd:real;

begin

th:=strtofloat(edit4.Text);

jd:=th*0.10;

edit6.Text:=floattostr(jd);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

combobox1.Text:='';

edit7.Text:='';

end;

procedure TForm1.Edit4Change(Sender: TObject);

begin

edit7.Text:=edit4.Text;

end;

procedure TForm1.Edit6Change(Sender: TObject);

var

jd, jp, tp:real;

begin

jd:=strtofloat(edit5.Text);

jp:=strtofloat(edit6.Text);

tp:=(jd+jp);

edit7.Text:=floattostr(tp);

end;

end.

Nah terimakasih sudah mampir bila ada yang ingin ditanyakan lagi silahkan sisipkan komentar kalian, dan semoga posting kali ini bermanfaat brooo, saatnya saya bilang Wassalam.

Delphi7 Program Data Penduduk Sederhana

Assalamu'alaikum Warahmatullahi Wabarakatu.

Pagi......Siang.........Sore.........Malam.........Tengah Malam.........Subuh............hahahahahha halo sobat blogger kali ini saya akan membagi pengetahuan lagi nih, sesuai judul posting di atas yaitu Membuat program data penduduk sederhana, menggunakan datagrid/ database. disini sudah pasti kalian tau bagaimana membuat dan mengkoneksikan DB, di posting kali ini saya hanya melihatkan listingnya saja, kalau kalian belum tau cara membuat/mengkoneksikan DB bisa kalian cari di Ommmm Google silahkan klik di sini broooo. Nah listingnya silahkan copy dibawah ini.

satu hal lagi semoga kalian sudah tau apa saja tools yang digunakan apabila tidak kalian bisa komentar di posting ini.

#listing HTML dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1['NoKTP']:=edit1.Text;
Table1['Nama']:=edit2.Text;
Table1['Agama']:=edit3.Text;
if RadioButton1.Checked=True then
Table1['Jenkel']:= RadioButton1.Caption
else if RadioButton2.Checked=true then
Table1['Jenkel']:= RadioButton2.Caption;
Table1.Refresh;
ShowMessage('Data Tersimpan');

edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
edit1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Edit;
Table1['Nama']:=edit2.Text;
Table1['Agama']:=edit3.Text;
if RadioButton1.Checked=True then
Table1['Jenkel']:= RadioButton1.Caption
else if RadioButton2.Checked=True then
Table1['Jenkel']:= RadioButton2.Caption;
Table1.Refresh;
ShowMessage('Data TerEdit');
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
Button1.Enabled:=true;
edit1.SetFocus;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
ada:boolean;
begin
ada:=table1.findkey([edit1.Text]);
if ada then
begin
edit2.Text:=Table1['Nama'];
edit3.Text:=Table1['Agama'];
if Table1['Jenkel']=RadioButton1.Caption then
RadioButton1.Checked:=true
else if Table1['Jenkel']=RadioButton2.Caption then
RadioButton2.Checked:=true;

ShowMessage('Data Sudah Ada');
Button1.Enabled:=False;
end
else
edit2.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Table1.Delete;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
end;

end.

Setelah kalian sudah Copy listingnya Diminta koment TERIMA KASIHNYA broo....

OK itulah tadi postingan saya kali ini semoga bermanfaat dannn saatnya saya bilang Wasssalam

HTML Membuat Frame Atau Layout

Assalamu'alaikum Warahmatullahi Wabarakatu...........................................................................
OK Sudah lama saya tidak ngeposting lagi kali ini saya akan membagi pengetahuan lagi, belajar HTML cara membuat Frame atau Layout seperti judul posting kali ini. Nah langsung saja listingnya bisa di copy, di bawah ini adalah script HTMLnya brooo...........

<FRAMESET FRAMESPACING="1" ROWS="180,*">
<FRAME NAME="judul" SCROLLING="no" NORESIZE src="atas.html">
<FRAMESET COLS="200,*">
<FRAME NAME="menu" SRC="menu.html" NORESIZE>
<FRAME NAME="main" SRC="main.html">
</FRAMESET>
</FRAMESET>

Setelah Copy scriptnya lihat peruahannya hahahahaha kerennn sekian dari saya wasssaalam.

Menu

Saturday, 21 June 2014

HTML (JavaScript) Iput Nilai Angka

Tuesday, 10 June 2014

Delphi7 Program Penjualan Barang Sederhana Menggunakan Diskon & PPN

Delphi7 Program Data Penduduk Sederhana

HTML Membuat Frame Atau Layout