Manual lampu selang seling – Dalam membuat project ini pastilah harus menggunakan lampu, namun yang dikatakan lampu sangatlah berfariasi mulai dari bentuknya warnanya ukurannya, namun dalam project ini saya menggunakan bentuk lingkaran dan warna kuning ketika on, untuk bab ini kalian bisa mengedit sesuka kalian karena dasaranya sama menggunakan shape,dalam shape bisa terbagi berbagai macam jenis dari kotak lingkaran dan lain lain



Project ini menggunakan metode manual, jadi untuk menjankan program anda masih menekan atau mengaktifkanya secara satu persatu guna memudahkan bagi anda untuk mempelajari project tersebut barulah nantinya saya berika project dengan metode automatis
Berikut adalah kodinganya


Private Sub Command1_Click()
If Command1.Caption = "ON" Then
    Command1.Caption = "OFF"
    Shape1.FillColor = vbYellow ' lampu 1
    Shape4.FillColor = vbYellow ' lampu 3
    Shape2.FillColor = vbYellow ' lampu 5
    Else
    Command1.Caption = "ON"
    Shape1.FillColor = vbWhite 'merah
    Shape4.FillColor = vbWhite
    Shape2.FillColor = vbWhite
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "ON" Then
    Command2.Caption = "OFF"
    Shape5.FillColor = vbYellow ' lampu 2
    Shape3.FillColor = vbYellow ' lampu 4
    Shape6.FillColor = vbYellow ' lampu 6
Else
    Command2.Caption = "ON"
    Shape5.FillColor = vbWhite
    Shape3.FillColor = vbWhite
    Shape6.FillColor = vbWhite
End If
End Sub

Private Sub Command3_Click()
If Command3.Caption = "ON" Then
    Command3.Caption = "OFF"
    Command2.Caption = "on"
    Command1.Caption = "on"
    Shape1.FillColor = &HFF&
    Shape2.FillColor = &HFF&
    Shape3.FillColor = &HFF&
    Shape4.FillColor = &HFF&
    Shape5.FillColor = &HFF&
    Shape6.FillColor = &HFF&

Else
    Unload Me
   
End If
End Sub

Keterangan singkat : untuk program vbwhite atau vbyellow atau vbred itu adalah program memudahkan anda untuk mengisi fillcolor backcolor dan fontcolor jika anda perhatikan vbred dengan &HFF& mudahan mana ? namun vbred dan &HFF& adalah program untuk warna merah ( satu kesatuan )
Dan untuk Caption itu merupakan program untuk memberi nama pada sebuah label command ataupun image dan from saya ambil contoh Command1.Caption = "OFF", jadi command1 tulisanya adalah off saat di run program
untuk projectnya sudah saya sediakan

Post a Comment

 
Top