Teruntuk Tugas: 2019

Rabu, 30 Oktober 2019

UTS Mobile Programming

Assalamualaikum , pada tuggas kali ini saya ingin memberikan tutorial atau cara pembuatan aplikasi dengan menggunakan Android Studio, dan aplikasi yang saya buat kali ini adalah:

About Miras

brikut adalah tampilan menu utama ketika aplikasi di Run/ di jalankan

Deskripsi Aplikasi

About Miras Adalah aplikasi mobile programming yang di buat untuk memperkenalkan atau memberikan informasi tentang Minuman Keras (MIRAS) atau minuman yang mengandung alkohol dan dapat memabukan jika di konsumsi dalam jumlah berlebihan.

Pembuatan Aplikasi

1. buka android studio kemudian kalian buat new project dan pilih Empty Activity

2. Tulis nama aplikasi dan tentukan lokasi penyimpanannya, dan pastikan kalian menggunakan bahasa pemerograman java, bukan kotlin lalu klik Finish

3. Kemudian Design tampilan awal, disini saya menggunakan login sebagai tampilan awal

- berikut Script untuk design dan perintah login

-Design, pada MainActivity.html

-Perintah login, pada MainActivity.java

4. membuat menu utama di aplikasi,

di sini saya menggunakan ImageButton sebagai menu utama

- Buat activity baru dengan kemudian design tampilannya sesuai keinginan kalian

berikut adalah design menu yang saya gunakan

-Script Design Menu Utama,

-Script perintah pada menu utama yang berfungsi memanggil layout lain ketika gambar di klik

-Selnjutnya buat lagi activity baru dengan cara yang sama untuk isi dari gambar yang di klik agar bisa menampilkan listview

-gambar di atas adalah tampilan listview yang saya buat dengan design dan perintah sebagai berikut

-Script Design listview

-Script Perintah pada listview untuk menapilkan halaman atau layout yang di klik pada listview

dan yang terakhir buat lagi satu activity baru untuk menampilkan isi dari listview yang kita klik

dengan cara yang sama

berikut adalah tampilan isi dari listview yang saya gunakan

dengan script sebagai berikut,

script design

berikut adalah adalah tampilan keseluruhan aplikasi ketika di jalankan

demikian yang bisa saya berikan semoga bermanfaat :)

Kamis, 11 Juli 2019

TUGAS UAS

Pada kesempatan kali ini saya menulis tentang perancangan basis data (database) dari sebuah struk belanja. Perancangannya melewati beberapa tahap diantaranya Unnormalized, 1NF, 2NF, 3NF & Relasi. setelah membuat perancangan lanjut ke tahap penerapannya yaitu dengan membuat tabel - tabel pada software Sql Server 2012. setelah tabel-tabel tersebut selesai selanjutnya buat project web dengan visual studio (ASP.NET) lalu mengkoneksikan database tersebut, pada database juga saya berikan perintah - perintah yaitu simpan, edit, hapus dan. Untuk lebih jelasnya saya akan menjelaskan sebagai berikut :

Tahapan Normalisasi

Tahap 1

bentuk unnormalized

Tahap 2 bentuk Normal_NF

Tahap 3 bentuk Normal 2 (NF)

Bentuk Normal 3 (NF)

Table Relasi

Semua Table yang ada di 3NF di hubungkan

Selanjutnya adalah tahap membuat basis data (database) pada SQL server 2012 sesuai dengan bentuk normal 3 (3NF)

Setelah database selesai di buat selanjutnya adalah langkah mebuat website pada visual studio

Berikut adalah Source code yang di gunakan

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Table_kasir.aspx.vb" Inherits="WebApplication2.Table_kasir" %>

<!DOCTYPE html>

</head>

 kode_transaksi           

<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>

<br />

id_kasir                      

<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>

<br />

Nama kasir                

<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>

<br />

Tgl_transaksi              

<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>

<br />

Total_harga                

<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>

<br />

<asp:Button ID="Button2" runat="server" Text="Save" />

<asp:Button ID="Button3" runat="server" Text="delete" />

<asp:Button ID="Button4" runat="server" Text="edit" />

<br />

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataSourceID="SqlDataSource1" EmptyDataText="There are no data records to display.">

