Mobile Programing

Tugas Android Studio Pemutar Musik

Activity_main.xml

<?xml version="1.0" encoding="utf-8"?>
<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:app="http://schemas.android.com/apk/res-auto"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:background="#fff"
    tools:context="com.musik.MainActivity">


    <ImageView
        android:id="@+id/gambar"
        android:layout_width="match_parent"
        android:layout_height="550dp"
        android:layout_alignParentTop="true"
        android:layout_marginTop="53dp"
        app:srcCompat="@drawable/digitalmusic"
        tools:ignore="ContentDescription" />

    <Button
        android:id="@+id/play"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentBottom="true"
        android:layout_alignParentLeft="true"
        android:layout_alignParentStart="true"
        android:layout_marginBottom="16dp"
        android:layout_marginLeft="16dp"
        android:layout_marginStart="16dp"
        android:text="Play"
        tools:ignore="HardcodedText" />

    <Button
        android:id="@+id/pause"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignTop="@+id/play"
        android:layout_centerHorizontal="true"
        android:layout_marginBottom="16dp"
        android:text="Pause"
        tools:ignore="HardcodedText" />

    <Button
        android:id="@+id/stop"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentEnd="true"
        android:layout_alignParentRight="true"
        android:layout_alignTop="@+id/pause"
        android:layout_marginBottom="16dp"
        android:layout_marginEnd="16dp"
        android:layout_marginRight="16dp"
        android:text="Stop"
        tools:ignore="HardcodedText" />

</RelativeLayout>

MainActivity.java

package com.musik;

import android.media.MediaPlayer;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;

import androidx.appcompat.app.AppCompatActivity;

import java.io.IOException;

public class MainActivity extends AppCompatActivity implements View.OnClickListener{

    //Deklarasi Variable
    private Button Play, Pause, Stop;
    private MediaPlayer mediaPlayer;

    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);

        //Inisialisasi Button
        Play = findViewById(R.id.play);
        Pause = findViewById(R.id.pause);
        Stop = findViewById(R.id.stop);

        //Menambahkan Listener pada Button
        Play.setOnClickListener(this);
        Pause.setOnClickListener(this);
        Stop.setOnClickListener(this);

        stateAwal();
    }

    //Untuk menentukan kondisi saat aplikasi pertama kali berjalan
    private void stateAwal(){
        Play.setEnabled(true);
        Pause.setEnabled(false);
        Stop.setEnabled(false);
    }

    //Method untuk memainkan musik
    private void playAudio(){
        //Menentukan resource audio yang akan dijalankan
        mediaPlayer = MediaPlayer.create(this, R.raw.alan);

        //Kondisi Button setelah tombol play di klik
        Play.setEnabled(false);
        Pause.setEnabled(true);
        Stop.setEnabled(true);

        //Menjalankan Audio / Musik
        try{
            mediaPlayer.prepare();
        }catch (IllegalStateException ex){
            ex.printStackTrace();
        }catch (IOException ex1){
            ex1.printStackTrace();
        }
        mediaPlayer.start();

        //Setelah audio selesai dimainkan maka kondisi Button akan kembali seperti awal
        mediaPlayer.setOnCompletionListener(new MediaPlayer.OnCompletionListener() {
            @Override
            public void onCompletion(MediaPlayer mp) {
                stateAwal();
            }
        });
    }


    //Method untuk mengentikan musik
    private void pauseAudio(){
        //Jika audio sedang dimainkan, maka audio dapat di pause
        if(mediaPlayer.isPlaying()){
            if(mediaPlayer != null){
                mediaPlayer.pause();
                Pause.setText("Lanjutkan");
            }
        }else {

            //Jika audio sedang di pause, maka audio dapat dilanjutkan kembali
            if(mediaPlayer != null){
                mediaPlayer.start();
                Pause.setText("Pause");
            }
        }
    }

    //Method untuk mengakhiri musik
    private void stopAudio(){
        mediaPlayer.stop();
        try {
            //Menyetel audio ke status awal
            mediaPlayer.prepare();
            mediaPlayer.seekTo(0);
        }catch (Throwable t){
            t.printStackTrace();
        }
        stateAwal();
    }

    @Override
    public void onClick(View v) {
        switch (v.getId()){
            case R.id.play:
                playAudio();
                break;

            case R.id.pause:
                pauseAudio();
                break;

            case R.id.stop:
                stopAudio();
                break;
        }
    }
}

AndroidManifest.xml

<?xml version="1.0" encoding="utf-8"?>
<manifest xmlns:android="http://schemas.android.com/apk/res/android"
    package="com.musik">
    <uses-permission android:name="android.permission.WAKE_LOCK" />
    <application
        android:allowBackup="true"
        android:icon="@mipmap/ic_launcher"
        android:label="My Music"
        android:roundIcon="@mipmap/ic_launcher_round"
        android:supportsRtl="true"
        android:theme="@style/AppTheme">
        <activity android:name=".MainActivity">
            <intent-filter>
                <action android:name="android.intent.action.MAIN" />


                <category android:name="android.intent.category.LAUNCHER" />
            </intent-filter>
        </activity>
    </application>

</manifest>

Tugas UTS Mobile Programming

UTS Mobile Program Stmik Eresha 06TPLP001

Assalamualakum Wr. Wb

Pada kesempatan kali ini saya akan membuat tugas cara pembuatan aplikasi(ListView) dengan menggunakan Android Studio.

Aplikasi Mobile Informasi Negara Negara Di Asia Tenggara

Deskripsi

Aplikasi Mobile Programming yang saya buat untuk menampilkan informasi tentang negara-negara yang berada di Asia Tenggara

Screenshoot dan Source Code

Menu Login

MainActivity.java

package com.listview;

import androidx.appcompat.app.AppCompatActivity;

import android.content.Intent;

import android.os.Bundle;

import android.view.View;

import android.widget.Button;

import android.widget.TextView;

public class MainActivity extends AppCompatActivity {

    TextView username,password;

    Button button;

    @Override

    protected void onCreate(Bundle savedInstanceState) {

        super.onCreate(savedInstanceState);

        setContentView(R.layout.activity_main);

        username = (TextView) findViewById(R.id.etusername);

        password = (TextView) findViewById(R.id.etpassword);

        button = (Button)   findViewById(R.id.btnlogin);

        button.setOnClickListener(new View.OnClickListener() {

            @Override

            public void onClick(View v) {

                if (username.getText().toString().equals("irsan") && password.getText().toString().equals("12345"))

                {

                    Intent ilogin = new Intent(getApplicationContext(), listview.class);

                    startActivity(ilogin);

                }

                else

                {

                    username.setText("");

                    password.setText("");

                }

            }

        });

    }

}

activity_main.xml

<?xml version="1.0" encoding="utf-8"?>

<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"

    xmlns:app="http://schemas.android.com/apk/res-auto"

    xmlns:tools="http://schemas.android.com/tools"

    android:layout_width="match_parent"

    android:layout_height="match_parent"

    android:background="#6969"

    tools:context=".MainActivity">

    <RelativeLayout

        android:layout_width="match_parent"

        android:layout_height="match_parent"

        tools:layout_editor_absoluteX="0dp"

        tools:layout_editor_absoluteY="0dp">

        <EditText

            android:id="@+id/etusername"

            android:layout_width="wrap_content"

            android:layout_height="wrap_content"

            android:layout_centerHorizontal="true"

            android:layout_marginTop="460dp"

            android:ems="10"

            android:hint="username"

            android:inputType="textPersonName" />

        <Button

            android:id="@+id/btnlogin"

            android:layout_width="wrap_content"

            android:layout_height="wrap_content"

            android:layout_centerHorizontal="true"

            android:layout_marginTop="530dp"

            android:text="Login" />

        <EditText

            android:id="@+id/etpassword"

            android:layout_width="wrap_content"

            android:layout_height="wrap_content"

            android:layout_centerHorizontal="true"

            android:layout_marginTop="485dp"

            android:ems="10"

            android:hint="password"

            android:inputType="textPassword" />

        <ImageView

            android:id="@+id/imageView"

            android:layout_width="match_parent"

            android:layout_height="380dp"

            android:layout_centerHorizontal="true"

            android:layout_marginTop="50dp"

            android:visibility="visible"

            app:srcCompat="@drawable/asiatenggara" />

        <TextView

            android:id="@+id/textView4"

            android:layout_width="wrap_content"

            android:layout_height="wrap_content"

            android:layout_centerHorizontal="true"

            android:layout_marginTop="405dp"

            android:text="WELCOME"

            android:textSize="50sp" />

        <TextView

            android:id="@+id/textView5"

            android:layout_width="wrap_content"

            android:layout_height="wrap_content"

            android:layout_centerHorizontal="true"

            android:layout_marginTop="10dp"

            android:text="Negara Asia Tenggara"

            android:textSize="40sp" />

    </RelativeLayout>

