Pengalaman penulis belanja online

Pengalaman pertama belanja online di Lazada

Kali ini saya mau sharing pengalaman pertama belanja online di www.lazada.co.id . Disana terdapat banyak produk yang sedang ada diskon besar besaran. Lalu saya melihat sebuah produk yang memang ingin saya beli yaitu headset iphone , untuk menggantikan headset sebelumnya yang sudah tewas. Ketika saya ke teman saya bertanya berapa harga hedset iphone yang ia miliki  harganya Rp.400.000.- namun ketika saya lihat di   Lazada ini harganya hanya Rp.85.000.- saja .. Wow, selisihnya lumayan juga yaah, > Rp.315.000.- :D

Karena ini pertama kalinya saya akan belanja di Lazada, maka saya coba cari-cari info/review dari yang sudah duluan beli & google mengarahkan saya ke link berikut :
- Pengalaman Belanja di Lazada Toko Online Terbesar di Indonesia
- Pengalaman saya berbelanja di lazada dan dinomarket. PENTING !!

Pengalaman Belanja Online di Lazada.co.id

Pengalaman Belanja Online di Lazada.co.id

Pengalaman Belanja Online di Lazada.co.id

Pengalaman Belanja Online di Lazada.co.id

Pengalaman Belanja Online di Lazada.co.id

Membaca review tersebut, ada yang puas dan ada yang tidak. Tapi akhirnya saya putuskan membeli saja. Hal yang mendukung keputusan beli :
Bisa COD
Nah ini hal utama yang sangat menarik, karena dengan metode COD/bayar di tempat maka potensi penipuan saat transaksi hampir mustahil. Barang bisa di cek lalu kita bayar jika sesuai.

Harga sangat murah
Iya lah, selisihnya > Rp.315.000.-

Dijual dan dikirim oleh Lazada
Penjual dan pengirim produk yang saya beli ini langsung dari Lazada, bukan pihak lain. Lebih meyakinkan. Pastikan cek dulu penjual dan pengirim dari produk yang akan kita beli.

Barang bisa dikembalikan jika tidak sesuai


Gratis ongkos kirim

Saya putuskan beli, klak-klik & isi form pembelian. Waktu itu saya membeli sekitar jam 10.0hari sabtu  & betapa terkejutnya ketika besok 3 hari sorenya jam sekitar 18.00 WIB pesanan sudah hadir di depan rumah. Waktu itu ada nomor tiak dikenal menelpon, memperkenalkan diri sebagai kurir Lazada. Lalu sang kurir ramah tadi menyerahkan barang pesanan & saya pun membayarnya. Sang kurir juga mengingatkan seandainya tidak sesuai pesanan bisa dikembalikan dengan mengikuti prosedur/isi form pemesanan.

Oke, sekian sharing pengalaman kali ini pemirsa :)

Softskill 3.4

Program Akhir Softskill

Nama :

52413515 - Dimas Rizki ·       

53413328 - Fauzi Pratama ·        

55413951 - Muhammad Hamim

 

 

Form :

 

 Listing :

unit Unit1;
interface
uses

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

  Dialogs, ExtCtrls, StdCtrls;

 

