Buat Program skala Pake Visual Basic (free Source Code)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, d, z As Integer

        a = TextBox1.Text

        If (a <= 500) Then
            TextBox2.Text = a
        ElseIf (a >= 501) And (a <= 1500) Then
            TextBox2.Text = "500"
            b = a - 500
            TextBox3.Text = b
        ElseIf (a >= 1501) And (a <= 3000) Then
            TextBox2.Text = "500"
            TextBox3.Text = "1000"
            c = a - 1500
            TextBox4.Text = c
        ElseIf (a >= 3001) And (a <= 5000) Then
            TextBox2.Text = "500"
            TextBox3.Text = "1000"
            TextBox4.Text = "1500"
            d = a - 3000
            TextBox5.Text = d
        ElseIf (a >= 5001) Then
            TextBox2.Text = "500"
            TextBox3.Text = "1000"
            TextBox4.Text = "1500"
            TextBox5.Text = "2000"
            z = a - 5000
            TextBox6.Text = z

        Else
            MsgBox("Volume Air salah")

        End If
       
         

    End Sub
End Class

Description: Buat Program skala Pake Visual Basic (free Source Code) Rating: 4.5 Reviewer: Alvianno Wijaya - ItemReviewed: Buat Program skala Pake Visual Basic (free Source Code)

Silahkan Baca Artikel Lain yang tidak Kalah menariknya.

Ilmu Komputer 95 - 07.38