contoh koneksi ke oracle dgn java via odbc

import java.sql.*;

class ConODBCOracle{
public static void main(String[] args){
try
{
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
Connection con=DriverManager.getConnection("jdbc:odbc:OdbcOracle","SYSMAN","admin");
con.close();
System.out.println("Koneksi ke Database Oracle via ODBC berhasil..!!!");
System.exit(0);
}
catch(ClassNotFoundException eclass){
System.out.println("Driver tidak ada");
}
catch(SQLException esql){
System.out.println(esql.getMessage());
}
}
}

Selengkapnya...

contoh koneksi ke my. sql dgn java via odbc

import java.sql.*;

class ConOdbcMySQL {
public static void main(String[] args) {
try
{
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
Connection con=DriverManager.getConnection("jdbc:odbc:ConnectMySQL","root","");
con.close();
System.out.println("Koneksi ke Server MySQL via ODBC berhasil....!!!");
System.exit(0);
}
catch(ClassNotFoundException eclass) {
System.out.println("Driver tidak ada");
}
catch(SQLException esql){
System.out.println(esql.getMessage());
}
}
}

Selengkapnya...

contoh koneksi ke oracle dgn java

import java.sql.*;

class ConnectOracle{
public static void main(String[] args){
try
{
Class.forName("oracle.jdbc.driver.OracleDriver");
Connection con=DriverManager.getConnection("jdbc:oracle:thin:@SERVER:1521:orcl","SYSMAN","admin");
con.close();
System.out.println("Koneksi ke Server Oracle berhasil..!!!");
System.exit(0);
}
catch(ClassNotFoundException eclass){
System.out.println("Driver tidak ada");
}
catch(SQLException esql){
System.out.println(esql.getMessage());
}
}
}

Selengkapnya...

contoh koneksi ke my. sql dgn java

import java.sql.*;

class ConnectMySQL {
public static void main(String[] args) {
try
{
Class.forName("com.mysql.jdbc.Driver");
Connection con=DriverManager.getConnection("jdbc:mysql://SERVER/BookStore", "root","admin");
con.close();
System.out.println("Koneksi ke MySQL Server berhasil..!!!");
System.exit(0);
}
catch(ClassNotFoundException eclass) {
System.out.println("Driver tidak ada");
}

catch(SQLException esql) {
System.out.println(esql.getMessage());
}
}
}
Selengkapnya...

contoh koneksi ke ms. sql dgn java

import java.sql.*;

class ConnectMsSQL{
public static void main(String[] args){
try
{
Class.forName("com.microsoft.jdbc.sqlserver.SQLServerDriver");
Connection con=DriverManager.getConnection("jdbc:microsoft:sqlserver//SERVER:1433;Database Name=BookStore","sa","admin");
con.close();
System.out.println("Koneksi ke Ms. SQL Server berhasil..!!!");
System.exit(0);
}
catch(ClassNotFoundException eclass){
System.out.println("Driver tidak ada");
}
catch(SQLException esql){
System.out.println(esql.getMessage());
}
}
}

Selengkapnya...

contoh polymorfisme di java

class ViewData {
public void tulis(int x) {
System.out.println(x);
}

public void tulis(double x) {
System.out.println(x);
}

public void tulis(char x) {
System.out.println(x);
}

public void tulis(String x) {
System.out.println(x);
}
}

class contoh_polimorfisme {
public static void main(String[] args) {
ViewData data = new ViewData();
data.tulis("MOHRIYAN");
data.tulis('R');
data.tulis(11);
data.tulis(3.14);
}
}

Selengkapnya...

contoh inheritance di java

class PERSEGI {
protected double panjang, lebar;
public PERSEGI() {
setPL(1,1);
}

public PERSEGI(double p, double l) {
if (p>0 && l>0) {
panjang = p; lebar = l;
} else {
panjang = 2.0; lebar = 1.0;
}
}

public void setPL(double p, double l) {
if (p>0 && l>0) {
panjang = p; lebar = l;
}
}
public double getPanjang() {
return panjang;
}

public double getLebar() {
return lebar;
}

public double hitungLuas() {
return (panjang * lebar);
}

public double hitungKel () {
return (2 * (panjang+lebar));
}
}

class BALOK extends PERSEGI {
private double tinggi;

public BALOK() {
setPL(1,1);
setTinggi(1);
}

public BALOK(double p, double l, double t) {
setPL(p,l);
setTinggi(t);
}

public void setTinggi(double t) {
if (t>0) tinggi = t;
}

public double getTinggi() {
return (tinggi);
}

public double hitungLuas() {
return (super.hitungLuas() * 4.0 +
super.getLebar() * tinggi * 2.0);
}

public double hitungVol() {
return (super.hitungLuas() * tinggi);
}
}

