際際滷

際際滷Share a Scribd company logo

Pooja Sharma , BCA Third Year

Dezyneecole
Dezyneecole

This is a work by the student of BCA Department student from Third Year studying at Dezyne E'cole College,Ajmer

1 of 7
Download to read offline
Visual Basic Assessment A WORK REPORT SUBMITTED IN PARTIAL FULLFILLMENT OF THE REQUIREMENT FOR THE DEGREE Bachelors of Computer Application Dezyne Ecole College 106/10, CIVIL LINES AJMER RAJASTHAN - 305001 (INDIA) www.dezyneecole.com TOPIC: Color Pallete SUBMITTED BY: POOJA SHARMA BCA 3rd YEAR
Acknowledgement I Pooja Sharma student of Dezyne Ecole College, extremely grateful to each and every individual who has contributed in successful completion of my project. I express my gratitude towards Dezyne Ecole College to their guidelines and constant supervision as well as for providing the necessary information and support regarding the completion of project. Thanks.
Synopsis This project is a minor project made based on practical concepts of Visual Basic. This project has made our basic practical concepts strong.
COLOR PALLETE OUTPUT:
CODING: Private Sub VScroll1_Change() a = VScroll1.Value Text1.Text = a Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_Change() b = VScroll2.Value Text2.Text = b End Sub Private Sub VScroll3_Change() c = VScroll3.Value Text3.Text = c End Sub Private Sub VScroll1_scroll() a = VScroll1.Value Text1.Text = a Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_scroll() b = VScroll2.Value Text2.Text = b Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll3_scroll() c = VScroll3.Value Text3.Text = c Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub THANK YOU Submitted By: Pooja Sharma BCA 3rd Year Dezyne Ecole College

More Related Content

Pooja Sharma , BCA Third Year

  • 1. Visual Basic Assessment A WORK REPORT SUBMITTED IN PARTIAL FULLFILLMENT OF THE REQUIREMENT FOR THE DEGREE Bachelors of Computer Application Dezyne Ecole College 106/10, CIVIL LINES AJMER RAJASTHAN - 305001 (INDIA) www.dezyneecole.com TOPIC: Color Pallete SUBMITTED BY: POOJA SHARMA BCA 3rd YEAR
  • 2. Acknowledgement I Pooja Sharma student of Dezyne Ecole College, extremely grateful to each and every individual who has contributed in successful completion of my project. I express my gratitude towards Dezyne Ecole College to their guidelines and constant supervision as well as for providing the necessary information and support regarding the completion of project. Thanks.
  • 3. Synopsis This project is a minor project made based on practical concepts of Visual Basic. This project has made our basic practical concepts strong.
  • 5. CODING: Private Sub VScroll1_Change() a = VScroll1.Value Text1.Text = a Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_Change() b = VScroll2.Value Text2.Text = b End Sub Private Sub VScroll3_Change() c = VScroll3.Value Text3.Text = c End Sub Private Sub VScroll1_scroll() a = VScroll1.Value Text1.Text = a Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
  • 6. Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_scroll() b = VScroll2.Value Text2.Text = b Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll3_scroll() c = VScroll3.Value Text3.Text = c Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
  • 7. Label4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label6.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label7.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) Label8.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub THANK YOU Submitted By: Pooja Sharma BCA 3rd Year Dezyne Ecole College