Cara Menentukan Batas Awal, Akhir Dan Menghitung List Box Pada VB 6.0

Created By ADI GUNAWAN BIRUN (MI 12017)

Hay halo semua para mas and mba browku yang cakep cakep.... walaupun lebih cakep saya sih pastinya hehehehe. . . .

Okay, kali ini saya akan berbagi dikit ilmu vb 6 yang mana saya akan berikan listing program untuk menentukan bilangan ganjil, genap dan juga menjumlahkan 2 list dengan 1 tombol... wah wah wah, pasti kalian dah gak sabar yah????

Okay... langsung ke TKP....

Buka Vb 6.0 kalian dan buat design program kayak punya saya (tapi terserah anda, designlah sesuai dengan kesukaan anda)...

Terus silahkan masukkan kode program berikut dalam tombol ‘Proses’:

Dim i, awal, akhir As Single

Dim total As Long

Dim t As Integer

List1.Clear

List2.Clear

awal = Val(Text1)

akhir = Val(Text2)

For i = awal To akhir

If i Mod 2 = 0 Then

List1.AddItem i

ElseIf i Mod 2 = 1 Then

List2.AddItem i

End If

Next

total = 0

For t = 0 To List1.ListCount - 1 And List2.ListCount - 1

total = total + Val(List1.List(t)) + Val(List2.List(t))

Next

    Text3.Text = total

End Sub

Dan hasil kerja programnya yakni seperti berikut :

Okay deh semuanya,,, gimana???? Bener gak punya kalian??? Semoga postingan ini bermanfaat yah.... salam kompak buat semuanya...

@Adhy Sahabatmu