�ݺ�ߣ

TUGAS LAPORAN PROYEK APLIKASI
Di susunoleh :
WidiWahyudi
Kelas X RPL 2
RPL
SMK Negeri 1 Depok

KATA PENGANTAR
Pujisyukurpenulispanjatkankehadirat Allah SWT, yang
atasrahmatdankaruniaNyapenulisdapatmenyelesaikantesisini.ShalawatdansalamtercurahkepadaRasul
ullah Muhammad SAW besertakeluarganya.
Selama melaksanakan tugas akhir ini, penulis mendapat bantuan dan dukungan dari berbagai pihak.
Untukitu, penulisinginmengucapkanterimakasihkepada :
1. bapak/ibu …………………., selakupembimbing I, yang
telahmemberikanbimbingandansemangatdalammenyelesaikanini;
2. bapak/ibu ………………….., selakupembimbing II, yang telahmencurahkanperhatiandanwaktunya
yang demikianbanyakdalampenyelesaiantugasakhirini;
3. bapak, ibu, kakak-kakakdanadik-adiktercinta, besertaseluruhkeluarga yang
senantiasamemberikansemangatdando’anya;
4. dansemuapihak yang membantu, yang tidakdapatpenulissebutkansatupersatu.
Penulismenyadaribahwatesisinibukanlahtanpakelemahan, untukitukritikdan saran
sangatdiharapkan.
Akhir kata, semogatutorialinidapatbermanfaatbagiparapembacanya.
WidiWahyudi, Juni2013
Penulis
Sebelummembuataplikasidarivb 6.0, kitaharusmenginstal visual basic 6.0
Berikutcaramenginstalnyasebagaiberikut :

1. Klik Set Up :
Laluakanmunculsepertigambar di bawah, laluklik next

1. Setelahitupilih ok :
2. Lalupilih Add/Remove :

6 masukan 10 digit “cd key” laluoke
4. Lalupilih Ok

5. Lalupilih exit set up
Proses penginstalanselesai

Setelah proses penginstalnselesai, lalumulai proses pembuatan :
1. LANGKAH-LANGKAH PEMBUATAN APLIKASI
Langkah-1 :
MasukkanObyek yang diperlukankedalam form,
sepertigambarberikut,Denganmenggumnakanodjek Label, Text boxt, Command Button:

Langkah-2 :
LaluAturlahpropertimasing-masing form/obyek yang dipergunakan, dengan minimal
memuatpengaturansebagaiberikut :
KotakPetunjuk :
NO FORM/OBYEK PROPERTY SETTING
1 Form Name TRAPESIUM
Caption LUAS TRAPESIUM
Backcolor &H8000000F&
2 Label 1 Caption MEGHITUNG LUAS TRAPESIUM
BackColor &H00000000&
BackStyle 1-Opaque
Font Snap ITC, 20, Bold Oblique
ForeColor &H0000FFFF&
3 Label 2 Caption SisiPertama
Font Snap ITC, 12, Bold
4 Label 3 Caption SisiKedua
5 Label 4 Caption Tinggi
6 Label 5 Caption Luas
7 Text1 Name txtsisipertama
Text <kosongkan>
8 Text2 Name txtsisikedua
Text <kosongkan>
9 Text3 Name txttinggi
Text <kosongkan>
10 Text4 Name Txtluas
Text <kosongkan>
11 Command1 Name Cmdhapus
Caption HAPUS

Style 0 – Standard
12 Command2 Name Cmdkeluar
Caption KELUAR
13 Command3 Name Cmdhitung
Caption HITUNG
Berikutadalahlangkah-langkahdetail :
Pertamakitabukavb 6.0
Lalupilih yang di lingkarimerahseperti di gambar di bawahini :

Laluakanmunculgambarseperti dibawahni :

Lalupilih label yang di lingkarimerahseperti di bawahini :

Lalu edit sesuaikotakpetunjuk di atas

Setelahitutambahkan command buton, dansesuaikandengankotakpetunjuk di atas,
makahasilnyaakanseperti di bawahini :

LalutambahkanTextBoxdansesuaikandengankotakpetunjuk di atas,
laluakanmenjadiseperti di bawahini :

Setelahlangkah 1 & 2selesaiKetikkan codedengancaramengklik form tersebut 2x,
ketikkankodeygada di bawahini :
Private Sub Cmdhapus_Click()
MsgBox (“ApakahAnda Yakin InginMenghapusHasilIni?”)
txtsisipertama.Text = “”
txtsisikedua.Text = “”
txttinggi.Text = “”
txtluas.Text = “”
txtsisipertama.SetFocus
End Sub
Private Sub Cmdhitung_Click()
Dim sisipertama, sisikedua, tinggi, luas As Single
sisipertama = Val(txtsisipertama.Text)
sisikedua = Val(txtsisikedua.Text)
tinggi = Val(txttinggi.Text)
If txtsisipertama.Text = “” Or txtsisikedua.Text = “” Or txttinggi.Text = “” Then
MsgBox (“Tolongmasukkannilaisisipertama, sisikedua, dantinggiterlebihdulu”)
ElseIfsisipertama> 0 Andsisikedua> 0 And tinggi> 0 Then
luas = 1 / 2 * (sisipertama + sisikedua) * tinggi
txtluas.Text = luas
End If
End Sub

Private Sub Cmdkeluar_Click()
MsgBox (“TERIMAKASIH”)
End
End Sub
Langkah-4 :
Setelahketigalangkahke 3 selesai.Simpan Program dengancara :File – Save Project As –
(pilihlokasimenyimpandannama file) – OK
Langkah-5 :
Agar program dapatdigunakanolehpengguna lain ekspor program kebentuk.EXEdengancara
:File – Make APLIKASI MENGHITUNG LUAS TRAPESIUM.exe

Langkah-6 :
GambaranDesainAkhirygsudahsikasih background ( Output )

�ݺ�ߣ

Tutorial vb

Recommended

More Related Content

Featured (20)

Tutorial vb