PENGGUNAAN FUNGSI STRING II

1.DESIGN PROGRAM

2.HASIL PROGRAM

3.LISTING PROGRAM

Public Class Form1

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

        Call bersih()

    End Sub

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

        Dim x, fx As Integer

        x = Val(txtx.Text)

        fx =x3 -x2 +3x +2

        Do While x > 0.0001

            fx =x3- x2+ 3x+2

            x = x + 0.0001

        Loop

        txthasil.Text = fx

    End Sub

    Private Sub bersih()

        txtx.Text = ""

        txthasil.Text = ""

        txtx.Focus()

    End Sub

    Private Sub cbohapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbohapus.Click

        Call bersih()

    End Sub

    Private Sub CBOKELUAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBOKELUAR.Click

        Close()

    End Sub

End Class