Sunday, October 31, 2010

At last!!!!

At last, i can put something new in my blog..hahaha...What a funny!!!!!.Before this not thinking to be blogger but after i join it,i become addict to it.Hope i will get something interesting to put in my blog.After i finish my final exam,i will do it..Wait and see...hihi..Love u ol..-DEXNER-

Saturday, October 30, 2010

me and my friends....

me and my buddy,seloh,miena and cindy....love u ol....-DEXNER-

Monday, October 18, 2010

Never Thought

I really thanks to god cause today Him had make meet my aunt that i have lost contact with her.She is my uncle's wife.My uncle,Jack Peri had called by Lord at 2006.My uncle is my mum brother's.Really miss him and his family.Really want to meet my aunt and my cousin.Her youngest daughter i never meet her after them go back to Kota Kinabalu,Sabah.I hope maybe this year i will meet her and her's family.Thanks, Jesus.
video
I gets this video from my aunt.This video really have a sentimental meaning that can make people think how great our Jesus to his people.Hope you all enjoy this video. -DEXNER-

Monday, October 11, 2010

love

Friday, October 8, 2010

My Visual Basic Project (Home Loan Calculator)

This is my home page for my application.The design is simple but i like it.For those who want to try to do this home loan calculator,i can share with you all the coding.
Here the coding for this form :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form7.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form7.Show()
        Me.Hide()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim out As String
        out = MsgBox("Are you sure want to QUIT from this system?", MsgBoxStyle.YesNo)
        If out = vbYes Then
            Dispose()
            Me.Hide()
        End If
    End Sub

 
    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form8.Show()
        Me.Hide()
    End Sub
End Class

This is my second page for my project and here is the coding :

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If cbhouse.Text = "single-storey house" Then
            Form3.Show()
        End If

        If cbhouse.Text = "double-storey house" Then
            Form4.Show()
        End If

        If cbhouse.Text = "Bungalow" Then
            Form5.Show()
        End If

        If cbhouse.Text = "Condominium" Then
            Form6.Show()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Hide()
    End Sub
End Class

This is my home loan calculator and here the coding for all event that have in this form.


Public Class Form7

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        txtLoanAmount.Clear()
        txtDisplay1.Clear()
        txtDisplay2.Clear()
        lblMonthlyPayment.Text = ""
        optTypesOfHouse1.Checked = True
        dgvLoanDetails.Rows.Clear()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Print As String
        Print = MsgBox("The table has been print")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LoanAmount As Double
        Dim Payment As Double
        Dim InterestRate As Double
        Dim Interest As Double
        Dim Principle As Double
        Dim Years As Integer
        Dim PaymentPeriods As Integer

        'validate loan amount,annual interest rate & loan period input
        If IsNumeric(txtLoanAmount.Text) = False Then
            MsgBox("Loan amount must be numeric. Please enter a validloan amount.")
            txtLoanAmount.Clear()
            txtLoanAmount.Focus()
            Exit Sub
        End If

        If IsNumeric(txtDisplay1.Text) = False Then
            MsgBox("Loan amount must be numeric. Please enter a validloan amount.")
            txtDisplay1.Clear()
            txtDisplay1.Focus()
            Exit Sub
        End If

        If IsNumeric(txtDisplay2.Text) = False Then
            MsgBox("Loan amount must be numeric. Please enter a validloan amount.")
            txtDisplay2.Clear()
            txtDisplay2.Focus()
            Exit Sub
        End If

        'set loan variables
        LoanAmount = txtLoanAmount.Text
        InterestRate = txtDisplay1.Text
        Years = txtDisplay2.Text
      

        'calculate total payment periods
        PaymentPeriods = Years * 12

        'if rate is in percent form convert to decimal
        If InterestRate > 1 Then InterestRate = InterestRate / 100

        'calculate monthly payment and return value
        Payment = (LoanAmount * Math.Pow((InterestRate / 12) + 1, (PaymentPeriods)) * InterestRate / 12) / (Math.Pow(InterestRate / 12 + 1, (PaymentPeriods)) - 1)

        'display calculated payment
        lblMonthlyPayment.Text = FormatCurrency(Payment)

      
        'clear datagrid view control (remove all rows)
        dgvLoanDetails.Rows.Clear()

        'loop the loan payment periods displaying loan details
        Dim i As Integer
        For i = 1 To PaymentPeriods

            'set interest
            Interest = (LoanAmount * InterestRate) / 12

            'set loan amount
            LoanAmount = (LoanAmount - Payment) + Interest

            'set principle
            Principle = Payment - Interest

            'output loan details
            dgvLoanDetails.Rows.Add()
            dgvLoanDetails.Item("Month", i - 1).Value = i
            dgvLoanDetails.Item("Payment", i - 1).Value = FormatCurrency(Payment)
            dgvLoanDetails.Item("Interest", i - 1).Value = FormatCurrency(Interest)
            dgvLoanDetails.Item("Principle", i - 1).Value = FormatCurrency(Principle)
            dgvLoanDetails.Item("LoanAmount", i - 1).Value = FormatCurrency(LoanAmount)
        Next

      

    End Sub

    Private Sub dgvLoanDetails_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvLoanDetails.CellContentClick

    End Sub
