Bahasa Visual Basic

Form Login

-Project1---Add---Form---Login Doalog---

Form1

·         Membuat background warna  :

ü  Form2.BackColor = vbRed

·         Mengubah Text :

ü  Text2.Text = "Aulya Abbie Rachman"

·         Menghapus teks:

ü  Text1.Text = ""

ü  Text2.Text = ""

ü  Text3.Text = ""

·         Membuka Form :

ü  Form2.Show

ü  Form1.Visible = False

Form2

·         Menampilkan pesan :

ü  MsgBox "Alhamdulillah"

·         Menampilkan nama dari command ke label :

ü  Label1.Caption = "fitrahadi arief"

·         Membuat inputbox :

ü  InputBox "tuliskan nama anda..!!"

Form3

·         Menampilkan Textbox ke Label melalui command :

ü  Private Sub Command1_Click()

ü  Label1.Caption = Text1

ü  End Sub

Form4

·         Menampilkan pesan yang sesuai  denga textbox melalu command :

ü  Label1.Caption = Text1

·         Menampilkan pesan pilihan :

ü  m = MsgBox("apakah anda akan membuka form..!", vbOKCancel, pesan)

ü  If vbOK = m Then

ü  Form2.Show

ü  Form4.Hide

ü  Else

ü  MsgBox "apakah anda ingin keluar"

ü  End If

Form5

·         Memberi warna pada shape melalu command :

ü  Shape1.FillColor = vbYellow

ü  Shape2.FillColor = vbYellow

ü  Shape3.FillColor = vbYellow

Form6

·         Membuat Inputbox dan ditampilkan melalui pesan :

ü  m = InputBox("Masukkan nama anda", vbOKCancel, pesan)

ü  MsgBox "Nama Saya Adalah :" & m

·         Membuat Kalkulator 

Form8

·         Menjumlah angka melalui input box lalu di tampilkan ke label :

ü  a = InputBox("masukkan angka pertama")

ü  b = InputBox("Masukkan angka kedua")

ü  MsgBox ("Hasilnya adalah:" & a * b)

ü  Label1.Caption = "Hasilnya adalah:" & a * b

Form9

·         Membuat item pilihan pada comboBox :

ü  Combo1.AddItem "RPL"

ü  Combo1.AddItem "TKJ"

ü  Combo1.AddItem "MM"

·         Menampilkan pilihan comboBox keTextBox :

ü  If Combo1.ListIndex = 0 Then

ü  Text1.Text = "RPL"

ü  ElseIf Combo1.ListIndex = 1 Then

ü  Text1.Text = "TKJ"

ü  ElseIf Combo1.ListIndex = 2 Then

ü  Text1.Text = "MM"

ü  End If

Form10

·         Menampilkan text ke textbox melaluli pilihan checkbox :

ü  Private Sub Check2_Click()

ü  Text1.Text = "anda masih kecil"

ü  End Sub

Form12

·         Mengubah bentuk font yang ada dalam label melalui ChekcBox :

ü  Label1.FontItalic = Check2.Value

·         Mengubah warna huruf yang ada dalam label melalu Option :

ü  Label1.ForeColor = vbRed

Form13

·         Membuat pilihan combo dan list

ü  Combo1.AddItem "Gambar1"

ü  Combo1.AddItem "Gambar2"

ü  List1.AddItem "Gambar1"

ü  List1.AddItem "Gambar2"

·         Cara menyembunyikan gambar dalam form

ü  Image1.Visible = False

ü  Image2.Visible = False

·         Menampilkan gambar dengan combobox

ü  Private Sub Combo1_Click()

ü  If Combo1.ListIndex = 0 Then

ü  Image1.Visible = True

ü  Image2.Visible = False

ü  ElseIf Combo1.ListIndex = 1 Then

ü  Image1.Visible = False

ü  Image2.Visible = True

ü  End If

ü  End Sub

·         Menampilkan gambar dengan listbox :

ü  Private Sub List1_Click()

