Thursday, July 11, 2019

TUGAS UAS MOBILE PROGRAMMING 


1.)Deskripsi Program 

Pemutar Musik 
Support File MP3/MP4
Button : Play, Pause, Stop




2.) Design

Design Login



Music



Design Player

3.) Source Code

public class MainActivity extends ActionBarActivity {
EditText Username,Password;
Button LoginButton;
String userValue,passwordValue;
private OnClickListener OnClickListener;

    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);
        Username=(EditText) findViewById(R.id.txt1);
        Password=(EditText) findViewById(R.id.txt2);
        LoginButton=(Button) findViewById(R.id.button1);
        LoginButton.setOnClickListener(new OnClickListener() {
       

@Override
public void onClick(View arg0) {
// TODO Auto-generated method stub
userValue=Username.getText().toString();
passwordValue=Password.getText().toString();
if(userValue.equals("admin") && passwordValue.equals("admin"))
{
Toast.makeText(getApplicationContext(), "Welcome", Toast.LENGTH_LONG).show();
//OPEN activity2
startActivity(new Intent(getApplication(),MainActivity7.class));
}else
{
Toast.makeText(getApplicationContext(), "INVALID USERNAME OR PASSWORD", Toast.LENGTH_LONG).show();
            }
}
        });
        
        
        
        }

    @Override
    public boolean onCreateOptionsMenu(Menu menu) {
        // Inflate the menu; this adds items to the action bar if it is present.
        getMenuInflater().inflate(R.menu.main, menu);
        return true;
    }

    @Override
    public boolean onOptionsItemSelected(MenuItem item) {
        // Handle action bar item clicks here. The action bar will
        // automatically handle clicks on the Home/Up button, so long
        // as you specify a parent activity in AndroidManifest.xml.
        int id = item.getItemId();
        if (id == R.id.action_settings) {
            return true;
        }
        return super.onOptionsItemSelected(item);
    }

public OnClickListener getOnClickListener() {
return OnClickListener;
}

public void setOnClickListener(OnClickListener onClickListener) {
OnClickListener = onClickListener;
}
}

public class MainActivity7 extends ActionBarActivity {
ImageButton imageButton1;
private OnClickListener OnClickListener;

@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main_activity7);
imageButton1=(ImageButton) findViewById(R.id.imageButton1);
        imageButton1.setOnClickListener(new OnClickListener(){

@Override
public void onClick(View arg0) {
// TODO Auto-generated method stub
startActivity(new Intent(getApplication(),MainActivity4.class));
}
       
        });
}

@Override
public boolean onCreateOptionsMenu(Menu menu) {
// Inflate the menu; this adds items to the action bar if it is present.
getMenuInflater().inflate(R.menu.main_activity7, menu);
return true;
}

@Override
public boolean onOptionsItemSelected(MenuItem item) {
// Handle action bar item clicks here. The action bar will
// automatically handle clicks on the Home/Up button, so long
// as you specify a parent activity in AndroidManifest.xml.
int id = item.getItemId();
if (id == R.id.action_settings) {
return true;
}
return super.onOptionsItemSelected(item);
}
}

Player Source Code

public class MainActivity extends Activity implements OnCompletionListener {
    ImageButton pause, play, stop;
    MediaPlayer mp;
    @Override
    protected void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);
    setContentView(R.layout.activity_main);

    pause = (ImageButton)findViewById(R.id.pause);
    play = (ImageButton)findViewById(R.id.play);
    stop = (ImageButton)findViewById(R.id.stop);

    pause.setOnClickListener(new View.OnClickListener() {
    @Override
        public void onClick(View v) {
           // TODO Auto-generated method stub
           pause();
        }
    });
  
    play.setOnClickListener(new View.OnClickListener() {
    @Override
       public void onClick(View v) {
       // TODO Auto-generated method stub
          play();
       }
    });

    stop.setOnClickListener(new View.OnClickListener() {
    @Override
       public void onClick(View v) {
       // TODO Auto-generated method stub
          stop();
       }
    });

    setup();
}

@Override public void onDestroy() {
   super.onDestroy();
   if (stop.isEnabled()){
      stop();
   }
}

public void onCompletion(MediaPlayer mp) {
   stop();
}

private void play() {
   mp.start();
   play.setEnabled(false);
   pause.setEnabled(true);
   stop.setEnabled(true);
}

private void stop(){
   mp.stop();
   pause.setEnabled(false);
   stop.setEnabled(false);
   try { mp.prepare();
      mp.seekTo(0);
      play.setEnabled(true);
   } catch (Throwable t) {
      goBlooey(t);
   }
}

