program menghitung gaji karyawan dgn VB

buat ente2 yang mau belajar pemograman visual basic (VB),ne ane sedikit mau sharing sebuah program sederhana bagaimana menghitung gaji karyawan dengan menggunakan VB, buat tampilan Form ente seperti dibawah ini :

1.Ketik script dibawah ini pada commant  “HITUNG”

Private Sub Command1_Click()
Text7 = 10000 * Val(Text4)
Text8 = 5000 * Val(Text4)
Text9 = 15000 * Val(Text5)
Text10 = Val(Text3) + Val(Text7) + Val(Text8) + Val(Text9) - Val(Text6)
Text11 = 0.1 * Val(Text10)
Text12 = Val(Text10) - Val(Text11)
End Sub


2. ketik script dibawah ini pada commant  “BERSIH” :

Private Sub Command2_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
Text9 = Clear
Text10 = Clear
Text11 = Clear
Text12 = Clear
Text1.SetFocus
End Sub

3. ketikan script dibawah ini pada commant  “SELESAI” :

Private Sub Command3_Click()
MsgBox ("good by...!!!")
End
End Sub

Pada component text yang berwarna abu2 ubah poperties Loked nya menjadi true, agar hasil outputnya tidak bisa di edit, caranya : klik text yang ingin dirubah propertiesnya lalu cari LOKED pada properties pilih true. 
Setelah itu jalankan programnya dengan menekan F5 pada keyboard
Semoga bermanfaat….

by Facebook Comment , Mau ?

THE BEST SOURCE CODE VISUAL BASIC

Visual basic adalah bahasa pemograman berbasis visual (windows), program ini sangat diminati diseluruh dunia bagi para pengguna jasa computer, disamping bahasanya yang mudah dan fitur-fiturnya yang familiar. Dalam buku ini ada ratusan source code terbaru dan terbaik dari bahasa pemograman visual basic, sehingga akan menambah referensi dan pembendaharaan kode program para pembaca. Dan kode program dalam buku ini adalah kode program yang tidak terdapat pada buku-buku materi visual basic yang dijual sekarang.
Silahkan download filenya secara lengkap dari link dibawah ini, semoga bermanfaat…
download file lengkap

by Facebook Comment , Mau ?

DASAR-DASAR TURBO PASCAL (TPW 1.5)

Artikel ini merupakan kumpulan saat penulis belajar bahasa
pemrograman pascal. Penulis menggunakan Turbo Pascal for Windows (TPW) Versi
1.5 sebagai kompilernya. Mungkin ada kekurangan disana sini, tapi mudah-mudahan
artikel ini bermanfaat bagi pembaca yang berminat dan baru mempelajari
bahasa pemrograman pascal.NEXT artikel...

by Facebook Comment , Mau ?

pengurutan data pada pascal

Definisi Sort
Sort adalah proses pengurutan data yang
sebelumnya disusun secara acak sehingga
menjadi tersusun secara teratur menurut
suatu aturan tertentu.
Pada umumnya terdapat 2 jenis pengurutan :
 Ascending (Naik)
 Descending (Turun)

Contoh Pengurutan Data

Contoh :

 Data Acak : 5 6 8 1 3 25 10
 Terurut
Ascending : 1 3 5 6 8 10 25
 Terurut
Descending : 25 10 8 6 5 3 1

----------------------------
Bubble / Exchange Sort

Memindahkan elemen yang sekarang dengan
elemen yang berikutnya, jika elemen
sekarang > elemen berikutnya, maka tukar

Proses Pengurutan

Data paling akhir dibandingkan dengan data di
depannya, jika ternyata lebih kecil maka
tukar. Dan pengecekan yang sama dilakukan
terhadap data yang selanjutnya sampai
dengan data yang paling awal.

Procedure Tukar Data

Procedure TukarData(var a,b : integer);
Var c : word;
Begin
c:=a;
a:=b;
b:=c;
end;

Contoh Procedure Bubble

Procedure Asc_Bubble;
Var i,j,k : integer;
Begin
For i:= 2 to jmldata do
begin
For j:= jmldata downto I do
If data[j] < data[j-1] then
Tukardata (data[j], data[j-1]);
end;
end;

by Facebook Comment , Mau ?