Jalan berbangkit

ASSALAMU'ALAIKUM WARRAHMATULLAHI WABARAKATUH

Senin, 24 Desember 2012

Function dengan return value berupa array, overloading dan fungsi bawaan pada visual basic.


Function dengan return value berupa array, Overloading Function
dan Fungsi bawaan pada Visual Basic 2010.
Penjelasan Program

Private Function fstat(ByVal ParamArray args() As Object) As Single()
·         Baris koding di atas menunjukan pendeklarasian sebuah sub program berupa function dengan variabel fstat. Deklarasi function di atas menggunakan paramater ByVal yang berarti melewatkan parameter secara nilai dan bertipe data Single (bulat).
·         Deklarasi di atas hanya bisa diekanali di lokal form. Itu dapat dilihat dari penyebutan private di awal deklarasi.

Dim hasil(3) As Single
Dim i As Integer
·         Baris koding diatas adalah sebuah pendeklarasian variabel dengan nama hasil. 3, merupakan jumlah teratas pada array atau Ubound. Dan tipe data yang digunakan adalah Single.
·         Dim i As Integer bermaksud, pendeklarasian variabel bernama i dengan tipe data integer.


For i = 0 To UBound(args)
·         Koding diatas menjelaskan perulangan untuk i=0 sampai batas teratas dari Array (Ubound)

hasil(0) = hasil(0) + args(i)
·         Dapat dijelaskan bahwa hasil(0)=hasil(0) kerena perulangan belum dimulai dan args(i)= nilai dari indeks array ke i

If i=0 Then
·         Artinya jika i=0, maka lakukan perintah

hasil(1)=args(i)
·         hasil1 = nilai dari indeks ke i

hasil(2)=args(i)
·         hasil2 = nilai dari indeks ke i

End If
·         perintah diakhiri apabila i tidak sama dengan 0

If hasil(1) > args(i) Then hasil(1) = args(i)
·         jika hasil 1 lebih besar dari nilai i maka hasil 1 dari indeks ke i

If hasil(2) < args(i) Then hasil(2) = args(i)
·         jika hasil 2 lebih kecil dari nilai i maka hasil 2 dari indeks ke i

Next i
Return hasil
·         Kembali ke hasil
End Function


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
·         Method pada button1_Click

Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
·         Pendeklarasian variabel dengan nama statistik dengan tipe data single. Dan nilai array pada indeks ke 0=1.
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
·         Textbox satu sampai ke tiga akan bernilai statistik dari indeks ke 0
End Sub

Saat Program dijalankan





















Kode Program secara lengkap

Private Function fstat(ByVal ParamArray args() As Object) As Single()
        Dim hasil(3) As Single
        Dim i As Integer
        For i = 0 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

    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
==========================================================================================================================================================================================

Overloading Function

Contoh Program :

Public Class Form2
    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 bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
    End Function

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














Penjelasan Program:

Pada contoh program di atas, ada dua sub program yang sama namun masing-masing memiliki variabel yang berbeda.
cara kerjanya adalah:
hasil yang akan diberikan di atas tergantung dari berapa variabel yang kita berikan saat memangil sub program.
pada contoh di atas, saya berikan 2. yang artinya, program akan mengksekusi function yang pertama. namun apa bila kita pesan pada pemanggilan sub progaram sejumlah 3, maka sub program yang akan di eksekusi adalah yang ke 2.

==========================================================================================================================================================================================

Macam-macam fungsi bawaan pada Visual basic 2010 

1. Fungsi Numerik
Fungsi pembulatan angka.






Contoh penggunaan program :














2. Fungsi Matematika
- fungsi-fungsi yang berkaitan dengan tujuan matematis terdapat dalam class math.
- pemanggilan fungsi ini harus diawalai (prefiks) math.

Contoh fungsi matematika:






























3. Fungsi string
Adalah fungsi yang digunakan untuk operasi string.
a. Fungsi String Lcase() dan Ucase()
- Lcase()
akan mengembalikan suatu string dalam tipe huruf kecil (lowercse)
- Ucase()
akan mengembalikan suatu string dalam tipe huruf besar (upercase)
- Contoh
Dim inStr As String ="Ikut Kuliah Pak Nandang"
Dim outStr As String

mengembalikan "ikut kuliah pak nandang"
outStr = LCase(inStr)

mengembalikan "IKUT KULIAH PAK NANDANG"
outStr = Ucase(inStr)


b. Fungsi String Left(), Mid() dan Right()
Ketiga  fungsi  ini  mengembalikan  substring dengan  jumlah  karakter  yang  telah  ditentukan dari  suatu  argumen
Pengambilan  karakter  ini dimulai dari sisi paling kiri (Left), dari sisi paling kanan (Right), atau dari urutan tertentu.
- Contoh
Dim inString As String = “Hai, Dunia!”

