Saturday, March 12, 2016

Tutorial Membuat Scrollbar & Animasi Dalam Pemograman Menggunakan Aplika...



Assalamu'alaikum Wr.Wb

Kali ini,saya akan memberikan tutorial singkat tentang pembuatan "Scrollbar dan Animasi" menggunakan aplikasi software Visual Basic 6.0 yaa,langsung saja kita buat aplikasi tersebut.

SCROLLBAR DAN ANIMASI

A.SCROLLBAR (Penggulung)
  Scrollbar adalah sebuah kontrol penggulung yang terdapat di sisi suatu jendela. Terdapat dua macam scrollbar yaitu vertical scrollbar dan horizontal scrollbar.

1.)Jalankan Aplikasi Microsoft Visual Basic 6.0

2.)Buatlah Rancangan Tampilan Yang Ingin Di Buat

3.)Setelah Itu Ubah Properties Rancangan Seperti Berikut :


Objek/Kontrol Properties Value

Form1 Name frmScrollbar
        Caption Form Uji Kontrol Scrollbar

Label1 Caption Komponen Merah

Label2 Caption Komponen Hijau

Label3 Caption Komponen Biru

Label4 Caption Warna yang dihasilkan

Label5 Name lblMerah
           Caption 0

Label6 Name lblHijau
           Caption 0

Label7 Name lblBiru
           Caption 0

Text1 Name txtWarna
          Caption (kosongkan)

Hscrollbar1 Name hsbMerah
                  Max              225
                  LargeChange 30
                  Left               360


Hscrollbar2 Name hsbHijau
                  Max           225
                  LargeChange 30
                  Left            360


Hscrollbar3 Name hsbBiru
                  Max             225
                  LargeChange 30
                  Left          360


Command1 Name        cmdKeluar
                  Caption &Keluar

4.) Masukkan Kode Pemograman Seperti Yang Ada di Bawah Ini,

Kode program :

Private Sub Warna()
    txtWarna.BackColor = RGB(hsbMerah.Value, hsbHijau.Value, hsbBiru.Value)
End Sub

Private Sub cmdKeluar_Click()
    Unload Me
End Sub

Private Sub Form_Load()
        txtWarna.BackColor = vbBlue
        txtWarna.Enabled = False
End Sub

Private Sub hsbBiru_Change()
    Warna
    lblBiru.Caption = hsbBiru.Value
End Sub

Private Sub hsbBiru_Scroll()
    hsbBiru_Change
End Sub

Private Sub hsbHijau_Change()
    Warna
    lblHijau.Caption = hsbHijau.Value
End Sub

Private Sub hsbHijau_Scroll()
    hsbHijau_Change
End Sub

Private Sub hsbMerah_Change()
    Warna
    lblMerah.Caption = hsbMerah.Value
End Sub

Private Sub hsbMerah_Scroll()
    hsbMerah_Change
End Sub


5.)Setelah Selesai Semua,Tekan F5 Pada Keyboard PC/Laptop Untuk Memastikan Jalannya Aplikasi.

6.)Selamat,Jika Aplikasi Sudah Berjalan Dengan Benar.

Sekian tutorial dari saya,kurang dan lebihnya mohon di maafkan dan semoga bermanfaat hehe.

Wassalamu'alaikum Wr.Wb
Jadi Jutawan Cuma Modal Nulis

0 comments:

Post a Comment

Sudah siap punya toko online sendiri?

Back to top