Kamis, 06 Desember 2012

Cara Membuat Aplikasi Database Sederhana Dengan Java dan Mysql


Berikut ini adalah cara bagaimana membuat aplikasi sederhana dengan menggunakan Java, artikel ini cocok untuk anda sebagai pemula yang baru mengenal bahasa pemrograman java, dan untuk yang sudah mahir, harap maklum saya juga masih belajar Description: :).
Untuk pertama kali silahkan anda buat database, misal anda buat database dengan nama coba. Nah bagi anda yang belum tahu cara membuat database, saya rekomendasikan untuk install xampp atau appserv yang sudah include  dengan database mysql, kenapa demikian, karena siapa tahu anda juga berminat untuk belajar pemrograman website terutama bahasa PHP. Jadi anda tidak perlu repot untuk menginstal server lagi. Description: :D. dan silahkan cari sumber di internet cara untuk install xampp. dan untuk aplikasi untuk manage database Mysql anda bisa menggunakan SQLyog atau Navicatlite.
Setelah anda buat database, buat sebuah tabel baru dalam database tersebut dengan mengeksekusi perintah berikut, misal nama tabel adalah mahasiswa:

CREATE TABLE IF NOT EXISTS `mahasiswa` (
`nim` varchar(12) NOT NULL,
`nama` varchar(40) NOT NULL,
`alamat` varchar(200) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Kemudian anda buat sebuah class baru dengan nama Database2 disimpan dengan nama file Database2 .java yang belum tahu cara membuat class dan editor apa yang bisa dipakai untuk menulis kode java silahkan anda bisa baca artikel saya sebelumnya di Pengenalan Java dan Editor Java lalu pastekan kode berikut ini :

import java.sql.*;
import javax.swing.*;
import java.awt.event.*;
public class Database2 extends JFrame
{
Connection con=null;
JLabel jLabel1 = new JLabel();
JTextField txtnama = new JTextField();
JLabel jLabel2 = new JLabel();
JScrollPane jScrollPane1 = new JScrollPane();
JTextArea txtalamat = new JTextArea();
JLabel jLabel3 = new JLabel();
JButton bthapus = new JButton();
JButton btcari = new JButton();
JButton btupdate = new JButton();
JTextField txtnim = new JTextField();
JLabel jLabel4 = new JLabel();
JButton btsimpan = new JButton();
Database2()
{
setSize(320,280);
setLocation(100,100);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
}
void Koneksi()
{
try
{
String connectionURL = “jdbc:mysql://localhost/coba”;
String username = “root”;
String password = “root”;
Class.forName(“com.mysql.jdbc.Driver”);
con= DriverManager.getConnection(connectionURL, username , password );
System.err.println(“Sukses Koneksi”);
}
catch(Exception ex)
{
System.err.println(“Tidak Berhasil Koneksi”);
System.exit(1);
}
}
void simpan()
{
try
{
Statement statement = con.createStatement();
String sql=”insert into mahasiswa values(‘”+txtnim.getText()+”‘,’”+txtnama.getText()+”‘,’”+txtalamat.getText()+”‘);”;
statement.executeUpdate(sql);
statement.close();
JOptionPane.showMessageDialog(null,”Berhasil disimpan”);
}
catch(Exception ex)
{
JOptionPane.showMessageDialog(null,”nim data sudah ada”);
System.err.print(ex);
}
}
public void cari()
{
try
{
Statement stat = con.createStatement();
String sql=”SELECT * FROM mahasiswa Where nim like’”+txtnim.getText()+”‘”;
ResultSet isi = stat.executeQuery(sql);
if(isi.next())
{
txtnama.setText(isi.getString(1));
txtalamat.setText(isi.getString(2));
}
else
{
JOptionPane.showMessageDialog(null,”mahasiswa dengan nim tersebut tidak ada..!”);
}
stat.close();
}
catch (Exception ex)
{
JOptionPane.showMessageDialog(null,”Error :”+ex);
}
}
void update()
{
try
{
Statement stm=con.createStatement();
String sql=”update mahasiswa set nama=’”+txtnama.getText()+”‘, alamat=’”+txtalamat.getText()+”‘where nim=’”+txtnim.getText()+”‘”;
stm.executeUpdate(sql);
stm.close();
JOptionPane.showMessageDialog(null,”Berhasil diedit”);
}
catch(Exception ex)
{
JOptionPane.showMessageDialog(null,”Error :”+ex);
}
}
public void hapus()
{
try
{
Statement statement = con.createStatement();
String sql=”delete from mahasiswa “+ ” where nim=’”+txtnim.getText()+”‘”;
statement.executeUpdate(sql);
statement.close();
JOptionPane.showMessageDialog(null,”Data telah di Hapus”);
}
catch(Exception ex)
{
JOptionPane.showMessageDialog(null,”Error :”+ex);
}
}
void aksi()
{
btsimpan.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent evt) {
simpan();
}
});
btupdate.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent evt) {
update();
}
});
bthapus.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent evt) {
hapus();
}
});
btcari.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent evt) {
cari();
}
});
}
private void initComponents() {
getContentPane().setLayout(null);
jLabel1.setText(“Contoh Aplikasi Database Sederhana”);
getContentPane().add(jLabel1);
jLabel1.setBounds(20, 10, 200, 14);
getContentPane().add(txtnama);
txtnama.setBounds(90, 70, 170, 20);
jLabel2.setText(“Alamat”);
getContentPane().add(jLabel2);
jLabel2.setBounds(20, 100, 34, 14);
txtalamat.setColumns(20);
txtalamat.setRows(5);
jScrollPane1.setViewportView(txtalamat);
getContentPane().add(jScrollPane1);
jScrollPane1.setBounds(90, 96, 166, 70);
jLabel3.setText(“Nama”);
getContentPane().add(jLabel3);
jLabel3.setBounds(20, 70, 27, 14);
bthapus.setText(“Delete”);
getContentPane().add(bthapus);
bthapus.setBounds(180, 180, 73, 23);
btcari.setText(“Cari”);
getContentPane().add(btcari);
btcari.setBounds(200, 40, 51, 23);
btupdate.setText(“Update”);
getContentPane().add(btupdate);
btupdate.setBounds(90, 180, 73, 23);
getContentPane().add(txtnim);
txtnim.setBounds(90, 40, 100, 20);
jLabel4.setText(“Nim”);
getContentPane().add(jLabel4);
jLabel4.setBounds(20, 40, 17, 14);
btsimpan.setText(“Simpan”);
getContentPane().add(btsimpan);
btsimpan.setBounds(10, 180, 67, 23);
setVisible(true);
}
public static void main(String args[])
{
Database2 db2=new Database2();
db2.initComponents();
db2.Koneksi();
db2.aksi();
}
}
Kemudian anda Compile dan runing, apa yang terjadi? masih error? iya tentu saja, karena kita harus menambahkan library mysql_connector.jar ke dalam lib home direktori dimana java di install. jika anda menggunakan windows anda buka di
<Java_Homedir>jrelibext
dan pastekan library mysql_connector yang bisa anda dapatkan di mysql connector, kemudian anda jalankan lagi program java yang telah anda buat tersebut.

