UAS

TUGAS UAS KONSEP PEMROGRAMAN

SOURCE CODE

Public Class Form1

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox1.Focus()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim var5 As Object

        Dim Var4 As Object

        Dim Var3 As Object

        Dim Var2 As Object

        Dim Var1 As Object

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, "D:\acila7\ACENG.csv", OpenMode.Append)

        Var1 = TextBox1.Text

        Var2 = TextBox2.Text

        Var3 = TextBox3.Text

        Var4 = TextBox4.Text

        var5 = TextBox5.Text

        ListBox1.Items.Add(Var1 & "-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)

        WriteLine(1, Var1, Var2, Var3, Var4, var5)

        FileClose(1)

    End Sub

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

        On Error Resume Next

        Dim var5 As Object

        Dim var4 As Object

        Dim var3 As Object

        Dim var2 As Object

        Dim var1 As Object

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, "D:\acila7\ACENG.csv", OpenMode.Input)

        Do While Not EOF(noFile)

            Input(1, var1)

            Input(1, var2)

            Input(1, var3)

            Input(1, var4)

            Input(1, var5)

            ListBox1.Items.Add(var1 & "-----" & var2 & "-----" & var3 & "----" & var4 & "-----" & var5)

        Loop

        FileClose(noFile)

    End Sub

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

        Me.Close()

    End Sub

End Class

CONTOH DI MICROSOFT EXCEL