Archive for Maret 2017

Menentukan Bilangan Ganjil/Genap Pada Java

Add Comment

Pada postingan kali ini, saya akan memberikan source code untuk menentukan sebuah bilangan apakah bilangan tersebut bernilai ganjil atau bernilai genap.

Bilangan Ganjil: Bilangan yang jika dibagi dua memiliki sisa pembagian (1)
Bilangan Genap: Bilangan yang jika dibagi dua tidak memiliki sisa pembagian (0)

Pada coding ini, kita akan menggunakan sebuah Operator Aritmatika yang disebut Operator Modulus (%). Operator modulus merupakan sebuah operator yang digunakan untuk sebuah operasi yang menghasilkan sisa pembagian dari suatu bilangan terhadap bilangan lainnya.
Berikut source codenya: 
package ganjilgenap;
import java.util.Scanner;
/**
 *
 * @author Padma Ekayasa
 */
public class GanjilGenap {
    public static void main(String[] args) {
        Scanner gg = new Scanner(System.in);
        System.out.print("Masukkan Bilangan: ");
        int bilangan = gg.nextInt();
        if (bilangan %2 == 1){
            System.out.println("GANJIL");
        }
        else
            System.out.println("GENAP");
    }
}
Sekian postingan kali ini,
Semoga Bermafaat...

Postingan selanjutnya - Menentukan Bilangan Ganjil/Genap Dengan 2 Inputan

Menghitung Luas & Keliling Segitiga Dengan Metode Input BufferedReader, Scanner dan JOptionPane Pada Java

Add Comment

Pada postingan kali ini saya akan memberikan sebuah cara atau lebih tepatnya source code untuk menghitung Luas dan Keliling Segitiga, dengan metode input BufferedReader, Scanner dan JOptionPane pada Java Netbeans

  • Metode Input BufferedReader
package segitiga; // sesuaikan dengan nama package yang kalian buat
import java.io.BufferedReader;
import java.io.InputStreamReader;
import java.io.IOException;
import static java.lang.Math.sqrt;


/**
 *
 * @author Padma Ekayasa
 */
public class Segitiga_BufferedReader {
    public static void main(String[] args) {
        int a,t;
        double m, kll,luas;
        
        BufferedReader segitiga = new BufferedReader(new InputStreamReader(System.in));
        System.out.print("Masukkan Alas: ");
        try{
            String nilaiA = segitiga.readLine();
            a = Integer.parseInt(nilaiA);
            System.out.print("Masukkan Tinggi: ");
            String nilaiT = segitiga.readLine();
            t = Integer.parseInt(nilaiT);
            System.out.println("");
            
            //menghitung luas
            luas = 0.5*a*t;
            System.out.println("Luasnya Adalah: "+luas);
            //menghitung sisi miring
            m = sqrt((a*a)+(t*t));
            //menghitung keliling
            kll = a+t+m;
            System.out.println("Kelilingnya adalah: "+kll);
                      
        }catch (IOException e){
            System.out.println("Error!!");
        }     
    }
}
  • Metode Input Scanner
package segitiga; // sesuaikan dengan nama package yang kalian buat
import static java.lang.Math.sqrt;
import java.util.Scanner;
/**
 *
 * @author Padma Ekayasa
 */
public class Segitiga_Scanner {
    public static void main(String[] args) {
        int a,t;
        double m, kll,luas;
                
        Scanner segitiga = new Scanner(System.in);
        System.out.print("Masukkan Alas: ");
        a = segitiga.nextInt();
        System.out.print("Masukkan Tinggi: ");
        t = segitiga.nextInt();
        System.out.println("");
        
        //menghitung luas
        luas = 0.5*a*t; 
        System.out.println("Luasnya adalah: "+luas);
        //menghitung sisi miring
        m = sqrt((a*a)+(t*t)); 
        //menghitung keliling
        kll = a+t+m; 
        System.out.println("Kelilingnya adalah: "+kll);         
    }
}
  • Metode Input JOptionPane
package segitiga; // sesuaikan dengan nama package yang kalian buat
import static java.lang.Math.sqrt;
import javax.swing.JOptionPane;

/**
 *
 * @author Padma Ekayasa
 */
public class Segitiga_JOptionPane {
    public static void main(String[] args) {
        int a,t;
        double m, luas,kll;
        
        
        String nilaia = JOptionPane.showInputDialog("Masukkan Alas: ");
        a = Integer.parseInt(nilaia);
        String nilait = JOptionPane.showInputDialog("Masukkan Tinggi: ");
        t = Integer.parseInt(nilait);
        
        //menghitung luas
        luas = 0.5*a*t;
        JOptionPane.showMessageDialog(null,"Luasnya adalah: "+luas);
        
        //menghitung nilai sisi miring
        m = sqrt((a*a)+(t*t)); 
        
        //menghitung keliling
        kll = a+t+m;
        JOptionPane.showMessageDialog(null,"Kelilingnya adalah: "+kll);
    
    }
}

