Membuat Grafik Dengan VB

Buka VB
Tambahkan komponen mschart, adodc dan datagrid




















Buatlah form seperti gambar berikut :


















Coding :

Dim CONN As New ADODB.Connection
Dim RSDATA As New ADODB.Recordset

Sub KONEKSI()
Set CONN = New ADODB.Connection
Set RSDATA = New ADODB.Recordset
CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path &
"\db1.mdb;Persist Security Info=False"
End Sub


Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source= " & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "DATAKU"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
Dim Nilai(1 To 6, 1 To 6) '===>>> inilah yang masih harus dicari
solusinya, karena tidak bisa berupa variabel
Call KONEKSI
RSDATA.Open "select * from dataku", CONN
RSDATA.Requery
a = 0
RSDATA.MoveFirst
Do While Not RSDATA.EOF
a = a + 1
Nilai(a, 1) = RSDATA!Data
Nilai(a, 2) = RSDATA!frekuensi
RSDATA.MoveNext
Loop

MSChart1.ChartData = Nilai
End Sub

import java.awt.Frame;
import java.awt.event.WindowListener;
import java.awt.event.WindowAdapter;
import java.awt.event.WindowEvent;
public class cebelahKU{
public static void main(String args[]){
int lebarJendela=400;
int tinggiJendela=100;
java.awt.Dimension Layar =
java.awt.Toolkit.
getDefaultToolkit().
getScreenSize();
int lebarLayar = Layar.width;
System.out.println(Layar.width);
int tinggiLayar = Layar.height;
System.out.println(Layar.height);
int awalJendX =(lebarLayar-lebarJendela)/2;
int awalJendY =(tinggiLayar-tinggiJendela)/2;
Frame f = new Frame();
f.setTitle("Sebelahku Belum Mandi");
f.setResizable(false);
f.setAlwaysOnTop(true);
f.setSize(lebarJendela,tinggiJendela);
f.setLocation(awalJendX,awalJendY);
f.setBackground(java.awt.Color.yellow);
f.setVisible(true);
f.addWindowListener(new WindowAdapter(){
public void windowClosing(WindowEvent we){
System.exit(0);
}
});
}
}