Selasa, 27 November 2012

Tips-Tips Agar Komputer Anda Bebas Dari Virus


Description: https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgtJcXgTZSJP_9MraZ2n0lNt2ucA5VvO5imu7CENbvoXPNgoMDZElASWdBDGS_D8TMgOau2evPrpKA77SiAZIySmLn77DS8d1Eq8fsCMywuuCOpSjiX2Uak7kRPdPH36qQiYsQYRTv4vdtb/s320/virus.jpg

1. Email adalah salah satu cara umum yang digunakan komputer Anda dapat terserang virus. Sehingga selalu disarankan untuk menjauh dari SPAM. Buka email hanya mereka yang memiliki asal itu dari sumber yang terpercaya seperti yang berasal dari daftar kontak Anda. Jika Anda menggunakan email pribadi Anda sendiri host (selain gmail, yahoo, hotmail dll) maka sangat dianjurkan agar Anda menggunakan baik perangkat lunak anti-spam. Dan akhirnya jangan pernah mengklik link apapun dalam email yang berasal dari sumber yang tidak dipercaya.

2. USB flashdisk / pen drive adalah salah satu cara umum yang digunakan virus menyebar dengan cepat. Jadi, selalu lakukan kebiasaan yang baik untuk melakukan scan virus sebelum mengcopy data apapun ke komputer Anda. Jangan pernah double klik FLASHDISK untuk membukanya. Lebih baik lakukan klik kanan dan pilih opsi "open". Ini adalah cara yang aman untuk membuka flashdisk.

