 |
| Kantor Gubernur |
 | ||
Kesawan Square
|
 | ||||||||
Istana Maimon
|
 |
| Tampilan database kendaraan.mdb pada Microsoft Access
Setelah selesai dengan database, langsung aja buka Microsoft Visual Basic dan lalu pilih Create untuk membuat form baru.
|
 |
| Tampilan Pembuatan Form Baru Pada Microsoft Visual
Setelah itu siap untuk mendesign bentuk form untuk pengisian data kendaraan.
Tools yang digunakan yaitu Label, Text Box, Button, dan DataGridView.
Dan dibawah ini salah satu contoh design form pengisian milik saya.
|
 |
| Tampilan Design Form Pemgisian Data Kendaraan
Dan jangan lupa untuk mengganti name pada Text Box dan Combo Box sesuain dengan keiinginan anda sehingga dapat mempermudah anda dalam membuat programnya.
Dan langsung saja kita masuk ke dalam programnya.
Disini akan saya tampilkan listing programnya sebagai berikut :
|
Public Class Form1
Public db As OleDbConnection
Public cmd As OleDbCommand
Public adp As OleDbDataAdapter
Public dr As OleDbDataReader
Public ds As New DataSet
Dim sql As String
Public Sub opendb()
Dim lokasi = "provider=microsoft.jet.oledb.4.0;data source =C:\VB2\kendaraan.mdb"
db = New OleDbConnection(lokasi)
If db.State = ConnectionState.Closed Then
db.Open()
End If
End Sub
Sub tampilrecordkendaraan()
adp = New OleDbDataAdapter("select * from kendaraan", db)
ds = New DataSet
adp.Fill(ds, "kendaraan")
DataGridView1.DataSource = ds.Tables("kendaraan")
End Sub
Sub ButtonBaru()
btnBaru.Enabled = True
btnSimpan.Enabled = False
btnEdit.Enabled = False
btnHapus.Enabled = False
btnBatal.Enabled = False
btnKeluar.Enabled = True
End Sub
Sub ButtonEdit()
btnBaru.Enabled = False
btnSimpan.Enabled = False
btnEdit.Enabled = True
btnHapus.Enabled = True
btnBatal.Enabled = True
btnKeluar.Enabled = False
End Sub
Sub ButtonSimpan()
btnBaru.Enabled = False
btnSimpan.Enabled = True
btnEdit.Enabled = False
btnHapus.Enabled = False
btnBatal.Enabled = True
btnKeluar.Enabled = False
End Sub
Sub hapustext()
NoBK.Text = ""
pemilik.Text = ""
alamat.Text = ""
tahun.Text = ""
warna.Text = ""
norangka.Text = ""
Call ButtonBaru()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call opendb()
Call hapustext()
Call tampilrecordkendaraan()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
sql = "DELETE FROM kendaraan Where NoBK='" & NoBK.Text & "'"
cmd = New OleDbCommand(sql, db)
cmd.ExecuteNonQuery()
Call btnbaru_click(sender, e)
Call tampilrecordkendaraan()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
Call hapustext()
NoBK.Focus()
End Sub
Private Sub NoBK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NoBK.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
Dim xkode As String
If tombol = 13 Then
sql = "select * from kendaraan where NoBK ='" & NoBK.Text & "'"
cmd = New OleDbCommand(sql, db)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows = True Then
pemilik.Text = dr.Item(1)
alamat.Text = dr.Item(2)
tahun.Text = dr.Item(3)
warna.Text = dr.Item(4)
norangka.Text = dr.Item(5)
Call ButtonEdit()
MsgBox("Data Ditemukan !!")
Else
xkode = NoBK.Text
Call hapustext()
NoBK.Text = xkode
Call ButtonSimpan()
End If
pemilik.Focus()
End If
End Sub
Private Sub NoBK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoBK.TextChanged
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
Call hapustext()
NoBK.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
sql = "insert into kendaraan (NoBK,pemilik,alamat,tahun,warna,norangka)" & _
"values ('" & NoBK.Text & "','" & _
pemilik.Text & "','" & _
alamat.Text & "','" & _
tahun.Text & "','" & _
warna.Text & "','" & _
norangka.Text & "')"
cmd = New OleDbCommand(sql, db)
cmd.ExecuteNonQuery()
Call btnbaru_Click(sender, e)
Call tampilrecordkendaraan()
End Sub
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
sql = "update kendaraan set pemilik='" & pemilik.Text & "'," & _
"alamat='" & alamat.Text & "'," & _
"tahun='" & tahun.Text & "'," & _
"warna='" & warna.Text & "'," & _
"norangka='" & norangka.Text & "'" & _
"where NoBK='" & NoBK.Text & "'"
cmd = New OleDbCommand(sql, db)
cmd.ExecuteNonQuery()
Call btnbaru_Click(sender, e)
Call tampilrecordkendaraan()
End Sub
End Class
Dan berikut adalah tampilan hasil program yang suadah bisa di jalankan.
|
 |
