Belajar Visual Basic : Fungsi Standar Dalam Visual Basic

 

Fungsi String 
a.  Left, mengambil Karakter dari sebelah kiri 
b.  Right, mengambil Karakter dari sebelah kanan 
c.  Mid, mengambil Karakter dari tengah 
d.  LTrim, Membuang semua awal spasi yang ada di sebelah kiri 
e.  RTrim, Membuang semua spasi yang ada di sebelah kanan 
f.  Trim,  Membuang semua spasi yang ada di sebelah kiri dan kanan 
g.  Len, Memberikan nilai balik Integer sebagai panjang string 
h.  LCase, Mengubah String menjadi huruf kecil semua 
i.  UCase,  Mengubah String menjadi huruf besar semua 
j.  Str (int),  Mengubah bilangan menjadi string (konversi) 
k.  Chr (Asscii),  Konversi dari nilai ascii menghasilkan karakter

Fungsi Matematika 
Val(str) untuk Konversi String menjadi Integer
Asc(Char) untuk Konversi Karakter Menghasilkan Nilai Ascii 
Abs(Number) untuk Memberikan Nilai Mutlak dari suatu Nilai Negatif
Round(Number, Decimal) untuk Membulatkan suatu Angka sampai beberapa digit decimal
Sqr(Number) untuk Memberikan hasil akar kuadrat dari suatu nilai

Fungsi Tanggal dan Waktu
Date()  untuk Mengambil Tanggal Sistem komputer
IsDate untuk Memberikan  Nilai  balik  Boolean.  True  jika  parameter adalah sebuah  Tanggal
DateValue  Konversi String Menjadi Date Modul Visual Basic
Date(Date),  Month(Date), Year(Date) untuk Memberikan  Nilai  Integer  dari Variabel Date untuk hari, bulan, dan Tahun.
Time() untuk Mengambil Waktu dari system Komputer
Hour(Date), Minute(Date), Second(Date) untuk Memberikan Nilai Integer dari Variabel
Date Untuk jam, menit, dan detik.
TimeValue(str) untuk Konversi String ke Variabel Date

Latihan Fungsi Standar 1.  Desain Form seperti tampilan dibawah ini  :

Dengan Ketentuan :

Ketentuan Pengerjaan :
1.  Pada saat form di jalankan maka tanggal dan jam tampil 
2.  Textbox input kata berisi kata yang akan di jadikan fungsi 
3.  Pada saat di input kata yang akan di jadikan fungsi maka Textbox di kolom hasil otomatis akan terisi 
4.  Button bersih berguna untuk membersihkan isi di dalam Textbox 
5.  Button keluar berfungsi untuk keluar dari program aplikasi

Listing Program :
Private Sub cmdbersih_Click()
txtkata.Text = ""
txtleft.Text = ""
txtright.Text = ""
txtmid.Text = ""
txtlen.Text = ""
txtltrim.Text = ""
txtrtrim.Text = ""
txtlcase.Text = ""
txtucase.Text = ""
txtkata.SetFocus
End Sub

Private Sub cmdkeluar_Click()
X = MsgBox("Anda Akan keluar dari form ini?", vbQuestion + vbOKCancel, "Informasi")
If X = vbOK Then
End
End If
End Sub

Private Sub Timer1_Timer()
jam.Caption = Time
tanggal.Caption = Format(Date, "dddd,d mmmm,yyyy")
End Sub

Private Sub txtkata_Change()
txtleft = Left(txtkata, 3)
txtright = Right(txtkata, 3)
txtmid = Mid(txtkata, 3, 3)
txtlen = Len(txtkata)
txtltrim = LTrim(txtkata)
txtrtrim = RTrim(txtkata)
txtlcase = LCase(txtkata)
txtucase = UCase(txtkata)
End Sub