Grafika Komputer dengan Visual Basic 6

Author: Danu Wira · Published: October 28, 2010 ·

Dalam Visual Basic kita dapat membuat program untuk menghasilkan tampilan grafis dalam form. Selain itu kita juga dapat menentukan koordinat dari tampilan grafis yang akan kita tampilkan.
Dalam kesempatan kali ini kita akan coba menggunakan fungsi-fungsi tersebut dalam mengolah grafika komputer dalam Visual Basic 6.
Beberapa fungsi yang akan kita gunakan adalah:
1. Line Method
2. Circle Method
3. Pset Method
4. Scale Method
Mari kita pelajari 1 persatu penggunaan fungsi tersebut.
1. Line Method
Line Method adalah metode yang digunakan untuk membuat garis horizontal, vetikal, atau diagonal.
Sintaks: ObjectName.Line(x1,y1)-(x2,y2),Color,[B][F]
Cara membuat (contoh):
Private Sub Form_Click()
Scale (0, 70)-(70, 0)
Line (10, 0)-(20, 45), vbBlue
Line (20, 0)-(30, 55), vbRed, B
Line (30, 0)-(40, 40), , BF
End Sub
2. Circle Method
Circle Method adalah metode yang digunakan untuk menggambar lingkaran.
Sintaks: ObjectName.Circle(x,y),Radius,Color
Cara membuat(contoh):
Private Sub Form_Click()
Circle (2000, 1000), 800
End Sub
3. Pset Method
Pset Method digunakan untuk menggambar satu titik.
Sintaks: ObjectName.Pset(x,y),Color
Cara membuat(contoh):
Private Sub Form_Click()
PSet (1000, 2000)
End Sub
4. Scale Method
Scale Method digunakan untuk mendefinisikan sistem koordinat pada form berdasarkan basis ujung kiri atas
Sintaks: ObjectName.Scale(x1,y1) – (x2,y2)
Sebagai contoh, lihat pada contoh Line Method:
Scale (0, 70)-(70, 0)
Untuk hasil yang lebih komplit, silahkan ketikkan listing berikut pada form anda:.
Program Grafika Komputer:
Private Sub Form_Click()
‘Deklarasi Garis’
Line (200, 300)-(500, 600)
Print “Garis”
‘Deklarasi Kotak Berwarna’
Line (3000, 100)-(3900, 450), vbBlue, BF
CurrentX = 3100
CurrentY = 200
Print “Kotak Berwarna”
‘Deklarasi Kotak’
Line (1000, 500)-(3000, 1500), , B
CurrentX = 1200
CurrentY = 600
Print “Kotak”
‘Deklarasi Lingkaran’
Circle (2000, 1000), 600
CurrentX = 1600
CurrentY = 800
Print “Lingkaran”
‘Deklarasi Titik’
PSet (2000, 1000)
Print “(2000,1000)”
CurrentX = 1000
CurrentY = 500
Print “(1000,500)”
CurrentX = 3000
CurrentY = 1500
Print “(3000,1500)”
End Sub
Listing diatas akan menghasilkan gambar berikut ini :
Selamat mencoba dan selamat belajar ya.
Untuk artikel pemrograman lainnya dapat anda baca di blog saya :http://bangdanu.wordpress.com
Semoga berguna.
Salam,
Danu Wira Pangestu, S.Kom.
Webmedia Training Center
http://www.webmediacenter.com

Tutorial Pemrograman Fuzzy Logic


Author: Administrator · Published: February 24, 2008 ·
Fuzzy Logic banyak diaplikasikan dalam berbagai bidang, salah satunya adalah sebagai alat bantu pengambil keputusan. Dalam artikel ini diberikan contoh proses pembuatan program fuzzy logic dalam bahasa pemrograman Java yang diaplikasikan untuk menentukan Jumlah Produk yang dihasilkan berdasarkan kondisi Suhu, Kebisingan dan Pencahayaan. Implementasi bahasa pemrograman Java untuk pembentukan fungsi keanggotaan, proses penalaran fuzzy metode Sugeno, proses fuzzifikasi dan defuzzifikasi akan dibahas. Program diuji terhadap suatu kondisi Suhu, Kebisingan dan Pencahayaan tertentu untuk mengetahui hasilnya.
Download Tulisan Lengkap: denny-pemrogramanfuzzy.zip

Sistem Pakar untuk Identifikasi Gangguan Telepon

Author: Administrator · Published: November 25, 2008 .

Sistem pakar merupakan salah satu bidang teknik kecerdasan buatan yang cukup diminati karena penerapannya diberbagai bidang baik bidang ilmu pengetahuan maupun bisnis yang terbukti sangat membantu dalam mengambil keputusan dan sangat luas penerapanya. Sistem pakar adalah suatu sistem komputer yang dirancang agar dapat melakukan penalaran seperti layaknya seorang pakar pada suatu bidang keahlian tertentu (Shelly, 1990; Setiawan, 1993; Margianti, 1995).

Tulisan berikut merupakan hasil studi kasus pada PT.Telkom Indonesia. Semoga bermanfaat.

DOWNLOAD ARTIKEL LENGKAP (PDF):

