Variabel dan Kalkulasi Pada Visual Basic .NET

Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET

Kali ini saya akan berbagi tentang bagaimana cara mengcopykan text yang kita tuliskan di Textbox ke Label yang kita inginkan

Berikut ini adalah contoh pembuatan programnya.

Seperti biasa buat project baru dan Form baru

Kemudian desain form anda seperti ini

Maksud dari txtUsername, lblGreeting, btnShowGreeting, btnClear, dan btnExit ini adalah adalah penamaan pada Properties masing-masing Toolbox yang kita pakai, kaya gini contoh di Propertiesnya

Di bagian Name lah kita gunakan penulisan seperti txtKm, txtTank dan lain-lain tadi.

Bila desain sudah anda desain seperti di atas, sekarang kita lanjut unutk mengcoding program tersebut

Seperti ini lah contoh sintaks yang digunakan

Sintaks untuk mengcopy dari txtUserName ke lblGreeting

Public Class Form1

   
 Private Sub btnShowGreeting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowGreeting.Click

        lblGreeting.Text = "Hello " & txtUserName.Text
    End Sub

Berikut ini Sintaks yang digunakan untuk btnExit

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

Dan yang ini adalah Sintaks untuk btnClear yang berfungsi untuk mengosongkan textbox kita.

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtUserName.Clear()
        lblGreeting.Text = String.Empty
    End Sub
End Class

  

  

Dan untuk yang sedikit lebih bagus, sekaligus bisa sedikit mengasah kemampuan kita cobalah buat program berikut ini.

Dan berikut ini contoh sintaksnya :

Public Class Form2

    Private Sub btnShowDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDate.Click
        lblDateString.Text = txtDayOfWeek.Text & " , " & txtMonth.Text & " " & txtDayOfMonth.Text & " , " & txtYear.Text
    End Sub

    Private Sub ctnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctnClear.Click
        txtDayOfMonth.Clear()
        txtDayOfWeek.Clear()
        txtMonth.Clear()
        txtYear.Clear()
        lblDateString.Text = String.Empty
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

Seperti itulah sedikit tutorial yang dapat saya bagikan, semoga dapat bermanfaat bagi yang membutuhkan Aamiin.