Tutorial Pembuatan Form Image pada Visual Basic 2010 Express

1. bikin Form yang sesuai seperti gambar di bawah ini di Visual Basic 2010 Express

lalu pada RadioBitton1(Normal), ketik kode :

      pctb.SizeMode = PictureBoxSizeMode.Normal

pada RadioButton2(Strecth), ketik kode :

     pctb.SizeMode = PictureBoxSizeMode.StretchImage

Pada RadioButton3(Centre), Ketik KOde :

pctb.SizeMode = PictureBoxSizeMode.CenterImage

Pada RadioButton4(Zoom), Ketik Kode :

pctb.SizeMode = PictureBoxSizeMode.Zoom

pada HScrollBar1, Ketik Kode :

pctb.Width = HScrollBar1.Value()

Pada VScrollBAr1, ketik kode :

pctb.Height = VScrollBar1.Value()

Kode program secara lengkap adalah sebagai berikut Program lengkap :

SELESAI

-SELAMAT MENCOBA-

Tutorial Pembuatan Variable pada Visual Basic 2010 Express

1. bikin Form yang sesuai seperti gambar di bawah ini di Visual Basic 2010 Express

Lalu Klik Button1, ketik kode berikut :

        tinggi_anda = TextBox1.Text
                     MsgBox("Tinggi Anda : " & tinggi_anda & " cm ", MsgBoxStyle.Information, "jawaban")

Kode program secara lengkap adalah sebagai berikut Program lengkap :

SELESAI

-SELAMAT MENCOBA-

Tutorial Pembuatan If Then Else di Visual Basic 2010 Express

1. bikin Form yang sesuai seperti gambar di bawah ini di Visual Basic 2010 Express

lalu klik Button1(proses), lalu ketik kode berikut :

         If Textbox1.Text = "2" Then
                    Label3.Text = "Benar"
             Else
                    Label3.Text = "Salah"
        End If
Button2(Selesai), lalu ketik kode berikut :
        Me.Close()


Kode Program Secara LEngkap adalah Sebagai Berikut :

SELESAI

-SELAMAT MENCOBA-

Tutorial Pembuatan Form String Pada Visual Basic 2010 Express

1. bikin Form yang sesuai seperti gambar di bawah ini di Visual Basic 2010 Express

                     lalu klik Button1(Kiri). lalu ketik Kode Berikut :

label1.TextAlign = ContentAlignment.MiddleLeft

 Kemudian lakukan hal yang sama pada button2 (tengah).

Untuk button2(tengah), tuliskan perintah berikut :

label1.TextAlign = ContentAlignment.MiddleCenter

 Untuk button3(kanan), dengan kode program :

label1.TextAlign = ContentAlignment.MiddleRight

Sedangkan untuk button4 (selesai), kode nya adalah : “End”

Kode program secara lengkap adalah sebagai berikut Program lengkap :

SELESAI

-SELAMAT MENCOBA-

Tutorial Pembuatan Menu Strip dalam Visual Basic 2010 Express

1.  Membuka Visual Basic 2010 Express :

·                  Klik Start di Desktop.

·                  Klik Microsoft Visual Basic 2010 Express.

Sehingga Tampil Jendela Berikut :

2. Membuat Project baru :

·                 Di Start Page, pilih New Project.

          Pilih Windows Form Application.

·       Klik Ok.

    Sehingga tampil jendela berikut :

3. Tambahkan MenuStrip pada Form1 :

·                Di Toolbox, bagian Menus & Toolbars, pilih MenuStrip.

sehingga Tampilan Menjadi :

·       Input data sebagai berikut :

     Di menu File : Exit

 o   Di menu View :
       §  Text Colour : White, Red, Blue, Yellow, dan Default

 §  Background Colour : Black, Peach Puff, Light Blue, Gold, dan Default

§     Font Case : Upper dan Lower

 o   Di menu Help : Text Colour, Background Colour, dan Font Case

·                                 Untuk memasuki separator atau garis pemisah, tinggal ketik tanda “-“.

 4. Tambahkan TextBox dan berikan setting sebagai berikut :

·                   Di Toolbox, bagian Common Controls, pilih TextBox.

 Posisikan Toolbox di bagian tengah Form1

 ·       Klik lambang panah di sebelah kanan atas TextBox, sehingga muncul TextBox Tasks.

