Aplikasi Penyewaan Koper Sederhana Menggunakan Eclips

Assalamualaikum wr.wb

Di kesempatan kali ini saya akan membuat sebuah aplikasi untuk memenuhi nilai uas saya dalam mata kuliah mobile programming

Deskripsinya disini saya akan memmbuat aplikasi penyewaan koper nanti ada pilihan untuk jenis dan setiap koper ada keistimewaannya masing masing dan setiap koper memiliki harga yg beda beda,ada yg besar sampai yg kecil,yg besar sendiri memiliki bonus tersendiri dan yg sedang juga ada kelebihan tersendiri tetapi tidak seistimewa yg besa dan ada yg kecil,nah yg kecil ini dia tidak memiliki bonus atau keistimewaannya makanya harganya murah.Langsung saja ini dia screenshotannya dibawah

Adapun sebelum kita memilih pesanan terlebih dahulu harus login seperti screenshoot di bawah ini

Adapun codingannya seperti dibawah ini

package com.example.uas;

import android.os.Bundle;

import android.app.Activity;

import android.app.AlertDialog;

import android.view.*;

import android.widget.Button;

import android.widget.EditText;

import android.widget.RadioButton;

import android.widget.RadioGroup;

import android.widget.Toast;

import android.widget.RadioGroup.OnCheckedChangeListener;

import android.view.View;

import android.content.Intent;

import android.content.*;

import android.app.*;

import android.app.AlertDialog.Builder;

import android.widget.*;