class contoh_inheritance {
public static void main(String[] args) {
PERSEGI X = new PERSEGI(4.5, 3.5);
System.out.println("DESKRIPSI PERSEGI X");
System.out.println("PANJANG : " + X.getPanjang() + " meter");
System.out.println("LEBAR : " + X.getLebar() + " meter");
System.out.println("LUAS : " + X.hitungLuas() + " meter persegi");
System.out.println("KELILING : " + X.hitungKel() + " meter");
System.out.println("");

double p=X.getPanjang(), l=X.getLebar();
BALOK A = new BALOK(p, l, 3.0);

System.out.println("DESKRIPSI BALOK A");
System.out.println("PANJANG : " + A.getPanjang() + " meter");
System.out.println("LEBAR : " + A.getLebar() + " meter");
System.out.println("TINGGI : " + A.getTinggi() + " meter");
System.out.println("LUAS : " + A.hitungLuas() + " meter persegi");
System.out.println("VOLUME : " + A.hitungVol() + " meter kubik");
}
}

Selengkapnya...

contoh struktur while di java

class contoh_while {
public static void main(String[] x){
int batas = 6;
int i = 6, hasil =0;
while(i hasil+=i;
i++;
};
System.out.println("Total hasil = "+hasil);
}
} Selengkapnya...

contoh penggunaan try catch di java

try catch ini biasanya digunakan sebagai error handling dalam suatu program

class contoh_try_catch_finally {
public static void main(String[] x) {
int bukan_nol = 8, nol = 0;
try {
int hasil = bukan_nol/nol;
System.out.println("Hasil = "+hasil);
} catch(ArithmeticException e)
{
System.out.println("Proses dihentikan,
pembagi = 0");
}finally {
System.out.println("Selesai...");
}
}
}
Selengkapnya...

contoh penggunaan throw di java

class contoh_throw {
public static void main(String[] x) throws Exception {
try {
throw new Exception ("Hasil tidak terdefinisikan!");
}catch(Exception e) {
System.out.println("Proses dihentikan, pembagi=0");
throw e;
}
}
}
Selengkapnya...

contoh struktur switch case di java

class contoh_switch_case {
public static void main(String[] x) {
char nilai = 'A';
switch (nilai) {
case 'E' : System.out.println("Nilai Anda Sangat Buruk");
break;
case 'D' : System.out.println("Nilai Anda Buruk");
break;
case 'C' : System.out.println("Nilai Anda Cukup");
break;
case 'B' : System.out.println("Nilai Anda Baik");
break;
case 'A' : System.out.println("Nilai Anda sangat Baik");
break;
default : System.out.println("Nilai Anda Kosong");
break;
}
}
}
Selengkapnya...

contoh struktur if else di java

class contoh_if_else {
public static void main(String[] x){
int pembagi = 0;
if (pembagi != 0) {
System.out.println("Operasi pembagian bisa dilakukan !");
} else {
System.out.println("Operasi pembagian tidak bisa dilakukan !");
}
}
}

Selengkapnya...

contoh for di java

class contoh_for {
public static void main(String[] x) {
for (int i=0; i<=10; i++){
if (i%2==1) System.out.println(i);
}
}
}

Selengkapnya...

contoh do while di java

class contoh_do_while{
public static void main(String[] x){
int batas = 6;
int i = 6, hasil =0;
do {
hasil+=i;
i++;
}while(i<=batas);
System.out.println("Total hasil = "+hasil);
}
}

Selengkapnya...

menambahkan suara pada tombol

trik untuk menambahkan suara pada saat tombol di klik. file yang didukung berupa file wav.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
CommonDialog1.Filter = "File WAV (*.wav)|*.wav"
CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click()
On Error Resume Next
sndPlaySound CommonDialog1.FileName, SND_ASYNC
End Sub


Selengkapnya...

membuat form bergradasi

kali ini kita akan membuat agar form menjadi lebih cantik yakni dengan membuat form yang bergradasi, untuk membuat form yg bergradasi kita hanya perlu memainkan nilai komposisi warna RGB nya. contoh dalam aplikasi :

Private Sub Form_Paint()
Dim i As Integer

DrawMode = 13
DrawWidth = 6
ScaleMode = 3
ScaleHeight = 255
For i = 0 To 254
Line (0, i)-(Width, i + 1), RGB(255 - i, 0, 0), B
Next i
End Sub
Selengkapnya...

membuat stopwatch sederhana

dalam membuat stopwacth sederhana ini kita membutuhkan sebuah form, sebuah label, sebuah timer dan dua buah command button. dua command button ini digunakan pada saat start stopwatch dan reset stopwatch. script lengkapnya dapat dilihat seperti dibawah ini :

Dim total10detik, totaldetik, detik10 As Integer
Dim detik, menit, jam As Integer

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Command2_Click()
total10detik = -1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
total10detik = total10detik + 1
detik10 = total10detik Mod 10
totaldetik = Int(total10detik / 10)
detik = totaldetik Mod 60
menit = Int(totaldetik / 60) Mod 60
jam = Int(totaldetik / 3600)
Label1 = jam & ":" & menit & ":" & detik & ":" & detik10
End Sub
Selengkapnya...

script untuk menghitung waktu mundur

dalam tutorial kali ini kita akan mencoba membuat sebuah script sederhana untuk menghitung mundur waktu. sebelumnya kita persiapkan dalam project kita sebuah form, sebuah komponen timer dan sebuah comand button serta sebuah label.
untuk scripnya dapat dituliskan sebagai berikut :

Dim total10detik, totaldetik, detik10 As Integer
Dim detik, menit, jam As Integer

Private Sub Form_Load()
jam = Hour(Now)
menit = Minute(Now)
detik = Second(Now)
Time = TimeSerial(jam, menit, detik)
Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
total10detik = detik * 10 + menit * 600 + jam * 36000
End Sub

Private Sub Timer1_Timer()
If total10detik <= 0 Then
Beep
Label1 = "0:0:0"
Timer1.Enabled = False
Exit Sub
End If

total10detik = total10detik - 1
detik10 = total10detik Mod 10
totaldetik = Int(total10detik / 10)
detik = totaldetik Mod 60
menit = Int(totaldetik / 60) Mod 60
jam = Int(totaldetik / 3600)
Label1 = jam & ":" & menit & ":" & detik
End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Selengkapnya...

script untuk menghitung umur vb

untuk menghitung antara dua buah datetime, kita dapat menggunakan fungsi built in pada visual basic yaitu DateDiff. untuk lebih jelasnya dapat melihat source code dibawah ini, untuk contoh masukan sebuah command button dan sebuah dtpicter

Private Sub Command1_Click()
Dim totalhari As Integer
Dim umur As Integer
Dim hari As Integer

totakhari = DateDiff("d", DTPicker1.Value, Date)
umur = totakhari / 365
hari = totakhari - (umur * 365)
MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"
End Sub

selamat mencoba :)
Selengkapnya...

