Oom - How to know speed form access (VB6)

You can look your speed form access With simulation. This is very useful If you want To know access "speed" you form . Very Simple and easy.

'**************************************
' Name: How to knowspeed form access
' Description:This code just to know "speed" form access.
' By: oom
' Paste This code in the module don't in form_Load
' Change Start object as sub main
' For check speed form :
' run the form for the first time and look how many
' you get access on speed form.
' Step two load picture or large picture in form and
' then check again how many form speed is u get.
'**************************************
Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub main()
Dim lSpeedTime As Long
Dim SInfoSpeed As String
lSpeedTime = GetTickCount
Load Form1
Form1.Show
lSpeedTime = GetTickCount - lSpeedTime
' this is only simulation
    If lSpeedTime <= 50 Then
        SInfoSpeed = "[Very Fast]"
    ElseIf lSpeedTime >= 50 And lSpeedTime <= 100 Then
        SInfoSpeed = "[Normal]"
    ElseIf lSpeedTime >= 100 And lSpeedTime <= 200 Then
        SInfoSpeed = "[Slow]"
    ElseIf lSpeedTime >= 200 Then
        SInfoSpeed = "[Very Slow]"
End If
Form1.Caption = "Time Speed Form: " & lSpeedTime & " Milliseconds - " & SInfoSpeed
End Sub
 

User yang telah mengakses code ini sampai sekarang sebanyak  972 orang dari seluruh dunia.

Read more

Oom - Access Siemens GSM CellPhone With Full AT+Command (VB6 - Open Source)

Salah satu tool buatan o'om.

This is a full AT+Command for access siemens GSM CellPhone. This program only to know with handy test AT+Command for Siemens. With this program you can know how to access siemens with AT+Command. For example : AT+CGMI = output [SIEMENS], AT+CGMM = output [C45], Access Midi (sound) = AT^SBNW="mid",0,1 > 4D5468640000000..... (CTRL-Z) , Access Logo = example : AT^SBNW="bmp",0,0 and any other.
 

Download Source code :http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=39444&lngWId=1

Tampilan :

User yang telah mengakses code ini sampai sekarang sebanyak 4730 orang dari seluruh dunia.

Read more

Oom - Keyboard Diagnostic 2002 (VB6 - Open Source)

Ini juga salah satu tool buatan o'om.

this is program for check or find error on keyboard and another you can look keyboard information. very easy :) this program like Norton Diagnostic for keyboard. thanks.

Download Source code :http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=39441&lngWId=1
Tampilan :

User yang telah mengakses code ini sampai sekarang sebanyak  2307 orang dari seluruh dunia.

Read more

Pemenang kontes programming Visual Basic 6.0 source code (www.planet-source-code.com)

Tahun 2002 sudah lama memang! saya pernah memenangkan kontes programming VB6 Code yang diadakan di planet-source-code. Tidak ada maksud untuk menyombongkan diri, saya sadar (i'm a bad programmer) saya hanya memberikan informasi kalo orangindonesia juga bisa menang..walau cuma sekali hik..hik.

Program ini saya beri nama Avaco Uninstaller 2002 - [Updated : New ! English Version]

Untuk memudahkan saya beri tanya jawab sedikit ya..

Q : Om Program apa ini?
A : Ini adalah program yang sangat complete untuk melakukan uninstaller windows atau add/remove.

Q : Apa saja yang dilakukan program ini?
A : Dengan program ini anda dapat :
    - Mengedit Entry pada Uninstall Registry.
    - Menghapus Entry pada Uninstall Register.
    - Membuat Entry baru pada Unintall Registry.
    - Menyimpan dan mencetak laporan mengenai informasi installasi program.
    - Membuat Backup registry (export dan import registry).
    - Melihat informasi mengenai program secara detail.
    - Melihat Lokasi kelompok program (Programs Group) yang terdapat dalam direktori Windows.
    - Mengedit entry registry uninstall langsung dari regedit
    - dan masih banyak lagi....Terima kasih

Q : Sudah berapa banyak orang yang mendownload source code ini:
A : Kalo tidak salah sampai sekarang kurang lebih 16.149 ribu orang

Q : Dimana saya bisa mendownload source codenya?
A : Klikhttp://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=38980&lngWId=1

Q : Bolehkah saya mengedit source code program ini?
A : Sangat boleh, tapi jangan lupa memberikan credit inisial saya diprogram yang telah dibuat.

Q : Bolehkah saya menjual program ini?
A : tentu saja tidak boleh, karna program ini sudak mempunyai hak paten
   (The author may have retained certain copyrights to this code...please observe their request and the law by reviewing all copyright conditions at the above URL.)

Q : Kemana saya ingin bertanya mengenai source codenya?
A : ke email aja ya ar.avaco@gmail.com

Q : Thanks om.
A : Sama-sama :)

Tampilan Program:

