Tugas PV 8

 I. Function dengan Return Value Berupa Array

II. Overloading Function
Fungsi yang sudah digunakan pada perintah awal digunakan oleh perintah selanjutnya.

III.   Macam-Macam Function bawaan
Fungsi bawaan adalah fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

• Fungsi Numeric
  CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
  Fix ()    ===> Pemotongan suatu nilai desimal menjadi integer
  Int ()    ===> Pembuatan ke bawah suatu nilai desimal
• Fungsi String
  Left          → mengambil karakter dari sebelah kiri
  Right      → mengambil karakter dari sebelah kanan
  Mid         → mengambil karakter dari tengah
  LTrim    → membuang semua semua awal spasi yang ada disebelah kiri
  RTrim    → membuang semua semua awal spasi yang ada disebelah kanan
  Trim       → membuang semua spasi yang ada disebelah 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
  
  Val (Str)                                     → konversi string menjadi integer
  Asc(Char)                                 → konversi karakter menghasilkan nilai ascii
  Abs(Number)                         → memberikan nilai mutlak dari suatu nilai negatif
  Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal
  Sqr(Number)                          → memberikan hasil akar kuadrat dari suatu nilai
  Tan()                                           → mengembalikan nilai tangen dari argument dalam radian
  Cos()                                            → mengembalikan nilai cosinus dari argument dalam radian
  Atn()                                            → mengembalikan nilai arc tangen dari argument dalam bentuk radian
  Long()                                         → mengembalikan nilai logaritma dari argument
  CInt()                                          → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat
  Fix()                                             → pemotongan suatu nilai decimal menjadi integer
  Int()                                              → pembulatan ke bawah suatu nilai decimal
• Fungsi Tanggal dan Waktu
  Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
  pemakaiannya ( lihat contoh di bawah ini)
  A$ = Time ‘hasil 18:16:35 AM
  MyTime = #4:35:17 PM# ‘assign a time
  Time = MyTime ‘set system time to MyTimeNow : merekam tanggal dan waktu sekarang
  A$ = Now ‘hasil 10/8/02 18:16:35 AM Timer : menghitung  jumlah  detik  sejak tengah malam
  Start = Timer ‘hasilnya 29991
  Date : menetapkan hari pada sistem komputer
  Dim MyDate
  MyDate = #February 12, 1985 # ‘Assign a date
  Date = MyDate ‘Change system date
  DateAdd : menghasilkan Varian(Date) yang berisi tanggal baru setelah suatu interval waktu yang ditetapkan dari tanggal lama.
  DateAdd(kode_interval,jumlah_interval,tanggal_lama)
  Isi kode interval:
  
  Contoh pemakaiannya :
  Dim FirstDate As_Date ‘Declare variables
  Dim IntervalType As String
  Dim Number As Integer
  Dim Msg
  FirstDate = InputBox(“Enter a date”)
  Bynber = InputBox(“Enter number of months to add”)
  Msg = “New date : “ & DateAdd(“m”, Number, FirstDate)
  MsgBox Msg
  DateDiff : mencari interval waktu antara dua tanggal
  DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Dim TheDate As Date ‘declare variables
  TheDate = InputBox(“Enter a date”) Msg = “Day from today : “ & DateDiff(“d”, Now, TheDate)
  MsgBox Msg
  DateSerial : menghasilkan tanggal dengan bulan/hari/tahun
  MyDate = DateSerial(1969, 2, 12) ‘Hasil 2/12/69
  DateValue : menghasilkan tanggal
  MyDate = DateValue(“February 12, 1969”) ‘Hasil 2/12/69
  Year : menghasilkan tahun sekarang
  MyYear = Year(#2/12/1969#) ‘Hasil 1969
  Month : menghasilkan bilangan integer yang menunjukkan bulan
  MyDate = #February 12, 1969# ‘Assign a date
  MyMonth = Month(MyDate) ‘MyMonth = 2
  MonthName : menghasilkan teks yang menunjukkan nama bulan
  a$ = MonthName(1, True) ‘a$ = Jan
  b$ = MonthName(1, False) ‘b$ = January
  c$ = MonthName(1) ‘c$ = January
  Day : menghasilkan integer yang menunjukkan tanggal dari data date
  MyDate = #February 12, 1969# ‘Assign a date
  MyDay = Day(MyDate) ‘MyDay berisi 12
  Hour : menghasilkan integer yang menunjukkan jam dari data timer
  MyTime = #4:35:17 PM# ‘Assign a time
  MyHour = Hour(MyTime) ‘MyHour berisi 16
  Minute : menghasilkan integer yang menunjukkan menit dari data timer
  MyTime = #4:35:17 PM# ‘Assign a time
  MyMinute = Minute(MyTime) ‘MyMinute berisi 35
  Second : menghasilkan integer yang menunjukkan detik dari data timer
  MyTime = #4:35:17 PM# ‘Assign a time
  MySecond = Second(MyTime) ‘MySecond berisi 17
  TimeSerial : menghasilkan waktu dengan jam/menit/detik
  MyTime = TimeSerial(16, 35, 17) ‘Isinya 4:35:17 PM
  TimeValue : mengubah string waktu dari pukul 0:00:00 (12:00:00 AM) sampai 23:59:59 (11:59:59 PM) menjadi data waktu
  MyTime = TimeValue(“4:35:17 PM”) ‘Isinya 4:35:17 PM
  MyTime = TimeValue(“0:00:00”) ‘Isinya 12:00:00 AM
  WeekDay : menghasilkan bilangan petunjuk hari dari suatu tanggal
  Hari = #February 12, 1969# ‘Hari Rabu
  MyweekDay = Weekday(Hari) ‘MyweekDay isinya 4
  
  WeekDayName : menghasilkan teks nama hari dalam satu minggu WeekDayName(weekday, abbreviate, firstdayofweek)
  Hari = #2/12/1969# ‘Assign a date
  MyWeekDay = Weekday(Hari) ‘MyWeekDay isinya 4
  MyTime = WeekdayName(MyWeekDay) ‘Isinya Wednesday

Posted in: Programming