Visual Basic ( Input Bilangan Dan Cetak )

Salam Sahabat Blogger..
Kali ini saya kembali isi absen untuk memposting beberapa pengalaman project sederhana yang saya pelajari selama menjadi mahasiswa Teknik Informatika di IBBI Medan..
Project sederhana visual basic kali ini merupahkan pengurutan bilangan dan melakukan penampilan dalam bentuk cetak.. Dalam project ini saya menerapkan konsep perulangan untuk menghasilkan tampilan visual yang penuh dalam percetakan..
Selamat Mencoba Sahabat..
Semangat3x..
Rezpec N Peace !!!

Koding :

Private Sub Check1_Click()
If Check1.Value = 0 Then
Text3.Text = ""
End If
End Sub

Private Sub Command1_Click() 'Ulang
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click() 'Cetak
Dim bill, bil2, bil3
bil1 = Val(Text1.Text)
bil2 = Val(Text2.Text)

Text3.Text = ""
For i = bil1 To bil2
Text3 = Text3 + Str(i)
Next i

If Check1.Value = 0 Then
Text3.Text = ""
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Check1.Value = 1
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="http://baim-blogs.blogspot.com/2013/09/visual-basic-input-bilangan-dan-cetak.html">Visual Basic ( Input Bilangan Dan Cetak )</a>