Sekian untuk postingan kali ini,
Semoga Bermanfaat...

Pembuatan Form Karyawan & Mengkoneksikan Ke Database

2 Comments

Bahan:
  • Microsoft Visual Studio 2010
  • XAMPP
  • SQLyog
  • MySQL Connector
Langkah-Langkah:
  • Instal terlebih dahulu MySQL Connector
  • Setelah selesai menginstal MySQL Connector, Aktifkan/Start MySQL pada XAMPP  
  • Buka SQLyog, dan buat database "latihan" serta buat tabel "tblkaryawan"
database "latihan"
 
tabel "tblkaryawan"
  • Setelah selesai membuat database, buka Visual Studio 2010 dan buat New Project
  • Buat New Project dengan nama "Latihan"
  • Pada Solution Explorer, klik kanan pada Form1.vb pilih Rename dan ubah menjadi "karyawan.vb"
before
 
after
  • Selanjutnya buat tampilan aplikasi untuk memasukkan data karyawan, seperti dibawah ini.
  • Atur properties komponen tersebut seperti tabel dibawah
  • Pada Solution Explorer, klik kanan pada Latihan pilih Add kemudian pilih Class, beri nama Class dengan nama "koneksi.vb"
  • Jika sudah membuat Class koneksi, sebelum masuk ke coding kita harus menambahkan komponen Reference untuk MySQL Data. Cari menu Project lalu pilih Add Reference
  • Pada kotak dialog Add Reference pada tab .NET pilih Mysql.Data lalu Ok.
  • Setelah selesai menambahkan komponen Mysql Data, saatnya menambahkan coding. Masukkan coding dibawah pada Class koneksi, fungsinya adalah untuk mengkoneksikan database dengan visual basic.
Imports System.Data
Imports System.Data.OleDb
Imports MySql.Data.MySqlClient

Public Class koneksi
    Protected SQL As String
    Protected Cn As New MySqlConnection
    Protected Cmd As New MySql.Data.MySqlClient.MySqlCommand
    Protected Da As New MySql.Data.MySqlClient.MySqlDataAdapter
    Protected Ds As New DataSet
    Protected Dt As DataTable

    Public Function OpenConn() As Boolean
        Cn = New MySqlConnection("server=localhost;" _
        & "user id=root;" _
        & "password=;" _
        & "database=latihan")
        Cn.Open()
        If Cn.State <> ConnectionState.Open Then
            Return False
        Else
            Return True
        End If
    End Function

    Public Sub CloseConn()
        If Not IsNothing(Cn) Then
            Cn.Close()
            Cn = Nothing
        End If
    End Sub

    Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
            Return Nothing
            Exit Function
        End If
        Cmd = New MySql.Data.MySqlClient.MySqlCommand(Query, Cn)
        Da = New MySql.Data.MySqlClient.MySqlDataAdapter
        Da.SelectCommand = Cmd
        Ds = New Data.DataSet
        Da.Fill(Ds)
        Dt = Ds.Tables(0)
        Return Dt
        Dt = Nothing
        Ds = Nothing
        Da = Nothing
        Cmd = Nothing
        CloseConn()
    End Function

    Public Sub ExecuteNonQuery(ByVal Query As String)
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
            Exit Sub
        End If
        Cmd = New MySql.Data.MySqlClient.MySqlCommand
        Cmd.Connection = Cn
        Cmd.CommandType = CommandType.Text
        Cmd.CommandText = Query
        Cmd.ExecuteNonQuery()
        Cmd = Nothing
        CloseConn()
    End Sub

End Class
  • Setelah itu, masuk ke Form "karyawan.vb" masukkan coding berikut