3. Hati-hati tentang menggunakan MS Outlook. Pandangan yang lebih rentan terhadap worm dibandingkan program e-mail lainnya, kecuali jika Anda telah menginstall program Anti-Virus. Gunakan Pegasus atau Thunderbird (oleh Mozilla), atau program berbasis web seperti Hotmail atau Yahoo (Di Firefox).

4. Seperti kita semua tahu, Internet adalah sumber utama dari semua program berbahaya termasuk virus, worm, trojan dll Bahkan internet memberikan kontribusi terhadap infeksi virus hingga 80%. Jadi di sini adalah tips untuk kebiasaan surfing aman sehingga Anda dapat menangkis infeksi virus sampai tingkat maksimum.

Jangan klik jendela pop-up yang mengumumkan bencana tiba-tiba di kota Anda atau mengumumkan bahwa Anda telah memenangkan hadiah per jam. Itu adalah cara untuk menyesatkan pengguna internet dan Anda tidak boleh mempercayai mereka.

Anda juga dapat menggunakan pop-up yang secara otomatis memblokir pop-up.

5. Sebagian besar dari kita menggunakan mesin pencari seperti Google untuk menemukan apa yang kita cari. Hal ini cukup jelas untuk sebuah situs jahat untuk masuk dalam daftar hasil pencarian. Jadi untuk menghindari orang-orang mengunjungi situs-situs berbahaya tidak terpercaya, Anda dapat men-download dan menginstal AVG LinkScanner yang merupakan freeware. Alat ini bisa menjadi sangat berguna dan akan membantu Anda untuk menjauhi situs-situs berbahaya.

6. Menginstal perangkat lunak antivirus yang baik dan tetap diperbarui. Juga melakukan pemindaian sistem penuh secara berkala. Hal ini sangat disarankan agar Anda mengaktifkan fitur update otomatis. Ini adalah tugas yang paling penting untuk melindungi PC Anda dari virues. Jika keamanan PC adalah pilihan pertama Anda maka disarankan bahwa Anda pergi untuk shareware perangkat lunak antivirus yang gratis seperti di atas. Sebagian besar antivirus mendukung fitur Auto-Protect realtime yang menyediakan keamanan untuk PC Anda. Pastikan bahwa fitur ini diaktifkan.

7. Menginstal sebuah Antispyware, program yang mengoperasikan internet melawan malware dan spyware.

8. Pernah membuka lampiran email yang berasal dari sumber yang tidak dipercaya. Jika itu adalah gambar, teks atau file suara (lampiran ini berakhir dalam ekstensi. Txt,. Jpeg,. Gif,. Bmp,. Tif,. Mp3,. Htm,. Html, dan. Avi), Anda mungkin aman , tapi masih melakukan scan sebelum pembukaan.

9. Jangan gunakan disk orang lain, bahkan dari tempat kerja. Disk dapat terinfeksi virus. Tentu saja, Anda dapat menjalankan scan virus terlebih dahulu untuk mengeceknya.

10. Set up Windows Update untuk secara otomatis men-download patch dan upgrade. Hal ini akan memungkinkan komputer Anda untuk secara otomatis mendownload update untuk kedua sistem operasi dan Internet Explorer. Pembaruan ini memperbaiki lubang keamanan di kedua buah perangkat lunak.

11. Meskipun Anda men-download file dari situs terpercaya / sumber seperti torrent, warez dll pastikan bahwa Anda menjalankan scan virus sebelum mengeksekusi mereka.

12. Dan akhirnya tidak dianjurkan untuk mengunjungi situs-situs yang menampilkan ilegal / barang-barang yang tidak diinginkan seperti patch,serials, warez dan lain-lain karena mereka menyumbang banyak dalam penyebaran virus dan program berbahaya lainnya.


Semoga bermanfaat

Membuat Kalkulator Sederhana Menggunakan VB 6.0


Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:



