Assalamu’alaiku warahmaatullahi wabarakatuh.
Salah satu tugas Ujian Akhir Semester, dan untuk memenuhi kelengkapan nilai mata kuliah pemrograman 1.
Untuk penjelasan penulis sudah membuat perancangannya di pecan UAS lalu.
Program yang telah dibuat adalah Aplikasinya PEMESANAN TIKET PESAWAT. Mungkin ini hanya program sederhana saja atau bisa dibilang program untuk programmer pemula.
Deskripsi dari program ini adalah untuk user sudah bisa menampilkan data, dan menyimpan data.
Dalam artian program yang saya buat ini user sudah bisa memanipulasi semua data yang akan di input.
Untuk pengoperasiannya :
- Input Nama pemesan
- Input No. telepon
- Pilih ID pewawat
- Lalu klik cari untuk menampilkan Nama pesawat, Jurusan, Harga tiket,
- Input jumlah pembelian tiket
- Klik beli untuk mengetahui total bayar tiket tersebut,
- Button tampil untuk menampilkan data yang telah di input,
- Button simpan untuk menyimpan data yang telah di input.
- Data yang sudah disimpan sudah terkoneksioleh Database Ms. Acces.
Yang akan saya berikan di blog ini :
- Flow Chart
- Contoh design
- Source code
- Hasil Run
Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb Public Class fromtiket Inherits System.Web.UI.Page Private constring As String = ConfigurationManager.ConnectionStrings(“ConnectionString2”).ConnectionString Private oConn As New OleDbConnection(constring) Private xReader As OleDbDataReader Protected Sub cari_Click(sender As Object, e As EventArgs) Handles cari.Click oConn.Close() oConn.Open() Dim ocmd As New OleDb.OleDbCommand(“SELECT * FROM tiket where idpesawat =” & id.SelectedValue() & “”, oConn) xReader = ocmd.ExecuteReader If xReader.HasRows Then xReader.Read() pesawat.Text = xReader(“namapesawat”) jurusan.Text = xReader(“jurusan”) harga.Text = xReader(“Hargatiket”) Else pesawat.Text = “Nama Pesawat Tidak ada” End If xReader.Close() End Sub Protected Sub beli_Click(sender As Object, e As EventArgs) Handles beli.Click total.Text = harga.Text * jumlah.Text End Sub Protected Sub simpan_Click(sender As Object, e As EventArgs) Handles simpan.Click Dim sql As String = “INSERT INTO Tablepembeli VALUES (‘” & nama.Text & “‘,'” & telepon.Text & “‘,'” & id.Text & “‘,'” & pesawat.Text & “‘,'” & jurusan.Text & “‘,'” & harga.Text & “‘,'” & jumlah.Text & “‘,'” & total.Text & “‘)” Dim oCmd As New OleDbCommand oConn.Open() oCmd.Connection = oConn oCmd.CommandText = sql oCmd.ExecuteNonQuery() End Sub Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Response.Redirect(“webfromRezatriharyadi_161011400143.aspx”) End Sub End Class
- SOURCE CODE PADA BUTTON BELI
total.Text = harga.Text * jumlah.Text
End Sub
- SOURCE PADA BUTTON SIMPAN
Dim sql As String = “INSERT INTO Tablepembeli VALUES (‘” & nama.Text & “‘,’” & telepon.Text & “‘,’” & id.Text & “‘,’” & pesawat.Text & “‘,’” & jurusan.Text & “‘,’” & harga.Text & “‘,’” & jumlah.Text & “‘,’” & total.Text & “‘)”
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub
Sekian blog dari saya kurang dan lebihnya saya mohon maaf, semoga bermanfaat..
Wassalamu’alaikum. wr. wb..