Fungsi Looping dalam VB.Net ( Looping functions in VB.Net )

Pertama buat project baru dengan form baru, sisipkan tiga buah combobox, combo box yang pertama berinama cmbtgl, combobox yang kedua berinama cmbbln, dan yang ketiga berinama cmbthn. Setelah itu ketikan coding di bawah ini tetapi coding ini ketikan setelah clik formnya.
Private Sub Form_Loop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bln(0) = "Januari"
bln(1) = "Februari"
bln(2) = "Maret"
bln(3) = "April"
bln(4) = "Mei"
bln(5) = "Juni"
bln(6) = "Juli"
bln(7) = "Agustus"
bln(8) = "September"
bln(9) = "Oktober"
bln(10) = "November"
bln(11) = "Desember"

For i = 1 To 31
cmbtgl.Items.Add(i)
Next

For j = 0 To 11
cmbbln.Items.Add(bln(j))
Next

For k = 1900 To 2050
cmbthn.Items.Add(k)
Next
End Sub


First create a new project with the new form, insert the three combobox, combo box the first name cmbtgl, the second combobox name cmbbln, and the third name cmbthn. After that when coding below but this coding Click after typing the form.
Private Sub Form_Loop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bln(0) = "Januari"
bln(1) = "Februari"
bln(2) = "Maret"
bln(3) = "April"
bln(4) = "Mei"
bln(5) = "Juni"
bln(6) = "Juli"
bln(7) = "Agustus"
bln(8) = "September"
bln(9) = "Oktober"
bln(10) = "November"
bln(11) = "Desember"

For i = 1 To 31
cmbtgl.Items.Add(i)
Next

For j = 0 To 11
cmbbln.Items.Add(bln(j))
Next

For k = 1900 To 2050
cmbthn.Items.Add(k)
Next
End Sub

Fungsi IF Dalam VB.Net ( IF functions In VB.Net )

Buatlah sebuah project dan Form. Dalam form tambahkan tujuh label,dua textbox, satu combobok, dan dua commandbuton.setelah itu beri nama di properties label 1 text = Nis, label 2 text = Nama, label 3 text = Kelas, label 4 text = Wali kelas, label 5 text = Kapasitas, label 6 text = kosongkan (beri tujuh spasi di text) borderstyle=fixedsingle, label 7 text = Kosongkan (beri tujuh spasi di text) borderstyle=fixedsingle, Commbobox1 item = xa xb xc, ommandbuton1 text=Simpan,dan ommandbuton2 text=Keluar
Ketikan coding dibawah ini
Private Sub commandbuton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
If rdlaki.Checked Then
jenkel = "Laki-Laki"
ElseIf rdperempuan.Checked Then
jenkel = "Perempuan"
Else
jenkel = "Blm dipilih"
End If

data = "Nama : " + txtnama.Text + Chr(13) + "Tempat : " + txttempat.Text + Chr(13) + _
"Tgl Lahir : " + cmbtgl.Text + "-" + cmbbln.Text + "-" + cmbthn.Text + Chr(13) + _
"Alamat : " + txtalamat.Text + Chr(13) + "Jenis Kelamin : " + jenkel

MsgBox(data, MsgBoxStyle.Information, "Pesan")

End Sub

Private Sub commbobox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkelas.SelectedIndexChanged
If cmbkelas.Text = "XA" Then
wali = "Darsini"
kapasitas = "40"
ElseIf cmbkelas.Text = "XB" Then
wali = "Waluyo"
kapasitas = "30"
Else
wali = "Paijo"
kapasitas = "20"
End If
lblwalikelas.Text = wali
lblkapasitas.Text = kapasitas
End Sub



Create a project and Form. Add in the form of seven labels, two textbox, one combobok, and two commandbuton.setelah was named properties in the label text = 1 Nis, label 2 text = name, label text = Class 3, 4 label text = Guardian class, text label 5 = Capacity, 6 label text = empty (give seven spaces in the text) borderstyle = fixedsingle, label text = Clear 7 (give seven spaces in the text) borderstyle = fixedsingle, Commbobox1 item = xa xb xc, text = ommandbuton1 Save, and text ommandbuton2 = Exit
When coding below
Private Sub commandbuton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
If rdlaki.Checked Then
jenkel = "Laki-Laki"
ElseIf rdperempuan.Checked Then
jenkel = "Perempuan"
Else
jenkel = "Blm dipilih"
End If

