Latihan05 (Fungsi Standar Visual Basic)

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

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
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

masukkan listing program seperti berikut :

Private Sub cmdbersih_Click()
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

 Penjelasan koding :
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 :

Spread the love

Fajar (Ucup)

Pemilik dan Author dari FajarYusuf.com dan juga seseorang yang gemar membagikan info menarik kepada orang lain.

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *