Reting Dopokan:
  • 0 meon suara - 0 Rata-rata
  • 1
  • 2
  • 3
  • 4
  • 5
Durmad arep bagi Ilmu. maning, go jakwir2.
26-02-2012, 12:41 AM,
Posting: #1
Wink  Durmad arep bagi Ilmu. maning, go jakwir2.
Tugase durmad go UTS. progam perhitungan Gaji
[Gambar: heri-1.jpg]
Rumus Program :
Private Sub cbogol_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case cbogol.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttot.Text = total – pajak
End Sub
Private Sub Command1_Click()
txtnidn = “”
txtnm = “”
cbogol = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttot = “”
txtnidn.SetFocus
End Sub
Private Sub Command2_Click()
txtnidn = “”
txtnm = “”
cbogol = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttot = “”
txtnidn.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub
Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnm.SetFocus
End If
End Sub
b) Teks Color
[Gambar: heri-2.jpg]
Rumus Program :
Private Sub cmdclear_Click()
txt1.Text = “”
txt1.SetFocus
txt1.ForeColor = &H0&
End Sub
Private Sub cmdok_Click()
Dim hasil As Integer
hasil = Val(txt1.Text)
If (chktebal.Value = 1) And (chkmiring.Value = 1) Then
txt1.FontBold = True
txt1.FontItalic = True
End If
If (chktebal.Value = 1) And (chkmiring.Value = 0) Then
txt1.FontBold = True
txt1.FontItalic = False
End If
If (chktebal.Value = 0) And (chkmiring.Value = 0) Then
txt1.FontBold = False
txt1.FontItalic = False
End If
If (chktebal.Value = 0) And (chkmiring.Value = 1) Then
txt1.FontBold = False
txt1.FontItalic = True
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Optmerah_Click()
txt1.ForeColor = &HFF&
End Sub
Private Sub Optbiru_Click()
txt1.ForeColor = &HFF0000
End Sub
Berhentilah mengejar apa yang tak mungkin, bersyukur dengan apa yang didapat sekarang, belajar membuka pontensi dalam diri. life is choice.. your life is your choice.

Add Thank You
26-02-2012, 01:44 AM,
Posting: #2
RE: Durmad arep bagi Ilmu. maning, go jakwir2.
nyong lagi ana masalah karo visual basic, bantu owh um
kiye tampilan gaweane aku :
[Gambar: 417438_375704635775376_100000075277693_1...1617_n.jpg]

cara gawe printahe pibe ya?
eben yen nyong ngetik sesuatu ning kotak istilah, mengko metu maknane neng kotak makna Es Teh

tulung ya um ampunnnnnn

Add Thank You
26-02-2012, 01:56 AM,
Posting: #3
RE: Durmad arep bagi Ilmu. maning, go jakwir2.
berarti Rumuse nang "comand golet" oh umt.. gone dim, brrti dtentukena misalkan nulis saya engko istilane enyong kayak kweh..
Berhentilah mengejar apa yang tak mungkin, bersyukur dengan apa yang didapat sekarang, belajar membuka pontensi dalam diri. life is choice.. your life is your choice.

Add Thank You
26-02-2012, 12:01 PM,
Posting: #4
RE: Durmad arep bagi Ilmu. maning, go jakwir2.
dong misal pan gawe saya, ngko metu arti istilahe nyong, trus kuwe rumuse pibe um? ampunnnnnn

Add Thank You
29-02-2012, 09:59 PM,
Posting: #5
RE: Durmad arep bagi Ilmu. maning, go jakwir2.
Berati pakai Val umt ya bisa,, atau case,, ngarti ora umt..MedangMedang
Berhentilah mengejar apa yang tak mungkin, bersyukur dengan apa yang didapat sekarang, belajar membuka pontensi dalam diri. life is choice.. your life is your choice.

Add Thank You


Maring Forum:


Hubungi Kami | Forume Wong Tegal lan Sekitare | Menduwur | Maring Konten | Mobile Version | Sindikasi RSS