Fungsi pada VB2010 (bag. 1)

Fungsi merupakan suatu prosedur yang biasa terdapat dalam source code bahasa pemrograman, termasuk juga VB2010. Terdapat 2 jenis fungsi, yaitu: built-in function (fungsi internal yang terdapat dalam program dan fungsi yang kita buat sendiri.
Secara umum, format penulisan fungsi yaitu:
FunctionName (arguments)
Pada bagian ini, kita akan belajar tentang 2 fungsi yang sangat dasar tetapi sangat berguna bagi internal function pada VB2010. Fungsi tersebut antara lain msgbox() dan inputbox().

1. msgbox()
Msgbox menghasilkan suatu pesan dan mengharuskan user unutk meng-klik sebuah button sebelum user tersebut melanjutkan perintah pada program. Format penulisannya yaitu:
          yourMsg=MsgBox(Prompt, Style Value, Title)
Contoh1.1:
Masukkan 1 buah button ke dalam form dan ketikkan code berikut:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim testmsg As Integer
        testmsg = MsgBox("Click to test", 1, "Test message")
        If testmsg = 1 Then
            MessageBox.Show("You have clicked the OK button")
        Else
            MessageBox.Show("You have clicked the Cancel button")
        End If
    End Sub
End Class



Kita bisa menambahkan icon ke dalam message box, yaitu dengan menginputkan icon yang telah disediakan VB2010. Adapun icon yang terdapat pada VB2010 yaitu:



Contoh1.2:
Masukkan 1 buah button ke dalam form dan ketikkan code berikut: 

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim testMsg As Integer
        testMsg = MsgBox("Click to Test", vbYesNoCancel + vbExclamation, "Test Message")
        If testMsg = 6 Then
            MessageBox.Show("You have clicked the yes button")
        ElseIf testMsg = 7 Then
            MessageBox.Show("You have clicked the NO button")
        Else
            MessageBox.Show("You have clicked the Cancel button")
        End If
    End Sub
End Class

2. inputbox()
Inputbox akan menampilkan sebuah message box saat user memasukkan suatu nilai atau message ke dalam textbox. Format penulisannya yaitu:
myMessage=InputBox(Prompt, Title, default_text, x-position, y-position)
contoh2.1:
Masukkan 1 buah button ke dalam form dan ketikkan code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim userMsg As String
        userMsg = Microsoft.VisualBasic.InputBox("What is your message?", "Message Entry Form", "Enter your messge here", 500, 700)
        If userMsg <> "" Then
            MessageBox.Show(userMsg)
        Else
            MessageBox.Show("No Message")
        End If
    End Sub
End Class
untuk mendapatkan file pdf-nya klik download

Perulangan pada VB2010

Perulangan dibutuhkan untuk menampilkan data-data secara berulang kali hingga pada kondisi tertentu. Sebagai contoh, kita akan menampilkan beberapa angka secara berurutan.
Format penulisannya yaitu:  
For counter=startNumber to endNumber (Step increment)
    One or more VB statements
Next

Contoh1:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim counter As Integer
        For counter = 1 To 10
            ListBox1.Items.Add(counter)
        Next
    End Sub
End Class



*program akan menampilkan angka 1 hingga 10 dalam listbox

Contoh2:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim counter, sum As Integer
        For counter = 0 To 100 Step 10
            sum += counter
            ListBox1.Items.Add(sum)
        Next
    End Sub
End Class



*menampilkan jumlah dari deret 0+10+20+30+40+…

Contoh3:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim counter, sum As Integer
        sum = 1000
        For counter = 100 To 5 Step -5
            sum -= counter
            ListBox1.Items.Add(sum)
        Next
    End Sub
End Class



*menampilkan perhitungan dari deret -100-95-90-85-…

Contoh4:
Masukkan 1 buah listbox ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim n As Integer
        For n = 1 To 10
            If n > 6 Then
                Exit For
            End If
            ListBox1.Items.Add(n)
        Next
    End Sub
End Class



*menampilkan deret angka dengan batas angka 6
untuk mendapatkan file pdf nya klik download

Fungsi Select Case pada VB2010

Fungsi select case berbeda dengan fungsi if..else dalam hal format penulisan. Tapi secara fungsi memiliki kesamaan, yakni untuk menentukan kondisi dari beberapa pilihan. Adapun format penulisan select case yaitu:
Select Case test expression
   Case expression list 1
        Block of one or more VB statements
   Case expression list 2
        Block of one or more VB Statements
   Case expression list 3
        Block of one or more VB statements
   Case expression list 4
        .
        .
        .
   Case Else
        Block of one or more VB Statements
End Select

Contoh 1:
Pada contoh ini kita akan menampilkan komentar dari beberapa nilai huruf yang kita inputkan ke dalam textbox. Masukkan 1 textxbox, 1 button dan 5 buah label ke dalam form. Kemudian ketikkan code berikut:
Public Class Form1
    Dim grade As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        grade = TextBox1.Text
        Select Case grade
            Case "A"
                Label1.Text = "High Distinction"
            Case "A-"
                Label2.Text = "Distinction"
            Case "B"
                Label3.Text = "Credit"
            Case "C"
                Label4.Text = "Pass"
            Case Else
                Label5.Text = "Fail"
        End Select
    End Sub
End Class
 
*Masukkan huruf A atau A- atau B atau C, makan akan muncul kata-kata dari kelima label.

Contoh 2:
Pada contoh ini kita akan menampilkan komentar dari nilai angka yang kita inputkan ke dalam textbox. Masukkan 1 textxbox, 1 button dan 5 buah label ke dalam form. Kemudian ketikkan code berikut:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mark As Single
        mark = TextBox1.Text
        Select Case mark
            Case Is >= 85
                Label1.Text = "Excellence"
            Case Is >= 70
                Label2.Text = "Good"
            Case Is >= 60
                Label3.Text = "Above Average"
            Case Is >= 50
                Label4.Text = "Average"
            Case Else
                Label5.Text = "Need to work harder"
        End Select
    End Sub
End Class



*Masukkan angka ke dalam textbox, maka akan muncul komentar dari label1 hingga label5.

Contoh 3:
Pada contoh ini kita akan menampilkan komentar dari nilai huruf yang kita inputkan ke dalam textbox. Bedanya dengan contoh 2, yaitu kita memberikan range nilai dari nilai yang akan kita inputkan. Masukkan 1 textxbox, 1 button dan 5 buah label ke dalam form. Kemudian ketikkan code berikut:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mark As Single
        mark = TextBox1.Text
        Select Case mark
            Case 0 To 49
                Label1.Text = "Need to work harder"
            Case 50 To 59
                Label2.Text = "Average"
            Case 60 To 69
                Label3.Text = "Above Average"
            Case 70 To 84
                Label4.Text = "Good"
            Case Else
                Label5.Text = "Excellence"
        End Select
    End Sub
End Class

 
*Masukkan angka ke dalam textbox, maka akan muncul komentar dari label1 hingga label5.
untuk mendapatkan file pdf nya klik download

Sistem Persediaan Barang dengan EOQ dan ABC

Dalam membangun suatu system persediaan barang, ada 2 hal yang perlu diperhatikan yaitu: kapan waktu pembelian yang tepat dan berapa jumlah pemesanan barang yang optimal. Banyak system persediaan barang yang selama ini hanya menampilkan stok barang dan transaksi barang, sementara banyak pihak pengguna sistem yang perlu mengetahui kapan waktu pemesanan barang yang tepat tanpa menunggu barang kosong di gudang dan juga berapa jumlah pemesanan yang optimal sehingga jumlah barang yang dipesan dapat digunakan sesuai kebutuhan.

Penerapan metode EOQ dalam suatu system persediaan barang bukanlah hal yang baru. Metode EOQ merupakan suatu metode persediaan barang yang dapat menentukan jumlah pemesanan barang yang optimal. Ada beberapa unsure dalam menentukan metode EOQ, yaitu:

1.      Jumlah barang yang dipesan

Untuk menentukan jumlah barang yang dipesan kita menggunakan metode EOQ

2.      Waktu pemesanan yang tepat

Untuk menentukan waktu pemesanan yang tepat kita dapat menggunakan perhitungan ROP

Selain 2 hal di atas, salah satu metode yang dapat diterapkan kedalam system persediaan barang yaitu analisis ABC yang berfungsi untuk menentukan prioritas pemesanan barang. Hal ini sangat membantu pihak pengguna dalam menentukan barang mana yang harus diprioritaskan dalam pemesanan barang.

Untuk itu, kami mencoba menawarkan suatu system persediaan barang dengan menggunakan metode EOQ dan ABC yang dalam hal ini mengambil sampel persediaan obat dalam suatu rumah sakit. Sistem ini menggunakan bahasa pemrograman Visual Basic 2010 Adapun kelebihan dari system ini selain yang disebut  diatas yaitu, system ini memiliki penanda berupa notifikasi jika sewaktu-waktu barang dalam gudang habis atau masa kadaluarsanya telah sampai. Sistem ini masih berupa suorce code, jadi sangat membantu bagi mahasiswa yang sedang melakukan tugas akhir.

Untuk informasi pemesanan, bias mengirimkan email ke dizz.tr@gmail.com dengan subject: vb001

Sistem informasi Apotek

Sistem informasi apotek merupakan suatu sistem informasi yang mengelola data-data apotek. Dalam sistem informasi apotek dapat disimpan dan diolah data-data obat, supplier obat dan juga pelanggan apotek. Sistem ini menampilkan pengelolaan data apotek berserta transaksi dan juga laporannya. Sistem ini menggunakan bahasa pemrograman VB6 dengan database SQL Server 2000 dan report menggunakan datareport. Sistem ini masih lengkap dengan source code nya, jadi sangat berguna bagi mahasiswa yang sedang melakukan kerja praktek ataupun tugas akhir.

Untuk pemesanan sistem ini dapat mengirimkan email ke dizz.tr@gmail.com dengan subject vb002.

Fungsi if pada VB2010

Untuk memaksimalkan kinerja program menggunakan VB2010, kita bias menggunakan fungsi logika if untuk mengatasi berbagai permasalahan kondisional. Secara umum, ada 3 tipe fungsi if yaitu: if..then, if.. then.. else, dan if.. then.. elseif.

If..then

Ini merupakan fungsi if yang sangat simpel. Secara umum, format penulisan kode untuk fungsi if..then yaitu:

If  conditionThen

VB expression

End If

Contoh:

Pada program ini, kamu harus memasukkan 1 button, 1 textbox dan 1 label ke dalam form.

 

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

DimmyNumberAsInteger

myNumber = TextBox1.Text

IfmyNumber> 100 Then

            Label1.Text = " Anda memenangkan undian"

EndIf

EndSub

*Masukkan nilai kedalam textbox > 100, maka kalimat “Andamemenangkanundian” akan muncul.

Fungsi if..then.. else

Menggunakan fungsi if..then tidak terlalu sering digunakan dan tidak memenuhi beberapa pilihan dari pengguna. Kita bias menggunakan fungsi if.. then.. else untuk melakukan beberapa pilihan dalam kode program. Secara umum, format penulisan kode untuk fungsi if..then.. else yaitu:     

If  condition Then

VB expression

Else

VB expression

End If

Contoh1:

Pada program ini, kamu harus memasukkan 1 button, 1 textbox dan 1 label kedalam form.

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

DimmyNumberAsInteger

myNumber = TextBox1.Text

IfmyNumber> 100 Then

            Label1.Text = " Selamat! Andamemenangkanundian"

Else

            Label1.Text = " Maaf! Andatidakmemenangkanundian"

EndIf

EndSub

*Masukkan nilai kedalam textbox > 100, maka kalimat “Selamat!, Anda memenangkan undian” akan muncul dan masukkan nilai< 100, maka kalimat “Maaf! Anda tidak memenangkan undian”.

Contoh2:

Pada program ini, kamu harus memasukkan 1 button, 2 textbox dan 1 label kedalam form.

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

DimmyNumber, MyAgeAsInteger

myNumber = TextBox1.Text

MyAge = TextBox2.Text

IfmyNumber> 100 AndMyAge> 60 Then

            Label1.Text = "  Selamat! Andamemenangkanundian"

Else

            Label1.Text = " Maaf! Andatidakmemenangkanundian"

EndIf

EndSub

*Masukkan nilai kedalam textbox1 > 100 dan textxbox2 > 60, maka kalimat “Selamat!, Anda memenangkan undian” akan muncul dan masukkan nilai kedalam textbox1< 100 dan textbox2 < 60, maka kalimat “Maaf! Anda tidak memenagkan undian”.

Fungsi if..then.. elseif

Untuk melakukan banyak pilihan, kita bias menggunakan fungsi if..then.. elseif. Secara umum, format penulisan kode untuk fungsi if..then.. elseif yaitu:

If  conditionThen

VB expression

ElseIfcondition Then

VB expression

ElseIfcondition Then

VB expression

...

...

Else

VB expression

End If

Contoh:

Pada program ini, kamu harus memasukkan 1 button, 1 textbox dan 1 label kedalam form:

 

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim Mark AsInteger

        Mark = TextBox1.Text

If Mark >= 80 Then

            Label1.Text = "A"

ElseIf Mark >= 60 And Mark < 80 Then

            Label1.Text = "B"

ElseIf Mark >= 40 And Mark < 60 Then

            Label1.Text = "C"

Else

            Label1.Text = "D"

EndIf

EndSub

*Masukkan nilai> 80, maka akan muncul “A”, nilai>=60 dan nilai< 80, maka akan muncul “B”, nilai>=40 dan nilai< 60, maka akan muncul “C”, selain itu akanmuncul “D”.

Untuk mendapatkan file pdf nya klik klik