<asp:BoundField DataField="id_kasir" HeaderText="id_kasir" SortExpression="id_kasir" />

<asp:BoundField DataField="Nama_kasir" HeaderText="Nama_kasir" SortExpression="Nama_kasir" />

<asp:BoundField DataField="Tgl_transaksi" HeaderText="Tgl_transaksi" SortExpression="Tgl_transaksi" />

</Columns>

</asp:GridView>

<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:APRIANSYAHConnectionString1 %>" ProviderName="<%$ ConnectionStrings:APRIANSYAHConnectionString1.ProviderName %>" SelectCommand="SELECT [id_kasir], [Nama_kasir], [Tgl_transaksi] FROM [Table_kasir]"></asp:SqlDataSource>

<br />

</div>

</form>

</body>

</html>

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Table_Menu.aspx.vb" Inherits="WebApplication2.Table_Menu" %>

<!DOCTYPE html>

</head>

Makanan       

<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>

<br />

Minuman       

<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>

<br />

Harga           

<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>

<br />

<asp:Button ID="Button1" runat="server" Text="save" />

<asp:Button ID="Button2" runat="server" Text="delete" />

<asp:Button ID="Button3" runat="server" Text="edit" />

<br />

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataSourceID="SqlDataSource1" EmptyDataText="There are no data records to display.">

<asp:BoundField DataField="Menu_makanan" HeaderText="Menu_makanan" SortExpression="Menu_makanan" />

<asp:BoundField DataField="Menu_minuman" HeaderText="Menu_minuman" SortExpression="Menu_minuman" />

<asp:BoundField DataField="Harga" HeaderText="Harga" SortExpression="Harga" />

</Columns>

</asp:GridView>

<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:APRIANSYAHConnectionString1 %>" ProviderName="<%$ ConnectionStrings:APRIANSYAHConnectionString1.ProviderName %>" SelectCommand="SELECT [Menu_makanan], [Menu_minuman], [Harga] FROM [Table_menu]"></asp:SqlDataSource>

</div>

</form>

</body>

</html>

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Table_transaksi.aspx.vb" Inherits="WebApplication2.Table_transaksi" %>

<!DOCTYPE html>

</head>

id kasir                       

<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>

<br />

Nama kasir                 <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>

<br />

Tanggal transaksi         <asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>

<br />

Total Harga                

<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>

<br />

<asp:Button ID="Button1" runat="server" Text="save" />

<asp:Button ID="Button2" runat="server" Text="delete" />

<asp:Button ID="Button3" runat="server" Text="edit" />

<br />

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataSourceID="SqlDataSource1" EmptyDataText="There are no data records to display.">

<asp:BoundField DataField="id_kasir" HeaderText="id_kasir" SortExpression="id_kasir" />

<asp:BoundField DataField="Nama_Kasir" HeaderText="Nama_Kasir" SortExpression="Nama_Kasir" />

<asp:BoundField DataField="Tgl_transaksi" HeaderText="Tgl_transaksi" SortExpression="Tgl_transaksi" />

<asp:BoundField DataField="Total_harga" HeaderText="Total_harga" SortExpression="Total_harga" />

</Columns>

</asp:GridView>

<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:APRIANSYAHConnectionString1 %>" ProviderName="<%$ ConnectionStrings:APRIANSYAHConnectionString1.ProviderName %>" SelectCommand="SELECT [id_kasir], [Nama_Kasir], [Tgl_transaksi], [Total_harga] FROM [Table_transaksi]"></asp:SqlDataSource>

</div>

</form>

</body>

</html>

demikian proses pembuatan dan perancangan basis data pada sql server 2012 dan website dengan menggunakan normalisasi

Rabu, 24 April 2019

Tugas UTS Basis Data

Tugas UTS kali ini adalah membuat normalisasi database dengan menggunakan access 2010 dari sebuah faktur serta menampilkan database tersebut di dalam web dengan menggunakan visual studio 2012

faktur yang akan di normalisasi

1. Bentuk Unnormalized
Unnormalized Form adalah suatu kondisi dimana sebuah tabel yang memiliki rangkap atau data yang terduplikasi. Dalam perancangan sebuah database yang baik, hal ini tentunya akan mengurangi efisiensi.

contoh bentuk Unnormalized

2. Normal From 1NF

