Friday, May 6, 2016

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 :

































Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

Cobalah untuk memilih Pelajaran Pemrograman dan belajar dari Materi Pertama
EmoticonEmoticon


TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.

https://smallseotools.com/