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
dan hasilnya :
0 comments: