Latihan05 (Fungsi Standar Visual Basic) : VB6
Fungsi String
- Left, mengambil karakter dari sebelah kiri
- Right, mengambil karakter dari sebelah kanan
- Mid, mengambil karakter dari tengah
- LTrim, membuang semua spasi yang ada di sebelah kiri
- RTrim, membuang semua spasi yang ada disebelah kanan
- Trim. membuang semua spasi yang ada di sebelah kiri dan kanan
- Len, memberikan nilai balik integer sebagai panjang string
- LCase, mengubah string menjadi huruf kecil semua
- UCase, mengubah string menjadi huruf besar semua
- Str(int), mengubah bilangan menjadi string(konversi)
- Chr(Asscii), konversi dari nilai ascii menghasilkan karakter
Fungsi Matematika
Fungsi Tanggal dan Waktu
Pilihlah Standard Exe - Open.
Buat tampilan form seperti dibawah ini :
Settinglah nama objek dan caption objek dengan Fomat di bawah ini:
catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.
Ketentuaan Pengerjaan :
- Pada saat form di jalankan maka tanggal dan jam tampil
- Textbox input kata berisi kata yang akan dijadikan fungsi
- Pada saat di input kata yang akan di jadikan fungsi maka textbox dikolom hasil otomatis akan terisi
- Button bersih berguna untuk membersihkan isi di dalam textbox
- Button keluar berfungsi untuk keluar dari program aplikasi
Private Sub cmdbersih_Click()Penjelasan koding :
txtleft = ""
txtright = ""
txtmid = ""
txtlen = ""
txtltrim = ""
txtrtrim = ""
txtlcase = ""
txtucase = ""
txtkata.SetFocus
End Sub
Private Sub cmdkeluar_Click()
x = MsgBox("Mau keluar dari form ini?", vbQuestion + vbOKCancel, "Informasi")
If x = vbOK Then
End
End If
End Sub
Private Sub Timer1_Timer()
ljam.Caption = Time
ltanggal.Caption = Format(Date, "dddd,d mmmm yyyy")
End Sub
Private Sub txtkata_Change()
txtleft = Left(txtkata, 5)
txtright = Right(txtkata, 5)
txtmid = Mid(txtkata, 5, 5)
txtlen = Len(txtkata)
txtltrim = LTrim(txtkata)
txtrtrim = RTrim(txtkata)
txtlcase = LCase(txtkata)
txtucase = UCase(txtkata)
End Sub
txtleft = Left(txtkata,5) ; mengambil nilai txtkata berjumlah 5 huruf dari kiri dan ditampilkan di textbox txtleft
ljam.caption = time ; label jam diberi nilai waktu sesuai waktu komputer
Jika ada pertanyaan lain silakan melalui komentar :)
Lalu Klik Run - Start atau tekan f5 :
MATERI VB6
Jika anda baru Belajar VB 6 silakan belajar dari materi pertama :
Materi ke-1 : Perkenalan dengan VB6
Materi ke-2 : Membuat Form
Materi ke-3 : Variabel dan Konstanta
Materi ke-4 : Operator
Materi ke-5 : Fungsi Operator
Materi ke-6 : Fungsi Standar Visual Basic
Materi ke-7 : Percabangan
Materi ke-8 : Percabangan Lanjutan
Materi ke-9 : Procedure dan Function
Materi ke-10 : Module
Materi ke-11 : Array
Materi ke-12 : Efek Form dan Control Componen
Materi ke-13 : Database Form Barang
Materi ke-14 : Database Form Kasir
Materi ke-15 : Transaksi One To One
Materi ke-16 : Laporan Dengan Data Report
Materi ke-2 : Membuat Form
Materi ke-3 : Variabel dan Konstanta
Materi ke-4 : Operator
Materi ke-5 : Fungsi Operator
Materi ke-6 : Fungsi Standar Visual Basic
Materi ke-7 : Percabangan
Materi ke-8 : Percabangan Lanjutan
Materi ke-9 : Procedure dan Function
Materi ke-10 : Module
Materi ke-11 : Array
Materi ke-12 : Efek Form dan Control Componen
Materi ke-13 : Database Form Barang
Materi ke-14 : Database Form Kasir
Materi ke-15 : Transaksi One To One
Materi ke-16 : Laporan Dengan Data Report
Comments