private void pause() {
   mp.pause();
   play.setEnabled(true);
   pause.setEnabled(false);
   stop.setEnabled(true);
}

private void loadClip() {
   try { mp=MediaPlayer.create(this, R.raw.alan);
      mp.setOnCompletionListener(this);
   } catch (Throwable t) {
      goBlooey(t);
   }
}

private void setup() {
   loadClip();
   play.setEnabled(true);
   pause.setEnabled(false);
   stop.setEnabled(false);
}

private void goBlooey(Throwable t) {
   AlertDialog.Builder builder=new AlertDialog.Builder(this);
   builder .setTitle("Exception!") .setMessage(t.toString()) .setPositiveButton("OK", null) .show();
}
}


4.)hasil run






_________________________________________________________________________________



SEKIAN TERIMAKASIH

Note :
nama dan nim ada divideo





Thursday, April 25, 2019

1.Deskripsi

Aplikasi pesan makan via mobile 
                 Aplikasi ini saya buat untuk mempermudah pemesanan makanan
aplikasi yang sangat simple dan sederhana ini mempunyai 3 activity 

1. Login Form
    activity login dibuat agar keamanan customer terjaga dalam pemesanan makanan 




2. Menu Form
   activity menu memberikan pilihan bagi customer untuk menentukan apa yang ingin mereka beli
   Komponen Menu Form
   - Snack
   - Food
   - Drinks




jika pembeli sudah memilih apa yang akan dibeli maka aplikasi akan memanggil activity ketiga   yaitu.

3.Option Form
    Dari salah satu komponen activity2 terdapat variasi/jenis makanan/minuman
    Komponen Option Form
    - Snack   : Cheetos, Doritos, Lays, Taro
    - Food    : Indomie, Ayam balado dll
    - Drinks :  Ice tea, Cappucinno, Extra Boss dll
    jika pembeli sudah memilih maka pesanan aka segera dibuat

Gambar diatas adalah hasil RUN !


Graphic XML




XML TEKS


<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:paddingBottom="@dimen/activity_vertical_margin"
    android:paddingLeft="@dimen/activity_horizontal_margin"
    android:paddingRight="@dimen/activity_horizontal_margin"
    android:paddingTop="@dimen/activity_vertical_margin"
    tools:context="com.example.loginform.MainActivity" >

    <EditText
        android:id="@+id/txt1"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_alignParentTop="true"
        android:layout_marginLeft="38dp"
        android:layout_marginTop="136dp"
        android:ems="10"
        android:hint="@string/Username" />
        
        <requestFocus
            android:layout_width="wrap_content"
            android:layout_height="match_parent" />

    <EditText
        android:id="@+id/txt2"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/txt1"
        android:layout_centerVertical="true"
        android:ems="10"
        android:hint="@string/Password"
        android:inputType="textPassword" />

    <Button
        android:id="@+id/button1"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/txt2"
        android:layout_alignRight="@+id/txt2"
        android:layout_below="@+id/txt2"
        android:text="@string/Login" />

</RelativeLayout>


Source Code Java


package com.example.loginform;

import android.content.Intent;
import android.os.Bundle;
import android.support.v7.app.ActionBarActivity;
import android.view.Menu;
import android.view.MenuItem;
import android.view.View;
import android.view.View.OnClickListener;
import android.widget.Button;
import android.widget.EditText;
import android.widget.Toast;


public class MainActivity extends ActionBarActivity {
EditText Username,Password;
Button LoginButton;
String userValue,passwordValue;
private OnClickListener OnClickListener;

    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);
        Username=(EditText) findViewById(R.id.txt1);
        Password=(EditText) findViewById(R.id.txt2);
        LoginButton=(Button) findViewById(R.id.button1);
        LoginButton.setOnClickListener(new OnClickListener() {
       

@Override
public void onClick(View arg0) {
// TODO Auto-generated method stub
userValue=Username.getText().toString();
passwordValue=Password.getText().toString();
if(userValue.equals("admin") && passwordValue.equals("admin"))
{
Toast.makeText(getApplicationContext(), "Welcome", Toast.LENGTH_LONG).show();
//OPEN activity2
startActivity(new Intent(getApplication(),MainActivity2.class));
}else
{
Toast.makeText(getApplicationContext(), "INVALID USERNAME OR PASSWORD", Toast.LENGTH_LONG).show();
            }
}
        });
        
        
        
        }

    @Override
    public boolean onCreateOptionsMenu(Menu menu) {
        // Inflate the menu; this adds items to the action bar if it is present.
        getMenuInflater().inflate(R.menu.main, menu);
        return true;
    }

    @Override
    public boolean onOptionsItemSelected(MenuItem item) {
        // Handle action bar item clicks here. The action bar will
        // automatically handle clicks on the Home/Up button, so long
        // as you specify a parent activity in AndroidManifest.xml.
        int id = item.getItemId();
        if (id == R.id.action_settings) {
            return true;
        }
        return super.onOptionsItemSelected(item);
    }

