Cara membuat traffic light dengan visual basic

Halo sobat blogger dan anak-anak RPLA kali ini saya akan memberikan tutorial cara membuat animasi trafffic light dengan visual basic

Pertama buatlah shape lalu kreasilah dengan gayamu sendiri lalu bentuklah seperti Traffic Light
Kedua buatlah label yang bertuliskan angka
Ketiga buatlah timer










Preview nya :

Berikut ini source codenya :



Private Sub Command1_Click()
Unload Me
End Sub


Private Sub Form_Load()
Label1.Caption = 1
End Sub


Private Sub Timer1_Timer() '
If Label1.Caption = 1 Then
Label1.Caption = 2
Shape1.FillColor = vbRed 'merah(1)
Shape2.FillColor = &H8080& 'kuning(1)
Shape3.FillColor = &H8000& 'hijau(1)
Shape4.FillColor = &H80&  'merah(2)
Shape5.FillColor = &H8080& 'kuning(2)
Shape6.FillColor = vbGreen 'hijau(2)
Else
If Label1.Caption = 2 Then
Label1.Caption = 3
Shape1.FillColor = vbRed
Shape2.FillColor = vbYellow
Shape3.FillColor = &H8000&
Shape4.FillColor = &H80&
Shape5.FillColor = vbYellow
Shape6.FillColor = &H8000&
Else
If Label1.Caption = 3 Then
Label1.Caption = 4
Shape1.FillColor = &H80&
Shape2.FillColor = &H8080&
Shape3.FillColor = vbGreen
 Shape4.FillColor = vbRed
Shape5.FillColor = &H8080&
Shape6.FillColor = &H8000&
Else
If Label1.Caption = 4 Then
Label1.Caption = 1
Shape1.FillColor = &H80&
Shape2.FillColor = vbYellow
Shape3.FillColor = &H8000&
Shape4.FillColor = vbRed
Shape5.FillColor = vbYellow
Shape6.FillColor = &H8000&
End If
End If
End If
End If
End Sub


Download projectnya

Read More

Pembuatan kalkulator sederhana

Halo sobat blogger dan anak-anak RPLA kali ini saya akan memberikan tutorial pembuatan kalkulator sederhana


Pertama kita buat label dahulu yang bertuliskan ( caption ) Angka 1 , Angka 2 , Jumlah
Kedua kita buat sebuah textbox lalu letakkanlah disamping label
Ketiga buatlah commandbutton yang bertuliskan ( caption ) + , - , X , :  , Hapus , Keluar

Preview

Source codenya :

Private Sub Command1_Click() 'menjelaskan commandbutton +

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click() 'menjelaskan commandbutton -

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click() 'menjelaskan commandbutton x

Text3.Text = Text1.Text * Text2.Text

End Sub

Private Sub Command4_Click() 'menjelaskan commandbutton :

Text3.Text = Text1.Text / Text2.Text

End Sub

Private Sub Command5_Click() 'menjelaskan commandbutton keluar

Unload Me

End Sub

Private Sub Command6_Click() 'menjelaskan commandbutton hapus

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Download projectnya

Read More

Program Sederhana Pembuatan Biodata ( Konsep Dasar )

Halo sobat blogger dan anak-anak RPLa yang seru aja nih haha kali ini saya akan memberikan tutorial cara membuat program sederhana pada visual basic ya seperti membuat biodata

Pertama kita buat dulu label label nya dulu seperti Nama , Nis , Kelas , dan Kompetensi Keahlian

Kedua kita buat command button seperti Tampilkan data saya , Sembunyikan Huruf , Ubah Warna , dan Keluar

Comman button masih ingatkan fungsinya ?? Command button ialah suatu tombol untuk memerintahkan program tersebut

Lalu buatlah textbox lalu letakkan disamping masing masing label . 

Textbox disini digunakan untuk menampilkan hasil dari command button yang kita klik nanti

Setelah itu buatlah sebuah combobox yang digunakan untuk mengganti warna background pada form visual basic 

Berikut ini tampilannya 

Berikut ini source code nya :

Public Function warna(wrn) 'menjelaskan ketika kita memilih warna dari combobox

Select Case wrn

Case "putih"

warna = "&HFFFFFF"

Case "merah"

warna = "&H0000FF"

Case "hijau"

warna = "&H00FF00"

Case "kuning"

warna = "&H00FFFF"

Case "biru"

warna = "&HFF0000"

Case "lembayung"

warna = "&HC000C0"

Case "biru laut"

warna = "&HFFFF00"

Case "hitam"

warna = "&H000000"

End Select

End Function

Private Sub Combo1_Click()

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click() 'menjelaskan commandbutton dari tampilkan data saya

Text1.Text = "azizal" 'kita tahu bahwa peletakan text1 berada di sebelah label nama maka untuk menampilkannya kita harus mengetik text1.text , .text disini menjelaskan dari properties dari text1 tersebut kalo kita tulis text1.text = "azizal" maka jika kita klik perintah dari commandbutton otomatis text nya akan menampilkan teks yang bertuliskan azizal

Text2.Text = "10001960"

Text3.Text = "XRPLA"

Text4.Text = "rekayasa perangkat lunak"

End Sub

Private Sub Command3_Click()

bdata.BackColor = vbBlue 'menjelaskan dari commandbutton ubah warna

End Sub

Private Sub Command4_Click() 'menjelaskan dari commandbutton sembunyikan huruf

Text1.Text = "" 'menjelaskan dari karakter kosong bila kita klik maka nantinya akan tertampil karakter kosong yang berarti tidak ada huruf/angka sama saja kita dengan menghapusnya

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Form_Load() 'menambahkan list dari combobox

Combo1.AddItem "putih" 'fungsi additem disini adalah menambahkan list dari combobox , harus diletakkan di form load

Combo1.AddItem "merah"

Combo1.AddItem "hijau"

Combo1.AddItem "kuning"

Combo1.AddItem "biru"

Combo1.AddItem "lembayung"

Combo1.AddItem "biru laut"

Combo1.AddItem "hitam"

End Sub

Download projectnya

Read More