Cek Bilangan Ganjil Genap

Program untuk mengecek bilangan ganjil dan genap adalah program yang membagi angka bilangan dengan dua. Apabila bilangan tersebut habis dibagi dengan dua, maka bilangan yang kita masukkan adalah bilangan genap, dan sebaliknya adalah bilangan ganjil.

1. Rancang program seperti berikut ini

VB.Net : Mencari bilangan terbesar

Aplikasi mencari bilangan terbesar digunakan untuk membandingkan dua bilangan atau lebih.
Tanda pembanding
<    : lebih kecil
>    : lebih besar
=    : sama dengan
<= : lebih kecil atau sama dengan
>= : lebih besar atau sama dengan
<> : tidak sama dengan
Tanda tersebut sering digunakan dalam operator matematika:

Ikuti langkah-langkah berikut ini untuk membuat aplikasi Mencari bilangan terbesar.
1. Desain form seperti gambar berikut

VB.Net : Menghitung Luas

Program ini menghitung luas menggunakan rumus panjang dikalikan dengan lebar. Terdapat dua inputan yaitu panjang dan lebar serta satu output yaitu luas.

Letakan 3 komponen label, 3 komponen textbox, dan 2 komponen button. Atur komponen tersebut seperti gambar berikut ini :

Coding :

1. Klik ganda tombol proses kemudian ketikkan kode seperti berikut.

      txtLuas.Text = Val(txtPanjang.Text) * Val(txtLebar.Text)

2. Klik ganda tombol keluar kemudian ketikkkan kode seperti berikut .

     

    End

Lebih Jelasnya silahkan download file latihan disini

Selamat belajar  ^_^

Diktat Vb.Net

Saya akan bagikan diktat yg membahas pemrograman VB.Net yang ditulis oleh Mas Junindar

1. Dasar pemrograman berbasis windows download
2. Membuat Laporan Menggunakan Crystal Report Berbasis Web download
3. Aplikasi Untuk Membuat Database dan Tabel Pada Ms. Access download
4. Mengakses Data dari Exel dan Mengimport ke Access download
5. Import data dari TXT / CSV file download
6. Eksport dari dari Access table ke TXT. download
7. 
   

Animasi Teks Blink

Assalamu'alaikum........

Bagaimana ya..... cara membuat animasi text yang berkedip-kedip ?
Ternyata scriptnya simple banget sahabat semua.
sediakan beberapa komponen berikut ini:

• 1 buah label. pada properties teks anda rubah tulisannya "ANIMASI BERKEDIP"
• 1 buah komponen timer dan pada properties anda rubah Enable = True. Jika sahabat masih bingung anda lihat gambar dibawah ini

• klik komponen timer1 dan anda ketikkan script berikut ini.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles             Timer1.Tick

        Label1.Visible = Not Label1.Visible = True

    End Sub

• Anda klik run. Jadi deh............ ^_^

Tombol Interaktif

Assalamu'alaikum.........
Pa kabar sahabat semuanya mudahn sehat semua....
Tadi habis isi bensin gratis sekarang gilirannya saya yang sebarkan ilmu gratis buat sahabat yang baru belajar vb.net.
Supaya tombol lebih keren dikit ada muncul pertanyaan seperti gambar dibawah ini  caranya mudah sahabat semua.

klik 2 x pada tombol keluar kemudian ketikkan script dibawah ini:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        "mendeklarasinyan variabel tanya
        Dim tanya = MsgBox("Anda yakin ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sebiru")
        'Jika variabel tanya diklik tombol "Yes" maka akan mengakhiri jalannya program
        If tanya = MsgBoxResult.Yes Then
            End
        'kondisi berikutnya "Else"
        'Jika tidak melakukan klik tombol "Yes" maka program akan tetap berjalan kembali
        Else
            Return
        End If
    End Sub


He.... Semoga bermanfaat. Ikuti materi selanjutnya

Percabangan IF

Vb.net merupakan bahasa pemrograman yg saya gemari karena cukup mudah dan banyak referensi belajarnya.
Yuk teman-teman kita belajar bareng dari yang dasar.
1. Sediakan 2 komponen label dan masing-masing pada properties text beri nama input dan output
2. sediakan 2 texbox
3. sediakan 1 button

pada button anda klik 2 kali kemudian ketikkan script dibawah ini.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Maaf........ data masih kosong", MsgBoxStyle.Information, "Pesan")
        Else
            TextBox2.Text = TextBox1.Text
            TextBox1.Text = ""
        End If
    End Sub
End Class



Keterangan:

    If TextBox1.Text = "" Then

        

           MsgBox("Maaf........ data masih kosong", MsgBoxStyle.Information, "Pesan")

Jika texbox1 dalam kondisi kosong maka akan menampilkan pesan "("Maaf........ data masih kosong", MsgBoxStyle.Information, "Pesan")

Else

            TextBox2.Text = TextBox1.Text

            TextBox1.Text = ""

        End If

kondisi kedua, jika kondisi diatas terpenuhi maka nilai pada texbox2 adalah nilai texbox 1
kemudian kita hapus data yg ada pada texbox 1

Mohon maaf bahasanya g'karuan maklum baru belajar nulis. he.....