Tutorial membuat ProgressBar menggunakan visual basic 2010

 Tutorial membuat ProgressBar menggunakan visual basic 2010

Salam kenal smuanya .
saya akan mengajar anda untuk membuat tutorial prossesbar menggunakan visual basic 2010. dengan singkat waktu saya akan menjelaskan membuat prossesbar.


Ikuti langkah-langkah dibawah ini aja ngampang kok:

1.Pasti pertama kita harus membuka program visual basic 2010 dulu dan kemudian klik “new project”, lalu mengisi nama formnya, sekarang kita buat tool-toolnya ya, buat seperti gambar dibawah ini:
 yang kita butuhkan satu progressBar ama button aja..














2.selanjutnya kita  masuk ke codingnya, klik 2x mouse kiri pada button ya, dan buat coding seperti gambar dibawah ini :

saya akan kasi rincian di bawah ini :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As Single
        Do
            a += 2
            ProgressBar1.Increment(a)
        Loop Until a = 100
    End Sub
End Class

Maksudnya “Do” adalah mengerjakan dan “a + = 1” adalah varibel a bertambah 1 “Loop Until a = 100” mengulangi variabel a hingga a = 100
selesai..
Tinggal anda yang mengcobanya .. hehehe

thanks you

Tutorial membuat function pada visual basic 2010

Tutorial membuat function pada visual basic 2010

Seperti judul yang saya yang  berikan kita akan mempelajari menggunakan function di visual basic 2010,
saya sengaja buat yang paling simple agar gampang dimengerti pada teman-teman

Baiklah, ikuti langkah-langkah dibawah ini ya:
1.Buka program Visual Basic 2010 anda, kemudian klik “new project”, setelah itu buatlah tool-tool yang kita perlukan, buat seperti gambar dibawah ini ya.

seperti gambar diatas, tools yang kita perlukan adalah: 3 label, 3 textbox , 1 comboBox mengisikan segitiga dan 1 button.
kalu udah buat kita lanjut ke step berikut ini :

2. Sekarang kita akan melanjutkan ke coding, klik 2x mouse kiri  pada form maka akan muncul tab coding, buat coding seperti gambar dibawah ini.

ini saya akan rincikan di bawah ini
Untuk coding functionnya:
Public Class Form1
    Sub jenis(ByVal pilihan As String)     
        If pilihan = "segitiga" Then
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            Label2.Visible = True
            Label3.Visible = True
            Label2.Text = "Alas"
            Label3.Text = "Tinggi"
            TextBox1.Visible = True
            TextBox2.Visible = True
            TextBox3.Visible = True
            Button1.Visible = True
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label2.Visible = False
        Label3.Visible = False
        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
        Button1.Visible = False
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Call jenis(ComboBox1.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      If ComboBox1.SelectedItem = "segitiga" Then
            TextBox3.Text = TextBox1.Text * TextBox2.Text / 2
        End If
    End Sub
End Class

kalu malas mau ketik kayak di atas pakai copy / paste aja hehhe kan cepat gak habis waktu hehe

Selesai nih coding untuk Functionnya,ngampang kan teman-teman soalnya cuma buat luas segitiga aja hehe

selesai
 teman-teman boleh mencoba membuat function di atas ..
thanks you

Tutorial mengubah posisi label dengan button

saya akan menjelsakan tutorial untuk membuat button yang bias merubah posisi sebuah text.

Ikuti langkah-langkah dibawah ini ya:
1.Kita buat design dengan tools seperti gambar dibawah ini:


Ya, disini saya menggunakan 4 buah button dan 1 buah label, kita lanjut ke step 2 yaitu coding.

 2. codingnya sangat simple sekali kog teman-teman, biar lebih jelas silakan lihat gambar dibawah ini:


kalu kurang jelas  bisa lht di bawah ini
Pada button1 (button left)
Label1.TextAlign = ContentAlignment.MiddeLeft
Pada button2(button center)
Label1.TextAlign = ContentAlignment.MiddleCenter
Pada button3 (button right)
Label1.TextAlign = ContentAlignment.MiddleRight
Pada button4 (button exit)
Me.Close()

Akhirnya Selesai juga deh,
“Label1.TextAlign = ContentAlignment.Middleleft”  Coding ini berfungsi untuk
merubah posisi label1 ke rata kiri sama dengan button2 dan 3, button4 berfungsi untuk mematikan program.
gt aja.

silakan mencobanya...
Thanks you

Tutorial Membuat Program Di Visual Basic

          Tutorial Membuat Program  Di Visual Basic 

1.Buka Visual Basic 2010 anda dan klik “new project”, setelah muncul Form baru kita design form dengan tools sesuai gambar dibawah ini:


saya membutuhkan 1 textbox 1 button aja. slanjutnya kita masuk ke tahap 2.

2. Kita langsung masuk ke codingnya ya, klik button Cek 2x, kemudian buat coding seperti gambar dibawah ini:

.Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Single
        If a >= 80 And a <= 100 Then
            MessageBox.Show("selamat anda mendapat nilai: A")
            TextBox1.Clear()
        ElseIf a >= 70 And a <= 80 Then
            MessageBox.Show("selamat anda mendapat nilai: B")
            TextBox1.Clear()
        ElseIf a >= 60 And a <= 70 Then
            MessageBox.Show("selamat anda mendapat nilai: C")
            TextBox1.Clear()
        ElseIf a >= 50 And a <= 60 Then
            MessageBox.Show("selamat anda mendapat nilai: D")
            TextBox1.Clear()
        ElseIf a >= 0 And a <= 50 Then
            MessageBox.Show("gagal")
            TextBox1.Clear()
        Else
            MessageBox.Show("nilai tidak ada dalam kategori, silakan masukkan 0-100.")
            TextBox1.Clear()
        End If
    End Sub
End Class

Dim a As Single <—- coding ini berfungsi untuk memvariabelkan a sebagai textbox1 dengan tipe data single.
If a >=80 And a MessageBox.Show(“Selamat Anda mendapat nilai: A”)
Coding diatas berfungsi untuk mengecek nilai yang ditulis dalam textbox, dengan cara jika textbox1 lebih besar sama dengan 80 dan lebih kecil sama dengan 100 maka messagebox akan tampil dan berisi (“Selamat Anda Lulus dengan peringkat: A”).
Textbox1.clear() <—- berfungsi untuk membersihkan field setelah messagebox keluar dan kita mengklik ok.

gt aja teman-teman silakan coba ..
Thank you

Tutorial visual basic 2010 DO_LOOP

                  Tutorial visual basic 2010 DO_LOOP

1.Buat 1 listbox dan 1 buah button pada form ,Kemudian lakukan double klik pada 

     button 1   lalu auto masuk kecoding dan slajutnya.

  

2. kita memasukin coding seperti ini ..

Public Class Form1
 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       

 Dim x As Double
        x = 0
        Do
            x += 1
            ListBox1.Items.Add(x)
        Loop Until x = 10

    End Sub
End Class

Penjelasan  :

“Dim  x as double” artinya adalah variable dari x dibuat dengan type data double

“X = 0” artinya adalah nilainya akan mulai dari angka 1

“Do” artinya adalah melakukan

“x += 1” artinya adalah Nilai dari “x” akan bertambah  1(1,2,3,4,5,6 …)

“Loop Until x = 10” artinya adalah nilainya hanya akan bertambah sampai angka 10 saja 

Teman-teman sangat mudahkan yang tutorial do_loopnya codingnya dikit aja lalu ngampang di mengerti dan udah terima kasi udah membuka blog saya.

hehe