Public Class karyawan
    Dim SQL As String
    Dim Proses As New koneksi
    Dim tblKaryawan As DataTable
    Dim jk As String


    Sub Data_Record()
        tblKaryawan = Proses.ExecuteQuery("Select * From tblkaryawan")
        dgkaryawan.DataSource = tblKaryawan
        dgkaryawan.Columns(0).Width = 75
        dgkaryawan.Columns(1).Width = 100
        dgkaryawan.Columns(2).Width = 100
        dgkaryawan.Columns(3).Width = 100
        dgkaryawan.Columns(4).Width = 100

    End Sub

    Sub Kode_Otomatis()
        tblKaryawan = Proses.ExecuteQuery("Select * From tblkaryawan order by Id_Karyawan desc")
        If tblKaryawan.Rows.Count = 0 Then
            txtidk.Text = "KRY-001"
        Else
            With tblKaryawan.Rows(0)
                txtidk.Text = .Item("Id_Karyawan")
            End With
            txtidk.Text = Val(Microsoft.VisualBasic.Mid(txtidk.Text, 5, 3)) + 1
            If Len(txtidk.Text) = 1 Then
                txtidk.Text = "KRY-00" & txtidk.Text & ""
            ElseIf Len(txtidk.Text) = 2 Then
                txtidk.Text = "KRY-0" & txtidk.Text & ""
            ElseIf Len(txtidk.Text) = 3 Then
                txtidk.Text = "KRY-" & txtidk.Text & ""
            End If
        End If
    End Sub

    Sub Atur()
        Call Data_Record()
        Call Kode_Otomatis()
        btnsave.Enabled = True
        btnedit.Enabled = False
        btndelete.Enabled = False
        txtidk.Enabled = False
        txtnama.Text = ""
        txtalamat.Text = ""
        txttelp.Text = ""
        rbL.Checked = False
        rbP.Checked = False
        txtnama.Focus()
    End Sub

    Private Sub Karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Atur()
    End Sub

End Class
  • Simpan Data, double klik pada button Save, dan masukkan coding berikut
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        If rbL.Checked = True Then
            jk = "L"
        Else
            jk = "P"
        End If
        If txtnama.Text = "" Then txtnama.Focus() : Exit Sub
        SQL = "Insert Into tblkaryawan Values ('" & txtidk.Text & "','" & txtnama.Text & "','" & jk & "','" & txttelp.Text & "', '" & txtalamat.Text & "')"
        Proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data Baru telah disimpan..!!", "Penyimpanan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call Atur()
    End Sub
  • Ubah Data, double klik pada button Edit, dan masukkan coding berikut
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        If rbL.Checked = True Then
            jk = "L"
        Else
            jk = "P"
        End If
        If txtnama.Text = "" Then txtnama.Focus() : Exit Sub
        SQL = "update tblkaryawan set Nama_Karyawan = '" & txtnama.Text & "', Jenis_Kelamin = '" & jk & "', Telp = '" & txttelp.Text & "', Alamat = '" & txtalamat.Text & "' where Id_Karyawan = '" & txtidk.Text & "'"
        Proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data sudah diperbaiki...!!", "Perubahan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call Atur()
    End Sub
  • Hapus Data, double klik pada button Delete, dan masukkan coding berikut
Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        SQL = "delete from tblkaryawan where Id_Karyawan = '" & txtidk.Text & "'"
        Proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data sudah dihapus...!!", "Penghapusan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call Atur()
    End Sub
  • Perintah Batal, double klik pada button Cencel, dan masukkan coding berikut
Private Sub btncencel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncencel.Click
        Call Atur()
    End Sub
  • Untuk pengaturan DataGrid masukkan coding berikut
Private Sub dgkaryawan_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgkaryawan.DoubleClick
        txtidk.Text = dgkaryawan.SelectedCells(0).Value
        txtnama.Text = dgkaryawan.SelectedCells(1).Value
        If dgkaryawan.SelectedCells(2).Value = "L" Then
            rbL.Checked = True
        Else
            rbP.Checked = True
        End If
        txttelp.Text = dgkaryawan.SelectedCells(3).Value
        txtalamat.Text = dgkaryawan.SelectedCells(4).Value

        btnedit.Enabled = True
        btndelete.Enabled = True
        btnsave.Enabled = False
    End Sub
  • Untuk pencarian data, double klik pada TextBox Cari Data (txtcari) dan masukkan coding berikut
Private Sub txtcari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcari.TextChanged
        tblKaryawan = Proses.ExecuteQuery("select * from tblkaryawan where Id_Karyawan like '%" & txtcari.Text & "%' Or Nama_Karyawan like'%" & txtcari.Text & "%' or Alamat like'%" & txtcari.Text & "%'")
        dgkaryawan.DataSource = tblKaryawan
        dgkaryawan.Columns(0).Width = 75
        dgkaryawan.Columns(1).Width = 100
        dgkaryawan.Columns(2).Width = 100
        dgkaryawan.Columns(3).Width = 100
    End Sub
  • Langkah terakhir yaitu Jalankan Program
Jika masih kurang jelas, bisa tonton video dibawah ini


Sekian untuk postingan kali ini, semoga dapat bermanfaat..
Reference: Modul Pemrograman II STMIK STIKOM Indonesia
Langganan: Postingan (Atom)