script untuk mendeteksi tahun kabisat pada vb

apa itu tahun kabisat???? menurut wikipedia tahun kabisat (Bahasa Inggris: Leap Year) adalah sebuah Tahun Syamsiah di mana pada tahun tersebut jumlah hari tidak terdiri dari 365 hari tetapi 366 hari.

Terdapat algoritma mudah untuk menentukan apakah suatu tahun termasuk tahun kabisat atau bukan sebagai berikut:

1. Jika angka tahun itu habis dibagi 400, maka tahun itu sudah pasti tahun kabisat.
2. Jika angka tahun itu tidak habis dibagi 400 tetapi habis dibagi 100, maka tahun itu sudah pasti bukan merupakan tahun kabisat.
3. Jika angka tahun itu tidak habis dibagi 400, tidak habis dibagi 100 akan tetapi habis dibagi 4, maka tahun itu merupakan tahun kabisat.
4. Jika angka tahun tidak habis dibagi 400, tidak habis dibagi 100, dan tidak habis dibagi 4, maka tahun tersebut bukan merupakan tahun kabisat.



scripnya mudah saja, ini contoh fungsi yang dapat digunakan

Public Function cek_kabisat(tahun As Integer)
If (tahun Mod 4 = 0) And ((tahun Mod 100 <> 0) Or (tahun Mod 400 = 0)) Then
cek_kabisat = tahun & " tahun kabisat"
Else
cek_kabisat = tahun & " bukan tahun kabisat"
End If
End Function

Selengkapnya...

mengganti pointer mouse dengan gambar

mengganti pointer mouse dengan gambar, trik ini digunakan untuk mempercantik pointer standar yg hanya berbentuk panah, misalnya kita ganti dengan icon palu atau apalah hehehe
langsung saja kita ke pokok bahasan :

yg perlu kita siapkan hanyalah gambar yg akan digunakan untuk menggantikan pointer mouse, file harus berekstensi "ico"

Private Sub Form_Load()
MousePointer = 99
MouseIcon = LoadPicture(App.Path & "\hammer1.ico")
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'pointer mouse akan berubah pada saat di klik
MouseIcon = LoadPicture(App.Path & "\hammer2.ico"): Beep
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseIcon = LoadPicture(App.Path & "\hammer1.ico")
End Sub
Selengkapnya...

