Rabu, 03 Juli 2013

Contoh Laporan VB



cover:
LAPORAN
TUGAS VISUAL BASIC
( STRUKTUR GAJI PEJABAT )
 

OLEH :
KELOMPOK V


   RISKA JUNIARSIH
                                                    


                                     (MANAJEMEN INFORMATIKA KOMPUTER MATARAM)
2013/2014


Intuisi Laporan:

 
                            Struktur form terdiri dari:
                             


  1.  Nik
  2.  Nama
  3.  Kode jabatan 
  4.   Frame Jabatan
  5.   Jabatan
  6.   Tunjangan Jabatan
  7.   Kode Golongan
  8.  Frame Golongan(Golongan- Gaji Pokok)
  9.  Frame Status(Menika -Belum)
  10.  Tunjangan Istri
  11.   Total Gaji
  12.  Delete
  13.  Exit
  Dari struktur2 di atas bagian dari toolbox yang digunakan terdiri dari :

1)  Label : 11
2)  ComboBox : 2
3)  Text : 8
4)  Frame : 3
5)  Option Button : 2
6)  Command Button : 
 
                                                               MODEL FORM


Sintak-sintak yang digunakan :


1)      Sintak untuk mendeklarasikan perulangan
Dim i As Double
Dim b As Double
2)      Sintak yang diinput di command1(untuk menampilkan nama sesuai
dengan Nik yang diinputkan)
Private Sub Command1_Click()
If Text1.Text = "12.MI.132" Then
Text2.Text = "MURHAN"
ElseIf Text1.Text = "12.MI.133" Then
Text2.Text = "marlina"
ElseIf Text1.Text = "12.MI.134" Then
Text2.Text = "RISKA"
ElseIf Text1.Text = "12.MI.135" Then
Text2.Text = "M.SUNANDA"
ElseIf Text1.Text = "12.MI.136" Then
Text2.Text = "RINTO HARIADI"
ElseIf Text1.Text = "12.MI.137" Then
Text2.Text = "MISBAHUDDIN"
ElseIf Text1.Text = "12.MI.138" Then
Text2.Text = "LALU WIRA"
ElseIf Text1.Text = "12.MI.139" Then
Text2.Text = "IRMA"
ElseIf Text1.Text = "12.MI.140" Then
Text2.Text = "MUTMAINNAH"
ElseIf Text1.Text = "012.MI.141" Then
Text2.Text = "NURUN"
End If
End Sub
3)      Sintak yang di inputkan di Combo1(untuk menampilkan jabatan dan
tunjangan jabatan sesuai kode yang di pilih)
Private Sub Combo1_Click()
If Combo1.Text = "A01" Then
Text3.Text = "PRESIDEN"
Text4.Text = "65000000"
ElseIf Combo1.Text = "A02" Then
Text3.Text = "W.PRESIDEN"
Text4.Text = "45000000"
ElseIf Combo1.Text = "A03" Then
Text3.Text = "BUBERNUR"
Text4.Text = "15000000"
ElseIf Combo1.Text = "A04" Then
Text3.Text = "W.GUBERNUR"
Text4.Text = "10000000"
ElseIf Combo1.Text = "A05" Then
Text3.Text = "WALI KOTA"
Text4.Text = "10000000"
ElseIf Combo1.Text = "A06" Then
Text3.Text = "W.WALIKOTA"
Text4.Text = "8000000"
ElseIf Combo1.Text = "A07" Then
Text3.Text = "BUPATI"
Text4.Text = "6000000"
ElseIf Combo1.Text = "A08" Then
Text3.Text = "W.BUPATI"
Text4.Text = "5000000"
ElseIf Combo1.Text = "A09" Then
Text3.Text = "CAMAT"
Text4.Text = "4000000"
ElseIf Combo1.Text = "A010" Then
Text3.Text = "KEPALA DESA"
Text4.Text = "2000000"
End If
End Sub
4)      Sintak yang di input di combo2(untuk menampilkan golongan dan
Gaji pokok sesuai kode golongan yang di pilih)
Private Sub Combo2_Click()
If Combo2.Text = "B01" Then
Text5.Text = "IV E"
Text6.Text = "20000000"
ElseIf Combo2.Text = "B02" Then
Text5.Text = "IV D"
Text6.Text = "15000000"
ElseIf Combo2.Text = "B03" Then
Text5.Text = "IV C"
Text6.Text = "10000000"
ElseIf Combo2.Text = "B04" Then
Text5.Text = "IV B"
Text6.Text = "8000000"
ElseIf Combo2.Text = "B05" Then
Text5.Text = "IV A"
Text6.Text = "6000000"
ElseIf Combo2.Text = "B06" Then
Text5.Text = "III D"
Text6.Text = "5000000"
ElseIf Combo2.Text = "B07" Then
Text5.Text = "III C"
Text6.Text = "4000000"
ElseIf Combo2.Text = "B08" Then
Text5.Text = "III B"
Text6.Text = "3000000"
ElseIf Combo2.Text = "B09" Then
Text5.Text = "III A"
Text6.Text = "2000000"
ElseIf Combo2.Text = "B010" Then
Text5.Text = "II D"
Text6.Text = "1000000"
End If
End Sub
5)      Sintak yang di inputkan di command2( untuk menampilkan tunjangan istri dan total gaji sesuai option yang di pilih “menikah atau belum”)
Private Sub Command2_Click()
If Option1.Value = True Then
Text7.Text = 1000000
Text8.Text = Val(Text4.Text) + (Text6.Text) + (Text7.Text)
ElseIf Option2.Value = True Then
Text7.Text = 0
Text8.Text = Val(Text4.Text) + (Text6.Text) + (Text7.Text)
End If
End Sub
6)      Sintak yang di input di command3”Delete”(untuk menghapus)
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo2.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
7)      Sintak yang di input di command3 “exit”(untuk keluar)
Private Sub Command4_click()
End
End sub
8)      Sintak yang  di input di form_load(untuk perulangan)
Private Sub Form_Load()
i = 10
Do While i >= 1
Combo1.AddItem "A0" & i
i = i - 1
Loop
b = 1
Do Until b > 10
Combo2.AddItem "B0" & b
b = b + 1
Loop
End Sub

 