public OnClickListener getOnClickListener() {
return OnClickListener;
}

public void setOnClickListener(OnClickListener onClickListener) {
OnClickListener = onClickListener;
}
}





Hasil Run 
















Thursday, July 5, 2018

Tugas UAS PEMROGRAMAN I

TUGAS UAS

Aplikasi Data Mahasiswa 

Deskripsi Program:

Apikasi data mahasiswa ini adalah program yang dibuat untuk mencari data mahasiswa, mahasiswa yang sudah disimpan didalam database.

Program ini berkorelasi dengan database pada microsoft access ke aplikasi data mahasiswa tadi,
Program ini dibuat untuk memudahkan pencarian data nama, kelas dll, pada mahasiswa yang jumlahnya sangat banyak disetiap Kampus. 

Program ini memiliki beberapa button diantaranya adalah 

Add, save, Serach, Show 

Berikut adalah contoh program  yang saya buat 


Untuk mencari data yang diinginkan pengguna harus tau NIM dari mahasiswa jika NIM sudah diisi, maka Klik button search lalu aplikasi akan menampilkan data lengkap mahasiswa.


 data yang akan yang sudah disave akan tersimpan pada database berikut.


ini adalah hasil dari run database.







Desain Pada VB.


Kemudian Source Code dari Program 

 Source Code InputForm Mahasiswa_161011400168

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class WebForm1
    Inherits System.Web.UI.Page
    Dim transfer As OleDbConnection
    Dim constring As String = ConfigurationManager.ConnectionStrings("ConnectionString2").ConnectionString
    Dim oConn As New OleDbConnection(constring)
    Dim xReader As OleDbDataReader
    Dim Sql As String

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

    End Sub

    Protected Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
        Dim sql As String = "INSERT INTO Kelas VALUES ('" & TxtNim.Text & "','" & TxtNama.Text & "','" & TxtKelas.Text & "','" & TxtFakultas.Text & "');"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        TxtNim.Text = ""
        TxtNama.Text = ""
        TxtKelas.Text = ""
        TxtFakultas.Text = ""
        TxtNim.Focus()
    End Sub

    Protected Sub btntampil_Click(sender As Object, e As EventArgs) Handles btntampil.Click
        Response.Redirect("Form_DataMahasiswa_Reva_Alfaridzi_161011400168.aspx")
    End Sub

    Protected Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
        If Not Len(TxtNim.Text) = 0 Then
            oConn.Close()
            oConn.Open()
            Dim ocmd As New OleDbCommand("SELECT * FROM Kelas where NIM='" + TxtNim.Text + "'", oConn)
            xReader = ocmd.ExecuteReader
            If xReader.HasRows Then
                xReader.Read()
                TxtNim.Text = xReader("NIM")
                TxtNama.Text = xReader("Nama")
                TxtKelas.Text = xReader("Kelas")
                TxtFakultas.Text = xReader("Fakultas")
            Else
                TxtNim.Text = "NIM Tidak Ditemukan"
                Exit Sub

            End If
            xReader.Close()
        End If
    End Sub
End Class


Flowchart






Thursday, April 26, 2018

TUGAS UTS PEMROGRAMAN I 


1.Deskripsi Aplikasi

    Aplikasi Penghitungan biaya cuci mobil dan resto, yang dimana aplikasi ini digunakan untuk membayar dan menghitung pesanan customer.

Biaya Mobil : Jika jenis mobil mini bus maka  Rp. 15000
                       Jika jenis mobil bus maka Rp.25000
dan seterusnya


Biaya Tambahan (Boleh Dipilih atau Tidak)
                             Cuci Kolong : 10000
                             Cuci Mesin   : 15000
                             Cuci Polish   : 20000

Makanan / Minuman (Boleh dipilih atau Tidak)
                                   Nasi Goreng Rp. 17000
                                   Nasi Goreng Special Rp 21000
                                   Mie Goreng Rp. 16000
                                   Jus Jeruk Rp. 10000
                                   Minuman Dingin Rp.5000
Total Bayar :

Biaya Cuci + Total Biaya Tambah + Total Biaya Makan