End Class


Here is the last form that have in my application Home Loan Calculator.This is simple calculator and i put some coding for you all so you all can try to make it and for beginner that want try VB,you all can try this project and learn some coding inside.For more detail about Visual Basic,you all can search in Home And Learn.co.uk


Public Class Form8

    Dim sngNumberOne As Single
    Dim sngNumberTwo As Single
    Dim sngAnswer As Single
    Dim strTodo As String

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
        txtMain.Text = txtMain.Text & btn0.Text 'Show "0" in the Text Box

    End Sub

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        txtMain.Text = txtMain.Text & btn1.Text 'Show "1" in the Text Box
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        txtMain.Text = txtMain.Text & btn2.Text 'Show "2" in the Text Box
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        txtMain.Text = txtMain.Text & btn3.Text 'Show "3" in the Text Box
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        txtMain.Text = txtMain.Text & btn4.Text 'Show "4" in the Text Box
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        txtMain.Text = txtMain.Text & btn5.Text 'Show "5" in the Text Box
    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        txtMain.Text = txtMain.Text & btn6.Text 'Show "6" in the Text Box
    End Sub

    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        txtMain.Text = txtMain.Text & btn7.Text 'Show "7" in the Text Box
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        txtMain.Text = txtMain.Text & btn8.Text 'Show "8" in the Text Box
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        txtMain.Text = txtMain.Text & btn9.Text 'Show "9" in the Text Box
    End Sub

    Private Sub btnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMultiply.Click
        sngNumberOne = Val(Me.txtMain.Text) 'Multiply Number 1 and Number Two
        txtMain.Text = ""
        strTodo = "*"
    End Sub

    Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.Click
        sngNumberOne = Val(Me.txtMain.Text) 'Divide Number 1 and Number Two
        txtMain.Text = ""
        strTodo = "/"
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        sngNumberOne = Val(Me.txtMain.Text) 'Add Number 1 and Number Two
        txtMain.Text = ""
        strTodo = "+"
    End Sub

    Private Sub btnSubstract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubstract.Click
        sngNumberOne = Val(Me.txtMain.Text) 'Substract Number 1 and Number Two
        txtMain.Text = ""
        strTodo = "-"
    End Sub
    '----------------------------------------------------------------------------
    ' Answer all the Number with the help of Aritmetic Progression
    '----------------------------------------------------------------------------

    Private Sub btnEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEqual.Click
        sngNumberTwo = Val(Me.txtMain.Text)
        If strTodo = "+" Then
            Me.txtMain.Text = sngNumberOne + sngNumberTwo
        ElseIf strTodo = "-" Then
            Me.txtMain.Text = sngNumberOne - sngNumberTwo
        ElseIf strTodo = "/" Then
            Me.txtMain.Text = sngNumberOne / sngNumberTwo
        ElseIf strTodo = "*" Then
            Me.txtMain.Text = sngNumberOne * sngNumberTwo
        End If
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtMain.Text = "0" 'Clear all the text from the text Box
    End Sub

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

    End Sub
End Class

THANKS-DEXNER-

Wednesday, October 6, 2010

Tension!!!!!!!

video
This 2 weeks i feel really tired,tension and my head really spinning when see all my final project that have to submit and present.Really disappointed with myself that playing around before this but thanks to my family,friends and my love that always support me when i down.Love u all....I will try my best to finish and settle my works before my final exam.And this video i dedicated to my family,friends and my love...
-dexner-

Tuesday, October 5, 2010

DeXnEr: Visual Basic

DeXnEr: Visual Basic: "Today, i want share something to you all. My lecturer had ask me to do final project using VB but i'm just beginner that don't know nothing ..."
There was an error in this gadget
Related Posts Plugin for WordPress, Blogger...