·                      Klik MultiLine, untuk mempermudah pengaturan besar kecil TextBox.

 ·       Di Properties, bagian TextAlign, pilih Center.

 Untuk menjalankan fungsi-fungsi yang ada di MenuStrip, dimulai Coding :

·                  Klik File.

·                   Double klik Exit, sehingga muncul tampilan berikut :

 ·       Mulai koding untuk Sub Menu Exit.

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Close()

    End Sub

·       Lalu klik View, pilih Text Colour.

·       Double klik pada Sub Sub Menu White dan mulai kodingnya.

       Private Sub WhiteToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles WhiteToolStripMenuItem.Click

        TextBox1.ForeColor = Color.White

    End Sub

·       Kemudian klik View, pilih Text Colour.

·       Double klik pada Sub Sub Menu Red dan mulai kodingnya.

       Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedToolStripMenuItem.Click

        TextBox1.ForeColor = Color.Red

    End Sub

·       Terus klik View, pilih Text Colour.

·       Double klik pada Sub Sub Menu Blue dan mulai kodingnya.

       Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueToolStripMenuItem.Click

        TextBox1.ForeColor = Color.Blue

    End Sub

·       Dilanjutkan klik View, pilih Text Colour.

·       Double klik pada Sub Sub Menu Yellow dan mulai kodingnya.

        Private Sub YellowToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles YellowToolStripMenuItem.Click

        TextBox1.ForeColor = Color.Yellow

    End Sub

·       Terakhir klik View, pilih Text Colour.

·       Double klik pada Sub Sub Menu Default  dan mulai kodingnya.

    Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles DefaultToolStripMenuItem.Click

        TextBox1.ForeColor = Color.Black

    End Sub

·       Setelah itu, klik View, pilih Background Colour.

·       Double klik pada Sub Sub Menu Black dan mulai kodingnya.

        Private Sub BlackToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlackToolStripMenuItem.Click

        TextBox1.BackColor = Color.Black

    End Sub

·       Lalu klik View, pilih Background Colour.

