Christmas Come Again!!!

yeepi!!!!Christmas come again..with all the preparation that had made, i feel excited to celebrate Christmas..We wish you a merry Christmas n happy new year...

HOME!!!

 13 hb Oktober 2010, aku balik kampung selpas habis berhempas pulas kat U...hihi...Pada pagi tu,mmg excited semacam lh almaklum nak balik kan...Tak tdo malam lh aku n member. Asyik belek barang semua cukup dan semua dah dipacking. Sampai kat LCTT, aku berjumpa dengan adik aku yang blajar kat Universiti Malaysia Pahang, alangkah terkejut bla aku melihat dirinya yang banyak perubahan sampai aku boleh tak kenal dirinya. Dulu gemuk sekarang kurus pula n nak korek rahsia nie sebab nak kurus juga..hik2..Pada pukul 11.45 pagi, penerbangan AK5206 KL-KUCHING berlepas aku dan adikku sangat teruja nak balik rumah. Adik,Louis seperti biasa dengan mulut celupar  asyik bercerita tentang kehidupannya di UMP,Pahang sampai aku boleh tertido mendengar celotehnya..WHAT A TALKTIVE GUY!!!Bila ingat situasi tu balik, luculh pula mcm tak sabar nak jumpa family kat umah. Bila dah kat umah nie pula, Rindu pula dengan member keras kat kolej, Seloh, Miena dan Cindy. Tapi ingat balik nak rest jap rupa-rupanya ada tugasan pula, my sweet sepupu, Madeline kahwin. Dia kahwin pada 20 Oktober 2010 kat Kampung Jampari,Lundu. Dia dan suami tercinta,Kasan kahwin mengikut adat orang Selako salah satu kaum Dayak yang terdapat di Lundu. Pada majlis perkahwinan itu, aku jadi jurukamera..hik2..Mcm2 aksi yang telah aku ambil untuk disimpan sebagai kenangan. Bila lama tidak bersua dengan ahli keluarga yang lain banyak yang cerita dikongsi bersama. Selepas saja majlis tersebut, aku meneruskan lagi kehidupan aku yang biasa dan cuba mencari aktiviti-aktiviti yang seronok untuk memenuhkan cutiku.

My cousin, Madeline and his husband, Kasan

So sweet....

Bla kami mula beraksi..hik2

aktiviti-aktiviti yang belaku pada masa itu

The Oldies

Talk about the oldies,remind me about M2M. M2M was a Norwegian pop music  duo formed by Marion Elise Ravon and Marit Elisabeth Larsen. They released three albums Shades of Purple, The Big Room and The Day You Went Away : The Best of M2M. Raven and Larsen had known each other since they were five. They formed a duet in the mid-1990s. Although M2M was the most popular Norwegian female band, they eventually split in September of that year. Now, they are currently performing as solo artists and going by their own names. Really love their song and performances,what i want to say M2M is the best. Their song always in my mind.LOVE THEM!!!

M2M IS THE BEST:))
.

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-

me and my friends....

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

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.

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-

love

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-

Tension!!!!!!!

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-

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 ..."

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 bout VB. After i found this website home and learn that have a tutorial about VB, i have know a little bit about VB. For my final project, i do home loan calculation but my project still hanging because i never found the coding for my project. I wish you all that have learn about VB can share little bit information about VB to me.Really appreciate if you all can help me.-DEXNER-

About Me

I'm new at here.I just found this blog when one of my friends show me his blog.Its quite interesting so i ask myself why i don't i try it.About me???Nothing special bout me.Just ordinary person who always surf internet,dreaming and bla bla bla..hihi.Rite now i'm study on Information System Management.I like do some programming things.So if anyone had same interest with me,u ol can share the information with me...