Thursday, July 7, 2016

STUDENT MARKS CALCULATOR

Student Marks Caculator Source Code
Imports System.Text
Public Class Form1
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Application.Exit()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If validateform() Then
            If (chkfailinpaper() > 0) Then

            Else
                getresult()

            End If

        End If
    End Sub
    Public Function validateform() As Boolean
        Dim flag As Boolean = True
        If txtroll.Text.Length = 0 Then
            MsgBox("Enter Roll Number", MsgBoxStyle.Critical, "Alert Message")
            flag = False
            txtroll.Focus()
        ElseIf txtname.Text.Length = 0
            MsgBox("Enter Student Name", MsgBoxStyle.Critical, "Alert Message")
            flag = False
            txtname.Focus()
        ElseIf txtengmarks.Text.Length = 0
            MsgBox("Enter English Mars", MsgBoxStyle.Critical, "Alert Message")
            flag = False
            txtengmarks.Focus()
        ElseIf txthndmarks.Text.Length = 0
            MsgBox("Enter Hindi Marks", MsgBoxStyle.Critical, "Alert Message")
            flag = False
            txthndmarks.Focus()
        ElseIf txtmatmarks.Text.Length = 0
            MsgBox("Enter Math Marks", MsgBoxStyle.Critical, "Alert Message")
            flag = False
            txtmatmarks.Focus()
        ElseIf txtscimarks.Text.Length = 0
            MsgBox("Enter Science Marks", MsgBoxStyle.Critical, "Alert Message")
            flag = False
            txtscimarks.Focus()
        ElseIf txtsst.Text.Length = 0
            MsgBox("Enter S.St Marks", MsgBoxStyle.Critical, "Alert Message")
            flag = False
            txtsst.Focus()
        ElseIf Not (IsNumeric(txtengmarks.Text))
            MsgBox("Enter Only Numeric Value", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtengmarks.Clear()
            txtengmarks.Focus()
        ElseIf Not (IsNumeric(txthndmarks.Text))
            MsgBox("Enter Only Numeric Value", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txthndmarks.Clear()
            txthndmarks.Focus()
        ElseIf Not (IsNumeric(txtmatmarks.Text))
            MsgBox("Enter Only Numeric Value", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtmatmarks.Clear()
            txtmatmarks.Focus()
        ElseIf Not (IsNumeric(txtscimarks.Text))
            MsgBox("Enter Only Numeric Value", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtscimarks.Clear()
            txtscimarks.Focus()
        ElseIf Not (IsNumeric(txtsst.Text))
            MsgBox("Enter Only Numeric Value", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtsst.Clear()
            txtsst.Focus()
        ElseIf Integer.Parse(txtengmarks.Text) < 0 Or Integer.Parse(txtengmarks.Text) > 100
            MsgBox("Enter Value Between 0 to 100", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtengmarks.Clear()
            txtengmarks.Focus()
        ElseIf Integer.Parse(txthndmarks.Text) < 0 Or Integer.Parse(txthndmarks.Text) > 100
            MsgBox("Enter Value Between 0 to 100", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txthndmarks.Clear()
            txthndmarks.Focus()
        ElseIf Integer.Parse(txtmatmarks.Text) < 0 Or Integer.Parse(txtmatmarks.Text) > 100
            MsgBox("Enter Value Between 0 to 100", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtmatmarks.Clear()
            txtmatmarks.Focus()
        ElseIf Integer.Parse(txtscimarks.Text) < 0 Or Integer.Parse(txtscimarks.Text) > 100
            MsgBox("Enter Value Between 0 to 100", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtscimarks.Clear()
            txtscimarks.Focus()
        ElseIf Integer.Parse(txtsst.Text) < 0 Or Integer.Parse(txtsst.Text) > 100
            MsgBox("Enter Value Between 0 to 100", MsgBoxStyle.Information, "Alert Message")
            flag = False
            txtsst.Clear()
            txtsst.Focus()
        End If
        Return flag
    End Function
    Public Sub getresult()
        Dim subject(5) As Double
        Dim tmarks, per As Double
        Dim grade As String = String.Empty
        subject(0) = Double.Parse(txtengmarks.Text)
        subject(1) = Double.Parse(txthndmarks.Text)
        subject(2) = Double.Parse(txtmatmarks.Text)
        subject(3) = Double.Parse(txtscimarks.Text)
        subject(4) = Double.Parse(txtsst.Text)

        For counter As Integer = 0 To 4
            tmarks = tmarks + subject(counter)
        Next

        per = tmarks / 5

        If per >= 60 Then
            grade = "A"c
        ElseIf per >= 45
            grade = "B"c
        ElseIf per >= 30
            grade = "C"c
        End If

        txtgrade.Text = grade
        txtper.Text = per.ToString
        totalmarks.Text = tmarks.ToString

    End Sub
    Public Function chkfailinpaper() As Integer
        Dim subject(5) As Double
        Dim strfailpaper As New StringBuilder
        Dim subname() As String = {"English", "Hindi", "Math", "Science", "S.St"}
        Dim countfailpaper As Integer = 0
        subject(0) = Double.Parse(txtengmarks.Text)
        subject(1) = Double.Parse(txthndmarks.Text)
        subject(2) = Double.Parse(txtmatmarks.Text)
        subject(3) = Double.Parse(txtscimarks.Text)
        subject(4) = Double.Parse(txtsst.Text)

        For counter As Integer = 0 To 4
            If subject(counter) < 30 Then
                strfailpaper.Append(subname(counter) & ",")
                countfailpaper = countfailpaper + 1
            End If
        Next
        If (countfailpaper > 0) Then
            clrres()
            MsgBox(strfailpaper.ToString, MsgBoxStyle.Critical, "Fail")
        End If
        Return countfailpaper
    End Function
    Public Sub clrres()
        txtgrade.Clear()
        txtper.Clear()
        totalmarks.Clear()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        clearall()
    End Sub
    Public Sub clearall()
        txtroll.Clear()
        txtname.Clear()
        txtengmarks.Clear()
        txthndmarks.Clear()
        txtmatmarks.Clear()
        txtscimarks.Clear()
        txtsst.Clear()
        txtgrade.Clear()
        txtper.Clear()
        totalmarks.Clear()
        txtroll.Focus()
    End Sub

    Private Sub txtroll_TextChanged(sender As Object, e As EventArgs) Handles txtroll.TextChanged

    End Sub

    Private Sub txtroll_MouseHover(sender As Object, e As EventArgs) Handles txtroll.MouseHover
        ToolTip1.SetToolTip(txtroll, "Enter Roll Number")
    End Sub
    Private Sub txtname_MouseHover(sender As Object, e As EventArgs) Handles txtname.MouseHover
        ToolTip1.SetToolTip(txtname, "Enter Student Name")
    End Sub

    Private Sub dtpdob_MouseHover(sender As Object, e As EventArgs) Handles dtpdob.MouseHover
        ToolTip1.SetToolTip(dtpdob, "Select Date Of Birth")
    End Sub
    Private Sub txtengmarks_MouseHover(sender As Object, e As EventArgs) Handles txtengmarks.MouseHover
        ToolTip1.SetToolTip(txtengmarks, "Enter English Marks")
    End Sub
    Private Sub txthndmarks_MouseHover(sender As Object, e As EventArgs) Handles txthndmarks.MouseHover
        ToolTip1.SetToolTip(txthndmarks, "Enter Hindi Marks")
    End Sub
    Private Sub txtmatmarks_MouseHover(sender As Object, e As EventArgs) Handles txtmatmarks.MouseHover
        ToolTip1.SetToolTip(txtmatmarks, "Enter Math Marks")
    End Sub
    Private Sub txtscimarks_MouseHover(sender As Object, e As EventArgs) Handles txtscimarks.MouseHover
        ToolTip1.SetToolTip(txtscimarks, "Enter Science Marks")
    End Sub
    Private Sub txtsst_MouseHover(sender As Object, e As EventArgs) Handles txtsst.MouseHover
        ToolTip1.SetToolTip(txtsst, "Enter Social Science Marks")
    End Sub
End Class

.................................................................................................................................................................
Click Here To Download Student Marks Calculator Application

Tuesday, July 5, 2016

Sunday, July 3, 2016

Calculate Rupee Program In Vb.Net

Calculate Rupee Program Source Code
Public Class frmcalrupess
    Private Sub btncalrup_Click(sender As Object, e As EventArgs) Handles btncalrup.Click
        If txtrupess.Text.Length = 0 Then
            MsgBox("Enter Rupess", MsgBoxStyle.Critical, "Alert Message")
            txtrupess.Focus()
            reini()
            rmvhighlight()
            Return
        ElseIf Not IsNumeric(txtrupess.Text) Then
            MsgBox("Enter Only Numeric Value", MsgBoxStyle.Critical, "Alert Message")
            txtrupess.Clear()
            txtrupess.Focus()
            reini()
            rmvhighlight()
            Return
        ElseIf Integer.Parse(txtrupess.Text) = 0 Then
            MsgBox("Enter Rupees is greater than zero", MsgBoxStyle.Critical, "Alert Message")
            txtrupess.Clear()
            txtrupess.Focus()
            reini()
            rmvhighlight()
            Return
        ElseIf Integer.Parse(txtrupess.Text) < 0 Then
            MsgBox("Enter only postive value", MsgBoxStyle.Critical, "Alert Message")
            txtrupess.Clear()
            txtrupess.Focus()
            reini()
            rmvhighlight()
            Return
        End If
        calrup()
    End Sub
    Public Sub calrup()
        Try
            Dim non() As Integer = {1000, 500, 100, 50, 20, 10, 5, 2, 1}

            Dim min, strresrup, tnon As Double
            tnon = 0
            strresrup = Math.Round(Double.Parse(txtrupess.Text), 0)
            txtrupess.Text = strresrup.ToString
            min = strresrup
            While strresrup <> 0
                For counter As Integer = 0 To non.Length - 1
                    If (non(counter) <= min) Then
                        strresrup = strresrup - non(counter)
                        tnon = tnon + 1
                        Exit For
                    End If
                Next
                min = strresrup
            End While


            Dim strnon(tnon - 1) As Integer

            tnon = 0
            strresrup = Math.Round(Double.Parse(txtrupess.Text), 0)

            min = strresrup
            While strresrup <> 0
                For counter As Integer = 0 To non.Length - 1
                    If (non(counter) <= min) Then
                        strnon(tnon) = non(counter)
                        strresrup = strresrup - non(counter)
                        tnon = tnon + 1
                        Exit For
                    End If
                Next
                min = strresrup
            End While

            reini()
            For counter As Integer = 0 To tnon - 1
                If (strnon(counter) = 1000) Then
                    txtthousand.Text = Integer.Parse(txtthousand.Text) + 1
                ElseIf (strnon(counter) = 500) Then
                    txtfhun.Text = Integer.Parse(txtfhun.Text) + 1
                ElseIf (strnon(counter) = 100) Then
                    txthun.Text = Integer.Parse(txthun.Text) + 1
                ElseIf (strnon(counter) = 50) Then
                    txtfifty.Text = Integer.Parse(txtfifty.Text) + 1
                ElseIf (strnon(counter) = 20) Then
                    txttwenty.Text = Integer.Parse(txttwenty.Text) + 1
                ElseIf (strnon(counter) = 10) Then
                    txtten.Text = Integer.Parse(txtten.Text) + 1
                ElseIf (strnon(counter) = 5) Then
                    txtfive.Text = Integer.Parse(txtfive.Text) + 1
                ElseIf (strnon(counter) = 2) Then
                    txttwo.Text = Integer.Parse(txttwo.Text) + 1
                ElseIf (strnon(counter) = 1) Then
                    txtone.Text = Integer.Parse(txtone.Text) + 1
                End If
            Next
            highlight()
        Catch ex As Exception

        End Try
    End Sub
    Public Sub reini()
        txtthousand.Text = "0"
        txtfhun.Text = "0"
        txthun.Text = "0"
        txtfifty.Text = "0"
        txttwenty.Text = "0"
        txtten.Text = "0"
        txtfive.Text = "0"
        txttwo.Text = "0"
        txtone.Text = "0"
    End Sub
    Public Sub highlight()
        If Integer.Parse(txtthousand.Text) > 0 Then
            txtthousand.BackColor = Color.Blue
            txtthousand.ForeColor = Color.White
        Else
            txtthousand.BackColor = Color.White
        End If
        If Integer.Parse(txtfhun.Text) > 0 Then
            txtfhun.BackColor = Color.Blue
            txtfhun.ForeColor = Color.White
        Else
            txtfhun.BackColor = Color.White
        End If
        If Integer.Parse(txthun.Text) > 0 Then
            txthun.BackColor = Color.Blue
            txthun.ForeColor = Color.White
        Else
            txthun.BackColor = Color.White
        End If
        If Integer.Parse(txtfifty.Text) > 0 Then
            txtfifty.BackColor = Color.Blue
            txtfifty.ForeColor = Color.White
        Else
            txtfifty.BackColor = Color.White
        End If
        If Integer.Parse(txttwenty.Text) > 0 Then
            txttwenty.BackColor = Color.Blue
            txttwenty.ForeColor = Color.White
        Else
            txttwenty.BackColor = Color.White
        End If
        If Integer.Parse(txtten.Text) > 0 Then
            txtten.BackColor = Color.Blue
            txtten.ForeColor = Color.White
        Else
            txtten.BackColor = Color.White
        End If
        If Integer.Parse(txtfive.Text) > 0 Then
            txtfive.BackColor = Color.Blue
            txtfive.ForeColor = Color.White
        Else
            txtfive.BackColor = Color.White
        End If
        If Integer.Parse(txttwo.Text) > 0 Then
            txttwo.BackColor = Color.Blue
            txttwo.ForeColor = Color.White
        Else
            txttwo.BackColor = Color.White
        End If
        If Integer.Parse(txtone.Text) > 0 Then
            txtone.BackColor = Color.Blue
            txtone.ForeColor = Color.White
        Else
            txtone.BackColor = Color.White
        End If
    End Sub
    Public Sub rmvhighlight()

        txtthousand.BackColor = Color.White
        txtthousand.ForeColor = Color.Black


        txtfhun.BackColor = Color.White
        txtfhun.ForeColor = Color.Black



        txthun.BackColor = Color.White
        txthun.ForeColor = Color.Black


        txtfifty.BackColor = Color.White
        txtfifty.ForeColor = Color.Black
       

        txttwenty.BackColor = Color.White
        txttwenty.ForeColor = Color.Black
       

        txtten.BackColor = Color.White
        txtten.ForeColor = Color.Black
       

        txtfive.BackColor = Color.White
        txtfive.ForeColor = Color.Black
       

        txttwo.BackColor = Color.White
        txttwo.ForeColor = Color.Black
       

        txtone.BackColor = Color.White
        txtone.ForeColor = Color.Black
       
    End Sub

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

    End Sub
End Class

Click Here To Download Output File For Calculate Rupee Program

Tuesday, June 28, 2016

MINI CALCULATOR PROGRAM IN VB.NET

Source code
Public Class frmCalculator
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnresult_Click(sender As Object, e As EventArgs) Handles btnresult.Click
        If frmvaildate() Then
            Dim fnum, snum, result As Double
            Dim opt As String

            fnum = Double.Parse(txtfnumber.Text)
            snum = Double.Parse(txtsnum.Text)
            opt = txtopt.Text

            Select Case (opt)
                Case "+"
                    result = fnum + snum
                Case "-"
                    result = fnum - snum
                Case "*"
                    result = fnum * snum
                Case "/"
                    If snum = 0 Then
                        MessageBox.Show("No is not  div by zero")
                        Return
                    Else
                        result = fnum / snum
                    End If
                Case Else
                    MessageBox.Show("Invalid Operation")
                    txtopt.Clear()
                    txtopt.Focus()
                    Return
            End Select
            txtresult.Text = result.ToString()
        End If

    End Sub
    Public Function frmvaildate() As Boolean
        Dim flag As Boolean = True
        If (txtfnumber.Text.Length = 0) Then
            MessageBox.Show("Enter First Number")
            txtfnumber.Focus()
            flag = False
        ElseIf Not (IsNumeric(txtfnumber.Text))
            MessageBox.Show("Enter only numeric value")
            txtfnumber.Clear()
            txtfnumber.Focus()
            flag = False
        ElseIf txtsnum.Text.Length = 0
            MessageBox.Show("Enter Second Number")
            txtsnum.Focus()
            flag = False
        ElseIf Not (IsNumeric(txtsnum.Text))
            MessageBox.Show("Enter only numeric value")
            txtsnum.Clear()
            txtsnum.Focus()
            flag = False
        ElseIf txtopt.Text.Length = 0
            MessageBox.Show("Enter Operator")
            txtopt.Focus()
            flag = False
        End If
        Return flag
    End Function
    Private Sub txtfnumber_KeyDown(sender As Object, e As KeyEventArgs) Handles txtfnumber.KeyDown
        If (Integer.Parse(e.KeyCode()) = 13) Then
            txtsnum.Focus()
        End If
    End Sub
    Private Sub txtsnum_KeyDown(sender As Object, e As KeyEventArgs) Handles txtsnum.KeyDown
        If (Integer.Parse(e.KeyCode()) = 13) Then
            txtopt.Focus()
        End If
    End Sub
    Private Sub txtopt_KeyDown(sender As Object, e As KeyEventArgs) Handles txtopt.KeyDown
        If (Integer.Parse(e.KeyCode()) = 13) Then
            btnresult.Focus()
        End If
    End Sub

    Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
        clear()
    End Sub
    Public Sub clear()
        txtfnumber.Clear()
        txtsnum.Clear()
        txtopt.Clear()
        txtresult.Clear()
        txtfnumber.Focus()
    End Sub
End Class


Sunday, June 19, 2016

Attendance Management System Program Using Array in Vb.net

Module Module1

    Sub Main()
        Dim studname() As String = {"Rakesh", "Mukesh", "Suresh", "Anil", "Vijay", "Prince"}
        Dim rollno() As Integer = {1001, 1002, 1003, 1004, 1005, 1006}
        Dim attendance(6) As Integer
        Dim counter As Integer = 0
        Dim attenstatus As String
        Dim attencounter As Integer = 0
        Dim totalstudent As Integer = 1
        Dim totabs, totpre As Integer
        totabs = 0
        totpre = 0
        While (totalstudent <= 6)
            Console.Write("Enter Studnet Roll No:-")
            Dim studroll As Integer = Integer.Parse(Console.ReadLine())
            Console.Write(counter)
            For Each studrollno As Integer In rollno
                If studrollno = studroll Then
                    Console.Write("Studnet Name:-" & studname(counter) & vbNewLine)
                    Console.Write("Enter P for Present and A for Absent:-")
                    attenstatus = Console.ReadLine()
                    If (attenstatus = "P") Then
                        attendance(attencounter) = 1
                        attencounter = attencounter + 1
                    ElseIf (attenstatus = "A")
                        attendance(attencounter) = 0
                        attencounter = attencounter + 1
                    End If
                End If
                counter = counter + 1
            Next
            counter = 0
            totalstudent = totalstudent + 1
        End While

        Console.Write("Student Name" & vbTab & "Attendance" & vbNewLine)
        For attendcounter As Integer = 0 To 5
            If attendance(attendcounter) = 0 Then
                totabs = totabs + 1
            ElseIf attendance(attendcounter) = 1
                totpre = totpre + 1
            End If
            Console.Write(studname(attendcounter) & vbTab & vbTab & attendance(attendcounter) & vbNewLine)
        Next
        Console.Write("Total Present Student=" & totpre & vbNewLine & "Total Absent Student=" & totabs)
    End Sub

End Module