data = "Nama : " + txtnama.Text + Chr(13) + "Tempat : " + txttempat.Text + Chr(13) + _
"Tgl Lahir : " + cmbtgl.Text + "-" + cmbbln.Text + "-" + cmbthn.Text + Chr(13) + _
"Alamat : " + txtalamat.Text + Chr(13) + "Jenis Kelamin : " + jenkel

MsgBox(data, MsgBoxStyle.Information, "Pesan")

End Sub

Private Sub commbobox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkelas.SelectedIndexChanged
If cmbkelas.Text = "XA" Then
wali = "Darsini"
kapasitas = "40"
ElseIf cmbkelas.Text = "XB" Then
wali = "Waluyo"
kapasitas = "30"
Else
wali = "Paijo"
kapasitas = "20"
End If
lblwalikelas.Text = wali
lblkapasitas.Text = kapasitas
End Sub

Cara Menabah Form Dalam VB.Net (How to add a Form in VB.Net)

Pastikan anda sudah masuk ke project apabila belum bisa memulai projet lihat cara memulai Vb.Net.
1. Pilih menu Project Clik add windows form atau Clik kanan pada windows application yang berada di solution explorer pilih add Windows Form

Make sure you go to when the project can not start projet Vb.Net see how to get started.
1. Select the Project menu Click add windows form or Click on the right side windows application which is in the solution explorer select add Windows Form

Cara Memulai VB.Net (How To Start VB.Net)

Terlebih dahulu pastikan anda sudah menginstal VB.Net di Komputer anda
1.Clik Star dari Taskbar atau Clik Shortcut dari Windows
2.Pilih menu file clik new Project maka tampilan projek otomatis akan keluar for project lalu pilih Windows Application1 akan muncul form 1 secara automatis

1.Clik Star's Taskbar or from Windows Click Shortcut
Click the file menu 2.Pilih new Project then automatically display the projects will go out for project and select Windows Application1 will appear automatically form 1

Bertemu Teman SMA di Kota Tangerang

Hari libur datang lagi kini saatnya aku sendiri lagi tanpa aktivitas hanya buku pelajaran dan komputer yang menemani aku, hari sabtu temanku telepon dari Jakarta yang dulu teman SMA ku bahkan kelas 2 dan kelas 3 (IPA) aku selalu bersamanya atau bisa disebut satu kelas yah dia kuliah di UNJ ( Universitas Negri Jakarta) namanya muhamad awaludin dia mau maen tapi sambil mngerjakan tugas kulianhya katannya. aku berpikir kebetulan lah aku libur ga ada teman sexan belajar bareng dan akhirnya memutuskan maen hari minggi Tanggal 30 Juli 2006 ke tempatku.tak lama kemudian setelah berbincang2 ditelepon dapat telepon lagi dari Taupik yang dulu teman SMA juga tapi hanya kelas 3 (IPA) aku sekelasnya dan teman Main Volly Ball di SMA dia katanya sekarang kerja di Tangerang kataya daerah jatake kebetulan Kosan aku daerah jatake dan akhirnya dia memutuskan untuk maen hari minggu juga Tanggal 30 Juli 2006 sama seperti siawal dan aku bilang kebetulan siawal mau maen ke t4 ku T oh yang benar gus A yaiyalah T ok ntr aku jadi OK A OK telepon sudah selesai kini tinggal tunggu hari Minggu .hari minggu tiba mereka datang yang pertama awal dan yang kedua si taupik, hatiku sudah merasa senang karena bertemu teman SMA 10 Pandeglang di Kota Tangerang .setelah beberapa menit kami ngobrol mebicarakan masalah masing2 pada saat pertengahan pembicaraan si awal berkata Agus Subarnas di Tangerang juga daerah Gadjah Tunggal. teman SMA juga dia sekelas terus sama aku kelas 1, 2, dan 3 (IPA) l, aku telepon ternyata ia dia ada di daerah itu dan akhirnya aku jemput.inilah hasil jepretan waktu itu tapi sayang hanya sama Taupik yang ber empat ada sih ..

Terlihat Jelas Kebersamaan