public class Tab_snack extends Activity implements android.widget.RadioGroup.OnCheckedChangeListener{

RadioButton rb0,rb1,rb2;

public static final String EXTRA_TEXT="com.example.EXTRA_TEXT";

public static final String EXTRA_NUMBER="com.example.EXTRA_NUMBER";

 

EditText edit1,edit2,edit3,edit4;

Button pesan;

RadioGroup radioGroup;

String tujuan,varktp,varnama,vartlp;

Integer harga, total, jumlah;

 

 

@Override

protected void onCreate(Bundle savedInstanceState) {

super.onCreate(savedInstanceState);

setContentView(R.layout.activity_tab_koper;

rb0 = (RadioButton)findViewById(R.id.nike);

        rb1 = (RadioButton)findViewById(R.id.adidas);

        rb2 = (RadioButton)findViewById(R.id.biasa);

     

        radioGroup=(RadioGroup)findViewById(R.id.radioGroup1);

        radioGroup.setOnCheckedChangeListener((OnCheckedChangeListener) this);

        edit1=(EditText)findViewById(R.id.textharga);

        edit2=(EditText)findViewById(R.id.textquantity);

        edit3=(EditText)findViewById(R.id.textisi);

        edit4=(EditText)findViewById(R.id.texttotal);

        pesan= (Button) findViewById(R.id.button1);

        pesan.setOnClickListener(new View.OnClickListener() 

        

        

        

        

        {

       

@Override

public void onClick(View arg0) {

// TODO Auto-generated method stub

int h=Integer.parseInt(edit1.getText().toString());

int j=Integer.parseInt(edit2.getText().toString());

int total =h*j;

edit4.setText(""+total);

String alert1="anda memilih paket koper dengan isi "+edit3.getText();

String alert2="sebanyak "+edit2.getText()+" pcs";

String alert3="dengan harga/pcs "+edit1.getText();

String alert4="grand total "+edit4.getText();

String alert5="pesanan akan segera sampai di alamat anda";

String alert6="TERIMAKASIH";

AlertDialog.Builder builder = new AlertDialog.Builder(Tab_snack.this);

builder.setTitle("pembelian berhasil !!").setMessage

(alert1+ "\n" +alert2+ "\n" +alert3+"\n"+alert4+ "\n" +alert5+ "\n" +alert6).setNeutralButton("close", new DialogInterface.OnClickListener() {

@Override

public void onClick(DialogInterface dialog, int witch) {

// TODO Auto-generated method stub

dialog.cancel();

}

}).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.tab_koper, menu);

return true;

}

@Override

public void onCheckedChanged(RadioGroup arg0, int arg1) {

if(rb0.isChecked()){

Toast.makeText(this,"Besar",Toast.LENGTH_LONG).show();

edit3.setText("bonus koper tambahan");

edit1.setText("3.000.000");

}else if(rb1.isChecked()) {

Toast.makeText(this,"Sedang",Toast.LENGTH_LONG).show();

edit3.setText("bonus minum");

edit1.setText("2.000.000");

}else if(rb2.isChecked()) {

Toast.makeText(this,"Kecil",Toast.LENGTH_LONG).show();

edit3.setText("gada bonus");

edit1.setText("1.500.0000");

}

}

}

package com.example.uas;

import android.os.Bundle;

import android.app.Activity;

import android.content.Intent;

import android.view.Menu;

import android.view.View;

import android.widget.Button;

import android.widget.EditText;

public class UTS extends Activity {

EditText name;

EditText password;

Button btnlogin;

    @Override

    protected void onCreate(Bundle savedInstanceState) {

        super.onCreate(savedInstanceState);

        setContentView(R.layout.activity_uts);

        

        name=(EditText)findViewById(R.id.fname);

        password=(EditText)findViewById(R.id.fpass);

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

        btnlogin.setOnClickListener(new View.OnClickListener() {

@Override

public void onClick(View view) {

validate(name.getText().toString(),password.getText().toString());

}

});

    }

    

    private void validate(String username, String pwd){

    if ((username.equals("Prahasto Hidayatullah"))&&(pwd.equals("1234567"))){

    Intent intent= new Intent(UTS.this, Utama.class);

    startActivity(intent);

    }

    }

    @Override

    public boolean onCreateOptionsMenu(Menu menu) {

        // Inflate the menu; this adds items to the action bar if it is present.

        getMenuInflater().inflate(R.menu.uas, menu);

        return true;

    }

    

}

Sekian mungkin cuma ini aja semoga bermanfaat
Wassalamualaikum wr.b

Contoh Program Visual Studio ASP.NET Terhubung Dengan Acces

Assalamualaikum warahmatullahi wabarakatuh

Dalam kesempatan kali ini saya akan mempresentasikan hasil dari tugas saya yg telah di buat sejak lama,program yang akan saya tampilkan adalah program visual studio menggunakan ASP.NET dan di sambungkan ke Acces.

Deskripsi program yang saya buat ini yaitu tentang data mahasiswa yg mana kita bisa menambahkan data mahasiswa,mengahapusnya,dan menampilkan data mahasiswa yang sudah tersimpan.

Langsung saja inilah hasil dari tugas saya dimana saya akan menjelaskan proses dari program saya

1.Pertama tama masukkan dahulu data yg akan kita simpan,nama,nim,jurusan,dan semester

2.Selanjutnya buat data yg ingin disimpan lalu klik tambah nanti akan tersimpan seperti gambar di bawah ini,data yg saya buat adalah seperti gambar dibawah ini

3.jika sudah tersimpan maka kita akan mencoba mencari data yg telah kita buat,dengan cara memasukkan nim dari mahasiswa tersebut,contohnya seperti gambar di bawah ini

4.Maka akan keluar data yg kita cari sebelumnya seperti gambar di bawah ini

Adapun source code dari program yang telah kita bahas tadi ada di bawah ini

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Partial Class dayat_161011400175

    Inherits System.Web.UI.Page

    Dim constring As String = ConfigurationManager.ConnectionStrings("SqlDataSource1").ConnectionString

    Dim oConn As New OleDbConnection(constring)

    Dim oTbl As New DataTable

    Dim xReader As OleDbDataReader

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

        Dim sql As String = "INSERT INTO Data_Tersimpan VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox1.Focus()

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Response.Redirect("Default.aspx")

    End Sub

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

        If Not Len(TextBox2.Text) = 0 Then

            oConn.Close()

            oConn.Open()

            Dim ocmd As New OleDbCommand("SELECT * FROM Data_Tersimpan where NIM=" + TextBox2.Text + "", oConn)

            xReader = ocmd.ExecuteReader

            If xReader.HasRows Then

                xReader.Read()

                TextBox1.Text = xReader("Nama")

                TextBox4.Text = xReader("Semester")

                TextBox3.Text = xReader("Jurusan")

            Else

                TextBox1.Text = "Nama Mahasiswa Tidak ada"

                Exit Sub

            End If

            xReader.Close()

        End If

    End Sub

End Class

Alhamdulillah cukup sekian yang sudah saya sampaikan diatas jika ada dari kata saya yang salah atau yang tidak enak di hati pembaca saya mohon maaf,saya akhiri tulisan saya ini dengan mengucap hamdalah yg sebesar besarnya kepada allah swt dan rekan teman saya yang sudah membantu

Wassalamualaikum warahmatullahi wabarakatuh. :)

Contoh Program Visual Studio 2013

Assalamualaikum wr.wb
Pada kesempatan kali ini saya akan membuat contoh program Visual Studio yaitu cara menghitung rata rata nilai akhir mahasiswa

Dibawah ini adalah hasil run dari program tersebut




















Langsung copy codingan di bawah ini :

Public Class Form1

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Nim As String
        Dim Nama As String
        Dim Tugas As Double
        Dim UTS As Double
        Dim UAS As Double
        Dim Huruf As String
        Dim Angka As Double
        Dim Komentar As String
        Nim = Val(TextBox1.Text)
        Nama = TextBox2.Text
        Tugas = Val(TextBox3.Text)
        UTS = Val(TextBox4.Text)
        UAS = Val(TextBox5.Text)
        Angka = (0.2 * Tugas + 0.3 * UTS + 0.5 * UAS)
        TextBox6.Text = Angka

        If Angka <= 56 Then
            Huruf = "E"
            Komentar = "Nilai Anda Sangat kurang,Belajar Lebih Giat Lagi!"
        ElseIf Angka <= 65 Then
            Huruf = "D"
            Komentar = "Nilai Anda Kurang,Pelajari Lagi!"
        ElseIf Angka <= 75 Then
            Huruf = "C"
            Komentar = "Nilai Anda Cukup! Anda Lulus"
        ElseIf Angka <= 85 Then
            Huruf = "B"
            Komentar = "Nilai Anda Baik! Anda Lulus"
        ElseIf Angka > 85 Then
            Huruf = "A"
            Komentar = "Nilai Anda Sempurna! Selamat"
        End If
        TextBox7.Text = Huruf
        TextBox8.Text = Komentar
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        End
    End Sub
End Class

Dan di bawah ini adalah hasil run dari program tersebut

Sekian contoh program yang sudah saya buat semoga bermanfaat