GUI 5 Form 1

Public Class Form1
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = tbusername.Text
        If (tbusername.Text = "admin") And (tbpassword.Text = "admin") Then
            MessageBox.Show("isi " & tbusername.Text, "Judul", MessageBoxButtons.OK, MessageBoxIcon.Hand)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Clear()
        If CheckBox1.Checked Then
            TextBox1.Text = TextBox1.Text & CheckBox1.Name & " is Checked" & vbCrLf
        End If
        If CheckBox2.Checked Then
            TextBox1.Text = TextBox1.Text & CheckBox2.Name & " is Checked" & vbCrLf
        End If
        If RadioButton1.Checked Then
            TextBox1.Text = TextBox1.Text & RadioButton1.Name & " is Checked" & vbCrLf
        End If
        If RadioButton2.Checked Then
            TextBox1.Text = TextBox1.Text & RadioButton2.Name & " is Checked" & vbCrLf
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        MessageBox.Show("told you do not check")
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If ComboBox1.SelectedItem = "Plus" Then
            Label2.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
        End If
        If ComboBox1.SelectedItem = "Minus" Then
            Label2.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
        End If
    End Sub

    Private Sub Button3_MouseHover(sender As Object, e As EventArgs) Handles Button3.MouseHover
        Label2.Text = "hovering"
    End Sub

    Private Sub Button3_MouseLeave(sender As Object, e As EventArgs) Handles Button3.MouseLeave
        Label2.Text = "leave"
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.F1 Then
            'MessageBox.Show("F1 is pressed")
            If ColorDialog1.ShowDialog() = DialogResult.OK Then
                Me.BackColor = ColorDialog1.Color
            End If
        End If
    End Sub

End Class

GUI 4 Form 1 dan Form 2

Public Class Form1
    Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
        OpenFileDialog1.Title = "Please Select a File"
        OpenFileDialog1.Filter = "lagu|*.mp3|filem|*.mp4"
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
    End Sub

    Private Sub FullScreenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FullScreenToolStripMenuItem.Click
        Try
            AxWindowsMediaPlayer1.fullScreen = True
        Catch ex As Exception
            MessageBox.Show("Buka File nya terlebih dahulu")
        End Try
    End Sub
    Dim i As Integer
    Private Sub TimeCounterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TimeCounterToolStripMenuItem.Click
        Timer1.Start()
        i = 0
        Timer1.Interval = 1000
        TimeCounterToolStripMenuItem.Text = i
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        i += 1
        TimeCounterToolStripMenuItem.Text = 1
        If i = 10 Then
            Timer1.Stop()
            MessageBox.Show("Time Out")
        End If
    End Sub

End Class

Public Class Form2

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Randomize()

        tbp.Text = Math.Ceiling(Rnd() * 100)

        tbl.Text = Math.Ceiling(Rnd() * 100)

        tbls.Text = " "

    End Sub

    Function Hitung_luas_Function(ByVal Panjang, ByVal Lebar, ByRef Luas)

        Luas = Panjang * Lebar

        Return Luas

    End Function

    Function Hitung_luas_Procedure(ByVal Panjang, ByVal Lebar)

        Dim Luas As Integer

        Luas = Panjang * Lebar

        tbls.Text = Luas

    End Function

End Class