</RelativeLayout>

Menu Tampilan

listview.java

package com.listview;

import androidx.appcompat.app.AppCompatActivity;

import android.content.Intent;

import android.os.Bundle;

import android.widget.AdapterView;

import android.widget.ArrayAdapter;

import android.widget.ListView;

import android.view.View;

public class listview extends AppCompatActivity {

    ListView list;

    String minuman[] = {"kamboja", "bruneidarussalam", "filipina", "vietnam", "laos", "malaysia", "singapura", "Indonesia", "myanmar", "thailand"};

    @Override

    protected void onCreate(Bundle savedInstanceState) {

        super.onCreate(savedInstanceState);

        setContentView(R.layout.activity_listview);

        list = (ListView) findViewById(R.id.listview);

        ArrayAdapter adapter = new ArrayAdapter(this, android.R.layout.simple_expandable_list_item_1, minuman);

        list.setAdapter(adapter);

        list.setOnItemClickListener(new AdapterView.OnItemClickListener() {

            @Override

            public void onItemClick(AdapterView<?> arg0, View arg1, int arg2, long arg3) {

                int item = arg2;

                String itemText = (String) list.getItemAtPosition(arg2);

                if (itemText.equals("kamboja")) {

                    Intent anggurintent = new Intent(arg0.getContext(), kamboja.class);

                    startActivityForResult(anggurintent, 0);

                } else if (itemText.equals("bruneidarussalam")) {

                    Intent Brandyintent = new Intent(arg0.getContext(), bruneidarussalam.class);

                    startActivityForResult(Brandyintent, 0);

                } else if (itemText.equals("filipina")) {

                    Intent Whiskyintent = new Intent(arg0.getContext(), filipina.class);

                    startActivityForResult(Whiskyintent, 0);

                } else if (itemText.equals("vietnam")) {

                    Intent Vodkaintent = new Intent(arg0.getContext(), vietnam.class);

                    startActivityForResult(Vodkaintent, 0);

                }

                else if (itemText.equals("laos")) {

                    Intent Champagneintent = new Intent(arg0.getContext(), laos.class);

                    startActivityForResult(Champagneintent, 0);

                }

                else if (itemText.equals("malaysia")) {

                    Intent jagermeisterintent = new Intent(arg0.getContext(), malaysia.class);

                    startActivityForResult(jagermeisterintent, 0);

                }

                else if (itemText.equals("singapura")) {

                    Intent sakeintent = new Intent(arg0.getContext(), singapura.class);

                    startActivityForResult(sakeintent, 0);

                }

                else if (itemText.equals("Indonesia")) {

                    Intent Rumintent = new Intent(arg0.getContext(), indonesia.class);

                    startActivityForResult(Rumintent, 0);

                }

                else if (itemText.equals("myanmar")) {

                    Intent absintheintent = new Intent(arg0.getContext(), myanmar.class);

                    startActivityForResult(absintheintent, 0);

                }

                else if (itemText.equals("thailand")) {

                    Intent Tuakintent = new Intent(arg0.getContext(), thailand.class);

                    startActivityForResult(Tuakintent, 0);

                }

            }

        });

    }

    }

Activity_listview.xml

<?xml version="1.0" encoding="utf-8"?>

<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"

    xmlns:app="http://schemas.android.com/apk/res-auto"

    xmlns:tools="http://schemas.android.com/tools"

    android:layout_width="match_parent"

    android:layout_height="match_parent"

    tools:context=".listview">

    <ListView

        android:id="@+id/listview"

        android:layout_width="match_parent"

        android:layout_height="match_parent" />

</RelativeLayout>

Contoh Salah Satu Isi Menu

indonesia.java

package com.listview;

