16 April 2011

Contoh Program


  1. DO While 




Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = 1 To 10
            ListBox1.Items.Add(I)
        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox2.Text) To Val(TextBox3.Text)
            ListBox1.Items.Add(I)
        Next
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim I As Integer = I
        ListBox1.Items.Clear()

        Do While I <= 10
            ListBox1.Items.Add(I)
            I = I + 1
        Loop

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            If I Mod 3 = 0 And I Mod 2 = 0 Then
                ListBox1.Items.Add(I * -1)
            Else
                If I Mod 3 = 0 Then
                    ListBox1.Items.Add(I)
                End If
            End If
        Next

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            If I Mod 2 = 0 Then
                ListBox1.Items.Add("Bil Genap " & I)
            Else
                ListBox1.Items.Add("Bil Ganjil " & I)
            End If
            ListBox1.Items.Add(I)
        Next
    End Sub

End Class


 2. Form Mahasiswa








Public Class Form3
    'Membuat Variable aray'
    Dim Listtxt(3) As String
    Dim listitem As ListViewItem

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Masukan nilai ke variablle aray'
        Listtxt(0) = Trim(TextBox1.Text)
        Listtxt(1) = Trim(TextBox2.Text)
        Listtxt(2) = Trim(TextBox3.Text)

        'untuk memasukan listview dari variable array'
        listitem = New ListViewItem(Listtxt)
        ListView1.Items.Add(listitem)
    End Sub
    'setting kolom listview'
    Sub setlistview()

        ListView1.View = View.Details

        'Untuk menentukan kolom'
        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("NPM", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)

    End Sub


    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call setlistview()

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
        'mengambil nilai dari listview'
        TextBox4.Text = e.Item.Text
    End Sub

End Class





Public Class Form3
    'Membuat Variable aray'
    Dim Listtxt(3) As String
    Dim listitem As ListViewItem

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Masukan nilai ke variablle aray'
        Listtxt(0) = Trim(TextBox1.Text)
        Listtxt(1) = Trim(TextBox2.Text)
        Listtxt(2) = Trim(TextBox3.Text)

        'untuk memasukan listview dari variable array'
        listitem = New ListViewItem(Listtxt)
        ListView1.Items.Add(listitem)
    End Sub
    'setting kolom listview'
    Sub setlistview()

        ListView1.View = View.Details

        'Untuk menentukan kolom'
        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("NPM", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)

    End Sub


    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call setlistview()

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
        'mengambil nilai dari listview'
        TextBox4.Text = e.Item.Text
    End Sub

End Class




 3. Penggabungan Kata








 
Public Class Form2

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox2.Focus()
        End If
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox3.Focus()
        End If
    End Sub

    Sub gabung()
        ListBox1.Items.Add(Trim(TextBox1.Text) & " " & Trim(TextBox2.Text) & " " & Trim(TextBox3.Text))
    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If e.KeyChar = Chr(13) Then
            Call gabung()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call gabung()
    End Sub
End Class





4. For Do While







Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer = I
        ListBox1.Items.Clear()
        I = Val(TextBox2.Text)
        Do While I <= Val(TextBox3.Text)
            If I Mod 3 = 0 And I Mod 2 = 0 Then
                ListBox1.Items.Add(I * -1)
            Else
                If I Mod 3 = 0 Then
                    ListBox1.Items.Add(I)
                End If
            End If
            I = I + 1
        Loop
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = 1 To 10
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox2.Text) To Val(TextBox3.Text)
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox2.Text) To Val(TextBox3.Text)
            If I Mod 3 = 0 And I Mod 2 = 0 Then
                ListBox1.Items.Add(I * -1)
            Else
                If I Mod 3 = 0 Then
                    ListBox1.Items.Add(I)
                End If
            End If
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim I As Integer = I
        ListBox1.Items.Clear()

        Do While I <= 10
            ListBox1.Items.Add(I)
            I = I + 1
        Loop
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim I As Integer = I
        ListBox1.Items.Clear()
        I = Val(TextBox2.Text)
        Do While I <= Val(TextBox3.Text)
            ListBox1.Items.Add(I)
            I = I + 1
        Loop
    End Sub
End Class





5. Do While Akhiran 3


 



Public Class Form1

    Sub progfor()
        Dim w As Integer
        ListBox1.Items.Clear()
        For w = Val(TextBox1.Text) To Val(TextBox2.Text)
            If w Mod 7 > 0 And w Mod 3 = 0 Then
                ListBox1.Items.Add(w)
            End If
        Next
    End Sub

    Sub progdowhile()
        Dim s As Integer
        ListBox2.Items.Clear()
        s = Val(TextBox1.Text)
        Do While s < Val(TextBox2.Text)
            If Microsoft.VisualBasic.Right(s, 1) = 3 Then
                ListBox2.Items.Add(s)

            End If
            s = s + 1
        Loop
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call progdowhile()
        Call progfor()
    End Sub
End Class




Tidak ada komentar:

Posting Komentar