·       Double klik pada Sub Sub Menu Peach Puff dan mulai kodingnya.

    Private Sub PeachPuffToolStripMenuItem1_Click(ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles PeachPuffToolStripMenuItem1.Click

        TextBox1.BackColor = Color.PeachPuff

    End Sub

·       Kemudian klik View, pilih Background Colour.

·       Double klik pada Sub Sub Menu Light Blue dan mulai kodingnya.

    Private Sub LightBlueToolStripMenuItem1_Click(ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles LightBlueToolStripMenuItem1.Click

        TextBox1.BackColor = Color.LightBlue

    End Sub

·       Terus klik View, pilih Background Colour.

·       Double klik pada Sub Sub Menu Gold dan mulai kodingnya.

    Private Sub GoldToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles GoldToolStripMenuItem.Click

        TextBox1.BackColor = Color.Gold

    End Sub

·       Dilanjutkan klik View, pilih Background Colour.

·       Double klik pada Sub Sub Menu Default dan mulai kodingnya.

    Private Sub DefaultToolStripMenuItem1_Click(ByVal sender As System.Object, _

          ByVal e As System.EventArgs) Handles DefaultToolStripMenuItem1.Click

        TextBox1.BackColor = Color.White

    End Sub

·       Setelah itu, klik View, pilih Font Case.

·       Double klik pada Sub Sub Menu Upper dan mulai kodingnya.

    Private Sub UpperToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles UpperToolStripMenuItem.Click

        TextBox1.Text = TextBox1.Text.ToUpper()

    End Sub

·       Lalu klik View, pilih Font Case.

·       Double klik pada Sub Sub Menu Lower dan mulai kodingnya.

    Private Sub LowerToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles LowerToolStripMenuItem.Click

        TextBox1.Text = TextBox1.Text.ToLower()

    End Sub

·       Setelah itu, klik Help.

·       Double klik pada Sub Menu Test Colour dan mulai kodingnya.

    Private Sub TextColourToolStripMenuItem_Click(ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles TextColourToolStripMenuItem.Click

        TextBox1.Clear()

        TextBox1.ForeColor = Color.Black

        TextBox1.BackColor = Color.White

        MessageBox.Show("Text Colour untuk mengubah warna text.", "Information", _

                        MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

·       Kemudian klik Help.

·       Double klik pada Sub Menu Background Colour dan mulai kodingnya.

    Private Sub BackgroundColourToolStripMenuItem1_Click(ByVal sender _

 As System.Object, ByVal e As System.EventArgs) _

 Handles BackgroundColourToolStripMenuItem1.Click

        TextBox1.Clear()

        TextBox1.ForeColor = Color.Black

        TextBox1.BackColor = Color.White

        MessageBox.Show("Background Colour untuk mengubah warna background.", "Information", _

                        MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

·       Terakhir klik Help.

·       Double klik pada Sub Menu Font Case dan mulai kodingnya.

    Private Sub FontCaseToolStripMenuItem1_Click(ByVal sender As System.Object, _

 ByVal e As System.EventArgs) Handles FontCaseToolStripMenuItem1.Click

        TextBox1.Clear()

        TextBox1.ForeColor = Color.Black

        TextBox1.BackColor = Color.White

        MessageBox.Show("Font Case untuk mengubah bentuk huruf.", "Information", _

                        MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

Setelah selesai Coding, tampilan akan menjadi sebagai berikut :

 6. Setelah selesai Coding, di Save All (Ctrl+Shift+S). Akan muncul tampilan berikut, pilih tempat untuk penyimpanan data dan menamakan sesuai dengan keinginan. Setelah semua selesai, klik Ok.

 7. Untuk menjalankan program :

·       Klik Debug, pilih Start Debugging atau langsung tekan tombol F5.

SELESAI

-SELAMAT MENCOBA-

QUOTES

Langkah selanjutnya bagi org yg selalu mengeluh tentang persaingan adalah “mengeluh tentang kekalahannya”

Sebelum km menghina seseorang, cobalah km utk menghina cermin#quotespagi

Lebih bodoh mana “anak kecil yg takut akan kegelapan” atau “org dewasa yg takut akan terang” . Jadilah org yg tangguh#quotespagi

Ya,km memang sudah membaca bnyk buku. Tp sudahkah km membaca kehidupan km?,pintar belum tentu brkepribadian baik jgn slh gunakan #quotespagi

Sifat sirik adalah sifat yg konyol karena meyiksa diri sendiri. Sportif lah :) #quotespagi

Ketika terjatuh km akan memantul jauh lebih tinggi , seperti kehidupan kita . Kecuali kalo km tidak mempercayainya #quotespagi

Menangis itu wajar, menangislah, tp tlng bedakan antara menangis kesal/dendam . Dan menangis krna ikhlas. Pilih yg ke 2 .#quotespagi

Kamu adalah org yg benar meskipun jutaan berkata kamu itu salah, kalau yg menemanimu itu adalah tuhan :) #quotespagi. let’s solat subuh :D

Sebenarnya kita diciptakan lebih dari apa yg kita fikirkan, permasalahannya adalah bagaimana supaya kita mempercayainya#quotespagi

Satu orang bisa mengakibatkan suatu perubahan yg sangat besar . Jadilah orang itu (dalam hal positif) #quotespagi

Yap benar satu orang bisa mengakibatkan perubahan yg sangat besar. Coba fikirkan bila orgnya kamu kali lipat. Mahakarya#quotespagi

Kalau kamu yg setia tetapi di tinggalkan oleh apa yg km mau, maka kamu akan dipertemukan olh org yg setia, bkn yg salah sprt itu#quotespagi

Sebelum menghina seseorang , cobalah utk menghina cermin .#quotespagi

Berjalan dijalan yg datar membuat kita jenuh tapi kalo kita berjalan di tempat yg berliku membuat kita lebih tangguh #quotespagi

“Kamu tidak akan pernah bisa menyelesaikan sesuatu” kalo memang kamu mengatakan itu sebelum menyelesaikannya#quotespagi

Bumi luas . Manusia tak bisa bertemu dengan smua mannusia yg hidup tp ingat kita melihat bulan dan matahari(tujuan) yg sama!#quotespagi

Ada 2 jln ketika kamu berada dalam tekanan. Mnangis dan diam di tmpt atau mnangis dan brjlan lebih cepat dgn semangat yg membara #quotespagi

Jgn selalu berada dalam lingkaran . Dunia itu luas kan? Mari berjalan tapi tak lupa oleh siapa yg membuat kita bisa berjalan #quotespagi

Rubahlah dirimu tiap hari menuju kebaikan. Masalah jadi diri sendiri atau tidak, apa ada manusia yg orisinil? #quotespagi

Tak perlu memiliki indra ke 6 utk berbuat kita masih punya insting dan feeling utk ber empati dan bersimpati #quotespagi

Jangan khawatir kita di ciptakan utk menemukan seseorang yg kita cari ! . Bangkitlah!#quotespagi

Mngkin hari ini kmu mrasa sngat skit hati atau tertekan.Tapi ingat! Cara tuhan mmberi kbahagiaan brbeda dgn mnusia. Bersyukurlah#quotespagi

Ya! Tuhan memang tidak adil! Dia terlalu banyak memberikan kebaikan kepada kita dibandingkan keburukan . Maka bersyukurlah :) #quotespagi

Cara kertas mengajar kita berbeda dengan cara alam mengajar kita tetapi dua duanya sama sama kita butuhkan . #quotespagi

Tuhan punya cara lain utk membuatmu bahagia. So.. Mengikuti cara tuhan atau kamu diam dgn keputus asaan? Bangkitlah #quotespagi

Seseorang yg slalu mencari kekurangan seseorang untuk diumbar ialah seseorang yg kekurangan #quotespagi

Kesalahan itu wajar tapi jadikan lah dia sebagai pengajar bukan pembimbing #quotespagi

Jgn menjadikan harimau sebagai temanmu. Ya,utk saat ini dia melindungi. Tp ketika dia lapar dia akan melirikmu juga #quotespagi

Ssuatu yg paling berat ialah ketika km trbangun n sadar bhwa dia bkn lg milikmu,tp suatu pljaran yg mahakarya klo km bsa bangkit#quotespagi

Jangan mendoakan karma, siapa tau dia menggunakan cermin utk mmantulkan. Tuhan lbih tau jln yg “trbaik” kok.Doakan lah yg trbaik#quotespagi

Rasa takut itu sangat dekat dgn kenyataan,dan kberanian itu mmbawa kita mnuju impian,bangkit hdapi tantangan!! #quotespagi

Banyak pembicaraan tentangmu dibelakang sana,tp tetaplah tujuanmu ke depan sana #quotespagi

sepahit pahitnya sabar yg kamu lewati “sangat” berpengaruh pada semanis manisnya hasil yg akan km daat . Bhkan lbih mnis dr madu#quotespagi

kehidupan jelas adalah menerima kelebihan , kehidupan damai adalah menerima kekurangannya #nightquote

menyindir org dgn cara yg samar(nyepet) tidak akan mendidik org itu menjadi lebih baik, tapi mendidikmu jauh “lebih buruk”#nightquote

Kadang dgn cara “berlari” mnghadapi mslh,itu mmbuatnya jd lbih buruk,hdapilah,krna kau adlh pmenang,mskipun itu dberinama “kalah”#nightquote

untungnya para pmbenci itu hnya fokus mmperhatikan apa yg kita

lakukan,sayangnya mereka tidak melihat isi hati kita yg mahakarya,#nightquote

Kalau ga suka abaikan kalau ga setuju beri tau dgn cara yg baik . So ga ada yg namanya hinaan . #quotespagi

Kata kata ga bisa merubah kehidupan dia cuma mampu memberikan kesadaran selebihnya niat dan tindakan #quotespagi

Jangan hiraukan perbedaan/ketidakcocokan. Alam dan dirimu masih memegang tindakan perubahan #quotespagi

Jgn pernah meremehkan mimpi seseorang . Tuhan maha pendengar . #quotespagi

Ga ada salahnya kalo seseorang merasa menjadi sesuatu yg besar itu adlah mimpinya.Sygnya yg tidak suka adlh yg tak mngerti mimpi#quotespagi

Pembenci dan pecinta takan banyak omong pada sesuatu yg sama. Mereka lebih menonjol pada sesuatu yg unik/berbeda. #quotespagi