BIMBINGAN PERDANA PERIODE I

BIMBINGAN PERDANA
MUTIARAWATI S.Kom

Bagi para mahasiswa/i yang mengikuti Tugas Akhir Gelombang I
diadakan Bimbingan Perdana
Tanggal 03 Mei 2011
Jam 13:00 (On time)
di LAB B Kampus Kramat 18

WAJIB MEMBAWA
(BUKU BIMBINGAN PENULISAN TA, COVER + BAB I)

Baca Selengkapnya......

Jawaban Quiz Pemograman Visual

• Buat Database dengan nama : db_travel
• Buat Tabel dengan nama: tb_transaksi


Name
Type
Size
Keterangan
Notrans
Text
10
Primary key
Nama
Text
20

Alamat
Text
30

pesawat
Text
20

Jurusan
Text
20

Harga
Currency
8

Biaya
Currency
8

Jumbel
Currency
8

Total
Currency
8

Ketentuan soal :

1. Buat procedure aktif,nonaktif,kosong dan nomorbaru
2. Pada saat form dijalankan tanggal muncul otomatis dan semua object dalam keadaan tidak aktif
3. Pada saat klik button tambah semua object aktif, nomor transaksi muncul otomatis dan kursor berada pada nama
4. Isi combo dengan : Garuda Air Lines, Air Asia dan Batavia Air
5. Jika pilih option Antar maka biaya muncul. Biaya = 5% * harga tiket
    Jika dipilih option Ambil maka biaya = 0
6. Pilih jurusan maka harga tiket akan muncul :

Nama Pesawat Jurusan
Bandung semarang  surabaya
Garuda Air Lines 400000 450000 500000
Air Asia 350000 400000 550000
Batavia Air 300000 350000 600000


7. Input jumlah beli ketika enter muncul total bayar. Total bayar = jumbel * harga tiket
8. Klik button proses maka total keseluruhan muncul. Total keseluruhan = biaya + total bayar
9. Koneksi data dengan menggunakan listing
10. Klik button cancel maka semua object bersih dan tidak aktif
11. Klik button simpan semua object tersimpan kedalam database
12. Klik button keluar maka muncul pesan :



    
   

Desain Form :

     



Listing Program :


Sub nobaru()
Dim no_pinjam As String
Dim fakint As Integer
Dim db As Database
Dim rstrans As Recordset
no_pinjam = Format(Date, "yymm")
Set db = OpenDatabase(App.Path & "\db_travel.mdb")
Set rstrans = db.OpenRecordset("select notrans from tb_transaksi order by notrans", dbOpenDynaset)
With rstrans
If .RecordCount = 0 Then
no_pinjam = no_pinjam & "0001"
Else
.MoveLast
If Format(Date, "yymm") <> Val(Left(!notrans, 4)) Then
no_pinjam = Format(Date, "yymm") & "0001"
Else
fakint = Val(Right(!notrans, 4)) + 1
no_pinjam = Format(Date, "yymm") & Right("0000" & fakint, 4)
End If
End If
End With
Me.no.Text = no_pinjam
End Sub
Private Sub add_Click()
aktif
bersih
nobaru
cancel.Enabled = True
save.Enabled = True
pro.Enabled = True
nm.SetFocus
End Sub

Private Sub cancel_Click()
bersih
nonaktif
End Sub

Private Sub exit_Click()
Dim p As String
p = MsgBox("Yakin Mau Keluar??", 32 + 4, "Informasi")
If p = vbYes Then
End
End If
End Sub

Private Sub Form_Activate()
nonaktif
bersih
cancel.Enabled = False
save.Enabled = False
pro.Enabled = False

cnm.AddItem ("Garuda Air Lines")
cnm.AddItem ("Air Asia")
cnm.AddItem ("Batavia Air")

lj.AddItem ("Bandung")
lj.AddItem ("Semarang")
lj.AddItem ("Surabaya")
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db_travel.mdb"
Data1.RecordSource = "select*from tb_transaksi"
End Sub


Private Sub jb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tb.Text = Val(jb.Text) + Val(h.Text)
End If
End Sub

Private Sub lj_Click()
If cnm.Text = "Garuda Air Lines" Then
If lj.Text = "Bandung" Then
h.Text = 400000
ElseIf lj.Text = "Semarang" Then
h.Text = 450000
Else
h.Text = 500000
End If
ElseIf cnm.Text = "Air Asia" Then
If lj.Text = "Bandung" Then
h.Text = 300000
ElseIf lj.Text = "Semarang" Then
h.Text = 350000
Else
h.Text = 400000
End If
ElseIf cnm.Text = "Batavia Air" Then
If lj.Text = "Bandung" Then
h.Text = 350000
ElseIf lj.Text = "Semarang" Then
h.Text = 400000
Else
h.Text = 4500000
End If
End If
End Sub