Description: https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgCTavduLMiNB33C5Ue8SjRMbKGWu36ia3wyuf6NtOzSHKP38OjGEVHKHeLA_h_CdQ_-GV2FNok1Moc69UkYkTCInT0ZUHfuJiVsidmlzOaXgelAJdTgZDsrXgGVyGsk4mijTXT1yF73Ic/s400/kalkulator.bmp

 


Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9
Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
‘ untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = “-” Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) – 1)
Else
txtDisplay.Text = “0″
End If
End Sub
‘ hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
‘ hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = “”
End Sub
‘ menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, “.”) Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = “.”
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & “.”
End If
End If
End Sub
‘ Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = “” Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil – HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
‘Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox “Tidak bisa dibagi 0″, vbOKOnly + vbCritical, “Kalku ERROR”
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
‘ menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
‘ tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
‘ merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = “-”
ElseIf Left$(txtDisplay.Text, 1) = “-” Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = “-” & txtDisplay.Text
End If
End Sub
‘ filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
‘ supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
‘ untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case “0″
cmdAngka_Click 0
Case “1″
cmdAngka_Click 1
Case “2″
cmdAngka_Click 2
Case “3″
cmdAngka_Click 3
Case “4″
cmdAngka_Click 4
Case “5″
cmdAngka_Click 5
Case “6″
cmdAngka_Click 6
Case “7″
cmdAngka_Click 7
Case “8″
cmdAngka_Click 8
Case “9″
cmdAngka_Click 9
Case “*”, “x”, “X”
cmdOperator_Click opKali
Case “+”
cmdOperator_Click opTambah
Case vbCrLf, vbCr, “=”
cmdSamaDengan_Click
Case “-”
cmdOperator_Click opKurang
Case “.”
cmdKoma_Click
Case “/”
cmdOperator_Click opBagi
Case “C”, “c”
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
‘ untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Jumat, 09 November 2012

Cara Untuk Merawat Flashdisk


  Siapa sih yang tidak kenal flashdisk…alat penyimpang yang berukuran kecil namun bisa memiliki kapasitas daya tampung yang besar. Terlebih dalam perkembangannya ukuran flashdisk semakin besar, bentuknya pun semakin beraneka ragam bahkan sekarang teknologinya pun berkembang pesat. Dari awalnya hanya sebagai media penyimpanan sekarang bisa digunakan untuk hiburan seperti memutar musik(flashdisk MP3) ataupun film(MP4).
Flash disk merupakan salah satu media penyimpanan yang terbaru, dahulu kita hanya mengenal Disket dengan kapasitas 1,44 MB dan CD yang rata-rata mempunyai kapasitas 700MB. Sedangkan flash disk (ukurannya berkisar 64MB – 2 Giga) sebagai media penyimpanna yang baru sekarang ini mulai digemari oleh konsumen, dan dijadikan pengganti disket dan CD.
Dan di bawah ini ada beberapa cara untuk merawat flashdisk.


1. Jauhkan dari medan magnet tinggi seperti speaker komputer agar penyimpanan data tidak terganggu.
2. Simpanlah flahs disk kita di tempat yang bersih dan tertutup dengan baik agar komponen tidak kotor dan berkarat.
3. Selalu backup data dari flashdisk ke dalam komputer yang dilindungi anti virus agar keamanan data terjamin.
4. Setelah kita gunakan di komputer lain scan dengan antivirus agar aman dari virus yang terbawa.
5. Hindari memukul-mukulkan dan menjatuhkan flashdisk agar komponen di dalamnya tidak rusak.
6. Jaga flashdisk dari suhu panas dan dingin yang berlebihan agar komponen tidak rusak.
7. Periksalah saku Anda sebelum pakaian Anda cuci, jangan sampai flashdisk terendam ke dalam air kecuali yakin benar-benar anti air.
8. Eject atau stop untuk mematikan flashdisk terlebih dulu sebelum kita cabut.
9. Dianjurkan tidak mengedit file yang ada di flash disk secara langsung, sebaiknya kopi dan editlah dalam hard disk, baru anda simpan kembali kedalam flashdisk setelah selesai.
10. Jagalah hologram, bungkus flashdisk dan  simpan nota pembelian dengan baik untuk keperluan garansi.
11. Jangan terlalu sering format flash disk karena dapat rusak dan mengurangi jumlah batasan hapus tulis.
12. Jika ada waktu defrag flash disk anda agar kinerja flashdisk lebih optimal.
13. Agar tidak mudah jatuh dan hilang, belilah tali flashdisk dengan warna mencolok.
14. Selalu Ejectlah flashdisk Anda sebelum mencabutnya dari komputer atau laptop Anda
15. Jagalah agar tutup flashdisk Anda tidak hilang, berilah tali atau belilah flashdisk yang tutupnya terjamin keamanannya. Sebab hilangnya tutup flashdisk dapat menyebabkan debu mengotori konektor yang ada didalamnya.

http://dunia-olkestikfil.blogspot.com/2011/11/15-cara-hebat-merawat-flashdisk-agar.html