Program Sederhana Menghitung Gaji Karyawan dengan VB 6.0

Assalam mualaikum Wr.Wbr

Bagaimana kabarnya temen-temen semoga senantiasa sehat dan semangat dalam

menjalankan  menjalankan aktifitas sehari-hari.dalam kesempatan  ini saya akan

membagi ilmu program sederhana tentang menghitung gaji karyawan dengan VB 6.0.

Contoh Program Sederhana Perkalian Dua Bilangan 

Langkah-langkah membuat Program Sederhana Menghitung Gaji Karyawan dengan VB 6.0 

1. langkah pertama yang harus kita lakukan adalah menginstall Program aplikasi visual

    basic 6.0

2. Setelah program VB 6.0 telah terinstall dengan benar akan tampil pada layar atau di
 
    menu star

3. bukalah aplikasi visual basic yang telah terinstall dan buatlah from1 seperti gambar di 

    bawah ini

4. Setelah membuka aplikasi visual basic tersebut satu persatu combo button tersebut

     antara lain :

    a. Combo1  klik dan pilih di general

    b. Combo2  klik dan pilih di general

    c. Combo3  klik dan pilih di general

    d. Text1  klik dan pilih di general

    e. Text2  klik dan pilih di general

    f.  Text3  klik dan pilih di general

    g.  Command1 klik dan pilih di general

    h.  Command2 klik dan pilih di general

    i.   Command3 klik dan pilih di general

5. Setelah selesai membuat satu persatu seperti gambar di atas langkah selanjutnya

     maka  satu  persatu mengaktifkan perintah-perintah program :

6. Nah sekarang mari aktifkan silakan ikuti perintah-perintah di bawah ini :

    a. Private Sub Form Load()

        Combo1.additem "001"

        Combo1.additem "002"

        Combo1.additem "003"

        Combo2.additem "Hacker"

        Combo2.additem "Blogger"

        Combo2.additem "Pheaker"

        Combo3.additem "Menikah"

        Combo3.additem "Tidak Menikah"

        End Sub

       Keterangan untuk Private Sub Form Load() ditulis paling atas pada listing program

   b. Private sub combo2_Click()

       Select case combo2.text

       Case "Andre": Text2.text = 1750000

       Case "Bagas": Text2.text = 1750000

       Case "Bagus": Text2.text = 1750000

       End Select

       Text4.text = 0.15*Text2.text

       End Sub

   c. Private sub combo1_Click()

       Select case combo2.text

       Case "001": Text1.text = "Mastah"

       Case "002": Text1.text = "Sistah"

       Case "003": Text1.text = "Nubi"

       End Select

       End Sub

  d. Private Sub Combo3_Click()

      Select Case Combo3.text

      Case "Menikah": Text3.text = 0.1 * Text2.Text

      Case "Tidak Menikah": Text3.text = 0

      End Select

      End sub

 e. Private Sub Command2_Click()

     Combo1.text = ""

     Combo2.text = ""

     Combo3.text = ""

     Text1.Text  = ""

     Text2.Text  = ""

     Text3.Text  = ""

     Text4.Text  = ""

     Combo1.SetFocus

     End sub
 f. Private Sub Command1_Click()

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

    End Sub

g. Private Sub Command1_Click()

     End

    End Sub

Semoga contoh program Program Sederhana Menghitung Gaji Karyawan dengan VB 6.0 dan

Fungsi TextBox pada Visual Basic 6.0
 
Contoh Program Sederhana Perkalian Dua Bilangan 

kali ini moga bermanfaat bagi semua dan selamat bermanfaat.bermanfaat dan  terima

kasih