type

  TForm1 = class(TForm)

    btnStart: TButton;

    Button2: TButton;

    lblClick: TLabel;

    btn1: TButton;

    btn2: TButton;

    btn3: TButton;

    btn4: TButton;

    Label2: TLabel;

    lblScore: TLabel;

    Label4: TLabel;

    edtName: TEdit;

    Timer2: TTimer;

    Timer3: TTimer;

    lblBravo: TLabel;

    Timer1: TTimer;

    Label1: TLabel;

    Label3: TLabel;

    Timer4: TTimer;

    lblWkt: TLabel;

    Label6: TLabel;

    procedure Selesai;

    procedure btnStartClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn3Click(Sender: TObject);

    procedure btn4Click(Sender: TObject);

    procedure edtNameKeyPress(Sender: TObject; var Key: Char);

    procedure Timer2Timer(Sender: TObject);

    procedure Timer3Timer(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Timer4Timer(Sender: TObject);

  private

    { Private declarations }

  public

  Tukar, Score, Tanya,Waktu : Integer;

  Blink : Boolean;

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

procedure TForm1.Selesai;

begin

Timer1.Enabled := False;

Timer4.Enabled := False;

btn1.Enabled := False;

btn2.Enabled := False;

btn3.Enabled := False;

btn4.Enabled := False;

 

lblScore.Visible := False;

edtName.Enabled := True;

edtName.SetFocus;

 

lblClick.Visible := False;

end;

 

 

procedure TForm1.btnStartClick(Sender: TObject);

begin

Score := 0;

Waktu := 60;

Tukar := 0;

 

lblScore.Visible := True;

lblClick.Visible := True;

lblClick.Left := 33;

lblBravo.Caption := '';

lblBravo.Visible := False;

edtName.Enabled := False;

edtName.Clear;

 

Timer1.Enabled := True;

Timer4.Enabled := True;

btn1.Enabled := True;

btn2.Enabled := True;

btn3.Enabled := True;

btn4.Enabled := True;

lblScore.Caption := '0';

lblWkt.Caption := '60';

 

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

CapTmp : String;

begin

CapTmp := btn1.Caption;

btn1.Caption := btn2.Caption;

btn2.Caption := btn3.Caption;

btn3.caption := btn4.Caption;

btn4.Caption := CapTmp;

Inc(Tukar);

 

end;

 

procedure TForm1.btn1Click(Sender: TObject);

begin

if btn1.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

 

lblScore.Caption := IntToStr(Score);

end;

 

procedure TForm1.btn2Click(Sender: TObject);

begin

if btn2.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

 

lblScore.Caption := IntToStr(Score);

end;

 

procedure TForm1.btn3Click(Sender: TObject);

begin

if btn3.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

 

lblScore.Caption := IntToStr(Score);

end;

 

procedure TForm1.btn4Click(Sender: TObject);

begin

if btn4.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

 

lblScore.Caption := IntToStr(Score);

end;

 

procedure TForm1.edtNameKeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 Then

begin

lblBravo.Visible := True;

if Score >= 50 then

lblBravo.Caption := 'Selamat Anda Menang' + ' ' + edtName.Text

else

lblBravo.Caption := 'Not Lucky' + ' ' + edtName.Text;

 

btnStart.SetFocus;

end;

end;

 

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Blink := not Blink;

if Blink then

lblBravo.Font.Color := clRed

else

lblBravo.Font.Color := clBlue;

end;

 

 

procedure TForm1.Timer3Timer(Sender: TObject);

begin

if lblClick.Left <= 230 Then

lblClick.Left := lblClick.Left + 1

else

lblClick.Left := 0;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Tanya := Application.MessageBox('Apa kau yakin ingin keluar permainan ?',

'Confirmation', MB_YESNO + MB_ICONQUESTION);

if Tanya = 6 then

begin

Application.MessageBox('Terimakasih telah bermain', 'Byee. . Byee..', MB_OK + MB_ICONINFORMATION);

Application.Terminate;

end;

end;

 

procedure TForm1.Timer4Timer(Sender: TObject);

begin

if lblWkt.Caption = '0' then

Selesai

else

Waktu := Waktu - 1;

lblWkt.Caption := IntToStr(Waktu);

end;

end.

 

Output :

 

 

Tutor Delphi 2

Komponen Pada Borland Delphi 7 (Bagian 2)

 

52413515 - Dimas Rizki 

53413328 - Fauzi Pratama 

55413951 - Muhammad Hamim 

 

Component Pallete

 

 

Merupakan Kumpulan Icon yang digunakan untuk merancang suatu aplikasi, dimana mereka akan membentuk suatu interface sebuah aplikasi. Dalam setiap komponen pallete semua icon dikelompokkan dalam berbagai komponen sesuai dengan fungsi dan kegunaannya. Komponen ini merupakan komponen - komponen yang sering digunakan di dalam membuat program menggunakan Borland Delphi 7. Sebelumnya sudah dijelaskan tentang tutorial salah satu komponen Button. Pada kesempatan kali ini saya akan membahas seluruh komponen yang ada di dalam komponen pallete. 

 

 

Berikut beberapa fungsi dari komponen pallete standard :

 

 

 

 

 

Berikut contoh dari komponen yang ada di program Borland Delphi 7

 

 

Tutorial Delphi

Kali ini saya akan menjelaskan cara menginstal dan cara menjalankan program aplikasi Delphi v.7.0.

 

PENGINSTALAN DELPHI

1. Setelah kita download program delphi yang bisa kalian cari di google, double klik di instal delphi.

 

 

2. Bila anda pengguna Windows 64 bit maka akan muncul tab "Program Compatibility Assistant" Kita klik Run Program.

 

 

3. pada tab selanjutnya karena kita hanya menggunakan program delphi 7 maka kita pilih delphi 7.

 

 

4. Setelah itu kita klik next saja dan masukkan serial number.

 

 

 

 

5. Pilih I accept the ... untuk mengkorfirmasi ketentuan yang berlaku dan setelah itu klik next

 

6. Pada selanjutnya ketika masuk dalam pemilihan penginstalan kita pilih typical karena pada typical penenmpatan file program dan penyimpanan data program telah di atur atau default, jika ingin menentukan sendiri untuk menyimpan letak file dan program maka pilih custom

 

 

7. Pilih xp Office karena kita menggunakan versi komputer yang terbaru.

 

 

8. Karena kita telah memilih typical pada sebelumnya jadi pada tab penempatan lokasi folder kita tidak perlu mengaturnya kembali.

 

 

9. Tunggu hinga proses instalasi selesai lalu klik finis setelah selesai di instal.

 

 

Pada tahap ini kita selesai menginstal program , Selanjutnya saya akan menjelaskan tentang cara menjalankan program .

 

MENJALANKAN DELPHI

1. Kita double klik pada shortcut delphi yang berada di dekstop.

 

2. Di bawah ini merupakan tampilan awal program Delphi.

 

 

3. Membuat Form , Form merupakan sebuah tempat atau letak dimana kita membuat sebuah program.

 

1. Klik file kemudian pilih new dan yang terakhir klik form seperti berikut :

2. Kemudian setelah itu akan muncul jendela sperti ini :

kemudian setelah itu kita akan membuat program sederhana yang mudah untuk diikuti dirmah yaitu program menghitung gaji karyawan.

  1. Jalankan aplikasi Delphi yang sudah kita instal di komputer kita terserah versi  berapa, maka akan muncul tampilan seperti dibawah ini.

 

 

 

      
2. Masukan komponen-komponen berikut pada form : 

Komponen	Propertis
GroupBox1	Caption	Input
Label1	Caption	Nama Lengkap
Label2	Caption	Nilai Tugas
Label3	Caption	Nilai Mid
Label4	Caption	Nilai Semester
Edit1	Text	Kosongkan aja
Edit2	Text	0 (nol)
Edit3	Text	0
Edit4	Text	0
Bitbtn1	Caption	Proses
Bitbtn2	Caption	Baru
GroupBox2	Caption	Output
Label5	Caption	Total Nilai
Label6	Caption	Nilai Akhir
Label7	Caption	Nilai Huruf
Label8	Caption	_
Label9	Caption	Keterangan
Bitbtn3	Caption	Keluar

 

Berikut adalah gambar setelah kita memasukkan komponen diatas :
  

        

 

3. Masukan listing pada button Proses sebagai berikut dengan meng-klik 2 kali :

var

total, akhir : integer;

begin

total := StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+StrToInt(Edit4.Text);

Edit5.Text:=IntToStr(total);

akhir := total div 3;

Edit6.Text:=IntToStr(akhir);

if akhir >= 85 then

Edit7.Text:='A'

else if akhir >= 70 then

Edit7.Text:='B'

else if akhir >= 60 then

Edit7.Text:='C'

else if akhir >= 50 then

Edit7.Text:='D'

else

Edit7.Text:='E';

//Keterangan

if Edit7.Text='E' then

Label8.Caption:='Tidak Lulus'

else

Label8.Caption:='Lulus';

4. Listing Baru sbb:

Edit1.Enabled:=True;

Edit2.Enabled:=True;

Edit3.Enabled:=True;

Edit4.Enabled:=True;

Edit5.Enabled:=True;

Edit6.Enabled:=True;

Edit7.Enabled:=True;

BitBtn1.Enabled:=True;

Edit1.Text:='';

Edit2.Text:='0';

Edit3.Text:='0';

Edit4.Text:='0';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Label8.Caption:='_';

Edit1.SetFocus;

5. Listing program pada button Keluar sbb:

Application.Terminate;

6. Masukan listing pada Form Aktivate, caranya klik pada bagian Events kemudian klik 2x sebelah kanan pada OnAktivate.mlihat gambar dibawah ini.

Masukan listing berikut :

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Edit4.Enabled:=False;

Edit5.Enabled:=False;

Edit6.Enabled:=False;

Edit7.Enabled:=False;

BitBtn1.Enabled:=False;

Penjelasan Program :

Ketika program dijalankan, pada bagian edit yaitu edit1 sampai edit 7 dan tombol Proses bersifat Enable (tidak berfungsi) dan setfocus pada tombol Baru. Dalam artian kita blum bisa mengimput data, Jadi ketika mau mengimput kita harus klik dulu tombol Baru, baru bisa mengimput data.
Silahkan lihat gambar-gambar dibawah ini.
          

 

 

         
Berikut merupakan output program jika kita me-run program dengan klik symbol warna hijau :