Visual Basic, Deret Bilangan Prima

Kali ini, program akan dibuat dalam aplikasi visual basic. Sedikit mengulas bahwa aplikasi visual basic adalah aplikasi pemrograman tingkat tinggi berbasis dekstop. Pada kasus ini, akan dibuat program deret bilangan prima dengan variasi batas bawah dan ata, menggunakan listbox dalam penampilan datanya. Langsung saja mari kita tengok programnya ;
Untuk codingnya dapat dilihat coding di bawah ini : (Jangan hanya di copy paste, tapi dipelajari ya!!!)

============================================
Dim x, y As Integer
Private Sub Command1_Click()
   Min = Val(Text1.Text)
   Max = Val(Text2.Text)
If Text1.Text = "" Then
MsgBox ("Batas bawah harus diisi")
End If
If Text2.Text = "" Then
MsgBox ("Batas atas harus diisi!")
End If
If ((Min <> 0) And (Max <> 0)) Then
   If Min <= 1 Then
   Min = 2
   End If
For x = Min To Max
z = 0
For y = 2 To x
   hasil = x Mod y
   If hasil = 0 Then
   z = z + 1
   End If
Next y
   If z <= 1 Then
   List1.AddItem (x)
   a = a + 1
   jml = jml + x
   End If
Label7.Caption = a
Label8.Caption = jml
Label9.Caption = Round(jml / a)
Next x
End If
End Sub
Private Sub Command2_Click()
List1.Clear
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Label7.Caption = "0"
Label8.Caption = "0"
Label9.Caption = "0"
End Sub
Private Sub Command3_Click()
End
End Sub
============================================

Sekian dan terima kasih, semoga bermanfaat. Jangan asal Copy Paste ya, tapi dipelajari dan dipahami, karena ada beberapa program  yang berbeda dan kurang tepat penulusan (spasi,dsb) karena keterbatasan alat dan bahan. Harap maklum. Terima Kasih

Oktober-November 2012
Kurnia Agung Pamungkas

No comments:

Post a Comment

Your comment is my spirit for writing. :)