Otak Atik Aja: Juli 2016

7 Jul 2016

Membuat nilai progressbar bertambah dengan mengklik button + Pengaturan #2

Tutorial ini sama dengan yang pertama berjudul Membuat nilai progressbar bertambah dengan mengklik button tetapi ada penambahan Toolbox pada Form1 yaitu pengaturan nilai. di tutorial ini dapat mengaturnya sendiri dengan memilih nilai yang di inginkan.beda dengan tutorial yang pertama jika yang pertama ini nilai sudah ditentukan didalam codingnya .

Toolbox yang di butuhkan :

Toolbox	Propertis	Value
PrograssBar1	-	-
Button1	Text	Tambah
Label1	Text	0
GroupBox1	Text	Nilai
RadioButton1	Text	10
RadioButton1	Checked	True
RadioButton1	Text	20
RadioButton1	Text	30

Langkah 1.

Masuk ke Visual Basic 2010 pilih menu File kemudian New Project. jika sudah tampil form New Project pilih menu Installed Templates pilihlah Visual Basic kemudian pilih Windows Form Aplication, kalau perlu pada Name rubahlah nama projectnya sesuai apa yang akan di buat. jika sudah selesai pilih tombol Ok jika batal pilih Cancel. jika sulit dan tidak paham mengikuti langkah-langkahnya maka akan ditampilan gambar seperti di bawah ini.

Exported from Notepad++

Atau bisa juga seperti dibawah ini

Tahapan berikutnya

jika sudah tekan tombol Ok maka akan tampil seperti dibawah ini.

Langkah 2

Buat seperti tampilan ini. harap di ingat bahwa pada RadioButton1 pada Propertis untuk Chacked pilih True dan pada radioButton lainya Chacked sama dengan False.

Ini adalah Source Codenya

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        'coding di bawah ini merupakan pilihan nilai untuk progressbar
        If RadioButton1.Checked Then
            a = 10
        ElseIf RadioButton2.Checked Then
            a = 20
        Else
            a = 30
        End If
        ProgressBar1.Value += a
        If ProgressBar1.Value = 100 Then
            End
        End If
        Label1.Text = ProgressBar1.Value 'menampilkan jumlah pada progressbar
    End Sub

Langkah 3

Jalankan programnya jika sudah selesai memasukan codingnya dengan pilih menu Debug lalu Start Debugging (F5) atau tekan F5 pada keyboard. Saat dalam keadaan Run kita bebas memilih jumlah nilai setelah itu tekan tombol Tambah untuk memprosesnya.

Key;

vb2010, visual basic 2010. membuat pengaturan value pada progressbar. make setting value.

Membuat nilai progressbar bertambah dengan mengklik button #1

Tutorial ini akan membuat value bertambah pada progressbar dengan cara diklik pada tombol Button. jika kita mengklik tombol tersebut nilai akan bertambah dan pada progressbar penuh.

Toolbox yang di butuhkan :

Toolbox	Propertis	Value
ProgressBar1	-	-
Button1	Text	Tambah

Langkah 1.

Exported from Notepad++

Atau bisa juga seperti dibawah ini

Tahapan berikutnya

jika sudah tekan tombol Ok maka akan tampil seperti dibawah ini.

Langkah 2

Buat seperti tampilan ini.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a += 10 'nilai variabel a tambah 10
        ProgressBar1.Value += a
        If ProgressBar1.Value = 100 Then
            End 'selesai
        End If
    End Sub

Langkah 3

Jalankan programnya jika sudah selesai memasukan codingnya dengan pilih menu Debug lalu Start Debugging (F5) atau tekan F5 pada keyboard. maka jika dijalankan dan kita mengklik tombol Tambah progressbar kan penuh seperti tampilan berikut ini.

Key;

vb 2010, visual basic 2010, membuat progressbar, make progressbar.

4 Jul 2016

Menerapkan gambar dengan PictureBox

Tutorial ini akan membahas cara menyisipkan gambar kedalam picturebox dengan bantuan openfiledialog, didalam tutorial ini juga membuat pengaturan gambar yang menggunakan combobox. untuk combobox diberikan perintah Stetment Select Case . Select Case seperti If...Then...ElseIf pernyataan kemungkinan terhadap variabel yang diuji dan setiap variabel akan diperiksa memberikan nilai untuk menentukan laporan . berikut ini adalah format Select Case:

Select Case TestExpresision
  [Case Expression List
      [statment]]
  [Case Expression List
      [statment]]
End Select

Toolbox yang di butuhkan :

Toolbox	Propertis	Value
Label1	Text	Ukuran Gambar
Button1	Text	Cari Gambar
PictureBox1	-	-
ComboBox1	Text	-
"--"	Items	Normal
"--"	"--"	StretchImage
"--"	"--"	AutoSize
"--"	"--"	CenterImage
"--"	"--"	Zoom
OpenFileDialog1	-	-

Langkah 1.

Exported from Notepad++

Atau bisa juga seperti dibawah ini

Tahapan berikutnya

jika sudah tekan tombol Ok maka akan tampil seperti dibawah ini.

Langkah 2

Buat seperti tampilan ini.

Perhatian : jangan lupa masukan OpenFileDialog.

Langkah 3

Sekarang menyisipkan pilihan untuk ukuran gambar pada ComboBox1

1. klik ComboBox1 lalu akan muncul ComboBox Tasks

2. kemudian pilih Edit Items

caranya seperti gambar di bawah.

3. Isilah pada String Collection Edition seperti gambar di bawah

4. Jika semua sudah di isi Kemudian pilih OK atau jika batal pilih Cancel

Langkah 4

Masukan codingnya dengan double klik pada ComboBox1.

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim sSize As String
        sSize = ComboBox1.SelectedItem
        Select Case sSize
            Case "Normal"
                PictureBox1.SizeMode = PictureBoxSizeMode.Normal
            Case "StretchImage"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            Case "AutoSize"
                PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
            Case "CenterImage"
                PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
            Case "Zoom"
                PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        End Select
    End Sub

Untuk mencari gambar masukan perintah pada Button1.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.Title = "Buka File"
        OpenFileDialog1.Filter = "jpg(*.jpg)|*.jpg"
        OpenFileDialog1.ShowDialog(PictureBox1.Image)
        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
    End Sub

Langkah5

Jalankan programnya jika sudah selesai memasukan codingnya dengan pilih menu Debug lalu Start Debugging (F5) atau tekan F5 pada keyboard. maka tampilan akan seperti ini.

Key;

vb 2010, visual basic 2010,mengambil gambar dengan OpenFileDialog. mengatur gambar. Open Picture.

3 Jul 2016

Membuat karakter menampilkan dan menyembunyikan password pada TextBox

Tutorial ini akan membahas cara menampilkan dan menyembunyikan karakter password di TextBox dengan mengunakan CheckBox. pada CheckBox saat di ceklis karakter bintang (*) pada TextBox akan berubah karakternya menjadi menjadi karakter biasa.

Toolbox yang di butuhkan :

Toolbox	Propertis	Value
Label1	Text	Password
Button1	Text	Masuk
Checkbox	Text	Karakter
Textbox	PasswordChar	*

Langkah 1.

Exported from Notepad++

Atau bisa juga seperti dibawah ini

Tahapan berikutnya

jika sudah tekan tombol Ok maka akan tampil seperti dibawah ini.

Langkah 2

Buat seperti tampilan ini.

Langkah Berikutnya Label1 pada propeties diubah dengan nama password, pada CheckBox1 di properties beri dengan nama karakter, pada TextBox di properties pilih PasswordChar berilah tanda bintang (*) dan tombol Button1 ubahlah dengan nama Masuk. berikut tampilanya akan seperti ini.

Langkah 3

Sekarang tinggal masukan codingnya, klik dua kali pada checkbox yang di beri nama karakter dan pada tombol Button yang di beri nama Masuk juga di berikan coding.

ini adalah codingnya

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.PasswordChar = ""
        Else
            CheckBox1.Checked = False
            TextBox1.PasswordChar = "*"
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Silahkan masuk")
    End Sub
End Class

Langkah4

Jalankan programnya jika sudah selesai memasukan codingnya dengan pilih menu Debug lalu Start Debugging (F5) atau tekan F5 pada keyboard. maka tampilan akan seperti ini.

Sesudah diceklis karakternya akan berubah pada TextBox

Sekian dan terimakasih Semoga bermanfaat

Key;

vb 2010, visual basic 2010