Bukan hanya untuk mengisi kekosongan waktu pada saat libur tetapi menambah pengalaman dan rasa kekompakan bersama teman . tour ke Taman impian Jaya Ancol pada saat aku liburan bulan September 2007 ditempat itulah rasa kebersamaan tertanam dengan teman meskipun dalam kondisi keramaian aku dan teman2 selalu bersama2 kemana2 di lingkungkungan Taman impiana Jaya ancol.inilah hasil jepretan foto pada saat itu, yang sebelah kanan dari aku adalah Zamal biasa teman aku kerja dan sebelah kiri ku adalah keli biasa orang yang sering Tracking/mendaki ke gunung dengan ku dan satu kerjaaan satu bagian dengan ku :

Tutorial VB.Net

VB.net Adala bahasa pemograman yang beroriantasi obyek. banyak tutorial yang aku pelajarin dari kampus seperti :
PENGANTAR VB.NET

Dot NET Framework

Di luar beragamnya definisi .NET Framework, .NET Framework merupakan “Man Behind The Gun” dari VB.NET sehingga kita perlu megetahui jeroan dari teknologi yang ada di dalamnya.
Microsoft .NET adalah software yang menghubungkan informasi, orang, system dan device! Perangkat yang menjangkau client, server dan tool pengembang.
Microsoft .NET disusun oleh:

Dot NET Framework, digunakan untuk membangun dan menjalankan semua macam softwere termasuk aplikasi berbasis Web, aplikasi smart client, dan layanan web XML (Extensible Markup Language). Menyediakan komponen untuk berbagai data melalui Network menggunakan komponen platform protocol independent seperti XML, SOAP, dan HTTP.

Tool – tool pengembang seperti Microsoft VisualStudio .NET yang penyediaan IDE (Integrated Development Enveronment! lingkungan pengembangan terintegrasi) untuk memaksimalkan produktivitas pengembangan menggunakan .NET Framework.

Serangkaian server termasuk Microsoft Windows Servwr 2003, Microsoft SQL Server dan Micosoft BizTalk Server yang terintegrasi, untuk menjalankan, mengoprasikan dan mengelola services Web dan aplikasi berbasis Web.

Softwere client seperti Windows XP, windows CE dan Windows Office XP yang membantu pengembangan untuk menyebarkan dan mengelola aplikasinya.


.NET Platform merupakan satu set kumpulan teknologi yang memungkinkan teknologi Internet ditransformasikan ke dalam platform distributed computing dengan skalabilitas dan kompatibilitas tinggi. Secara teknikal, .NET Platform menyediakan konsep pemrograman dengan library dan modul-modul baru yang konsisten, terlepas dari jenis bahasa pemrograman yang digunakan.
.NET Platform menyediakan hal-hal berikut bagi para developer :
1)Language independent, dengan programming model yang konsisten di semua tier aplikasi yang dibangun.
2)Interoperability dan kompatibilitas antar aplikasi.
3)Kemudahan migrasi dari teknologi yang ada saat ini.
4)Dukungan penuh terhadap berbagai teknologi standar yang digunakan dalam platform internet, antara lain HTTP, XML, SOAP dan HTML.

Tracking Puncak Gunung Gede Pangrango - Cianjur ( 28 Desember 2008)

jika semua pasti mungkin tak ada yang putusasa, tapi perjalananku mendaki gunung gede pangrango cianjur sudah pasti aku lakukan pada hari minggu 28 Desember 2008 dengan teman ku yang bernama Keli.saya mendaki gunung gede pangrango emang sangat lelah sih tapi karen ingin melihat pemandangan yang indah, pengalaman yang luas, suhunya yang natural serta menghilangkan rasa kejenuhan saat aku ditinggal seseorang yang aku sayangi.

Computer

to the needs of our students both government and private is very important means of electronic Computers, because the computer can process data very quickly and accurately count only perdetik computer can process data billions. electronics is already widely used hamir from around the world.

Handphone

a number of community in the world is very when said they did not have any electronic equipment such as phone (mobile phone), this highly electronic help you to be in long-distance via voice especially nowadays already have a 3G means your voice is not even connected to the environment around you seen directly by the recipient.

laptop

development of electronic equipment called a laptop computer is very important for everyone especially you are very busy people, including in the workplace. electronic equipment is not only in not only in use by the workers and even students in the university have been widely used.