pert.7 vb fungsi string,prosedure

Fungsi string digunakan untuk mencetak atau menampilkan statemen yang bernilai string. Contoh yang akan dibahas adalah no. Akademik (12) dimana angka 1 akan di baca sebagai Akademik dan angka 2 dibaca sebagai jurusan.

Procedure dengan kata lain pemanggilan suatu procedure, disini menggunakan procedure bersih. Saat kita butuh untuk membersihkan object maka kita tinggal panggil procedure yang dibutuhkan saja.

vb.jpg

Dim a, b As Double ————> Pendeklarasian Variabel.
Private Sub bersih() —————> Procedure Bersih.
txtkode.Text = “”
txtnama.Text = “”
txtjurusan.Text = “”
Option1 = False
Option2 = False
Option3 = False
Option4 = False
txtwaktu.Text = “0”
txtgedung.Text = “0”
txttotbay.Text = “0”
txtkode.SetFocus
End Sub

Private Sub cmdbersih_Click()
bersih ———————————–> Pemanggilan procedure
End Sub

Private Sub cmdhitung_Click()
a = txtgedung.Text
b = txtwaktu.Text
txttotbay.Text = a + b
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“Anda Ingin Keluar”, vbOKCancel + vbInformation, “Konfirmasi”)
If p = vbOK Then
Unload Me
End If
End Sub

Private Sub Form_Load() —————–> Menampilkan Tanggal dan Jam
Label8.Caption = Date
Label9.Caption = Time()
End Sub

Private Sub Option1_Click()
txtgedung.Text = 800000

End Sub

Private Sub Option2_Click()
txtgedung.Text = 900000

End Sub

Private Sub Option3_Click()
txtwaktu.Text = 100000
End Sub

Private Sub Option4_Click()
txtwaktu.Text = 150000
End Sub

Private Sub txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Select Case Left(txtkode.Text, 1)
Case “1”
txtnama.Text = “AMIK”
If Right(txtkode.Text, 1) = “1” Then
txtjurusan.Text = “Komputer Akuntansi”
ElseIf Right(txtkode.Text, 1) = “2” Then
txtjurusan.Text = “Manajemen Informatika”
End If
Case “2”
txtnama.Text = “ASM”
If Right(txtkode.Text, 1) = “1” Then
txtjurusan.Text = “Sekertaris”
ElseIf Right(txtkode.Text, 1) = “2” Then
txtjurusan.Text = “Manajemen”
End If
End Select
End If
End Sub

Selamat mencoba…..

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s