import androidx.appcompat.app.AppCompatActivity;

import android.os.Bundle;

public class indonesia extends AppCompatActivity {

    @Override

    protected void onCreate(Bundle savedInstanceState) {

        super.onCreate(savedInstanceState);

        setContentView(R.layout.activity_indonesia);

    }

}

activity_indonesia.xml

<?xml version="1.0" encoding="utf-8"?>

<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"

    xmlns:app="http://schemas.android.com/apk/res-auto"

    xmlns:tools="http://schemas.android.com/tools"

    android:layout_width="match_parent"

    android:layout_height="match_parent"

    tools:context=".indonesia">

    <TextView

        android:id="@+id/textView"

        android:layout_width="wrap_content"

        android:layout_height="wrap_content"

        android:layout_centerHorizontal="true"

        android:layout_marginTop="300dp"

        android:textStyle="bold"

        android:textSize="30sp"

        android:text="Indonesia"

        />

    <TextView

        android:id="@+id/textView2"

        android:layout_width="380dp"

        android:layout_height="wrap_content"

        android:layout_marginTop="350dp"

        android:textSize="12sp"

        android:layout_centerHorizontal="true"

        android:text="\n    Republik Indonesia (RI) atau Negara Kesatuan Republik Indonesia (NKRI), atau lebih umum disebut Indonesia, adalah negara di Asia Tenggara yang dilintasi garis khatulistiwa dan berada di antara daratan benua Asia dan Australia, serta antara Samudra Pasifik dan Samudra Hindia. Indonesia adalah negara kepulauan terbesar di dunia yang terdiri dari 17.504 pulau. Nama alternatif yang biasa dipakai adalah Nusantara. Dengan populasi Hampir 270.054.853 jiwa pada tahun 2018, Indonesia adalah negara berpenduduk terbesar keempat di dunia dan negara yang berpenduduk Muslim terbesar di dunia, dengan lebih dari 230 juta jiwa."

        />

    <ImageView

        android:id="@+id/imageView4"

        android:layout_width="wrap_content"

        android:layout_height="232dp"

        android:layout_marginTop="50dp"

        app:srcCompat="@drawable/indonesia" />

</RelativeLayout>

Sekian Tugas Mobile Programming dari saya, Semoga bermanfaat Terimakasih,

Muhamad Irsan Firdaus

Perancangan Basis Data SQL SERVER 2012 Dan Visual Studio Menggunakan Metode Normalisasi

Deskripsi

Pada postingan kali ini saya menulis tentang perancangan Basis Data dari sebuah struk Apotek, rancangan ini meliputi Unnormalized, 1NF, 2NF, 3NF, Setelah itu membuat tabel pada SQL Server 2012, Terakhir buat Project Web dengan Visual Studio Dan Koneksikan Database tersebut.

Struk Pembelian

Struk Apotek

Bentuk Unnormalized

Bentuk Normal 1NF

Bentuk Normal 2NF

Bentuk Normal 3NF

Basis Data Pada SQL Server

Tabel Barang

Tabel Kasir

Tabel Penjualan

WEBSITE Pada Visual Studio

Tabel Barang

Imports System.Data.Sql

Imports System.Data.SqlClient

Partial Class Tabel_Barang

    Inherits System.Web.UI.Page

    Public CON As SqlConnection

    Public CMD As SqlCommand

    Public DR As SqlDataReader

    Sub Koneksi()

        Try

            CON = New SqlConnection("Data Source=RUMGA;Initial Catalog=Muhamad_Irsan_Firdaus;Integrated Security=True")

            CON.Open()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Call Koneksi()

        Dim Input As String

        Input = "insert into Tabel_Barang values('" & TextBox2.Text & "','" & TextBox3.Text & "')"

        CMD = New SqlCommand(Input, CON)

        CMD.ExecuteNonQuery()

        MsgBox("Berhasil")

        Response.Redirect("Tabel_Barang.aspx")

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

End Class

Tabel Kasir

Imports System.Data.Sql

Imports System.Data.SqlClient

