Saturday, March 22, 2014

Program Menampilkan Bilangan Ganjil dan Banyaknya Bilangan Ganjil pada Visual Basic

Program Menampilkan Jumlah Bilangan Ganjil dari suatu bilangan ( 1 sampai bilangan ke- x ) yang diinputkan di text box dan cacah atau banyaknya bilangan ganjil itu disebutkan. Bilangan ganjil itu apa saja gitu..\

Kode program yang di taruh di tombol CEK adalah :
sebenarnya hampir sama sih dengan mencari bilangan genap, hanya merubah 0 nya menjadi 1


Private Sub Command1_Click()
Dim Hasil As String
Dim i As Integer
For i = 1 To Val(Text1.Text)
If i Mod 2 = 1 Then
Hasil2 = Hasil2 + 1
Hasil = Hasil & i & ","
End If
Next
Label1.Caption = "bilangan genap dari 1 sampai " & Text1.Text & " ada " & Hasil2 & " yaitu " & Hasil
End Sub

Program Menampilkan Jumlah Bilangan Genap dan Bilangan Genap pada Visual Basic

Program Menampilkan Jumlah Bilangan Genap dari suatu bilangan ( 1 sampai bilangan ke- x ) yang diinputkan di text box dan cacah atau banyaknya bilangan genap itu disebutkan. Bilangan genap itu apa saja gitu..\


Kode program yang di taruh di tombol CEK adalah :

Wednesday, March 19, 2014

Membuat Listbox di Visual Basic 6.0 (Menambah, Menghapus, dan Memindah)

Sudah lama gak mempostingkan artikel di blog ini, dan ada kabar baik bagi pengunjung, sekarang blog ini ada kategori baru, yaitu kategori visual basic, dan ini adalah artikel pertama di blog ini tentang visual basic.




'Kode Untuk Tombol Add'
'(menambah daftar ke listbox, syarat jika daftar sudah ada maka tidak bisa tambahkan lagi / akan muncul peringatan)'