Belajar Visual studio 2013

Belajar Visual studio 2013

Selamat malam kawan. kali ini saya akan mengulas, mengulik dan membagikan kepada kawan semua tentang project sederhana dari visual studio. dari gathering output -> Date string -> hingga Formatted text.  untuk membuat sebuah project, kawan sekalian harus paham dan mengerti konsep dari framework yang kawan pakai. nah untuk memulai coding siapkan beberapa makanan, minuman, dan putar alat musik biar kawan tidak ketiduran saat code di visual studio. baik mari kita mulai dari yang pertama :

1. gathering code
 untuk membuat gathering code siapkan bahan dengan kriteria :
1 label
1 textbox
1 button




2. date String

untuk membuat date string siapkan bahan :

4 label
5 textBox
3 button

cara Kerja :

























hasil nya :


















3. Formatted text
siapkan bahan dengan kriteria
12 button
2 label
2 text button

cara kerja :
ublic Class Form1

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Btnnumber_Click(sender As Object, e As EventArgs) Handles Btnnumber.Click
        Dim dblA As Double
        Dim strC As String

        dblA = Txtdate.Text()
        strC = dblA.ToString("n")
        Txtformat.Text = strC
    End Sub

    Private Sub Btnfixed_Click(sender As Object, e As EventArgs) Handles Btnfixed.Click
        Dim dblA As Double
        Dim strC As String

        dblA = Txtdate.Text()
        strC = dblA.ToString("f")
        Txtformat.Text = strC
    End Sub

    Private Sub btnexpo_Click(sender As Object, e As EventArgs) Handles btnexpo.Click
        Dim dblA As Double
        Dim strC As String
        dblA = Txtdate.Text()
        strC = dblA.ToString("e")
        Txtformat.Text = strC


    End Sub

    Private Sub btncurren_Click(sender As Object, e As EventArgs) Handles btncurren.Click
        Dim dblA As Double
        Dim strC As String
        dblA = Txtdate.Text()
        strC = dblA.ToString("c")
        Txtformat.Text = strC

    End Sub

    Private Sub Btnpercent_Click(sender As Object, e As EventArgs) Handles Btnpercent.Click
        Dim dblA As Double
        Dim strC As String
        dblA = Txtdate.Text()

        strC = dblA.ToString("p")
        Txtformat.Text = strC
    End Sub

    Private Sub Btnshortd_Click(sender As Object, e As EventArgs) Handles Btnshortd.Click
        Dim strtoday As String = Today().ToString("d")
        Txtformat.Text = strtoday
    End Sub

    Private Sub Btnlongd_Click(sender As Object, e As EventArgs) Handles Btnlongd.Click
        Dim strtoday As String = Today().ToString("d")
        Txtformat.Text = strtoday
    End Sub

    Private Sub Btnshortt_Click(sender As Object, e As EventArgs) Handles Btnshortt.Click
        Dim strtoday As String = Today().ToString("d")
        Txtformat.Text = strtoday
    End Sub

    Private Sub Btnlongt_Click(sender As Object, e As EventArgs) Handles Btnlongt.Click
        Dim strtoday As String = Today().ToString("d")
        Txtformat.Text = strtoday
    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        Dim strtoday As String = Today().ToString("d")
        Txtformat.Text = strtoday
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Txtdate.Clear()
        Txtformat.Clear()
    End Sub

    Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
        Me.Close()

    End Sub
End Class