ü  If List1.ListIndex = 0 Then

ü  Image1.Visible = True

ü  Image2.Visible = False

ü  ElseIf List1.ListIndex = 1 Then

ü  Image1.Visible = False

ü  Image2.Visible = True

ü  End If

ü  End Sub

Form 14

·         Memasukan text ke label melalui checkbox :

ü  Private Sub Check1_Click()

ü  If Check1.Value = 1 Then

ü  Label1.Caption = Check1.Caption

ü  Check2.Value = 0

ü  Check3.Value = 0

ü  Check4.Value = 0

ü  End If

ü  End Sub

·         Memasukan text ke label melalui option :

ü  Label2.Caption = Option3.Caption

Form 15

·         Menampilkan pilihan warna :

ü  Private Sub Command1_Click()

ü  CommonDialog1.ShowColor

ü  Label1.ForeColor = CommonDialog1.Color

ü  End Sub

·         Menampilkan pilihan jenis font :

ü  Private Sub Command2_Click()

ü  CommonDialog2.ShowFont

ü  Label1.Font = CommonDialog2.FontName

ü  End Sub

Form 17

·         Menampilkan angka melalui hscrool

ü  Private Sub HScroll1_Change()

ü  Text1.Text = HScroll1.Value

ü  End Sub

·         Menjumlahkan dan menampilkan angka kedalam text box

ü  Private Sub HScroll2_Change()

ü  Text2.Text = HScroll2.Value

ü  Dim a, b As Integer

ü  a = Text1 + Text

ü  b = Text2 + Text

ü  Text3.Text = a + b

ü  End Sub

Form 18

·         Menampilkan msg box melalui timer

ü  Private Sub Timer1_Timer()

ü  Coba = MsgBox("Apakah anda ingin menutup program", vbInformation + vbOKCancel, "Pesan")

If vbOK = Coba Then

ü  Form18.Hide

ü  Else

ü  MsgBox "kenapa ga jadi"

ü  End If

ü   

ü  End Sub

Form 20

·         Memasukan gambarfile kita ke form:

ü  Private Sub Command1_Click()

ü  CommonDialog1.Filter = "File Gambar(*.bmp)|*.bmp|" & "File Gambar(*.jpg)|*.jpg|Semua File Gambar(*.*)" & "*.bmp;*.jpg"

ü  CommonDialog1.ShowOpen

ü  Image1.Picture = LoadPicture(CommonDialog1.FileName)

ü  End Sub

·         Membuat background warna melalui command :

ü  CommonDialog1.ShowColor

ü  Form20.BackColor = CommonDialog1.Color

Form 22

·         Memasukan text kedalam listbox

ü  List1.AddItem ("Nama :" & Text1.Text)

ü  List1.AddItem ("Pekerjaan :" & Text2.Text)

·         Memasukkan text comboBox kedalam listBox:

ü  List1.AddItem ("Status :" & Combo1.Text)

·         Memasukkan text option kedalam listBox :

ü  If Option1.Value = True Then

ü  List1.AddItem ("Jenis Kelamin :" & Option1.Caption)

ü  Else

ü  If Option2.Value = True Then

ü  List1.AddItem ("Jenis Kelamin :" & Option2.Caption)

ü  End If

ü  End If

·         Memasukkan text checkbox kedalam listBox :

ü  If Check1.Value = 1 Then

ü  Check2.Value = 0

ü  Check3.Value = 0

ü  List1.AddItem ("Pendidikan :" & Check1.Caption)

ü  End If

ü  If Check2.Value = 1 Then

ü  Check1.Value = 0

ü  Check3.Value = 0

ü  List1.AddItem ("Pendidikan :" & Check2.Caption)

ü  End If

ü  If Check3.Value = 1 Then

ü  Check2.Value = 0

ü  Check1.Value = 0

ü  List1.AddItem ("Pendidikan :" & Check3.Caption)

ü  End If

·         Form load :

ü  Combo1.AddItem "Menikah"

ü  Combo1.AddItem "Lajang"