User yang telah mengakses code ini sampai sekarang sebanyak  16,154 orang dari seluruh dunia.

Download :http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=38980&lngWId=1

Read more

Disable the close X in a form's upper right corner

Code berikut ini digunakan untuk mendisable Close X pada form

Cara penggunaan : Copy paste code ini ke form code kemudian jalankan, terlihat bahwa close X nya sudah disable

 Option ExplicitPrivate Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Const MF_BYPOSITION = &H400&Private ReadyToClose As BooleanPrivate Sub RemoveMenus(frm As Form, _remove_restore As Boolean, _remove_move As Boolean, _remove_size As Boolean, _remove_minimize As Boolean, _remove_maximize As Boolean, _remove_seperator As Boolean, _remove_close As Boolean)Dim hMenu As Long' Mengambil dari menu handle pada formhMenu = GetSystemMenu(hwnd, False)If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITIONIf remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITIONIf remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITIONIf remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITIONIf remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITIONIf remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITIONIf remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITIONEnd SubPrivate Sub cmdClose_Click()ReadyToClose = TrueUnload MeEnd SubPrivate Sub Form_Load()' Menghapus sistem close pada menu separator.RemoveMenus Me, False, False, _False, False, False, True, TrueEnd Sub' Batalkan jikaReadyToClose dalam modus false.Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Cancel = Not ReadyToCloseEnd Sub

Read more

Menjalankan form selalu berada paling depan "alwasy on top"

Ada kalanya kita ingin menampilkan form kita selalu berada paling depan, untuk mempermudah hal tersebut om akan memberikan solusinya

Deklarasi

Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Code yang digunakan

'Code ini akan menampilkan form selalu didepan
rtn = SetWindowPos(OnTop.hwnd, -2, 0, 0, 0, 0, 3)

'Code ini untuk mengembalikan fungsi diatas
rtn = SetWindowPos(OnTop.hwnd, -1, 0, 0, 0, 0, 3)


Cara Menjalankan : Copy code di bawah pada form code)

Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Load()
 this code makes the window stay on top
 rtn = SetWindowPos(OnTop.hwnd, -2, 0, 0, 0, 0, 3)
End Sub

Tag: Always on top

Read more

Mengubah ukuran tampilan form (Sizable toolwindow) menggunakan SetWindowLong API function

'Paste kode ini pada Modul

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const WS_EX_TOOLWINDOW = &H80&
Public Const GWL_EXSTYLE = (-20)

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOSIZE = &H1


'Paste code ini pada form code

Private Sub Form_Load()
Dim xx As Long

xx = GetWindowLong(hwnd, GWL_EXSTYLE)
xx = SetWindowLong(hwnd, GWL_EXSTYLE, _
xx Or WS_EX_TOOLWINDOW)

SetWindowPos hwnd, 0, 0, 0, 0, 0, _
SWP_FRAMECHANGED Or SWP_NOMOVE Or _
SWP_NOZORDER Or SWP_NOSIZE
End Sub

Read more

How to Shell out to default web browser

Kita dapat Memanggil default browser kemudian menjalankan Url yang kita inginkan.

Cara menjalankan code:

'Paste code ini pada Module
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const conSwNormal = 1

'Paste code ini pada CommanButton
ShellExecute hwnd, "open", "http://oom-vb.blogspot.com", vbNullString, vbNullString, conSwNormal

Read more

Best 20 Visual Basic Tutorial

Dibawah ini merupakan 20 kumpulan situs visual basic terbaik yang bisa jadi acuan bagi yang ingin lebih mendalami visual basic.

A1VBCode - VB Source Code Site: Provides hundreds free Visual Basic source code snippets and applications in all categories. Submit your own code and win monthly VB prizes.

VB Wire: A Visual Basic news source. This site provides Visual Basic news which is updated daily. The site also provides a weekly VB newsletter which is delivered to your inbox with all of the past weeks VB news.

AppDev Training: Developer Training for Visual Basic, ASP, XML, SQL Server, VBA, Microsoft Access, Visual InterDev, and FoxPro through CD’s, videos, classes and licensing.

ITtoolbox Portal for Visual Basic: Content, community, and service for Visual Basic professionals. Providing technical discussion, job postings, an integrated directory, news, and much more.

VB Chat: A place where you can go and chat live about Visual Basic with other Visual Basic programmers around the world.

Just VB Jobs: This is an excellent new job site. It contains a huge database of nothing but VB jobs. It also contains numerous other VB resources which you'll find very helpful.

VBShop - The Visual Basic Shop: Tools and tips for VB programmers. Optimization, documentation, add-ins.

Programmers Heaven - Where programmers go: The Internet's most complete source of free downloadable programming files, source codes, utilities, Visual Basic, C/C++, JAVA, and other tools for programmers and developers. All files and links are organized in an easy-to-find format.

