Blogger Widgets

ZARMI SUKSES


web widgets

SELAMAT DATANG DI STIKOM MUHAMMADIYAH BATAM

SELAMAT DATANG DI STIKOM MUHAMMADIYAH BATAM - RAIH MASA DEPANMU BERSAMA STIKOM MUHAMMADIYAH BATAM - TERDEPAN - MODEREN - DAN - ISLAMI, - KALAU ADA KRITIKAN YANG MEMBANGUN SILAKAN DIKIRIMKAN KE KAMI - DAN TERIMAKASIH ATAS KUNJUNGAN ANDA

Minggu, 14 Juni 2015

PROGRAM HITUNG BY VB NET



PROGRAM HITUNG NILAI BY VB NET


Public Class Form3

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.Text = "zarmi"
        TextBox2.Text = "13020030"
        TextBox3.Text = "Akuntansi"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox8.Text = (Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text)) / 4
        If TextBox8.Text <= 100 Then
            TextBox9.Text = ("LULUS")
        Else
        End If
        If TextBox8.Text <= 61 Then
            TextBox9.Text = ("Gagal")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Integer
        x = MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Warning")
        If x = vbOK Then
            End
        End If
    End Sub
End Class