Contoh Program sederhana Memilih Menu Makan dengan VB.Net 10

Langsung saja di buka Vb.Net 10 kamu,

Pilih di menu Windows Form Application Visual basic
Isi pada kolom Nama, Trus OK
Buat Form seperti tampilan berikut

Kodenya seperti ini


Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add(”Pagi”)
ListBox1.Items.Add(”Siang”)
ListBox1.Items.Add(”Malam”)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
CheckedListBox1.Items.Add(”Tiwul”)
CheckedListBox1.Items.Add(”Nasi”)
CheckedListBox1.Items.Add(”Baso”)
Dim pilihan As String
pilihan = “Pilihanya….” + ListBox1.SelectedItem
TextBox1.Text = ListBox1.SelectedItem
MessageBox.Show(pilihan, “Menu saat ini adalah”, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim jumlah As Integer
jumlah = CheckedListBox1.CheckedItems.Count
MessageBox.Show(CStr(jumlah), “Pilihan Berjumlah”,
MessageBoxButtons.OK, MessageBoxIcon.Information)
If jumlah = 2 Then
CheckedListBox1.Items.Add(”Cukup”)
End If
End Sub
End Class
Coba di Debug ( Run ), jika benar hasilnya seperti ini

Selamat mencoba
Atau download Program Disini.

Source :  http://ekosuhartono.blogdetik.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Program IF Sederhana Pada QBasic

Contoh Program IF berikut ini sangat mudah,tergantung teman – teman mengeksplorasi mengenai bagaimana menemukan kondisi dan hasilnya,berikut ini beberapa Contoh Program IF Sederhana Pada QBasic :

• Ada sebuah pertanyaan yang hasilnya ditentukan dari sebuah kondisi,misal seperti ini Kita masukan nilai A.Jika kita masukan nilai A < 10 maka Nilai B tersebut adalah Nilai A + 10,Namun Jika nilai A > 10 maka hasil nilai B adalah nilai A itu sendiri. Berikut ini contohnya :

?

1 2 3 4 5 6 7 8

CLS INPUT "Masukan Angka A : "; a IF A < 10 Then    b = a + 10 ELSE    b = a END IF PRINT b

• Kita masukan nilai A.Jika kita masukan nilai A < 10 maka Nilai B tersebut adalah Nilai A + 10,Jika kita masukan nilai A = 10 maka Nilai B tersebut adalah Nilai A + 1 Namun Jika nilai A > 10 maka hasil nilai B adalah nilai A itu sendiri. Berikut ini contohnya :

?

1 2 3 4 5 6 7 8 9 10 11 12

CLS INPUT "Masukan Angka A : "; a IF a < 10 Then    b = a + 10 ELSE IF a = 10 then   b = a + 1 ELSE    b = a END IF END IF PRINT b

Mungkin sekian dulu informasi sederhana saya mengenai ilmu programming QBasic ini,semoga dengan adanya Contoh Program IF Sederhana Pada QBasic ini teman – teman dapat mengerti mengenai QBasic ini.Jika ada yang ingin ditnyakan silahkan berkomentar pada kolom komentar setelah artikel Contoh Program IF Sederhana Pada QBasic.

Source :  http://aldyputra.net/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Program Aplikasi Bangun Datar Sederhana Berbasis Visual Basic 6.0

Sebuah media pembelajaran berbasis visual basic 6.0 dengan materi Bangun Datar yang terdiri dari Persegi, Persegi Panjang, Jajargenjang, Belah Ketupat, Layang-Layang dan Trapesium. jadi dengan menggunakan program ini kalian bisa mempelajari Bangun Datar dengan sederhana dengan dilengkapi kuis untuk menguji kemampuan kalian. semoga bermanfaat ya bagi kalian semua 
Silahkan download programnya disini :

Download Program Aplikasi Bangun Datar Sederhana

Oia masukkan
Password installation : 123456789
username : melajahmatik dan password : melajahmatik
Nich sedikit gambaran tentang program yang akan di download






Semoga bermanfaat ya..jangan lupa kunjungi MelajahMaTIK lagi yach 
Salam Sukses untuk kita semua

Source :  http://melajahmatik.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Menampilkan dan Menghapus Data di VB. Net 2010

Siapkan Form Application pada VB. Net 2010

Masukkan Code berikut ini
Public Class Form1
‘—mengisi tindakan pada object Form dengan metode Load
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
‘—mengisi properti pada object Form
Me.Text = “Latihan Menampilkan dan Menghapus Data”
Me.ControlBox = False
Me.BackColor = Color.PeachPuff
Me.StartPosition = FormStartPosition.CenterScreen
‘—mengisi properti pada object Label
Me.LbNim.Text = “No. Induk Mahasiswa”
Me.LbNama.Text = “Nama Lengkap”
Me.LbKelamin.Text = “Jenis Kelamin”
Me.LbAlamat.Text = “Alamat Lengkap”
Me.LbKota.Text = “K o t a”
‘—mengisi tindakan pada objek Button
Me.BtList.Text = “&List”
Me.BtClear.Text = “&Clear”
Me.BtExit.Text = “&Exit”
End Sub
‘—mengisi tindakan pada objek Button list dengan metode Click
Private Sub BtList_Click(sender As System.Object, e As System.EventArgs) Handles BtList.Click
Me.TxtNim.Text = “2011-001″
Me.TxtNama.Text = “Anak Rantau”
Me.TxtKelamin.Text = “Laki-laki”
Me.TxtAlamat.Text = “Jatirasa Barat, Karang Pawitan”
Me.TxtKota.Text = “Karawang”
End Sub
‘—mengisi tindakan pada objek Button Clear
Private Sub BtClear_Click(sender As System.Object, e As System.EventArgs) Handles BtClear.Click
Me.TxtNim.Clear()
Me.TxtNama.Clear()
Me.TxtKelamin.Clear()
Me.TxtAlamat.Clear()
Me.TxtKota.Clear()
Me.TxtNim.Focus()
End Sub
‘—mengisi tindakan pada button Exit
Private Sub BtExit_Click(sender As System.Object, e As System.EventArgs) Handles BtExit.Click
Me.Close()
End Sub
End Class
Save dan coba di loading.., akan tampil seperti ini


selamat mencoba.
Atau download program disini.

Source :  http://ekosuhartono.blogdetik.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Program sederhana Memilih Menu Makan dengan VB.Net 10

Langsung saja di buka Vb.Net 10 kamu,

Pilih di menu Windows Form Application Visual basic
Isi pada kolom Nama, Trus OK
Buat Form seperti tampilan berikut

Kodenya seperti ini


Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add(”Pagi”)
ListBox1.Items.Add(”Siang”)
ListBox1.Items.Add(”Malam”)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
CheckedListBox1.Items.Add(”Tiwul”)
CheckedListBox1.Items.Add(”Nasi”)
CheckedListBox1.Items.Add(”Baso”)
Dim pilihan As String
pilihan = “Pilihanya….” + ListBox1.SelectedItem
TextBox1.Text = ListBox1.SelectedItem
MessageBox.Show(pilihan, “Menu saat ini adalah”, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim jumlah As Integer
jumlah = CheckedListBox1.CheckedItems.Count
MessageBox.Show(CStr(jumlah), “Pilihan Berjumlah”,
MessageBoxButtons.OK, MessageBoxIcon.Information)
If jumlah = 2 Then
CheckedListBox1.Items.Add(”Cukup”)
End If
End Sub
End Class
Coba di Debug ( Run ), jika benar hasilnya seperti ini



Selamat mencoba
Atau download Program Disini.

Source :  http://ekosuhartono.blogdetik.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Program Pada QBasic

Contoh Program Pertama

Ketikan coding pada program qbasic seperti Gambar 1.1.

Gambar 1.1

Setelah selesai, running program dengan menekan F5. Jika Nilai Praktikum lebih atau sama dengan 70, maka akan menampilkan output seperti Gambar 1.2.

Gambar 1.2

Lainnya akan menampilkan output seperti Gambar 1.3.

  Gambar 1.3

Contoh Program Kedua

 Ketikan coding pada program qbasic seperti Gambar 2.1.

 Gambar 2.1

Setelah selesai, running program dengan menekan F5. Maka akan menampilkan output seperti Gambar 2.2.

Gambar 2.2

 

Source :  http://trimaaja.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh-Contoh Looping Pada Visual Basic

Tipe 1

Private Sub Command1_Click()

x = Val(Text1)

For i = 1 To x

For j = 1 To i

Print j;

Next j

Print

Next i

End Sub

For i untuk menginput angka 1 sampai x

For j untuk menginput angka 1 sampai i

Jika x = 8 maka Print j akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 2

Private Sub Command2_Click()

x = Val(Text1)

For i = x To 1 Step -1

For j = 1 To i

Print j;

Next j

Print

Next i

End Sub

For i untuk menginput angka x sampai 1 dan selanjutnya dikurang 1

For j untuk menginput angka 1 sampai i

Jika x = 8 maka Print j akan mencetak angka 8, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Tipe 3

Private Sub Command3_Click()

x = Val(Text1.Text)

For a = 1 To x

For b = 1 To a

Print a;

Next b

Print

Next a

End Sub

For a untuk menginput angka 1 sampai x

For b untuk menginput angka 1 sampai a

Jika x = 8 maka Print a akan mencetak angka 1, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 4

Private Sub Command4_Click()

x = Val(Text1.Text)

For a = x To 1 Step -1

For b = 1 To a

Print a;

Next b

Print

Next a

End Sub

For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1

For b untuk menginput angka 1 sampai a

Jika x = 8 maka Print a akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Tipe 5

Private Sub Command5_Click()

x = Val(Text1.Text)

For i = 1 To x

For j = i To 1 Step -1

Print j;

Next j

Print

Next i

End Sub

For i untuk menginput angka 1 sampai x

For j untuk menginput angka i sampai 1 dan selanjutnya dikurang 1

Jika x = 8 maka Print i akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 6

Private Sub Command6_Click()

x = Val(Text1.Text)

For a = x To 1 Step -1

For b = a To 1 Step -1

Print b;

Next b

Print

Next a

End Sub

For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1

For b untuk menginput angka a sampai 1 dan selanjutnya dikurang 1

Jika x = 8 maka Print b akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Clear

Private Sub Command7_Click()

Form1.Cls

Text1.Text = ""

End Sub

Form1.Cls untuk menghapus seluruh cetakan yang berada di Form1

Text1.Text = "" untuk menghapus input yang berada di Text1

 

Source :  http://trimaaja.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.