Bentuk normal ke satu mempunyai ciri yaitu setiap data dibentuk dalam flat file (file data/ rata), data dibentuk dalam satu record demi satu record dan nilai dari field field berupa “atomic value”, tidak ada set atribute yang berulang-ulang atau atribute bernilai ganda (multivalue), serta tiap field hanya satu pengertian, bukan merupakan kumpulan kata yang mempunyai arti mendua, hanya satu arti saja dan juga bukanlah pecahan kata-kata sehingga artinya lain.

3. Bentuk From 2NF

Bentuk normal kedua mempunyai syarat yaitu bentuk data telah memenuhi kriteria bentuk normal kesatu, atribute bukan kunci haruslah bergantung secara fungsi pada kunci utama/ primary key, dan sudah ditentukan kunci-kunci field, dimana kunci field haruslah unik dan dapat mewakili atribute lain yang menjadi anggotanya.

3. Bentuk From 3NF

Untuk menjadi bentuk normal ketiga:

–Relasi haruslah dalam bentuk normal kedua dan semua atribute bukan primer tidak punya hubungan yang transitif.

–Setiap atribute bukan kunci haruslah bergantung hanya pada primary key dan pada primary key secara menyeluruh.

–Contoh pada bentuk normal kedua di atas termasuk juga bentuk normal ketiga karena seluruh atribute yang ada bergantung penuh pada kunci primernya.

4. Bentuk Hasil Query

5. Bentuk Tampilan Hasil Web Asp.Net

Rabu, 09 Januari 2019

TUGAS UAS

Deskripsi Program

program pemesanan makan pada sebuah tempat makan sederhana, yang dimana bertujuan untuk mempermudah membeli atau pengunjung dalam memesan makanan yang ingin di pesan

Screenshot Program

keterangan Program

pembeli cukup menuliskan pesanan pada field yang telah tersedia, lalu menekan tombol tambah untuk melakukan pesanan, yang kemudian akan tersimpan pada database.

Tombol Tambah, yang juga berfungsi sebagai tombol pesan makanan, dimana makanan yang sudah di masukan oleh pembeli akan di simpan pada data base
Tombol Hapus, berfungsi untuk menghapus data yang pernah di pesana atau yang sudah di pesan
Tombol cari, berfungsi untuk mencari pesanan yang di pesan oleh pengunjung, cukup dengan memasukan nomor meja
Tombol Ubah, berfungsi untuk melakukan perubahan pada pesanan yang pernah atau telah di pesan
Tombol Clear, berfungsi untuk menghapus pesanan yang belum tersimpan pada data base

Souce Code Program

Imports System.Data
Imports System.Data.OleDb
Public Class MenuUtama
Inherits System.Web.UI.Page
Dim sconn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\URDAL\Downloads\Eresha\UAS Pemrograman\Database1.accdb"
Dim con As New OleDb.OleDbConnection(sconn)
Dim reader As OleDb.OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
con.Open()
Dim tambah As String = "INSERT INTO Apriansyah VALUES('" + txtmeja.Text + "', '" + txtmakanan.Text + "', '" + txtminuman.Text + "')"
Dim cmd = New OleDbCommand(tambah, con)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Berhasil")
End Sub

Protected Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
con.Open()
Dim hapus As String = "DELETE*FROM Apriansyah Where NoMeja = '" + txtmeja.Text + "' "
Dim cmd = New OleDbCommand(hapus, con)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Berhasil")
End Sub

Protected Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
con.Open()
Dim ubah As String = "UPDATE Apriansyah set NoMeja = '" + txtmeja.Text + "' WHERE Makanan = '" + txtmakanan.Text + "' & Minuman = '" + txtminuman.Text + "' "
Dim cmd = New OleDbCommand(ubah, con)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Berhasil")
End Sub

Protected Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
con.Open()
Dim cmd As New OleDb.OleDbCommand("SELECT *FROM Apriansyah Where NoMeja = '" + txtmeja.Text + "'", con)
If reader.HasRows Then
reader.Read()
txtmakanan.Text = reader("Makanan")
txtminuman.Text = reader("Minuman")
Else
MsgBox("Data Tidak Ditemukan")
End If
End Sub

Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtmeja.Text = ""
txtmakanan.Text = ""
txtminuman.Text = ""
End Sub
End Class