Senin, 25 Mei 2015

PROGRAM MENAMPILKAN APLIKASI YANG INGIN DITAMPILKAN

langkah-langkah pembuatan program adalah sebagi berikut :
1.Bukalah program VB 2010
2.Setelah jendela VB terbuka, maka pilihlah file -> new project
q
3.buatlah tampilan seperti berikut
qw
4. Klik pada tombol "Kalkulator", lalu masukkan listing program sebagai berikut :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell(“C:\windows\System32\Calc.exe”)
End Sub
5. Klik pada tombol "Microsoft Word", lalu masukkan listing program sebagai berikut:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell(“C:\Program Files\Microsoft Office\Office12\WinWord.exe”)
End Sub
6. Klik pada tolbom "Paint", lalu masukkan listing program sebagai berikut:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Shell(“C:\Windows\System32\mspaint.exe”)
End Sub
End Class
7. Terakhir kita jalan program tersebut dengan menekan tombol F5, dan pilih mana program yang ingin anda jalankan.
8. Selamat mencoba

Membuat Timer dengan VB 2010

langkah-langkah membuat program adalah sebagai berikut :
1.Bukalah program mircrosoft visual basic 2010
2.Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project
q
3.Lalu buka form baru
e1
4.Setelah itu pilih timer pada menu toolbox seperti di bawah ini

5. Letakkan timer di bawah form.
s
6.Klik 2 kali pada tombol timer lalu muncul form listing, Lalu tuliskan listing programnya sebagai berikut:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Text = TimeOfDay
End Sub
End Class
7.lalu kita jalankan dengan cara klik debug > start debugging atau F5
Dan akan keluar tampilan seperti ini:
z

8. Selesai

CARA MEMBUAT PROGRAM PROGRES BAR


Langkah-langkah membuat program Progres bar adalah sebagai berikut :
1.Bukalah program mircrosoft visual basic 2010
2.Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project

3. Lalu buka form baru

4. Lalu sesuaikan tampilan form sesuai dengan keinginan anda



5. Klik 2 kali pada tombol proses, lalu keluar form listing program, lalu isikan listing programnya sebagai berikut :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With ProgressBar1
.Minimum = 0
.Maximum = 1000
For N As Integer = .Minimum To .Maximum
.Value = N
Me.Text = “Program loading” & proses 100 [ ” & Int(N / 10) & “%]”
Next
End With
End Sub
End Class
6. Setelah itu jalankan program tersebut.
7. Selesai

CARA MEMBUAT PROGRAM KASIR SEDERHANA

Visual Basic 2010 biasa digunakan para programmer untuk membuat suatu aplikasi yang dapat memudahkan untuk memecahkan suatu masalah.
Berikut ini adalah contoh aplikasi kasir sederhana yang dibuat di Visual Basic 2010:
  1. Buka VB 2010 >> New Project >> Windows Forms Application >> OK.
  2. Buat desain seperti gambar dengan memasukkan komponen dari toolbox ke dalam form design.

3. Ubah nama komponen yang telah dibuat dari bagian properties (di kotak yang ada di pinggir kanan)




4.   Klik 2 kali pada form, lalu masukkan listing code untuk masing-masing komponen, yaitu komponen ComboBox, TextBox, RadioButton, dan Button. Berikut listing codenya:
  • Form 1
Public Class Form1
Dim harga_kotor, harga_bersih As Integer
Dim potongan As Integer = 0

  • ComboBox1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComboBox1
.Items.Add(“Buku Tulis”)
.Items.Add(“Buku Gambar”)
.Items.Add(“Pulpen Boxy”)
.Items.Add(“Pensil Mekanik”)
.Items.Add(“Penggaris Rotring”)
.Items.Add(“Rautan Pensil”)
End With
End Sub
Lalu, untuk memunculkan harga secara otomatis pada TextBox1, masukkan listing berikut ini:
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox5.Focus()
If ComboBox1.Text = “Buku Tulis” Then
TextBox5.Text = “2000”
ElseIf ComboBox1.Text = “Buku Gambar” Then
TextBox5.Text = “3000”
ElseIf ComboBox1.Text = “Pulpen Boxy” Then
TextBox5.Text = “2000”
ElseIf ComboBox1.Text = “Pensil Mekanik” Then
TextBox5.Text = “2000”
ElseIf ComboBox1.Text = “Penggaris rotring” Then
TextBox5.Text = “2000”
ElseIf ComboBox1.Text = “Rautan pensil” Then
TextBox5.Text = “2000”
End If
End Sub

  • RadioButton1
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton3.CheckedChanged, RadioButton2.CheckedChanged
potongan = sender.text
End Sub

  • Button1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim diskon As Single
Dim total As Single
diskon = (TextBox5.Text * TextBox1.Text * potongan) / 100
total = (TextBox5.Text * TextBox1.Text – diskon)
TextBox2.Text = Format(total, “#”)
End Sub

  • Button2
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub

  • Button3
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ComboBox1.Text = “”
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
End Sub
End Class

  • Button4
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox4.Text = Val(TextBox3.Text) – Val(TextBox2.Text)
End Sub

  • TextBox1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox2.Focus()
End Sub
5.   Tekan F5 untuk menjalankan program kasir. Jika terjadi error berarti ada kesalahan dalam membuat listing code, jadi perbaiki listing program terlebih dahulu.
6.   File > Save All, untuk menyimpan program secara keseluruhan.
Berikut ini adalah contoh program yang telah dibuat:

Senin, 30 Maret 2015

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.


Selasa, 24 Februari 2015

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.

Minggu, 22 Februari 2015

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

Langganan: Postingan (Atom)