mengembalikan "Hai"
Left(inString, 3)
mengembalikan "Dunia!"
Right(inString, 6 
mengembalikan "Hai"
Mid(inString, 1, 3)
mengembalikan "Dun"
Mid(inString, 6, 8)

c.  Fungsi String  Len()
Mengembalikan nilai integer yang merupakan panjang string
- Contoh 
Dim inStr As String = "Hai, Dunia!"
'mengembalikan 11
Dim outStr As Integer = Len (inStr)

d. Fungsi String Ltrim(), Rtrim(), Trim()
- mengembalikan suatu string tanpa menyertakan spasi yang terletak sebelumnya (LTrim), spasi yang terletak setelahnya (RTrim), atau spasi yang terletak sebelum dan setelahnya (Trim).

- Contoh
Dim inStr As String = " <-Alpro-> "
Dim outStr As String

outStr = LTrim(inStr)
outStr = RTrim(inStr)
outStr = LTrim(RTrim(inStr))
outStr = Trim(inStr)

e. Fungsi string Replace()
Mengembalikan suatu string dimana suatu substring pada argumen tersebut telah digantikan oleh substring yang lain.
- Contoh
Dim inString As String = "Shopping List"
Dim outString As String = _
Replace (inString, "o", "i")

f. Fungsi string StrComp()
Mengembalikan -1,0 atau 1 berdasarkan hasil dari perbandingan dua string. Opsi metode perbandingan dapat menggunkan text (lower atau upercase dihirraukan) atau binary (lower atau upercse diperhatikan).

- Contoh
Dim inStr1 As String = "ABCD"
Dim inStr2 As String = "abcd"
Dim inStr3 As String = 
outStr = StrComp (inStr1, inStr2, _ CompareMethod.Text)
outStr = StrComp (inStr1, inStr2, _ CompareMethod.Binary)
outStr = StrComp (inStr1, inStr2)

g. Fungsi String StrReverse()
Mengembalikan suatu string yang mempunyai karakter sama dengan argumen, tetapi dengan urutan yang berkebalikan.
- Contoh 
Dim inStr As String = "ABCDEFG"
Dim outStr As String = StrReverse (inStr)

h. Fungsi String StrDup()
Mengembalikan suatu string yang terdiri dari karakter yang berulang. Karakter yang diulang ini merupakan karakter awal dari string yang menjadi argumen.
- Contoh
Dim inStr As String = "Hai, Dunia !"
Dim outStr As String
outStr = StrDup (9, "s")









Selasa, 11 Desember 2012

tugas ke 7


bismillah...
kali ini kita akan belajar membuat.....
kita lihat aja langsung...
ni tampilan awalnya...
jreng jreng jreng...















nah... kira-kira gimanaya buatnya,,,,
nyok kita simak bareng--------
pertama yang harus kita sadari adalah... tampilan tersebut muncul karena... adanya tambahan library..
apakah librarynya... DotNetBarSetupTrial.msi. ini bentuknya .msi jadi harus diinstal terlbih dahulu.
tapi kalo yang ekstensinya .dll si ga usah diinstal... tinggal dipasangin aja...
kalo udah sukses tu ya.. lihat ditoolboxnya.
kira-kira kaya gini..















nah kan.........
oke deh.... kita langsung buat projectnya. tentunya sudah pada tahu donk gimana caranya buat project baru.
1. buat project baru dengan nama terserah kamu
2. setelah muncul form baru
3. tambahkan ribbon control yang ada pada toolbox bagian DotNetBar















udah to yo...
4. setalah udah ditari itu ribbom control.. tinggal deh diatur-atur sesuai kebutuhan.
5. udah to... sekaran untuk membuat BubbleBarnya...


udah kan...
sekarang kita akan membuat agar form tersusun vertikal, horizontal dan cescade.
namun terlabih dahulu.. di properties form pilih isMDIcontainer kemudian set menjadi true ya,
let's go.
1. membuat form menjadi veritkal















codingnya :
Me.LayoutMdi(MdiLayout.TileVertical)

2. membuat horizontal form set


Codingnya :
Me.LayoutMdi(MdiLayout.TileHorizontal)
3. membuat cescade form set



 codingnya :
Me.LayoutMdi(MdiLayout.TileCescade)
4. selanjutnya kita buat coding untuk memanggil form-form yang kita telah buat.
saya beri contoh satu..

Form2.MdiParent = MeForm2.Show()
itu artinya form dipanggil dan akan ada di dalam Mdinya...

cukup sekian semoga bermanfaat.