Hello Semua, Sudah lama nih ngak buat artikel lagi, saya berharap semua dalam kedaan sehat dan sejahtera dalam kedamaian.
Nih saya mau Share nih mengenai VB. Net 2008 atau Visual Basic.Net 2008. Saya mau mencoba membuat suatu aplikasi sederhana, karna saya masih belajar maka saya berharap semua maklum dengan program yang sederhana saya kerjakan....
Pastinya sebelum membuat programnya tentulah harus menginstalkan dulu software yang mendukung pembuatannya.
Maka marilah kita belajar LOOPING/Perulangan dimana kita akan membuat perulangan 1 sampai 10 menggunkana bahasa VB.Net 2008.
Nih contoh gambarnya........
Source Codenya :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, x As Byte
For i = 1 To Val(TextBox1.Text)
For x = 1 To i
lv.Items.Add(x)
Next x
Next i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
lv.Clear()
TextBox1.Clear()
TextBox2.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
Dim y, q, z As Byte
y = 1
q = Val(TextBox1.Text)
TextBox2.Clear()
Do While y <= q
z = 1
'TextBox2.Text = TextBox2.Text & Space(q - y)
Do While z <= y
TextBox2.Text = TextBox2.Text & " " & z
z += 1
Loop
TextBox2.Text = TextBox2.Text & vbCrLf
y += 1
Loop
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Focus()
TextBox2.TextAlign = HorizontalAlignment.Center
End Sub
End Class
Semoga berhasi ya, semoga bermanfaat ya.....????
Create By : ICHE GUSTIYANI
Tidak ada komentar:
Posting Komentar