1. jaka-pakar.zip

Dasar Sistem Pakar



Author: Ari Fadli · Published: September 18, 2010 ·
Pada tulisan kali ini penulis akan sedikit berbagi ilmu mengenai Hal yang paling mendasar tentang Sistem Pakar. Sistem pakar pertama kali dikembangkan oleh komunitas AI pada pertengahan tahun 1960. Sistem pakar yang muncul pertama kali adalah General-purpose Problem Solver (GPS) yang dikembangkan oleh Newel dan Simon. GPS (dan program-program yang serupa) ini mengalami kegagalan dikarenakan cakupannya terlalu luas sehingga terkadang justru meninggalkan pengetahuan-pengetahuan penting yang seharusnya disediakan





Download Tulisan Lengkap: Ari_Fadli_Sistem_Pakar_Dasar.pdf

Konversi File Excel ke MySql

Penulis: Loka Dwiartara

Source Codenya

Simpan script php di bawah ini dengan nama excel2sql.php, kemudian letakkan pada direktori dimana program php itu berada, penulis menyimpannya di dalam c:\program files\xampp\php.

$tables = array();
$indata = 0;

function encode( $text )

{
$text = preg_replace( “/’/”, “””, $text );
return “‘”.$text.”‘”;
}

function start_element( $parser, $name, $attribs )
{
global $tables, $indata;
if ( $name == “WORKSHEET” )
{
$tables []= array(
‘name’ => $attribs['SS:NAME'],
‘data’ => array()
);
}
if ( $name == “ROW” )
{
$tables[count($tables)-1]['data'] []= array();
}
if ( $name == “DATA” )
{
$indata = 1;
}
}
function text( $parser, $text )
{
global $tables, $indata;
if ( $indata )
{

$data =& $tables[count($tables)-1]['data'];
$data[count($data)-1] []= $text;
}
}
function end_element( $parser, $name )
{
global $indata;
if ( $name == “DATA” )
$indata = 0;
}
$parser = xml_parser_create( );
xml_set_element_handler( $parser, “start_element”, “end_element” );
xml_set_character_data_handler( $parser, “text” );
while( !feof( STDIN ) ) {
$text = fgets( STDIN );
xml_parse( $parser, $text );
}
xml_parser_free( $parser );
foreach( $tables as $table )
{
$name = $table['name'];
$data =& $table['data'];

@$cols = implode( “,”, $data[0] );
$cols = strtolower(str_replace(” “,”_”,$cols));

for( $in = 1; $in < count( $data ); $in++ )
{
$sqldata = implode( “, “, array_map( “encode”, $data[$in] ) );
?>
INSERT INTO ( ) VALUES ( );
}
}
?>

Cara Penggunaannya

Langkah awal yang harus di lakukan adalah membuat satu dokumen excel baru, atau jika anda akan menggunakan dokumen yang sudah ada, buat bentuk sederhana dari dokumen tersebut, kira-kira bentuknya, dengan awal mulanya seperti ini :

Konversi File Excel ke MySql web desain grafis

Di gambar tersebut terlihat saya telah menghapus sheet yang tidak akan digunakan nantinya. Ini dilakukan sebagai upaya penghematan resource saja. Tips dari penulis : jangan jadi seorang yang pemboros.

Ya, langkah selanjutnya save as dokumen tersebut, ke dalam bentuk XML Spreadsheet (*.xml, di sini penulis meletakkannya di direktori c:\Another :

Konversi File Excel ke MySql web desain grafis

Dokumen yang baru di save ke dalam type file xml tersebut apabila dibuka dengan editor notepad, bentuk standarnya akan terlihat seperti ini :



xmlns: o=”urn: schemas-microsoft-comfficeffice”
xmlns: x=”urn: schemas-microsoft-comffice:excel”
xmlns: ss=”urn: schemas-microsoft-comffice: spreadsheet”
xmlns: html=”http://www.w3.org/TR/REC-html40″>

Al-k
Al-k


9720
15195
480
45
False
False


x:FullRows=”1″>






id
Nama Customer
Alamat Rumah
Email



1
Yudho P
Bandung
antoniush@plasa.com

Ya, kira-kira struktur filenya akan seperti itu, namun ada beberapa bagian yang sengaja penulis dihilangkan. Langkah berikutnya adalah menjalankan script phpnya dengan menggunakan command line :

Start menu | run | cmd

( ket: penulis menggunakan xampp pada tutorial ini, tidak berbeda dengan web server paketan yang lainnya )

Masuk ke dalam direktori dimana php.exe berada,
C:\>cd c:\program files\xampp\php

Kemudian jalankan scriptnya,
C:\Program Files\xampp\php>php.exe excel2sql.php <>

Konversi File Excel ke MySql web desain grafis

Anda pun dapat menyisipkan hasil sqlnya kedalam satu file :
C:\Program Files\xampp\php>php.exe excel2sql.php <> databasecostumer.sql

Berikut adalah screenshoot hasil dari eksekusi perintah tersebut :

Konversi File Excel ke MySql web desain grafis

Silahkan download script nya di sini excel2sql.php.zip

Greetz: Staff Ilmuwebsite