Bayar : Masukan Uang pembayaran

Kembalian : (Didapat setelah menekan tombol enter)


2. Data Input, Proses ,Output 

    Data Input     : Jenis Mobil, Control, Makanan/Minuman, biaya cuci, biaya tambahan
    Proses           : Hitung, Reset
    Data Output  : Total Biaya 



3.Screenshoot dan Form


















4. Source Code


 Dim i As Integer
        makan = New CheckBox() {makan1, makan2, makan3, makan4, makan5}
        txtmakan = New TextBox() {txtmakan1, txtmakan2, txtmakan3, txtmakan4, txtmakan5}
        txtjumlah = New TextBox() {txtjumlah1, txtjumlah2, txtjumlah3, txtjumlah4, txtjumlah5}
        tambah = New CheckBox() {tambah1, tambah2, tambah3}
        txttambah = New TextBox() {txttambah1, txttambah2, txttambah3}

        For i = 0 To 4
            txtmakan(i).Text = "Rp. " & Format(hargamakan(i), "#,#.##")

        Next

        For i = 0 To 2
            txttambah(i).Text = "Rp. " & Format(hargatambah(i), "#,#.##")

        Next
        bycuci = 0

    End Sub

    Private Sub jenis1_CheckedChanged(sender As Object, e As EventArgs) Handles jenis1.CheckedChanged
        bycuci = 15000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.minibus
    End Sub

    Private Sub jenis2_CheckedChanged(sender As Object, e As EventArgs) Handles jenis2.CheckedChanged
        bycuci = 25000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.bus
    End Sub

    Private Sub jenis3_CheckedChanged(sender As Object, e As EventArgs) Handles jenis3.CheckedChanged
        bycuci = 30000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.truck
    End Sub

    Private Sub jenis4_CheckedChanged(sender As Object, e As EventArgs) Handles jenis4.CheckedChanged
        bycuci = 50000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.Car_wash
    End Sub

    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
        Dim i As Integer
        totmakan = 0
        tottambah = 0
        For i = 0 To 2
            If tambah(i).Checked Then
                tottambah = tottambah + hargatambah(i)
            End If
        Next
        For i = 0 To 4
            If makan(i).Checked Then
                totmakan = totmakan + (hargamakan(i) * Val(txtjumlah(i).Text))
            End If
        Next
        total = bycuci + tottambah + totmakan
        txttotal.Text = "Rp. " & Format(total, "#,#.##")
    End Sub

    Private Sub txtbayar_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtbayar.KeyPress
        If e.KeyChar = Chr(13) Then
            kembali = Val(txtbayar.Text) - total
            txtkembali.Text = "Rp. " & Format(kembali, "#,#.##")
        End If
    End Sub

    Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
        Dim i As Integer
        For i = 0 To 4
            makan(i).Checked = False
        Next
        For i = 0 To 4
            txtjumlah(i).Text = 0
        Next
        For i = 0 To 2
            tambah(i).Checked = False
        Next
        txttotal.Clear()
        txtbayar.Clear()
        txtkembali.Clear()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnWord.Click
        Dim wordapp As New word.Application
        Dim Doku As word.Document
        Doku = wordapp.Documents.Open("C:\Users\AKBAR\Documents\Visual Studio 2013\Projects\WindowsApplication7\Primary.docx")
        Doku.Bookmarks("TotalBiaya").Select()
        wordapp.Selection.TypeText(txttotal.Text)
        Doku.Bookmarks("Bayar").Select()
        wordapp.Selection.TypeText(txtbayar.Text)
        Doku.Bookmarks("Kembali").Select()
        wordapp.Selection.TypeText(txtkembali.Text)
        Doku.SaveAs("D:\Data Output\Word\Struks.docx")

        MsgBox("Your Receipt Has Been Printed", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Information")
        wordapp.Visible = True

    End Sub

    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
        Dim AppExcelnya As New excel.Application
        Dim ExcelWB As excel.Workbook
        ExcelWB = AppExcelnya.Workbooks.Open("C:\Users\AKBAR\Documents\Visual Studio 2013\Projects\WindowsApplication7\Secondary.xlsx")
        AppExcelnya.Range("C1").Value = txttotal.Text
        AppExcelnya.Range("C3").Value = txtbayar.Text
        AppExcelnya.Range("C5").Value = txtkembali.Text
        ExcelWB.SaveAs("D:\Data Output\Excel\Databasi.xlsx")

        MsgBox("Your Data Has Been Saved", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Information")
        AppExcelnya.Visible = True
    End Sub
End Class