Program Sederhana Mencari Bilangan ASCII dengan Visual Basic 6

Well, lagi-lagi ini tugas kuliah saya...
masih sangat sederhana... tapi aku tetap ngotot untuk membagikannya... hhehee

Here we go...

outputnya :

Listing Codenya :

Private Sub Command1_Click() // Tombol ASC
Text2.Text = Asc(Text1.Text)
End Sub

Private Sub Command2_Click() // Tombol Ulangi
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click() // tombol CHR
Text2.Text = Chr(Text1.Text)

End Sub

Private Sub Command4_Click() // tombol selesai
Unload Me
End Sub

Semoga bermanfaat ^_^

READ MORE...

Program sederhana Menghitung Gaji karyawan dengan Visual Basic 6.0

Hnm... saya mencoba membagikan listing code tugas kuliah saya di sini...
walaupun masih sederhana... tapi ketika saya masih semester 3 dulu... ini termasuk sulit bagi saya yang masih pemula menggunakan Program Visual Basic.

well, here we go...

output :












Listing codenya :

Private Sub Combo1_Click()
If Combo1.Text = "NIKAH" Then
Text5.Text = 0.1 * Val(Text4.Text)
Else
Text5.Text = o
End If
End Sub

Private Sub Command1_Click() //tombol hitung
Text6.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text4.Text)
End Sub

Private Sub Command2_Click()// tombol ulangi
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()// tombol keluar
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "NIKAH"
Combo1.AddItem "Belum NIKAH"
Combo1.ListIndex = 0
End Sub

Private Sub Text2_Change()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

semoga bermanfaar ^_^



READ MORE...