Assalamualaikum warrohmatullahi wabarakatuh,apakah kabar semua sobat VB sebelumnya saya minta maaf kepada sobat vb semua selama ini saya telah pakum menulis artikel di blog ini karena kesibukan saya dalam menjalankan pekerjaan.
dan baru kali ini saya sempatkan diri menulis artikel kembali karena lagi ada waktu senggang.
oh ya..!!! pada postingan kali saya akan membagikan sebuah tip dan trik Bagaimana cara membuat bilangan urut prima dengan menggunakan visual Basic 6.0.
Sebelum kita ke tutorial mari kita cari tau dulu apakah yan dimaksud blangan prima itu?
Menurut sumber wikipedia Bilangan Prima adalah bilangan asli lebih dari 1 yang bukan hasil kali dari dua bilangan asli yang lebih kecil. Bilangan asli yang lebih dari 1 dan bukan bilangan prima disebut bilangan komposit.
Debelum ke tutorial mari kita flash back dulu, masih ingat kah kita ketika waktu masih sekolah SD kita pernah d berikan tugas rumah oleh guru kita salah satunya adalah mengurutkan bilangan prima namun dilakukan secara manual tetapi kali ini kita akan membuatnya dengan menggunakan program visual Basic 6.0 hanya dengan menekan tomol hitung dan hasilnya akan terlihat dalam hitungan detik.
Bagaimanakah Apakah Anda penasaran untuk membuatnya. Berikut adalah caranya:
Cara membuat bilangan urut prima dengan menggunakan visual Basic 6.0
1. Buka Progrm visual basic 6.0 Anda pilih New Project kemudian pilih Standar EXE dan OK
2. Langkah selanjutnya buatlah Form seperti pada gambar dibawah ini :
 |
| Desain Form Deret Bilangan Prima |
3. Atur Propertinyasebagai berikut :
| No | Toll Box | Properties | Keterangan |
|---|---|---|---|
| 1 | label1 | Caption : Deret Bilangan Prima | form1 |
| 2 | label 2 | Caption : Batas Atas | form1 |
| 3 | Label 3 | Caption : Batas Bawah | Form 1 |
| 4 | Label 4 | Caption : Banyak | Form 1 |
| 5 | Label 5 | Caption : Jumlah | Form 1 |
| 6 | Label 6 | Caption : Rata-rata | Form 1 |
| 7 | Label 7 | Caption : Label7 | Form 1 |
| 8 | Label 8 | Caption : Label8 | Form 1 |
| 9 | Label 9 | Caption : Label9 | Form 1 |
| 10 | Command1 | Caption : Hitung | Form 1 |
| 11 | Command2 | Caption : Bersih | Form 1 |
| 12 | Command3 | Caption : Keluar | Form 1 |
| 13 | Text1 | Text : Text1 | Form 1 |
| 14 | Text2 | Text : Text2 | Form 1 |
| 15 | List1 | List : (List) | Form 1 |
Baca juga : Mencari faktor dari suatu bilangan dengan vb6 , Cara menghitung rumus phitaghoras di vb6
Kalau Anda sudah yakin dengan langkah langkah di atas silakan Anda Run (Star), kalau program Anda sudah berhasil dijalankan silahkan anda ketik dan masukan angka batas atasdan batas bawah pada form kemudian tekan tombol Hitung
hasilnya akan terlihat pada gambar dibawah ini :
4. Setelah Anda mendasain form dan mengatur properti selanjutnya kita akan memberikan kodenya sebagai berikut:
Dim x, y As Integer
Private Sub Command1_Click()
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
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
List1.Clear
Text1.Text = ""
Text2.Text = ""
Label7.Caption = "0"
Label8.Caption = "0"
Label9.Caption = "0"
End Sub
 |
| Hasil Prorgram Bilangan Deret Prima di VB 6.0 |
Demikian tip dari saya bagaimana cara membuat bilangan urut prima dengan menggunakan visual Basic 6.0
Selamat mencoba semoga berhasil
No comments:
Post a Comment