Visual Basic Jobs: Another excellent VB job site which you can use to search through a huge list of Visual Basic jobs across the U.S.

ProgrammingTutorials.com: Excellent site offering programming tutorials in many categories.

VB Code: This very popular site contains many VB code samples and snippets which you can search through.

VB Web Directory: Contains a huge index of Visual Basic Resources. Contains links, books, VB forums, job bank, and much more.

CodeGuru: An information resource for Visual Basic programmers. Contains information on all aspects of Visual Basic.

VB Accelerator: An excellent general Visual Basic site providing up to date VB news, tips, and many source code samples.

Visual Basic Expert: This site is for serious VB developers, huge amounts of professional code for download, help forum, developer resources, book reviews, online training and more..

Developers Domain: This site contains free code downloads, message boards, links, and much more.

Visual Basic Bookmark: A comprehensive directory of programming resources and development information for Visual Basic programmers, Database developers & web designers.

CodeArchive.com- The Source Code Site: The largest amount of Visual Basic source code on the Internet. Other features include a chat room and message board. You can get 50 MB for your own web site on CodeArchive.com .

Planet Source Code: Contains thousands of lines of source code which you can copy and paste directly into your own applications. Some of the code is in downloadable zip files.

VB Web - The online guide to VB- Over 120 downloads, and Tutorials on Commands, Controls, Windows API, Subclassing, Debugging and more. We also have Links, a Free Newsletter and Book Reviews. Fully Searchable.

Dari semua yang terbaik diatas menurut saya yang paling terbaik adalah planet-source-code.com

Sumber:http://www.visualbasicbooks.com

Read more

Package

Package adalah cara untuk mengelompokan class dan interface yang ada ke dalam kelompoknya (name space) masing – masing sehingga lebih mudah diatur dan memungkinkan penggunaan nama yang sama.

Untuk mendefinisikan suatu package digunakan keyword package. Pendefinisian nama package harus terletak di bagian paling atas dari source program kita. Sintaks pendefinisian nama package adalah sebagai berikut:

package namaPackage;

Contoh:

package siswa;

Java menggunakan package seperti struktur direktori. Oleh karena itu semua class atau interface yang memiliki definisi package seperti contoh di atas, harus disimpan pada direktori bernama siswa.
Kita juga dapat membuat package secara hierarki layaknya struktur direktori.
Contoh:

package hen.com.contoh;

Pada contoh di atas menunjukan bahwa semua class atau interface yang menggunkan deklarasi package ini harus disimpan pada direktori hen -> com -> contoh.
Apabila program kita akan menggunakan sebua class yang terletak pada package yang berbeda, maka kita harus mengimportnya agar dapat digunakan.

packace control;
public interface Control {
 public void pindahChannel(int channel);
 public void perbesarVolume(int intensitas);
 public void perkecilVolume(int intensitas);
}


package tv;
import control.Control;
public class TVPolitron implements Control{
 String[] channel = {"RCTI","SCTV","INDOSIAR","ANTV","TV7"};
 public void pindahChannel(int channel) {
  System.out.println("Pindah channel pada TV Politron ke "+ this.channel[channel]);
 }
 
 public void perbesarVolume(int intensitas) {
  
  System.out.println("Perbesar volume pada TV Politron sebanyak "+ intensitas);
 }
 
 public void perkecilVolume(int intensitas) {
    System.out.println("Perkecil volume pada TV Politron sebanyak "+ intensitas);
 }

}


package tv;
import control.Control;
public class TVSamsung implements Control{
 String[] channel = {"RCTI","SCTV","INDOSIAR","ANTV","TV7"}; 
 public void pindahChannel(int channel) {  
  System.out.println("Pindah channel pada TV Samsung ke "+ this.channel[channel]);
 } 
public void perbesarVolume(int intensitas) {  
  System.out.println("Perbesar volume pada TV Samsung sebanyak "+ intensitas);
 }
public void perkecilVolume(int intensitas) {  
  System.out.println("Perkecil volume pada TV Samsung sebanyak "+ intensitas);
 }
}


package remote;
import control.Control;
import tv.*;
public class RemoteControl { 
 public void kirimPerintahKeTv(int aksi,Control tv,int tombol){
  switch(aksi){
   case 1:
    tv.pindahChannel(tombol);
    break;
   case 2:
    tv.perbesarVolume(tombol);
    break;
   case 3:
    tv.perkecilVolume(tombol);
    break;
  }
 }
}


import remote.RemoteControl;
import tv.*;
import control.Control;
public class TestRemoteControl {
 public static void main(String[] args){
  TVPolitron tvp = new TVPolitron();
  TVSamsung tvs = new TVSamsung();
  RemoteControl rc = new RemoteControl();
  
  rc.kirimPerintahKeTv(1,tvp,1);  
 }
}

Read more

Exception

Exception dalam Java didefinisikan sebagai sebuah obyek yang muncul ketika terjadi kondisi tidak normal dalam sebuah program. Untuk menangani exception dalam sebuah program, dapat digunakan pernyataan try, catch, dan finally. Penjelasan ketiga pernyataan tersebut adalah sebagai berikut:

1. try digunakan untuk mendefinisikan pernyataan yang memungkinkan timbulnya exception.
2. catch digunakan untuk menangani exception ketika muncul.
3. finally digunakan untuk menutup proses sebelumnya, dimana pernyataan ini boleh untuk tidak digunakan.

Perhatikan contoh berikut:

public class TestTryCatch{
   public static void main(String[] args){
      int i = 1; 
      int j = 0;
      try{
          System.out.println("Try block entered " + "i = "+ i + " j = "+j);
    System.out.println(i/j);       
          System.out.println("blok try berakhir");
      }catch(ArithmeticException e) {
System.out.println("terjadi exception");
      }
      System.out.println("setelah blok try");
      return;
  }
}

Perhatikan juga contoh berikut:

import java.io.IOException;
public class TryBlockTest{
   public static void main(String[] args) throws IOException{
       int[] x = {10, 5, 0};  
       try{
  System.out.println("Blok try pertama");
  System.out.println("hasil = " + divide(x,0));  
  x[1] = 0;     
  System.out.println("hasil = " + divide(x,0)); 
  x[1] = 1;    
  System.out.println("hasil = " + divide(x,1)); 
 } catch(ArithmeticException e){
  System.out.println("Arithmetic exception”);
 } catch(ArrayIndexOutOfBoundsException e) {
      System.out.println("Index-out-of-bounds exception");
     }
    System.out.println("\nTekan Enter untuk keluar");
    try {
     System.out.println("blok try kedua");
     System.in.read();     
     return;
    }catch(IOException e){
    System.out.println("I/O exception ");
    }finally{
         System.out.println("blok finally");
   
    }
   }
   public static int divide(int[] array, int index){
  try{
     System.out.println("\nblok try pertama");
     array[index + 2] = array[index]/array[index + 1];
     return array[index + 2];
  }catch(ArithmeticException e) {
       System.out.println("Arithmetic exception");
  }catch(ArrayIndexOutOfBoundsException e) {
   System.out.println("Index-out-of-bounds exception");
 }finally{
      System.out.println("blok finally");
   }
      return array[index + 2];
   }
}

Read more

Penanganan Input dan Output

Pada contoh – contoh sebelumnya sebenarnya kita telah menggunakan salah satau fungsi output pada java, yaitu method println() yang ada pada System.out. Di dalam Java semua operasi yang berhubungan dengan input dan output sudah disediakan. Librari yang perlu dipelajari yaitu paket java.io.

Dalam paket java.io terdapat banyak sekali class – class yang berhubungan dengan input dan output. Oleh karena itu kita tidak mungkin akan membahas semua class tersebut satu persatu. Tetapi anda tidak perlu kawatir karena documentasi Java cukup mudah dipelajari dan hampir semua class pada paket java.io cara penggunaannya sederhana.

Membaca Input dari Keyboard
Untuk mendapatkan inputan dari keyboard kita dapat menggunakan beberapa cara. Yang pertama kita bisa memanfaatkan parameter String[] args yang ada pada method main. Perhatikan contoh berikut ini:

public class InputArgs {
 public static void main(String[] args){
  System.out.print("Nama Anda : ");
  for(int x=0;x<args.length;x++){
   System.out.print(args[x]+ " ");
  }
 }
}

Kompile program di atas dan jalankan lewat console/DOS Prompt seperti di bawah ini.

C:\java InputNama Hendro Steven

Kelemahan pada contoh di atas adalah kita hanya dapat melakukan input pada saat akan menjalankan program, dan pada saat run-time kita tidak dapat melakukan input lagi. Untuk dapat melakukan inputan pada saat run-time, kita dapat menggunakan cara seperti contoh program di bawah ini.

import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
public class InputConsole {
public static void main(String[] args) throws IOException{
BufferedReader input = new BufferedReader(new InputStreamReader(System.in));
System.out.print("Nama Anda : ");
String nama = input.readLine();
System.out.print("Pekerjaan Anda : " +nama);
String job = input.readLine();
System.out.println(nama+” adalah ”+job);
}
}

Dengan contoh di atas kita dapat memberikan inputan saat run-time. Jangan lupa untuk mengimport class – class yang kita gunakan.

Membaca Input dari File
Salah satu fungsi yang cukup penting dalam pemograman adalah bagaimana membaca isi dari sebuah file. Untuk membaca isi sebuah file tentunya kita masih akan menggunakan pake java.io dan contoh di berikut ini akan menunjukan betapa mudahnya membaca file dengan Java.

import java.io.BufferedReader;
import java.io.FileInputStream;
import java.io.IOException;
import java.io.InputStreamReader;

public class InputConsole {
public static void main(String[] args) {
try{
FileInputStream file = new FileInputStream(args[0]);
BufferedReader input = new BufferedReader(new InputStreamReader(file));
System.out.println(input.readLine());
input.close();
file.close();
}catch(IOException e){
System.out.println(e.getMessage());
}
}
}

Kompile program di atas dan jalankan lewat console seperti berikut ini:

C:\java BacaFile data.txt

Menulis Data ke File
Untuk menulis data ke sebuah file tidak jauh berbeda dengan contoh – contoh sebelumnya. Untuk lebih jelasnya perhatikan contoh berikut ini:

import java.io.BufferedWriter;
import java.io.FileNotFoundException;
import java.io.FileOutputStream;
import java.io.IOException;
import java.io.OutputStreamWriter;
public class TulisFile {
public static void main(String[] args) {
try {
      FileOutputStream file = new FileOutputStream("C:/Data.txt");
 BufferedWriter output = new BufferedWriter(new OutputStreamWriter(file));
 String data = "Nama Saya Hendro Steven Tampake";
 output.write(data);
 output.close();
 file.close();
 System.out.println("OK");
} catch (FileNotFoundException e) {
e.printStackTrace();
} catch(IOException e){
e.printStackTrace();
}
}
}

Di dalam paket java.io masih terdapat banyak class – class yang berhubungan dengan input dan output yang belum kita bahas. Diharapkan anda melakukan eksplorasi secara individu dengan panduan API yang ada.

Read more

Pengantar Java Swing

Java Swing adalah librari java yang digunkan untuk menciptakan Grafik User Interface (GUI). Dengan Java Swing kita dapat membuat user interface yang cross platform atau OS independent. Artinya user interface yang kita buat dapat dijalankan pada system operasi apa saja (OS yang suport Java) dengan tampilan yang relative sama. Bahkan kita dapat membuat user interface yang menyerupai Windows XP, Mac OS atau Linux tanpa tergantung dari OS yang kita gunakan.

Komponen Dasar Swing
Secara umum ada lima bagian dari Swing yang akan sering kita gunakan. Komponen atau bagian – bagian itu adalah:

1. Top-level Container, merupakan container dasar di mana komponen lainnya diletakan. Contoh Top-level container ini adalah Frame, Dialog dan Applet yang diimplementasi dalam class JFrame, Jdialog, dan JApplet.
2. Intermediate Container, merupakan komponen perantara di mana komponen lainnya akan diletakan. Salah satu contoh container ini adalah class JPanel.
3. Atomic Component, merupakan komponen yang memiliki fungsi spesifik dan biasanya user berinteraksi langsung dengan komponen jenis ini. Contohnya adalah JButton, JLabel, JTextField, dan JTextArea.
4. Layout Manager, berfungsi untuk mengatur bagaimana posisi dari komponen – komponen yang diletakan pada container. Secara default terdapat 5 macam layout yaitu berupa class BorderLayout, BoxLayout, FlowLayout, GridBagLayout, dan GridLayout.
5. Event Handling, untuk menangani event yang dilakukan oleh user misalnya menekan tombol, mengkilik mouse dan lain – lain.

Read more

Membuat Window dengan JFrame

Untuk membuat Window dengan JFrame tentunya kita akan menggunakan class JFrame. Perhatikan contoh berikut ini:

import javax.swing.*;
public class TestFrame{
   public static void main(String[] args){
 JFrame frame = new JFrame(“Contoh JFrame”);
 frame.setSize(400,150);
 frame.show();
   }
}

Saat kita jalankan program di atas maka pada layar akan ditampilkan window sederhana. Tetapi saat kita menutup window tersebut ternyata program kita tidak benar – benar berhenti. Oleh karena itu kita perlu menambahakan baris perintah lagi sehingga menjadi seperti contoh berikut:

import javax.swing.*;
public class TestFrame{
   public static void main(String[] args){
 JFrame frame = new JFrame(“Contoh JFrame”);
 frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
 frame.setSize(400,150);
 frame.show();
   }
}

Read more

Menambahkan Teks Field dan Tombol pada Frame

Untuk menambahkan teks field dan tombol pada frame yang telah kita buat tadi cukup sederhana. Untuk jelasnya perhatikan contoh berikut ini:

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class SimpleForm {
   public static void main(String[] args){
 JFrame myFrame = new JFrame("Form Sederhana");
FlowLayout layout = new FlowLayout(FlowLayout.LEFT);
 layout.setVgap(10);
 layout.setHgap(10);
  
 JTextField txtPesan = new JTextField(20);  
 JButton cmdTampil = new JButton("Tampil");
 JButton cmdClose = new JButton("Keluar");
 
 myFrame.getContentPane().setLayout(layout);
 myFrame.getContentPane().add(txtPesan);
 myFrame.getContentPane().add(cmdOK);
 myFrame.getContentPane().add(cmdClose);
   myFrame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
 myFrame.pack();
 myFrame.show();
   }
}

Read more

Kotak Dialog

Kotak dialog adalah komponen dalam Swing yang digunakan untuk menampilkan pesan. Misalnya pesan kesalahan, input box atau konfirmasi biasa. Untuk contoh berikut ini kita akan menampilkan pesan saat kita menekan tombol Tampil. Pesan yang di tampilkan sesuai dengan inputan yang kita berikan pada txtPesan.

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class SimpleForm {
   public static void main(String[] args){
 JFrame myFrame = new JFrame("Form Sederhana");
 FlowLayout layout = new FlowLayout(FlowLayout.LEFT);
 layout.setVgap(10);
 layout.setHgap(10);
 
 final JTextField txtPesan = new JTextField(20);  
 JButton cmdTampil = new JButton("Tampil");
 cmdTampil.addActionListener(new ActionListener(){
     public void actionPerformed(ActionEvent evt){
JOptionPane.showMessageDialog(null,txtPesan.getText());
    }
 });
 JButton cmdClose = new JButton("Keluar");
 cmdClose.addActionListener(new ActionListener() {
    public void actionPerformed(ActionEvent evt) {
   System.out.println("Keluar");
   System.exit(0);
    } 
 });
  
 myFrame.getContentPane().setLayout(layout);
 myFrame.getContentPane().add(txtPesan);
 myFrame.getContentPane().add(cmdTampil);
 myFrame.getContentPane().add(cmdClose);
  
 myFrame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
 myFrame.pack();
 myFrame.show();
   } 
}

Read more

Menambahkan Event pada Tombol

Untuk menambahkan event pada tombol perhatikan contoh berikut:

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class SimpleForm {
   public static void main(String[] args){
      JFrame myFrame = new JFrame("Form Sederhana");
 FlowLayout layout = new FlowLayout(FlowLayout.LEFT);
 layout.setVgap(10);
      layout.setHgap(10);
 
JTextField txtPesan = new JTextField(20);  
 JButton cmdTampil = new JButton("Tampil");
 JButton cmdClose = new JButton("Keluar");
 cmdClose.addActionListener(new ActionListener() {
  public void actionPerformed(ActionEvent evt) {
    System.out.println("Keluar");
    System.exit(0);
   } 
  });
 myFrame.getContentPane().setLayout(layout);
 myFrame.getContentPane().add(txtPesan);
 myFrame.getContentPane().add(cmdOK);
 myFrame.getContentPane().add(cmdClose);
 
 myFrame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  myFrame.pack();
  myFrame.show();
 } 
}

Read more

Membuat Window dengan Netbeans

Ini ada video tutorial bagaimana menggunakan Netbeans untuk membuat GUI. Video tutorial ini udah saya posting di kumpulan artikel di netbeans.org. Video tutorialnya dibagi beberapa file, mudah-mudahkan bermanfaat bagi pemula.

Lihat semua

Read more

Mengakses Database

Untuk mengakses database dengan Java cukup mudah. API Java yang perlu dipelajari ada dalam paket java.sql. Class-class yang berhubungan dengan mengakses database antara lain Connection, Statement, PreparedStatement dan ResultSet. Teknologi Java untuk mengakses database disebut JDBC. Dengan JDBC kita dapat menciptakan koneksi ke database, mengirimkan perintah-perintah sql dan memproses hasil eksekusi sql.

Hal lain yang dibutuhkan untuk mengakses database adalah JDBC Driver. JDBC Driver berbeda untuk setiap database yang ada. Misalnya JDBC Driver untuk MySQL akan berbeda dengan JDBC Driver untuk SQL Server atau Oracle.

Aplikasi database yang dikembangkan menggunakan teknologi Java tidak akan terikat dengan database yang digunakan. Maksudnya adalah kita dapat bergonta-ganti database engine dari yang satu ke database engine yang lain tanpa harus mengubah source program kita secara signifikan. Yang perlu diganti hanyalah JDBC Driver yang digunakan.

Berikut adalah beberapa contoh program Java sederhana untuk mengakses database MySQL. Sekali lagi untuk mengakses database MySQL dibutuhkan JDBC Driver MySQL. Silahkan download di sini

Membaca Data

/**
* @author Hendro Steven
*/
import java.io.IOException;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.ResultSet;
import java.sql.SQLException;
import java.sql.Statement;
import javax.swing.*;
public class DatabaseApp{
public static void main(String args[]){
 Connection conn = null;
 Statement st = null;
 ResultSet result=null;

 String sql = "SELECT * FROM t_pegawai";

 try{
   //load Driver
   Class.forName("com.mysql.jdbc.Driver").newInstance();
   //Define the Connection URL
   String dbURL = "jdbc:mysql://localhost/db_training";
   String dbUser = "";
   String dbPass = "";
   //Establish The Connection
   conn = DriverManager.getConnection(dbURL,dbUser,dbPass);
   //Create a statement object
   st = conn.createStatement();
   //Execute a query
   result = st.executeQuery(sql);
   //Process the results
   System.out.println("Database Result :");
   while(result.next()){
     String kode = result.getString(1);
     String nama = result.getString(2);
     String alamat = result.getString(3);
     String gaji = result.getString(4);
     System.out.println("KODE   : "+ kode);
     System.out.println("NAMA   : "+ nama);
     System.out.println("ALAMAT : "+ alamat);
     System.out.println("GAJI   : "+ gaji);
     System.out.println();
   }   
   //close the connection
   st.close();
   conn.close();   
 }catch (InstantiationException e) {
   System.out.println("InstantiationException....");
   System.out.println(e.getMessage());
 }catch (ClassNotFoundException e) {
   System.out.println("ClassNotFoundException....");
   System.out.println(e.getMessage());
 }catch (IllegalAccessException e) {
   System.out.println("IllegalAccessException....");
   System.out.println(e.getMessage());
 }catch (SQLException e) {
   System.out.println("SQLException....");
   System.out.println(e.getMessage());
 }
}
}

Menambah Data

/**
* @author Hendro Steven SalatigaCamp
*/
import java.io.IOException;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.ResultSet;
import java.sql.SQLException;
import java.sql.Statement;
import java.io.*;

public class AddDataApp{
public static void main(String args[]){
  Connection conn = null;
  Statement st = null;
  ResultSet result=null;

  String sql = "";
  BufferedReader input = new BufferedReader(new InputStreamReader(System.in));

  try{
    //load Driver
    Class.forName("com.mysql.jdbc.Driver").newInstance();
    //Define the Connection URL
    String dbURL = "jdbc:mysql://localhost/db_training";
    String dbUser = "";
    String dbPass = "";
    //Establish The Connection
    conn = DriverManager.getConnection(dbURL,dbUser,dbPass);
    //Create a statement object
    st = conn.createStatement();
  
    //ambil input dari console
    System.out.println("Input Data");
    System.out.print("KODE     : "); String kode = input.readLine();
    System.out.print("NAMA   : "); String nama = input.readLine();
    System.out.print("ALAMAT : "); String alamat = input.readLine();
    System.out.print("GAJI   :");  double gaji = Double.parseDouble(input.readLine());    
    sql = "INSERT INTO t_pegawai VALUES('"+kode+"','"+nama+"','"+alamat+"',"+gaji+")";
  
    //Execute a query
    st.executeUpdate(sql);
    System.out.println("Completed...");
  
    //close the connection
    st.close();
    conn.close();
  }catch (InstantiationException e) {
    System.out.println("InstantiationException....");
    System.out.println(e.getMessage());
  }catch (ClassNotFoundException e) {
    System.out.println("ClassNotFoundException....");
    System.out.println(e.getMessage());
  }catch (IllegalAccessException e) {
    System.out.println("IllegalAccessException....");
    System.out.println(e.getMessage());
  }catch (SQLException e) {
    System.out.println("SQLException....");
    System.out.println(e.getMessage());
  }catch (IOException e){
    System.out.println("IOException....");
    System.out.println(e.getMessage());
  }           
}
}

Menghapus Data

/**
 * @author Hendro Steven SalatigaCamp
 */
import java.io.IOException;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.ResultSet;
import java.sql.SQLException;
import java.sql.Statement;
import java.io.*;

public class DelDataApp{
 public static void main(String args[]){
   Connection conn = null;
   Statement st = null;
   ResultSet result=null;
  
   String sql = "";
   BufferedReader input = new BufferedReader(new InputStreamReader(System.in));
  
   try{
     //load Driver
     Class.forName("com.mysql.jdbc.Driver").newInstance();
     //Define the Connection URL
     String dbURL = "jdbc:mysql://localhost/db_training";
     String dbUser = "";
     String dbPass = "";
     //Establish The Connection
     conn = DriverManager.getConnection(dbURL,dbUser,dbPass);
     //Create a statement object
     st = conn.createStatement();
    
     //ambil input dari console
     System.out.println("Input Kode Yang akan dihapus :");
     System.out.print("KODE     : "); String kode = input.readLine();       
     sql = "DELETE FROM t_pegawai WHERE kode='"+kode+"'";
    
     //Execute a query
     st.executeUpdate(sql);
     System.out.println("Completed...");
    
     //close the connection
     st.close();
     conn.close();
   }catch (InstantiationException e) {
     System.out.println("InstantiationException....");
     System.out.println(e.getMessage());
   }catch (ClassNotFoundException e) {
     System.out.println("ClassNotFoundException....");
     System.out.println(e.getMessage());
   }catch (IllegalAccessException e) {
     System.out.println("IllegalAccessException....");
     System.out.println(e.getMessage());
   }catch (SQLException e) {
     System.out.println("SQLException....");
     System.out.println(e.getMessage());
   }catch (IOException e){
     System.out.println("IOException....");
     System.out.println(e.getMessage());
   }            
 }
}

Read more

Membuat program chating LAN sederhana

Hai para vbthok mania…sudah hampir 2 bulan neh penulis tidak produktif dalam pembuatan artikel untuk vbthok mania dikarenakan penulis lagi sibuk dengan pekerjaan yang menyita bnyak waktu.Hehehe…sok sibuk deeh…

Oke kali ini penulis ingin mengajak vbthok mania untuk sharing lagi dalam pembuatan program chating dimana program ini dibuat hanya untuk Local Area Network (LAN) dan tidak untuk online diinternet. Mungkin kalian berfikir kenapa hanya untuk LAN saja tidak bisa untuk online diinternet, nah kalo untuk online diinternet mungkin sudah banyak program jadi yang tidak kalah keren dan handal seperti yahoo messeger, so kalian bisa menggunakan program jadi tersebut daripada buat sendiri…Hehehehe
Tapi jangan salah kalo kalian ingin chat hanya untuk LAN mungkin kalian tidak akan bisa menggunakan program yahoo messenger dan untuk itu penulis ingin membuat program chating hanya untuk LAN saja. Yah sapa tau dengan program sederhana ini vbthok mania ingin mengembangkannya lagi menjadi program yang setara dengan yahoo messenger atau bahkan bisa dipakai di internet dan LAN.Woww..kereen tuuh…
Yawda tanpa panjang lebar lagi sekarang buatlah 1 project untuk server yang nantinya program ini dijalankan pada komputer yang dijadikan server, nah didalam project ini buat 1 form dan berikan 1 komponen winsock dengan mengaktifkan komponen microsoft winsock control terlebih dahulu ditabel komponen pada program visual basic, setting propertis untuk name winsock diganti menjadi server. Kemudian desain tampilan sesuai yang ada pada gambar dengan memberikan 1 textbox untuk tabel messageg chat yang disetting propertisnya untuk name = tbmessage multiline = true, scrollbar = vertical kemudian 1 text untuk tulis pesan dengan setting propertisnya name = tbsay, 2 label untuk tombol connect dan disconnect dengan setting propertis label1 name = startt dan label2 name = stopp. Berikut tampilan preview program chat untuk server yang sudah jadi

Untuk yang client hampir sama tinggal menambahkan text untuk ip address server saja dan tombol untuk koneksi, berikut tampilan untuk program clientnya


untuk sorce codenya sebagai berikut
'form server
Private Sub Form_Load()
startt.Visible = True
stopp.Visible = False
End Sub

Private Sub stopp_Click()
startt.Visible = True
Server.Close
stopp.Visible = False
End Sub

Private Sub Label1_Click()
End
End Sub

Private Sub startt_Click()
stopp.Visible = True

startt.Visible = False
Server.LocalPort = 2500
Server.Listen
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
Server.Close
Server.Accept requestID
End Sub

Private Sub Server_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Call MsgBox(Description, bvExclimation, "Error Num." & Number)
End Sub

Private Sub Server_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Server.GetData strData
tbMessages.Text = tbMessages & "Client: " & strData & vbCrLf
End Sub

Private Sub tbSay_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim strMessage As String
If KeyAscii = (13) Then
strMessage = tbSay.Text
tbMessages.Text = tbMessages.Text & "Server: " & tbSay & vbCrLf
Server.SendData strMessage
tbSay.Text = ""
End If
End Sub



'form client
Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
tbl_konek.Visible = True
tbl_disconect.Visible = False

End Sub


Private Sub tbl_konek_Click()
On Error GoTo Error:
Client.RemotePort = 2500
Client.RemoteHost = tbIP.Text
Client.Connect
tbl_konek.Visible = False
tbl_disconect.Visible = True
Error: Exit Sub
End Sub

Private Sub cbConnect_Click()

End Sub

Private Sub tbl_disconect_Click()
Client.Close
tbl_konek.Visible = True
tbl_disconect.Visible = False

End Sub


Private Sub tbSay_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim strData As String
If KeyAscii = (13) Then
strData = tbSay.Text
tbMessages.Text = tbMessages.Text & "Client: " & tbSay & vbCrLf
Client.SendData strData
tbSay.Text = ""
End If
End Sub

Private Sub Client_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Client.GetData strData
tbMessages.Text = tbMessages & "Server: " & strData & vbCrLf
End Sub

Private Sub Client_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Call MsgBox(Description, vbExclamation, "Error Num." & Number)
End Sub

Segitu aja script kodenya, silakan mencoba sendiri dan berkespresi lagi dalam mengembangkan program chat untuk LAN ini....yang pasti tetep semangat dan pantang menyerah untuk belajar. OK??
Oiya untuk yang pengen liat lansung source codenya bisa di donlot disini

Read more