Partial Class Tabel_Kasir

    Inherits System.Web.UI.Page

    Public CON As SqlConnection

    Public CMD As SqlCommand

    Public DR As SqlDataReader

    Sub Koneksi()

        Try

            CON = New SqlConnection("Data Source=RUMGA;Initial Catalog=Muhamad_Irsan_Firdaus;Integrated Security=True")

            CON.Open()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Call Koneksi()

        Dim Input As String

        Input = "insert into Tabel_Kasir values('" & TextBox6.Text & "','" & TextBox7.Text & "')"

        CMD = New SqlCommand(Input, CON)

        CMD.ExecuteNonQuery()

        MsgBox("Berhasil")

        Response.Redirect("Tabel_Kasir.aspx")

    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class

Tabel Penjualan

Imports System.Data.Sql

Imports System.Data.SqlClient

Partial Class Tabel_Penjualan

    Inherits System.Web.UI.Page

    Public CON As SqlConnection

    Public CMD As SqlCommand

    Public DR As SqlDataReader

    Sub Koneksi()

        Try

            CON = New SqlConnection("Data Source=RUMGA;Initial Catalog=Muhamad_Irsan_Firdaus;Integrated Security=True")

            CON.Open()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        End Sub

        Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Call Koneksi()

        Dim Input As String

        Input = "insert into Tabel_Penjualan values('" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "')"

        CMD = New SqlCommand(Input, CON)

        CMD.ExecuteNonQuery()

        MsgBox("Berhasil")

        Response.Redirect("Tabel_Penjualan.aspx")

    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

        TextBox10.Text = ""

        TextBox11.Text = ""

    End Sub

End Class

Sekian laporan dari saya

Terimakasih,

BASIS DATA II

TUGAS UTS

Saya akan membuat project Database Struk Transaksi Apotek Menggunakan Microsoft Access yang dioperasikan di Visual Studio dengan hasil bisa di lihat melalui Web.

Contoh struk Belanja

Bentuk Unnormalized

Bentuk Normal 1NF

Bentuk Normal 2NF

Bentuk Normal 3NF

Tabel Barang

Tabel Penjualan

Tabel Kasir

Relationship

Tabel Struk

Sekian laporan perancangan Basis Data pada Ms. Access dan Website menggunakan metode normalisasi

Terimakasih,

LAPORAN UAS PEMROGRAMAN

Deskripsi Pemrograman

Program Toko Sepatu Online sederhana untuk memudahkan Kasir untuk memproses pembelian, menggunakan Visual Studio yang terhubung dengan Database

Screenshot Program

Keterangan Program

kasir cukup memilih pesanan pada field yang tersedia, lalu menekan tombol harga untuk mengetahui, jumlah pembelian, setelah itu proses, jika menggunakan discount tinggal klik diskon untuk mengetahui harga setelah barang di discount dan berapa jumlah uang di discountnya

Source Code

Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\URDAL\Downloads\Eresha\UAS Pemrograman\UAS.accdb"
    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
    Dim xReader As OleDb.OleDbDataAdapter

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If DropDownList1.Text = ("Cardinal") Then
            TextBox1.Text = ("300000")
        ElseIf DropDownList1.Text = ("Precise") Then
            TextBox1.Text = ("400000")
        ElseIf DropDownList1.Text = ("Tomkins") Then
            TextBox1.Text = ("150000")
        ElseIf DropDownList1.Text = ("New Balance") Then
            TextBox1.Text = ("750000")
        ElseIf DropDownList1.Text = ("Addidas") Then
            TextBox1.Text = ("600000")
        ElseIf DropDownList1.Text = ("Diadora") Then
            TextBox1.Text = ("200000")
        End If
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Harga, Jumlah, Total As Integer

        Harga = Val(TextBox1.Text)
        Jumlah = Val(DropDownList2.Text)
        Total = Val(TextBox2.Text)

        Total = Harga * Jumlah
        TextBox2.Text = Total
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox2.Text Then
            TextBox3.Text = TextBox2.Text * 10 / 100
            TextBox4.Text = TextBox2.Text - TextBox3.Text
        End If
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Save()
    End Sub

    Sub Save()
        objekKoneksi.Open()
        Dim Tambah As String = "INSERT INTO TokoSepatuOnline values('" & DropDownList1.Text & "','" & TextBox1.Text &
        "','" & DropDownList2.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
        Dim oCmd = New OleDbCommand(Tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Response.Redirect("View.aspx")
    End Sub
End Class