membuat animasi pointer

trik kali ini akan membahas bagaimana cara mempercantik pointer mouse,
pertama2 siapkan file yang akan digunakan untuk menggantikan pointer mouse standar,
file ini berekstensi "ani"
dalam project masukkan sebuah form dan dua buah command button serta sebuah module
untuk script codenya bisa dilihat dibawah ini :

script pada bagian module :
Public Const GCL_HCURSOR = -12
Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal _
hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


script pada bagian form :
Dim lResult As Long
Dim mhAniCursor As Long

Private Sub Command1_Click()
mhAniCursor = LoadCursorFromFile(App.Path & "\horse.ani")
'file yg akan digunakan untuk menggantikan pointer mouse dijadikan satu dengan project
'ganti horse.ani dengan nama file yg akan digunakan
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhAniCursor)
End Sub

Private Sub Command2_Click()
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
End Sub

Private Sub Form_Unload(Cancel As Integer)
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
End Sub

Selengkapnya...

melihat nilai keyascii pada keyboard

tips kali ini kita akan melihat berapa nilai keyascii pada keyboard, dalam tips kali ini kita membutuhkan sebuah form dan sebuah textbox
pada event textbox pilih keypress. kemudian tuliskan kode seperti dibawah ini :

Private Sub Form_KeyPress(KeyAscii As Integer)
Text1 = KeyAscii
End Sub
Selengkapnya...

menyembunyikan pointer mouse

trik sederhana ini digunakan untuk menyembunyikan pointer mouse pada form,
langsung saja, kita hanya perlu mendeklarasikan fungsi showcursor.
berikut ini contohnya :

kita membutuhkan sebuah form dan 2 buah command button dalam project kali ini :
'script codenya

Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_Unload(Cancel As Integer)
ShowCursor True
End Sub

Private Sub Command1_Click()
ShowCursor True
End Sub

Private Sub Command2_Click()
ShowCursor False
End Sub

Selengkapnya...

membuat label bergradasi

dalam trik kali ini kita akan membuat sebuah label yg apabila dijalankan akan menghasilkan warna yg bergradasi, tujuan nya untuk mempercantik form itu sendiri.
Bagaimana cara membuatnya????? ohh ternyata sangat mudah, kita hanya perlu menggeser value kode warnanya.
OK langsung saja ke project nya saja :

kita ambil contoh sebuah form, sebuah label untuk objeknya dan komponen timer, kita ambil default namanya saja form1,label1 dan timer 1

pada komponen timer1 di dobel untuk masuk ke bagian kode, lalu tulis skrip dibawah ini :

Private Sub Timer1_Timer()
Static A
A = A + 10: If A > 500 Then A = 0
Label1.ForeColor = RGB(0, 0, Abs(A - 256))
End Sub

selamat mencoba, happy coding :)
Selengkapnya...

Membuat alphablended form

apa itu yg dimaksud alphablended form??? AlphaBlend merupakan sebuah animasi ketika proses atau aplikasi mulai load atau berjalan. Dengan berupa muncul sedikit demi sedikit ataupun menghilang sedikit demi sedikit, sehingga akan mempercantik program yg anda buat, project kali ini kita buat dengan visual basic 06
langsung saja

pertama2 buka dulu vb06 nya, ya iyalah masak mau koding pake photoshop hehehehe
sebagai contoh :
1. masukkan sebuah form dengan komponen timer, misalkan saja kita beri nama form1 dan timer1
2. buat sebuah modul

untuk script kodingnya pada bagian form1 :
Option Explicit
Dim Transparan As Integer
Dim mulai As Boolean

Private Sub Form_Load()
mulai = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True: mulai = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If mulai Then
Transparan = Transparan + 5
If Transparan > 255 Then Transparan = 255: Timer1.Enabled = False
Else
Transparan = Transparan - 5
If Transparan < 0 Then Transparan = 0: End End If SetTransparan Form1.hwnd, Transparan End Sub

untuk script kodingnya pada bagian module:
Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Sub SetTransparan(frm As Long, nilai As Integer)
On Error GoTo Err
Dim attrib As Long
attrib = GetWindowLong(frm, GWL_EXSTYLE)
SetWindowLong frm, GWL_EXSTYLE, _ attrib Or WS_EX_LAYERED SetLayeredWindowAttributes frm, RGB(255, 255, 0), nilai, LWA_ALPHA
Exit Sub
Err:
MsgBox Err.Description & " Source : " & Err.Source
End Sub

sekian dari saya selamat mencoba,,,,,,, happy coding :)
Selengkapnya...