ip address

CARA MEMBUAT LOADIN

Tambahin timer & Progress Bar

Public Class Form1
    Dim intTarget As Integer
    Dim intCounter As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Mencacah
        intCounter += 1

        'Menentukan value dari ProgressBar
        'Misal:
        'Jika nilai intCounter adalah 5,
        'maka value pada ProgressPar adalah (5 / 60) * 100 = 8,3
        'atau sama dengan 8,3%
        Me.ProgressBar1.Value = (intCounter / intTarget) * 100

        'Kalau nilai intCounter sudah sama dengan intTarget
        'Maka tampilkan pesan
        If intCounter = intTarget Then
            MsgBox("Sudah 100%")

            'Mengembalikan nilai intCounter ke 0 (nol)
            intCounter = 0
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        intCounter = 0

        'Menentukan target (batas lama)
        intTarget = 60

        Me.Timer1.Enabled = True
    End Sub
End Class

Kita juga dapat membuat chart garis dan batang menjadi satu (combined). Berikut ini adalah script untuk menggabungkan kedua bentuk chart menjadi satu. Contoh ini sekaligus menjawab pertanyaan mbak Dian dalam komentaryang dituliskannya.

<?php

include ("modul/jpgraph.php");

include ("modul/jpgraph_line.php");

include ("modul/jpgraph_bar.php");

$dataJum = array();

$dataTh = array();

mysql_connect("localhost","root","root");

mysql_select_db("data");

$query = "SELECT tahun, jmlpria + jmlwanita as jum FROM sensus WHERE negara = 'A'";

$hasil = mysql_query($query);

while ($data = mysql_fetch_array($hasil))

{

        array_unshift($dataJum, $data['jum']);

        array_unshift($dataTh, $data['tahun']);

}

$graph = new Graph(300,200,"auto");

$graph->SetScale("textlin");

// menampilkan plot batang dari data jumlah penduduk

$bplot = new BarPlot($dataJum);

$graph->Add($bplot);

// menampilkan plot garis dari data jumlah penduduk

$lineplot=new LinePlot($dataJum);

$graph->Add($lineplot);

$graph->img->SetMargin(40,20,20,40);

$graph->title->Set("Grafik Jumlah Penduduk Negara A");

$graph->xaxis->title->Set("Tahun");

$graph->yaxis->title->Set("Jumlah");

$graph->xaxis->SetTickLabels($dataTh);

$graph->title->SetFont(FF_FONT1,FS_BOLD);

$lineplot->SetColor("blue");

$bplot->SetFillColor("red");

$graph->SetShadow();

$graph->Stroke();

?>

Untuk membuat chart batang, kita gunakan modul jpgraph_bar.php. Hasil dari script di atas adalah
Script yang terakhir… sekarang kita coba tampilkan chart batang yang menunjukkan data statistik jumlah masing-masing pria dan wanita untuk setiap negara pada tahun 1990. Dalam hal ini chart batang akan dikelompokkan berdasarkan jenis kelamin. Nah… ini dia scriptnya

<?php

include ("modul/jpgraph.php");

include ("modul/jpgraph_line.php");

include ("modul/jpgraph_bar.php");

// inisialisasi array untuk jumlah pria, wanita dan negara

$dataPria = array();

$dataWanita = array();

$dataNegara = array();

// koneksi ke mysql

mysql_connect("localhost","root","root");

mysql_select_db("data");

// query SQL untuk menampilkan nama negara dan jumlah prianya pada tahun 1990

$query = "SELECT negara, jmlpria, jmlwanita FROM sensus WHERE tahun = '1990' ORDER BY negara DESC";

$hasil = mysql_query($query);

while ($data = mysql_fetch_array($hasil))

{

    // menambahkan data hasil query ke array

    array_unshift($dataNegara, $data['negara']);

    array_unshift($dataPria, $data['jmlpria']);

    array_unshift($dataWanita, $data['jmlwanita']);

}

// membuat image dengan ukuran 400x200 px

$graph = new Graph(400,200,"auto");

$graph->SetScale("textlin");

// menampilkan diagram batang untuk data pria dengan warna orange

// pada diagram batang ditampilkan value data

$bplot1 = new BarPlot($dataPria);

$bplot1->SetFillColor("orange");

$bplot1->value->show();

// menampilkan diagram batang untuk data wanita dengan warna biru

// pada diagram batang ditampilkan value data

$bplot2 = new BarPlot($dataWanita);

$bplot2->SetFillColor("blue");

$bplot2->value->show();

// mengelompokkan grafik batang berdasarkan pria dan wanita

$gbplot = new GroupBarPlot(array($bplot1,$bplot2));

$graph->Add($gbplot);

// membuat legend untuk keterangan pria dan wanita

$bplot1->SetLegend("Pria");

$bplot2->SetLegend("Wanita");

$graph->legend->Pos(0.05,0.5,"right","center");

// mengatur margin image

$graph->img->SetMargin(40,110,20,40);

// menampilkan title grafik dan nama masing-masing sumbu

$graph->title->Set("Grafik Jumlah Penduduk Negara Th 1990");

$graph->xaxis->title->Set("Negara");

$graph->yaxis->title->Set("Jumlah");

// menampilkan nama negara ke sumbu x

$graph->xaxis->SetTickLabels($dataNegara);

// format font title grafik

$graph->title->SetFont(FF_FONT1,FS_BOLD);

// menampilkan efek shadow pada image

$graph->SetShadow();

// menampilkan image ke browser

$graph->Stroke();

?>

Untuk lebih menarik dan lebih informatif kita tambahkan sebuah legend pada grafik tersebut. Legend tersebut menunjukkan warna berbeda untuk pria dan wanita. Hasil dari script di atas adalah

1. Aplikasi Penjualan (d:\jual-beli\penjualan\penjualan.exe)
2. Aplikasi Pembelian (d:\jual-beli\pembelian\pembelian.exe)
3. Aplikasi Stok (d:\jual-beli\stok\stok.exe)