Sabtu, 15 Desember 2012

fungsi-fungsi bawaan vb


function dengan return value berupa array





I.Program parramarray

Private Function fstat(ByVal ParamArray args() As Object) As Single()
        Dim hasil(3) As Single
Penjelasan : memesan variabel hasil berjumlah 3 yaitu hasil(0),hasil(1),hasil(3)
     
  Dim i As Integer
        For i = 0 To UBound(args)
Penjelasan:‘mendeklarasikan variabel i sebgai integer dan perualangan i sebanyak array yang di pesan (To UBound(args))
     

      hasil(0) = hasil(0) + args(i)
            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
            End If
            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)

        Next i
        Return hasil
    End Function
Penjelasan: jika i= 0 maka maka hasil(1) = args jumlah index ny demikian juga hasil(2),,
Jika hasil (1) kurang dari args(i) maka hasil (1) sama dengan hasil args(i) ny demikian juga hasil dua lebih besar dari args (i) maka hasil(2) sama dengan args (i).dan terus mengulang sampai jumlah indexs



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single()= fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub
End Class
Penjelasan pada button 1 memesan variable statistik
Pada textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan d atas
Textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut
Textbox3 untuk menampilkan nilai atau angka terkecil dari array tersebut

1.bisa muncul angka 55 dari jumlah array yang terdapat pada coding yaitu  ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
2.bisa muncul angka (10) yaitu bilangan terbesar dari array tersebut adalah 10
3. dan bisa muncul angka 1 yaitu dari bilangan terkecil dari array tersebut adalah 1 


PROGRAM KE DUA

Public Class Form1


    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2

    End Function
    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3As Integer) As Integer
        hitung = bil1 + bil2 + bil3
    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3As Integer, ByVal bil4 As Integer) As Integer
        hitung = bil1 + bil2 + bil3 + bil4
    End Function


Penjelasan: hampir sama dengan parramarray sebelum nya.hanya saja pada program ini di deklarasikan lebih dari satu fungsi ,dan hitung untuk menampung penjumlahan array dari beberapa fungsi, tapi yang akan di tampilkan pada textbox yaitu fungsi terakhir tergantung kita memesan angkanya

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3,10)

Penjelasan :angka 1 di deklarasikan untuk bil1, angka 2 untuk bil2, angka 3 untuk bil3, dan masih bisa d tambahkan sesuai keinginan kita disini saya memodif program dengan menambahkan bil4 untuk angka 10

    End Sub
End Class
 





C. fungsi-fungsi bawaan VB
Dalam Visual Basic, fungsi bawaan adalah suatu 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,fungsi date and time dll.

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 MyTime

Now : 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:
Kode
Artinya
yyyy
Year
q
Quarter
m
Month
y
Day of year
d
Day
w
WeekDay
ww
Week
h
Hour
n
Minute
s
Second


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
Konstanta
Nilai
Penjelasan
vbUseSystem
0
Memakai setting NLS API
vbSunday
1
Minggu (default)
vbMonday
2
Senin
vbTuesday
3
Selasa
vbWednesday
4
Rabu
vbThursday
5
Kamis
vbFriday
6
Jumat
vbSaturday
7
Sabtu


WeekDayName(weekday, abbreviate, firstdayofweek)
Hari = #2/12/1969# ‘Assign a date
MyWeekDay = Weekday(Hari) ‘MyWeekDay isinya 4
MyTime = WeekdayName(MyWeekDay) ‘Isinya Wednesday


Penanganan String pada Visual Basic 6.0
Penanganan string sering terjadi pada pemrograman visual basic untuk berbagai keperluan.
Variable string bisa berisi anda namun masih tetap dianggap string.

Contoh: K001,B002 dsb.

Berikut akan saya jelaskan beberapa fungsi bawaan visual basic yang sering digunakan untuk menangani string ini.

1. Left

Fungsi left digunakan untuk mengambil satu atau beberapa karakter dihitung dari sisi kiri.

contoh:
k =
left(“Visual Basic”,6)

2. Right
Fungsi Right adalah lawan dari fungsi left. Jika left mengambil karakter dari kiri maka right mengambil kata dari kanan.

contoh:
k =
right(“Visual Basic”,5)

3. Mid
Fungsi Mid digunakan untuk mengambil karakter yang ada di tengah-tengah kata walaupun dengan trik tertentu bisa saja digunakan untuk mengambil karakter yang ada di kiri maupun di kan an kata.

contoh:
k =
Mid(“Visual Basic”,6,3)

4. Len
Fungsi ini adalah singkatan dari length yang berarti panjang. Fungsi ini digunakan untuk mengetahui panjang karakter dari kata atau kalimat

contoh:
p = Len(“Visual Basic”)


5. Instr
Fungsi ini digunakan untuk mengetahui posisi dari sebuat karakter dari kata atau kalimat.

contoh:
posisi  = Instr(“Visual Basic”,”B”)


6. Lcase
Fungsi ini digunakan untuk mengubah huruf besar (capital) menjadi huruf kecil.

contoh:
k  =
LCase(“Visual Basic”)


7. Ucase
Fungsi ini digunakan untuk mengubah huruf kecil menjadi huruf besar (capital).

contoh:
k  
= UCase(“Visual Basic”)


8. Chr
Fungsi ini digunakan untuk mendapatkan karakter ASCII (American Standard Code for Information Interchange). Dari nomor ASCII yang diberikan

contoh:
k  =
Chr(65)


9. ASC
ASC kebalikan dari fungsi Chr. Fungsi ini digunakan untuk mendapatkan nomor ASCII (American Standard Code for Information Interchange). Dari huruf yang diberikan

contoh:
k  =
Asc(“A”)

10. Penggabungan Karakter
Anda dapat menggabungkan karekter dengan operator + atau &. Untuk memudahkan pegertian terhadap kode program yang anda buat sebaiknya anda menggunakan tanda & daripada tanda +. Anda lebih baik menggunakan tanda + untuk penjumlahan angka.

contoh:
a = "Visual"
b = "Basic"
c = a & b


11.  Space(n)

Fungsi ini digunakan untuk memberikan ruang kosong (space) sebanya n buah.


contoh:

a = "Visual"

b = "Basic"
c = a & space(1) & b
   

Tidak ada komentar:

Posting Komentar