Forum Informatika

Deret Bilanga Prima

Untuk detail logika / algoritma, serta contoh coding dalam C++ dan Java, silakan merujuk ke http://galih.eu/2009/06/24/algoritma-deret-bilangan-prima/

Berikut ini saya akan share, bagaimana menerapkannya dalam Visual Basic 6.

1. Siapkan desain awal program.



Komponen2:

• Form1
  Sebagai form utama. Beberapa properti yang diubah:
  - Caption : Deret Prima
  - Border Style : 1 - Fixed Single
  
• Label1 : Nilai Awal
• Label2 : Nilai Akhir
• Label4
  Untuk media penampil banyak data, jumlah data, dan rata-ratanya.
  Caption dikosongkan saja.
  
• Text1
  Textbox untuk memasukkan nilai batas bawah. Properti yang diubah:
  Alignment : 1 - Right Justify
  Text : 2 (angka default yang dimasukin ke textbox)
  
• Text2
  Textbox untuk memasukkan nilai batas atas. Properti yang diubah:
  Alignment : 1 - Right Justify
  Text : 20 (angka default yang dimasukin ke textbox)
  
• Text3
  Untuk menyimpan keluaran dari deret prima. Properti yang diubah:
  Locked : True (supaya read only)
  Multiline : True (supaya bisa menampung dalam banyak baris)
  ScrollBars : 2 - Vertical (jaga2 kalau datanya banyak)
  
• Command1
  Button / Tombol untuk membangkitkan proses penghasil deret prima.
  Caption : Proses
• Command2
  Button / Tombol untuk keluar dari program.
  Caption : Keluar

Kode Utama.

Option Explicit
'*******************************
' Developed by Galih Hermawan
' http://Galih.EU
' http://if.web.id
'*******************************
Private Sub Command1_Click()
    Dim min As Integer, max As Integer
    min = CInt(Text1.Text)
    max = CInt(Text2.Text)
    Text3.Text = vbNullChar
    Call prima(min, max)
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub prima(min, max As Integer)
    Dim i As Integer, j As Integer
    Dim banyak As Integer, jml As Integer, rata As Double
    Dim prima As Boolean
   
    banyak = 0
    jml = 0
   
    For i = min To max
        prima = False
        If (i = 2) Then
            prima = True
        Else
            For j = 2 To (i - 1)
                If (i Mod j = 0) Then
                    prima = False
                    Exit For
                Else
                    prima = True
                End If
            Next j
        End If
        If prima = True Then
            Text3.Text = Text3.Text & i & " "
            banyak = banyak + 1
            jml = jml + i
        End If
    Next i
    rata = Round(jml / banyak, 2)
    Label4.Caption = "Banyak bilangan = " & banyak & vbCrLf & _
                     "Jumlah total = " & jml & vbCrLf & _
                     "Rata-rata = " & rata
End Sub


Private Sub Form_Load()
    Label4.Caption = "Banyak bilangan = 0" & vbCrLf & _
                     "Jumlah total = 0" & vbCrLf & _
                     "Rata-rata = 0"
End Sub

Setelah program dieksekusi, akan nampak seperti pada gambar berikut:



Have fun!

gan bisa bantu cara bikin fungsi faktorial dan jumlah deret gg.?
tolong bantunanya gan.