GUI 3 Form1 form 2 dan form 3

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SAPI = CreateObject("SAPI.spvoice")
        SAPI.speak(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim frm2 As New Form2
        Me.Hide()
        nama = TextBox2.Text
        frm2.Show()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'Label2.Text = DateTimePicker1.Value.date
        Label2.Text = Format(DateTimePicker1.Value, "dd:MM:yy")
    End Sub
End Class

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim SAPI = CreateObject("SAPI.spvoice")
        SAPI.speak("WELCOME " & nama)
    End Sub

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        TextBox1.Text = TrackBar1.Value
    End Sub

    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
        ProgressBar1.Value = NumericUpDown1.Value
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        Form3.Show()
    End Sub

    Private Sub MaskedTextBox1_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected

    End Sub
End Class

Public Class Form3
    Dim SAPI = CreateObject("SAPI.spvoice")
    ' untuk deklarasi variable 1 form
    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        'MessageBox.Show("My Program")
        AboutBox1.Show()
    End Sub

    Private Sub KlikKananToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KlikKananToolStripMenuItem.Click

    End Sub

    Private Sub FireInTheHoleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FireInTheHoleToolStripMenuItem.Click
        'SAPI.speak(FireInTheHoleToolStripMenuItem.Text)
        SAPI.speak(" Fire In The Hole")
    End Sub

    Private Sub FirstBloodToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FirstBloodToolStripMenuItem.Click
        SAPI.speak("First Blood")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

GUI 2 Form 1

Imports System.IO

Public Class Form1
    Dim sFileName As String = Application.StartupPath & "\VB.txt"
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim myFileStream As New FileStream(sFileName, FileMode.Create, FileAccess.ReadWrite, FileShare.None)
        Dim myWriter As New System.IO.StreamWriter(myFileStream)
        myWriter.WriteLine(RichTextBox1.Text)
        myWriter.Flush()
        myWriter.Close()
        myFileStream.Close()
        RichTextBox1.Text = ""
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try




            Dim myFileStream As New FileStream(sFileName, FileMode.Open, FileAccess.Read, FileShare.Read)
            Dim myReader As New StreamReader(myFileStream)
            Dim sFileContents As String = myReader.ReadToEnd()
            RichTextBox1.Text = sFileContents
            myReader.Close()
            myFileStream.Close()
        Catch ex As FileNotFoundException
            MessageBox.Show("File ga ada coeq")
        Catch ex As Exception
            MessageBox.Show("pokoknya ada error")
        End Try
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        Dim item As ListViewItem
        For Each item In ListView1.SelectedItems
            TextBox1.Text = item.Text
            TextBox2.Text = item.SubItems(1).Text
            TextBox3.Text = item.SubItems(2).Text

        Next
    End Sub

    Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For Each i As ListViewItem In ListView1.SelectedItems
            ListView1.Items.Remove(i)
        Next
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim data(2) As String
        Dim itemList As ListViewItem
        data(0) = TextBox1.Text
        data(1) = TextBox2.Text
        data(2) = TextBox3.Text
        itemList = New ListViewItem(data)
        ListView1.Items.Add(itemList)
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        SaveFileDialog1.initialdirectory = Application.StartupPath
        SaveFileDialog1.Title = "Save Text Files"
        SaveFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
        SaveFileDialog1.FilterIndex = 2
        SaveFileDialog1.ShowDialog()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        OpenFileDialog1.Title = "Please Select a File"
        OpenFileDialog1.InitialDirectory = Application.StartupPath
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        Dim item As ListViewItem
        Dim SFileName As String = SaveFileDialog1.FileName
        Dim MyFileStream As New FileStream(SFileName, FileMode.Create, FileAccess.Write, FileShare.None)
        Dim MyWriter As New StreamWriter(MyFileStream)
        For Each item In ListView1.Items
            MyWriter.WriteLine(item.Text & vbTab & item.SubItems(1).Text & vbTab & item.SubItems(2).Text)
            MyWriter.Flush()
        Next
        MyWriter.Close()
        MyFileStream.Close()
        ListView1.Items.Clear()
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim SfileName As String = OpenFileDialog1.FileName.ToString()
        Dim dataPerLine As String = Nothing
        Dim data() As String
        Dim itemlist As ListViewItem
        Dim MyFileStream As FileStream
        MyFileStream = New FileStream(SfileName, FileMode.Open, FileAccess.Read, FileShare.None)
        If MyFileStream.CanRead = True Then
            Dim MyReader As New StreamReader(MyFileStream)
            While (Not MyReader.EndOfStream)
                dataPerLine = MyReader.ReadLine()
                data = dataPerLine.Split(New Char() {Chr(9)})
                itemlist = New ListViewItem(data)
                ListView1.Items.Add(itemlist)

            End While
            MyReader.Close()
            MyFileStream.Close()
        End If


    End Sub

End Class

GUI 1 Form 1 dan Form 2

Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim penampung As String
        Dim nilai As Double
        nilai = Val(TextBox1.Text)
        penampung = ""
        penampung = penampung & "Absolut" & Math.Abs(nilai) & vbCrLf
        penampung = penampung & "Cosinus" & Math.Cos(nilai) & vbCrLf
        penampung = penampung & "Pembulatan" & Math.Round(nilai) & vbCrLf
        penampung = penampung & "Log" & Math.Log(nilai) & vbCrLf
        penampung = penampung & "Akar" & Math.Sqrt(nilai) & vbCrLf
        penampung = penampung & "Heksa" & Hex(nilai) & vbCrLf
        'Math.Celling(nilai) pembulatan PASTI ke atas
        'Math.Floor(nilai) pembulatan PASTI ke bawah
        'Math.Truncate Angka di belakang koma di buang.
        TextBox2.Text = penampung
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim penampung As String
        penampung = ""
        penampung = penampung & "Panjang: " & TextBox1.Text.Length & vbCrLf
        If (IsNumeric(TextBox1.Text)) Then
            penampung = penampung & "Nilai Ascii: " & Chr(TextBox1.Text) & vbCrLf
        ElseIf (TextBox1.Text.Length = 1) Then
            penampung = penampung & "Karakter: " & Asc(TextBox1.Text) & vbCrLf
        Else
            penampung = penampung & "LowerCase: " & LCase(TextBox1.Text) & vbCrLf
            penampung = penampung & "UpperCase: " & UCase(TextBox1.Text) & vbCrLf
            penampung = penampung & "Reverse: " & StrReverse(TextBox1.Text) & vbCrLf
            penampung = penampung & "Replace: " & TextBox1.Text.Replace(" ", "_") & vbCrLf
        End If
        TextBox2.Text = penampung
    End Sub


End Class

Public Class Form2
    Private Sub Form1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Form1ToolStripMenuItem.Click
        Dim frm1 As New Form1
        frm1.MdiParent = Me
        frm1.Show()
    End Sub

    Private Sub NotepadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NotepadToolStripMenuItem.Click
        Process.Start("notepad.exe")
    End Sub

End Class