LANGKAH KERJA DARI STRUKTUR-2 FORM


1)      Langkah  kerja untuk menampilkan nama secara otomatis
             Untuk menmapilkan Nama kita harus memasukkan Nik ,Nik diinputkan secara manual yang sintaknya diinputkan di command1 (cari) setelah selesai menginput sintaknya dengan benar selanjutnya kita input Niknya secara manual sesuai dengan sintak trsbut ,maka Nama akan muncul secara otomatis ketika kita mengklik command1 “cari”   .
2)      Langkah kerja untuk menampilkan jabatan dan tunjangan jabatan secara otomatis
Jabatan dan tunjangan jabatan akan muncul secara otomatis ketika kita memilih kode jabatan nya(untuk kode jabatan menggunakan perulangan
Do Until),sintak yang digunakan diinputkan di combo1(kode jabatan),sintak yang digunakan pada kode jabatan kita menggunakan if then else.
3)      Langkah kerja untuk menampilkan  Golongan dan Gaji pokok
Seperti langkah sebelumnya  untuk  Golongan dan Gaji pokok akan muncul secara otomatis ketika kita memilih Kode golongan nya(untuk kode golongan menggunakan perulangan  While Do),dan sintak yang digunakan diinputkan di combo2(kode Golongan),sintak yang digunakan juga menggunakan if then else .
4)      Status
          Dalam frame status  ada 2 option yaitu option1 Menikah dan option2 2Belum, jika kita memilih option1 (Menikah)Option1 bernilai “True” maka dia akan mendapatkan “Tunjangan Istri” dan “Total Gajinya”  akan bertambah, dan begitu pula sebaliknya jika kita memilih option2 (Belum)Option2 bernilai “True” maka dia tidak akan mendapatkan “Tunjangan istri”.
5)      Tunjangan Istri
                                Untuk mendapatkan  Tunjangan istri  didapatkan dari “status” jika kita
                       memilih menikah   maka dia akan mendapatkan tunjangan sebesar Rp.1.000.000
                       dan sebaliknya jika dia “beluk nikah” maka dia tidak mendapatkan
                       “Tunjangan Istri”.
6)      Total Gaji
         Total gaji di dapatkan dari Tunjangan Jabatan di  tambah Gaji pokok dan tunjangan istri.

Diposting oleh di
Label:

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)