Teruntuk Tugas

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

Kamis, 01 November 2018

program aplikasi sederhana untuk pemesanan makanan dengan visual studion 2012

1. Deskripsi program:

program ntuk ini di buat untuk memudahkan pelanggan atau pembeli dalam memesan makanan
dengan aplikasi atau program ini pengunjung atau pembeli dapat memesan sendiri makanan yang di inginkan.

2. Contoh program

gambar tampilan program

tampilan program akan seperti ini saat di luncurkan

pengunjung dapat memilih menu yang tersedia di sini

sat pengunjung melilih beberapa item yang ingin di pesan

makan akan muncul pesanan di sebelah kanan bawah untuk memastikan kembali pesanan pembeli

kemudia saat pengunjung klik pesan maka otomastis data pesanan pengunjung akan di input kedalam word kemudian di simpan dan di siapkan pesanannya

3. Source Code

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckNasi.CheckedChanged
If CheckNasi.Checked = True Then
LabelNasi.Text = CheckNasi.Text
ElseIf CheckNasi.Checked = False Then
LabelNasi.Text = ""
End If
End Sub

Private Sub CheckRendang_CheckedChanged(sender As Object, e As EventArgs) Handles CheckRendang.CheckedChanged
If CheckRendang.Checked = True Then
LabelLauk.Text = CheckRendang.Text
ElseIf CheckRendang.Checked = False Then
LabelLauk.Text = ""
End If
End Sub

Private Sub CheckNasiUduk_CheckedChanged(sender As Object, e As EventArgs) Handles CheckNasiUduk.CheckedChanged
If CheckNasiUduk.Checked = True Then
LabelNasi.Text = CheckNasiUduk.Text
ElseIf CheckNasiUduk.Checked = False Then
LabelNasi.Text = ""
End If
End Sub

Private Sub CheckCincang_CheckedChanged(sender As Object, e As EventArgs) Handles CheckCincang.CheckedChanged
If CheckCincang.Checked = True Then
LabelLauk.Text = CheckCincang.Text
ElseIf CheckCincang.Checked = False Then
LabelLauk.Text = ""
End If
End Sub

Private Sub CheckAyam_CheckedChanged(sender As Object, e As EventArgs) Handles CheckAyam.CheckedChanged
If CheckAyam.Checked = True Then
LabelLauk.Text = CheckAyam.Text
ElseIf CheckAyam.Checked = False Then
LabelLauk.Text = ""
End If
End Sub

Private Sub CheckGurame_CheckedChanged(sender As Object, e As EventArgs) Handles CheckGurame.CheckedChanged
If CheckGurame.Checked = True Then
LabelLauk.Text = CheckGurame.Text
ElseIf CheckGurame.Checked = False Then
LabelLauk.Text = ""
End If
End Sub

Private Sub CheckEsTeh_CheckedChanged(sender As Object, e As EventArgs) Handles CheckEsTeh.CheckedChanged
If CheckEsTeh.Checked = True Then
LabelMinum.Text = CheckEsTeh.Text
ElseIf CheckEsTeh.Checked = False Then
LabelMinum.Text = ""
End If
End Sub

Private Sub CheckEsJeruk_CheckedChanged(sender As Object, e As EventArgs) Handles CheckEsJeruk.CheckedChanged
If CheckEsJeruk.Checked = True Then
LabelMinum.Text = CheckEsJeruk.Text
ElseIf CheckEsJeruk.Checked = False Then
LabelMinum.Text = ""
End If
End Sub

Private Sub CheckPuding_CheckedChanged(sender As Object, e As EventArgs) Handles CheckPuding.CheckedChanged
If CheckPuding.Checked = True Then
LabelMinum.Text = CheckPuding.Text
ElseIf CheckPuding.Checked = False Then
LabelMinum.Text = ""
End If
End Sub

Private Sub CheckTawar_CheckedChanged(sender As Object, e As EventArgs) Handles CheckTawar.CheckedChanged
If CheckTawar.Checked = True Then
LabelMinum.Text = CheckTawar.Text
ElseIf CheckTawar.Checked = False Then
LabelMinum.Text = ""
End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim aplikasi As New word.Application
Dim dokumen As word.Document

dokumen = aplikasi.Documents.Open("D:\kuliah\RumahMakan.docx")

dokumen.Bookmarks("Nasi").Select()
aplikasi.Selection.TypeText(LabelNasi.Text)

dokumen.Bookmarks("Lauk").Select()
aplikasi.Selection.TypeText(LabelLauk.Text)

dokumen.Bookmarks("Minuman").Select()
aplikasi.Selection.TypeText(LabelMinum.Text)

dokumen.SaveAs("D:\kuliah\RumahMakanN.docx")
aplikasi.Visible = True

Jumat, 03 November 2017

Aplikasi Transaksi Sederhana

Program Transaksi sederhana berbasis GUI dengan Java Netbeans

pengguna dapat menggunakan Aplikasi ini untuk mepermudah proses transaksi penjualan berikut ini saya tampilkan hasil screenshot dan serta Source Code yang digunakan

Tampilan Awal :

dilanjukan dengan mengklik pilihan barang yang tersedia, maka akan menampilkan barang yang di jual

jika anda memilih salah satu barang yang tersedia maka akan menampilkan harga dari barang yang anda pilih :

disini saya mencontohkan dengan memilih "TV" maka harga yang muncul adalah harga TV tersebut, begitupun jika anda memilih barang lainnya:

lalu anda masukan banyaknya barang yang ingin di beli pada kolom "Beli" lalu setelah itu anda klik tombol "Hitung" maka akan menampilkan "Total Harga" seperti gambar diatas: