untuk membuat laporan di Visual Basic, bisa memakai data report yang sudah terinstal dengan VB6. atau bisa juga diekspor ke Excel atau Word. cara membuat laporan yang paling mudah adalah menggunakan Data Report. jika menggunakan Data Environment maka tinggal drag n drop saja. sedangkan untuk Excel atau Word, harus coding dulu.

untuk membuat report excel atau word terlebih dulu harus menambahkan library ke project VB. melalui reference menu. kemudian tinggal memasukkan coding saja.

cara-caranya bisa dilihat di modul dan contoh project berikut.

Modul

Download Example

Contoh Program disamping merupakan aplikasi penerapan frame, button, textfield, dan komponen lain pada java. sebagai inputan menggunakan textfiled untuk mengisi nilai. 

nah... untuk penghitungan luas didapat dari panjang*lebar, sedangkan keliling didapat dengan menjumlahkan sisi-sisinya. kemudian ditampilkan ke textfield luas dan keliling. sesuai dengan button yang di klik.

very simple, dengan button reset (CLEAR), dan Exit, dengan try catch untuk penanganan error. serta memakai message dialog javax.swing. untuk pop-up.

package persegi;

import java.awt.*;
import java.awt.event.*;
import javax.swing.JOptionPane;


public class Persegi extends Frame implements ActionListener{
    private final Button bt1,bt2,bt3,bt4;
    private TextField txtpanjang,txtlebar,txtluas,txtkeli;
    private TextArea tluas;
    
    public Persegi(){ 
        setTitle("Hitung Luas Persegi");
        setLayout(new FlowLayout()); 
        add(new Label("  Form Hitung Luas Persegi  "));
        add(new Label("Panjang"));
        txtpanjang = new TextField(15);
        add(txtpanjang);       
        add(new Label("Lebar    "));
        txtlebar = new TextField(15);
        add(txtlebar);
        add(new Label("Luas      "));
        txtluas = new TextField(15);
        add(txtluas);
        add(new Label("Keliling  "));
        txtkeli = new TextField(15);
        add(txtkeli);
        bt1 = new Button("Hitung Luas");
        bt1.addActionListener(this);
        add(bt1);       
        bt2 = new Button("Hitung Keliling");
        bt2.addActionListener(this);
        add(bt2);
        bt3 = new Button("Clear");
        bt3.addActionListener(this);
        add(bt3);
        bt4 = new Button("  Exit  ");        
        bt4.addActionListener(this);        
        add(bt4);        
    }
    
    public static void main (String[]args){
        
       Persegi p = new Persegi();
       p.setSize(250, 250);
       p.show();
    
    }

    @Override
    public void actionPerformed(ActionEvent e) {
        String pilih = e.getActionCommand();           
        if (pilih.equals("Hitung Luas")){         
            try{
                int p = Integer.parseInt(txtpanjang.getText());
                int l = Integer.parseInt(txtlebar.getText()); 
                if((p==0)||(l==0)){                 
                    JOptionPane.showMessageDialog(null,"Nilai 0");
                }else if((p<0)||(l<0)){
                    JOptionPane.showMessageDialog(null,"Nilai Negatif");
                }else{               
                    int luas = p*l;                
                    txtluas.setText(""+luas);
                }
            }catch(Exception E){                
                JOptionPane.showMessageDialog(null,"Input Salah \n Masukkan Angka");
            }
        }else if(pilih.equals("Hitung Keliling")){
            try {
                int p = Integer.parseInt(txtpanjang.getText());
                int l = Integer.parseInt(txtlebar.getText());
                if ((p==0)||(l==0)){
                    JOptionPane.showMessageDialog(null,"Nilai 0");
                }else if((p<0||l<0)){
                    JOptionPane.showMessageDialog(null,"Nilai Negatif");
                }else{
                    int keliling = (2*p)+(2*l);                
                    txtkeli.setText(""+keliling);
                }
            }catch (Exception E){
                JOptionPane.showMessageDialog(null,"Input Salah \n Masukkan Angka");
            }
        }else if(pilih.equals("Clear")){
               txtpanjang.setText("");
               txtlebar.setText("");
               txtluas.setText("");
               txtkeli.setText("");
        }else if (pilih.equals("  Exit  ")){            
               System.exit(0);
        }             
    }
}

Membuat form di java itu gampang-gampang susah, soalnya gak bisa drag n drop seperti pada VB, jadi harus ngoding secara manual. 

pertama-tama tambahkan librarynya bisa pake java.awt atau javax.swing, nah permasalahnya adalah harus mulai dari mana?? membuatnya??

gambar disamping contoh penggunaan java.awt dengan ditambah gambar.

package form;

import java.awt.Frame;
import java.awt.Graphics;
import java.awt.Image;
import java.awt.Toolkit;
import java.awt.event.*;
    
public class Form extends Frame implements WindowListener{
       
        String nm = "pic/bis.jpg";
        Image gbr = 
        Toolkit.getDefaultToolkit().getImage(nm);        
  
    @Override
    public void paint(Graphics g){
        setTitle("Form Gambar"); 
        addWindowListener(this);
        g.drawImage(gbr, 1, 50, 400, 240, this);
        g.drawString("Gambar 1. 400 x 240 px", 130,251);
        g.drawImage(gbr, 500, 60, 200, 120, this);
        g.drawString("Gambar 2. 200 x 120 px", 530,190);
        g.drawImage(gbr, 300, 300, 300, 140, this);
        g.drawString("Gambar 3. 300 x 140 px", 380,440);
    }
    
    public static void main (String [] args){
        Frame f = new Form();
        f.setSize(800, 500);
        f.setVisible(true);
    }
    
    @Override
    public void windowOpened(WindowEvent e){}  
    @Override
    public void windowClosing(WindowEvent e){System.exit(0);}
    @Override
    public void windowClosed(WindowEvent e){}
    @Override
    public void windowIconified(WindowEvent e){}
    @Override
    public void windowDeiconified(WindowEvent e){}
    @Override
    public void windowActivated(WindowEvent e){}
    @Override
    public void windowDeactivated(WindowEvent e) {}
}