| Salah satu Tour Guide yang ada di Air Terjun Tongkat |
 |
| Penampakan Air Terjun Tongkat |
Tampak dari dekat Air Terjun Tongkat
 |
 |
| Pemandangan Alam Air Terjun Tongkat
Jika anda penasaran tempat nya bisa langsung saja menuju kesana dan ajak teman-teman anda beserta yang lainnya juga. Sekian info dari saya. Terima Kasih.
|
- Samsung Galaxy S5 adalah gadget terbaru keluaran pabrikan brand asal Korea Selatan yaitu Samsung. Samsung Galaxy S5 dilengakapi dengan layar super besar yaitu 5,2 inci. Dan mengguankan Prosesors Snapdragon 800 8974AC yang berisikan 4 prosesor Krait 400 2,46 GHz dan memiliki RAM sebesar 2GB. Selain itu OS yang digunakan juga sudah menggunakan Android versi KitKat 4.4.
- Kelebihan selanjutnya dari Samsung Galaxy S5 ini adalah dari sektor kamera, dimana S5 menggunakan kamera beresolusi mencapai 16 Megapiksel dan kamera depannya beresolusi 2 Megapiksel. Tentunya dengan resolusi sebesar itu Anda tidak perlu ragu lagi untuk mencetak foto dalam ukuran super besar dari sebuah kamera ponsel.
- Dan memiliki 4 pilihan warna sekaligus yaitu terdiri dari Black, White, Blue, dan Gold.
- Samsung Galaxy S5 juga memiliki jarigan 2G,3G,HSDPA dan 4G.
 |
| Tampilan Samsung Galaxy S5 |
Sebenarnya kelemahan dari Samsung Galaxy S5 tersebut tidak terlalu penting bagi para pengguna karan dapat ditutupi oleh semua kelebiahan dari gadget tersebut.
- Ukurannya yang terlalu besar sangat sulit di simpan disaku celana.
- Kamera depan hanya memiliki resolusi 2mp.
- Tidak memiliki radio fm.
- Harganya yang sangat mahal yang lebih ditujukan buat kalangan atas.
Sistem operasi MS-DOS dikembangkan oleh Bill Gates dan Paul Allen pada tahun 1981. Meskipun dirasa kurang populer, Anda masih dapat menemukan MS-DOS dalam sistem operasi Microsoft Windows. Jika Anda menggunakan sistem operasi Microsoft Windows XP, MSDOS yang digunakan berupa versi 5.1.2600. MS-DOS bersifat single tasking.
Dapat dikatakan bahwa sistem operasi Microsoft Windows mendominasi dunia komputer. Penggunaan ikon atau gambar sebagai antarmuka (interface) membuat sistem operasi ini begitu mudah digunakan. Sistem operasi ini bersifat multitasking dan multiuser. Tidak heran, sistem operasi Microsoft Windows sangat digemari. Bahkan, hingga saat ini telah lahir berbagai versi sistem operasi Microsoft Windows.
Generasi pertama sistem operasi Microsoft Windows yaitu Microsoft Windows 3.0 yang dirilis tahun 1990. Selanjutnya Microsoft merilis Microsoft Windows 3.1 (tahun 1992), Microsoft Windows NT (tahun 1993), Microsoft Windows 95, Microsoft Windows 98, Microsoft Windows 2000, Microsoft WindowsXP, serta Microsoft Windows Vista. Microsoft Windows 98 dirilis tahun 1998 sedangkan Microsoft Windows 2000 dirilis tahun 2000. Microsoft Windows XP dirilis tahun 2001 dan Microsoft Windows Vista dirilis tahun 2007.
Mac OS kependekan dari Macintosh Operating System. Sistem operasi berbasis GUI ini dirilis oleh perusahaan Apple Computer pada tahun 1984. Saat itu, teknologi Mac OS dianggap paling maju. Sayang, kehebatan ini tidak dapat dipertahankan. Tahun-tahun berikutnya Mac OS kalah bersaing dengan Microsoft Windows. Hingga saat ini Mac OS masih disempurnakan agar dapat bersaing dengan Microsoft Windows.
Sistem operasi UNIX dikembangkan oleh perusahaan AT&T Bell Laboratories. UNIX digunakan untuk menjalankan jaringan komputer. Awalnya UNIX merupakan sistem operasi jenis Command line interface. Keadaan ini menyulitkan bagi pengguna (user) baru. Untuk memudahkan penggunaan, sekarang UNIX juga disediakan dalam versi Graphical User Interface.
LINUX merupakan pengembangan dari UNIX. Sistem operasi ini awalnya dibuat oleh Linus Torvalds, seorang mahasiswa di Finlandia. LINUX yang dibuat pada tahun 1991 kemudian dikembangkan oleh programmer-programmer di dunia.