Private Sub oam_Click()
If oam.Value = True Then
b.Text = 0
End If
End Sub

Private Sub oan_Click()
If oan.Value = True Then
b.Text = 0.05 * Val(h.Text)
Else
b.Text = 0
End If
End Sub

Private Sub pro_Click()
tk.Text = Val(b.Text) + Val(tb.Text)
End Sub

Private Sub save_Click()
Data1.Recordset.AddNew
Data1.Recordset!notrans = no.Text
Data1.Recordset!tgltrans = tgl.Text
Data1.Recordset!nama = nm.Text
Data1.Recordset!alamat = almt.Text
Data1.Recordset!pesawat = cnm.Text
Data1.Recordset!jurusan = lj.Text
Data1.Recordset!harga = h.Text
Data1.Recordset!biaya = b.Text
Data1.Recordset!jumbel = jb.Text
Data1.Recordset!total = tb.Text
Data1.Recordset.Update
Data1.Refresh
End Sub

Private Sub Timer1_Timer()
tgl.Text = Date
End Sub
Sub aktif()
nm.Enabled = True
almt.Enabled = True
cnm.Enabled = True
lj.Enabled = True
oan.Enabled = True
oam.Enabled = True
b.Enabled = True
h.Enabled = True
jb.Enabled = True
tb.Enabled = True
ub.Enabled = True
End Sub
Sub nonaktif()
no.Enabled = False
tgl.Enabled = False
nm.Enabled = False
almt.Enabled = False
oan.Enabled = False
oam.Enabled = False
cnm.Enabled = False
lj.Enabled = False
b.Enabled = False
h.Enabled = False
jb.Enabled = False
tb.Enabled = False
tk.Enabled = False
ub.Enabled = False
uk.Enabled = False
End Sub
Sub bersih()
no.Text = ""
nm.Text = ""
almt.Text = ""
cnm.Text = ""
oan.Value = False
oam.Value = False
b.Text = ""
h.Text = ""
jb.Text = ""
tb.Text = ""
tk.Text = ""
ub.Text = ""
uk.Text = ""
End Sub

Private Sub ub_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
uk.Text = Val(ub.Text) - tk.Text
End If
End Sub

Baca Selengkapnya......

Pray Of Indonesia

Baca Selengkapnya......

Ciri-ciri Orang yang Sombong

Semoga ini bisa jadi point untuk introspeksi diri bagi diriku dan teman-teman lain. Kuakui, diriku kadang suka sombong, padahal tidak memiliki apa-apa yang perlu disombongkan. Sifat ini menjadi cobaan bagi diri kita dan semuanya. Mari, kita perbaiki diri...

ajuk :Sombong Pusaka Iblis
Artikel ini diambil dari koleksi artikel myMasjid :
http://wwwmymasjid.com.my/article/show.asp?id=2114  
My Journal

Sombong merupakan satu sifat keji yang dibenci Allah dan rasul malah oleh seluruh isi alam ini. Mengekalkan sifat sombong ertinya mengekalkan diri dalam kutukan Allah. Abu Laits Al Samarqandi meriwayatkan ; daripada Ka'bul Ahbar :
Orang yang sombong itu akan datang pada Hari Qiamat berupa orang sekecil semut, diliputi oleh kehinaan dan diberi minum "Thinatul Khabaal" yakni darah bercampur nanah daripada ahli neraka.

Sifat sombong atau ego ini hampir semua orang memilikinya , cuma sesiapa yang kuat mujahadah dan takutkan Allah sahaja berjaya mengikis sifat keji ini. Antara ciri-ciri seseorang itu ada penyakit sombong ialah:

1. Suka memperkecilkan orang lain lebih-lebih lagi orang yang dipandang hina dan lebih rendah taraf darinya.
2. Susah menerima sebarang nasihat, teguran atau kritikan daripada orang lain terutama orang di bawahnya.
3. Bermegah dengan keistimewaan anugerah Allah kepadanya, seperti cantik, berjawatan tinggi, kaya, bijak, mahsyur, dipuji orang, keturunan baik dan sebagainya.
4. Suka marah-marah kepada orang atau membentak-bentak orang di khalayak ramai.
5. Rasa diri hebat, sempurna, kuat hingga membelakangkan kehebatan dan kebesaran Allah samasekali.
6. Suka bergaul dengan orang yang setaraf dengannya sahaja.
7. Pendapatnya sahaja yang betul dan mesti diterima, orang lain salah dan tidak penting.
8. Susah minta maaf dan senyum pada orang lain.
9. Tidak pernah fikir kesusahan orang, ia fikir kesenangannya sahaja.

Apakah ciri-ciri di atas ada pada kita? Kalau ada ertinya kita memiliki sifat sombong, dan kita dalam kemurkaan Allah. 

Baca Selengkapnya......