Menampilkan Gambar Pada VB

Menampilkan Gambar Pada VB

1.Buka program Microsoft Visual Studio 2010.

Dengan tampilan seperti berikut :

                       

  

   2. Klik file – new – project

     3.Lalu ketik nama project dan pilih lokasi untuk penyimpanan file dan OK

     4.Saat klik Ok akan keluar tampilan form

                            

    

  5.Klik toolbox yang terdapat pada pinggiran tampilan form, lalu pilih Picturebox, CheckBox dan Button.

                          

6.Klik double klik pada checkbox dan botton dengan linsting program :

Note :

“sebelum nya masukkan gambar dalam folder debug didalam folder project kita, jika tidak memasukkan gambar pada debug maka saaat linsting program tidak menggunakan “Application.StartupPath &” dan saat menulis nama image ketik dimana letak gambar yg ingin Anda masukkan. Contohnya : PictureBox1.Image =Image.FromFile("E:\IMG_8886.jpg").”

Linsting Program :

Public Class Latihan_project_form1_dan_form2

    Dim SW As Boolean = True

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles CheckBox1.CheckedChanged

        PictureBox1.Image = Nothing

        If CheckBox1.Checked = True Then

            PictureBox1.Image = Image.FromFile(Application.StartupPath & "\IMG_1660.jpg")

            PictureBox2.Image = Image.FromFile(Application.StartupPath & "\IMG_1566.jpg")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click

        If SW = True Then

            PictureBox3.Image = Image.FromFile(Application.StartupPath & "\IMG_1853.jpg")

            PictureBox2.Image = Image.FromFile(Application.StartupPath & "\IMG_1566.jpg")

            Button1.Text = "Gambar Disembunyikan"

            SW = False

        Else

            Button1.Text = "Gambar Ditampilkan"

            PictureBox2.Image = Nothing

            PictureBox3.Image = Nothing

            SW = True

        End If

    End Sub

End Class

      7.Lalu save and start debugging

8.Klik di Menampilkan Gambar dan Gambar Ditampilkan.

Pada saat klik Menampilkan Gambar :

                      

9. Pada saat klik Gambar Ditampilkan :

                           

   

 10.  Pada saat klik Gambar Disembunyikan :

                           

   

   11.  Dan pada saat menghilangkan check pada menampilkan gambar :

                           

       12.  Selesai.

Continue

MEMBUAT ALGORITMA

MEMBUAT ALGORITMA

1. Buatlah algoritma untuk menghitung konversi suhu
    dari Celcius ke Reamur dan Fahrenheit

• INPUT :Suhu dalam Celcius
• Proses : R = 4/5 * C dan F = 9/5 * C + 32
• Output : Suhu dalam Reamur dan Fahrenheit

JAWABAN :

1. Input besr suhu dalam satuan  celcius
2. Untuk menghitung konversi suhu dari celcius ke Reamur, masukan besaran suhu ke dalam rumus berikut : ( R = 4/5 * C )
3. untuk menghitung konversi suhu dari celcius ke reamur, masukkan besaran suhu ke dalam rumus berikut : ( F = 9/5 * C + 32 )
4. Output akan tampil, suhu dalam Reamur dan Fahrenheit

DEKLARASIInt : C, R, F

INPUT C
R = 4/5 * C
F = 9/5 * C +32
OUTPUT
PRINT R
PRINT F
END


2. Algoritma bilangan ganjil / genap

1. Masukkan sebuah bilangan → i
2. Lakukan operasi mod pada i
3. Simpan sisanya dalam variabel n
4. Jika n = 0 maka i adalah bilangan genap
5. Jika n = 1 maka i adalah bilangan ganjil
6. Selesai

Sedangakan untuk aplikasi ke program visual basic sangat mudah berikut adalah Source code bilangan ganjil/genap dengan VB 6.0

Private Sub command1_Click()
    If Text1 = "" Then
        MsgBox "Bilangan masih kosong"
        Else
           If Text1.Text Mod 2 = 0 Then
           Label2.Caption = Text1.Text + " Bilangan Genap"
           Else
           Label2.Caption = Text1.Text + " Bilangan Ganjil"
           End If
        End If
End Sub

3. Algoritma untuk menentukan bilangan prima atau bukan.

• Deklarasi variable FAKTOR = 0.
• Masukkan bilangan bulat positif BILANGAN.
• Proses looping A=1 sampai dengan BILANGAN:
  - Jika BILANGAN modulus A sama dengan 0, tambah 1 nilai variabel FAKTOR.
  - Lanjutkan looping.
• Jika variabel FAKTOR = 2, cetak “Bilangan Prima.” Jika tidak, cetak “Bukan Bilangan Prima”.
• Selesai.

Continue

Visual Basic

 Dim diagonal_1, diagonal_2, hasil As Double

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Menghitung luas layang-layang'
        diagonal_1 = Val(TextBox1.Text)
        diagonal_2 = Val(TextBox2.Text)
        hasil = 0.5 * diagonal_1 * diagonal_2
        TextBox3.Text = hasil
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
End Class

Continue