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 :

Berlangganan update artikel terbaru via email:

0 Response to "Latihan05 (Fungsi Standar Visual Basic)"

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel