Contoh Laporan Penelitian

 

yang mau download bisa disini, ingat jangan lupa tulis sumbernya http://0mah9edek.blogspot.com. Keep Blogging :)

Read More

Membuat Pendingin Modem Sendiri

Berasal dari pengalamn pribadi soal modem yang panas,iseng-iseng nyari dech di google eh dapat tutorial ini 

• Bahan yang dibutuhkan 

     

• Potong ujung kabel 'female' USB extension-nya, nanti di dalamnya ada 4 warna kabel. Kabel USB ada dua tipe:black-green-white-red (tipe1) dan yellow-red-green-white (tipe2). sedangkan untuk jalur listriknya: black & red (tipe1), yellow & white (tipe2). Karena pada pembuatan kali ini saya memakai USB tipe 1 jadi saya memotong semua kabel warna lainnya kecuali warna black & red

 

• Tempel modem ke kipas HSF kemudian pasang alumunium ke body modem, kemudian sesuaikan aluminium tersebut dengan body modem.

• Tempel modem ke kipas HSF kemudian pasang alumunium ke body modem, kemudian sesuaikan aluminium tersebut dengan body modem.

• Lubangi aluminium, sesuaikan dengan tempat sekrup pada kipas  HSF.

• Selamat Pendingin Modem anda telah selesai! 

source : http://glazzy.blogspot.com

 

Read More

Menentukan nilai IPK

Soal
Buatlah program yang menerima input nilai(dalam range 0 sampai 100) dan menghasilkan putput berupa keterangan nilai.

IPK	Keterangan
0-15	Nilai E
16-40	Nilai D
41-60	Nilai C
61-80	Nilai B
81-100	Nilai A

Berikut ini tampilan formnya

Dan berikut syntaxnya

unit Utugas1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
  x:=StrToInt(Edit1.Text);
  if x>80 then Edit2.Text:='A'
  else
  if x>60 then Edit2.Text:='B'
  else
  if x>40 then Edit2.Text:='C'
  else
  if x>15 then Edit2.Text:='D'
  else
  Edit2.Text:='E'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Read More

Membuat program Kasir dengan Delphi 7

Postingan kali ini saya akan sharing lagi,tentang membuat program kasir dengan delphi 7. Kalo mau nyoba monggo dicopy..

Jika desain sudah jadi,kemudian klik 2x pada button Tambah. Lalu masukkan script dibawah

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit4.Text<>'')and(Edit5.Text<>'')and(Edit6.Text<>'')then
begin
Memo1.Lines.Add(Edit4.Text);
Memo2.Lines.Add(Edit6.Text);
harga:=StrToInt(Edit5.Text);
jbeli:=StrToInt(Edit6.Text);
tbeli:=harga*jbeli;
Memo3.Lines.Add(IntToStr(tbeli));
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit4.SetFocus;
end else
begin
showmessage('Ada Data Yang Belum DiInputkan ');
Memo1.SetFocus;
end;
jumlah:=tbeli+jumlah;
Edit7.text:=inttostr(jumlah);
end;

Kemudian klik 2x pada button Hapus dan masukkan script dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
end;

Selanjutnya klik 2x button Kembalian dan masukkan script lagi

procedure TForm1.Button3Click(Sender: TObject);
begin
bayar:=StrToInt(Edit8.text);
kembalian:=bayar-jumlah;
Edit9.text:=inttostr(kembalian);
end;

Dan yang terakhir klik 2x pada button Keluar dan masukkan script dibawah

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate
end;

Read More