Metodologi Perencanaan E-Business
Dapatkan dukungan manajemen eksekutif dan sponsor bisnis. Identifikasi tujuan bisnis utk selesaikan rencana e-bisnis . Identifikasi anggota tim dari individu-individu yg akan terliba
Uji normalitas data dalam penelitian
Uji normalitas data dimaksudkan untuk memperlihatkan bahwa data sampel berasal dari populasi yang berdistribusi normal. Ada beberapa teknik yang dapat digunakan untuk menguji normalitas data, antara lain:
Tilawatil Quran KH. Muammar ZA
ngat jaman-jaman kecil dulu, anda pasti mengenal qori termasyhur pada era itu, ya Ustad H.Muammar ZA, kali ini saya ingin berbagi file ngaji atau tilawatil quran yang beliau baca dengan teman duetnya Ustad Chumaidi, Filenya ada beberapa.
Contoh Khutbah Bahasa Sunda
Surupna panon poe dina wanci magrib kamari, jadi ciciren rengsena ibadah saum urang salila sabulan campleng, kuru cileuh kentel peujit dina waktu sabulan, lantaran ngalaksanakeun saum jeung taraweh sarta ibadah–ibadah Ramadan
Ciri-ciri Pasar Monopoli
Pasar monopoli adalah suatu bentuk interaksi antara permintaan dan penawaran yang ditandai oleh adanya satu penjual/produsen dipasar berhadapan dengan permintaan seluruh pembeli atau konsumen.
Saturday, June 29, 2013
PROGRAM MENGHITUNG JUMLAH PECAHAN MATA UANG MENGGUNAKAN PASCAL
Program hitung berat badan ideal Menggunakan Pascal
Soal Ujian Microsoft Excell Tentang Grafik Untuk Mahasiswa Keperawatan dan Kebidanan
Soal Uji Kompetensi Microsoft Excell Part 1
Pengertian OCTAVE dan OCTAVE-S
MANAJEMEN PEMASARAN JASA
Wednesday, June 26, 2013
Program Delphi Untuk Mencari Nilai Terbesar, Terkecil, Faktorial dan Perpangkatan
Ini Dia Listing Program :
unit Utst1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
EdA: TEdit;
EdC: TEdit;
EdD: TEdit;
GroupBox1: TGroupBox;
rb1: TRadioButton;
rb2: TRadioButton;
rb3: TRadioButton;
rb4: TRadioButton;
rb5: TRadioButton;
rb6: TRadioButton;
rb7: TRadioButton;
Label5: TLabel;
EdHasil: TEdit;
EdB: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
EdAwal: TEdit;
EdAkhir: TEdit;
EdStep: TEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
EdPremium: TEdit;
EdPertamax: TEdit;
EdSolar: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
Image1: TImage;
Image2: TImage;
Image3: TImage;
procedure rb3Click(Sender: TObject);
procedure rb4Click(Sender: TObject);
procedure rb5Click(Sender: TObject);
procedure rb6Click(Sender: TObject);
procedure rb7Click(Sender: TObject);
procedure rb1Click(Sender: TObject);
procedure rb2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c,d,e,f,g,h:real;
i,n: integer;
faktorial,kc,kb : real;
const
premium=4500;
pertamax=9500;
Solar=4500;
implementation
{$R *.dfm}
procedure TForm1.rb3Click(Sender: TObject);
begin
a:=StrTofloat(EdA.text);
b:=StrTofloat(EdB.text);
c:=StrTofloat(EdC.text);
d:=StrTofloat(EdD.Text);
e:=(a*c)+(b*d);
if rb3.Checked then
EdHasil.text :=FloattoStr(e);
end;
procedure TForm1.rb4Click(Sender: TObject);
begin
n:=strtoint(EdA.Text);
faktorial:=1;
for i:=2 to n do
faktorial:=faktorial*i;
if rb4.Checked then
EdHasil.text:=floattostr(faktorial);
end;
procedure TForm1.rb5Click(Sender: TObject);
begin
begin
n:=strtoint(EdB.Text);
faktorial:=1;
for i:=2 to n do
faktorial:=faktorial*i;
if rb5.Checked then
EdHasil.text:=floattostr(faktorial);
end;
end;
procedure TForm1.rb6Click(Sender: TObject);
begin
a:=StrTofloat(EdA.text);
b:=StrTofloat(EdB.text);
c:=StrTofloat(EdC.text);
d:=StrTofloat(EdD.Text);
e:=exp(c * ln(d));
if rb6.Checked then
EdHasil.text :=floattoStr(e);
end;
procedure TForm1.rb7Click(Sender: TObject);
begin
a:=StrTofloat(EdA.text);
b:=StrTofloat(EdB.text);
c:=StrTofloat(EdC.text);
d:=StrTofloat(EdD.Text);
e:=exp(d * ln(a));
if rb7.Checked then
EdHasil.text :=floattoStr(e);
end;
procedure TForm1.rb1Click(Sender: TObject);
begin
a:=StrTofloat(EdA.text);
b:=StrTofloat(EdB.text);
c:=StrTofloat(EdC.text);
d:=StrTofloat(EdD.Text);
kb:=a;
if b> kb then kb:=b
else kb:=kb;
if c> kb then kb:=c
else kb:=kb;
if d> kb then kb:=d
else kb:=kb;
if rb1.Checked then
EdHasil.Text:=floattostr(kb);
end;
procedure TForm1.rb2Click(Sender: TObject);
begin
a:=StrTofloat(EdA.text);
b:=StrTofloat(EdB.text);
c:=StrTofloat(EdC.text);
d:=StrTofloat(EdD.Text);
kc:=a;
if b< kc then kc:=b
else kc:=kc;
if c< kc then kc:=c
else kc:=kc;
if d< kc then kc:=d
else kc:=kc;
if rb2.Checked then
EdHasil.Text:=floattostr(kc);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrTofloat(EdAwal.text);
b:=StrTofloat(EdAkhir.text);
e:=b-a;
Edstep.Text:=floattostr(e);
Memo1.Lines.Add('Jumlah Bensin = '+FloatToStr(E));
f:=premium*e;
EdPremium.Text:=floattostr(f);
Memo2.Lines.Add('Total Harga Premium = '+FloatToStr(f));
g:=pertamax*e;
EdPertamax.Text:=floattostr(g);
Memo3.Lines.Add('Total Harga Pertamax = '+FloatToStr(g));
h:=solar*e;
EdSOlar.Text:=floattostr(h);
Memo4.Lines.Add('Total Harga Solar = '+FloatToStr(h));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EdAwal.Text:='';
EdAkhir.Text:='';
EdStep.Text:='';
EdPremium.Text:='';
EdPertamax.Text:='';
EdSolar.Text:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if(application.MessageBox('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes) then
begin
close;
end;
end;
end.
Kembalinya si Anak Hilang
Hello, We have received your appeal regarding your blog http://tutorialkuliah.blogspot.com/. Upon further review we have determined that your blog was mistakenly marked as a TOS violator by our automated system and, as such, we have reinstated your blog. We apologize for any inconvenience this may have caused in the meantime and thank you for your patience as we completed our review process. Thank you for understanding. Sincerely, The Blogger Team
hmmmmmm....alhamdulillah
Kembalinya si Anak Hilang
Blog ini telah menghasilkan banyak hal, terutama menunjang bisnis online Oriflame yang digeluti mywife tercinta..
THX to Allah SWT yang telah mengembalikan blog ini..thx to The Blogger Team yang dah berkenan balikin blogku