Visual Basic : Program Gaji

Listing Program

Private Sub Form_Load()

Dim i As Byte

For i = 1 To 3

Combo1.AddItem CStr(i)

Next

For i = 1 To 4

List1.AddItem CStr(i)

Next

End Sub

Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case 0

Text2 = 100000

Text3 = 50000

Case 1

Text2 = 150000

Text3 = 75000

Case 2

Text2 = 200000

Text3 = 100000

End Select

End Sub

Private Sub Command1_Click()

Kosong

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub List1_Click()

If List1.ListIndex = 0 Then

Text4 = 100000

ElseIf List1.ListIndex = 1 Then

Text4 = 200000

ElseIf List1.ListIndex = 2 Then

Text4 = 300000

ElseIf List1.ListIndex = 3 Then

Text4 = 400000

End If

End Sub

Private Sub Text5_Click()

Text5 = Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)

End Sub

Sub Kosong()

Dim CTL As Control

For Each CTL In Me

If TypeName(CTL) = "TextBox" Or TypeName(CTL) = "ComboBox" Or

TypeName(CTL) = "ListBox" Then

CTL.Text = ""

End If

Next

End Sub

Bahasa C : ARRAY

Array adalah kumpulan data yang bertipe sama yang menggunakan nama yang

sama. Dengan menggunakan array, sejumlah variabel dapat memakai nama yang

sama.   Antara   satu   variabel   dengan   variabel   lain   di   dalam   array   dibedakan

berdasarkan nomor elemen (subscript).

Contoh : Penggunaan array dalam C++:

Program di bawah ini untuk membaca data kemudian menampilkannya.

#include<iostream.h>

#include<conio.h>

void main()

{

int data[10];            // array dengan 10 elemen bertipe integer

int elemen;

clrscr();

// entri 10 data

}

for (elemen=0;elemen <= 9;elemen++)

{

cout << “Data ke – “ << elemen << “: “;

cin >> data[elemen];

}

// tampilkan data setelah entri

for (elemen=0;elemen <= 9;elemen++)

{

cout << “Data ke – “ << elemen << “: “ << data[elemen];

}

NB: Dalam C/C++ elemen array dimulai dari 0.

Tentang Mesran.net dan mesran.blogspot.com

mesran.net adalah sebuah web yg di dalamnya terdapat banyak hal-hal yang bermanfaat bagI mahasiswa jurusan computer

Pada mesran.Net dan mesran.blogspot.com terdiri beberapa artikel di antaranya artikel mengenai TipsBelajar bahasa Pemograman dan beberapa bahasa pemograman salah satunya VisualBasic . Net, serta program yang berorientasi pada Database , contoh : Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access  bahkan ada banyak lagi .

Flowchart Gaji Karyawan