Belajar Visual Basic dari AwalRadioButton dan Checkbox di VB.NET www.trikdantips.ga

Tutorial kali ini kita akan menggunakan RadioButton dan Checkbox untuk merubah tampilan form,apa itu RadioButton dan Checkbox ?

Untuk mengetahuinya ikuti tutorial berikut. Buka VB.NET

Tambahkan 1 buah Groupbox ,2 buah RadioButton,1 buah Checkbox,dan 1 buah Timer
Rubah tampilan sebagai berikut :

Edit Properties :

Form1 :
Text = RadioButton dan Checkbox

Groupbox1 :
Text = Properties

RadioButton1 :
Text = Red

RadioButton2 :
Text = Blue

Checkbox1 :
Text = Transparan

Timer1 :
Enabled = True

Masukan Coding berikut :

Public Class Form1 Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged Me.BackColor = Color.Red End Sub Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged Me.BackColor = Color.Blue End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick If CheckBox1.Checked = True Then Me.Opacity = 0.5 Else Me.Opacity = 1.0 End If End Sub End Class


Silakan ketik atau Copy Paste kode diatas,lihat dan pahami
Happy VB.NET

Belajar Visual Basic dari AwalMenggunakan Timer di VB.NET www.trikdantips.ga

Tutorial kali ini,kita akan belajacar cara menggunakan "timer"
apa sih timer?
Timer dalam bahasa indonesia "alat pengatur waktu"
Digunakan untuk memberikan waktu pada aplikasi,
Contoh sederhananya kita buat hitungan per-detik

Ok langsung saja buka VB.NET

Pilih File->New Project->Windows Form Application->beri nama Contoh Timer->OK

Tambahkan 1 buah timer dan 1 buat label

Edit bagian properties sebagai berikut :

Timer :
 Interval = 1000

Label1 :
 Text = 0

masuk ke coding,Click 2 kali Form1

Public Class Form1 Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Label1.Text = Label1.Text + 1 If Label1.Text Mod 10 = 0 Then 'Jika label1 dibagi 10 sisa 0 maka akan muncul pesana Welcome,contohnya 10,20,30,40,50,dst MessageBox.Show("Welcome") End If End Sub Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Timer1.Stop() End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub End Class

Demikian tutorial saya kalau ada kekurangan mohon dimaafkan,saya juga masih belajar.