√ Menciptakan Aktivitas Memilih Bilangan Prima Di Visual Basic 6.0

Dalam matematika, bilangan prima yaitu bilangan orisinil yang lebih besar atau sama dengan 1, yang faktor pembaginya hanya bilangan 1 dan bilangan itu sendiri. 2 dan 3 yaitu bilangan prima. 4 bukan bilangan prima sebab 4 bisa dibagi habis 2.

Jika suatu bilangan yang lebih besar dari satu bukan bilangan prima, maka bilangan itu disebut bilangan komposit. Cara paling sederhana untuk memilih bilangan prima yang lebih kecil dari bilangan tertentu yaitu dengan memakai saringan Eratosthenes yang ditunjukkan oleh gambar berikut.

Selain itu untuk memudahkan, kau bisa menciptakan sendiri aplikasi di PC untuk memilih apakah sebuah bilangan merupakan bilangan prima atau buka. Dengan kata lain menciptakan aplikasi prime number checker, yang bisa mengusut suatu bilangan prima atau bukan. Silakan ikuti langkah-langkah berikut ini:

1. Buka aplikasi Visual Basic 6.0 di PC kamu
2. Buatlah sebuah project yang berisi sebuah form
3. Tambahkan sebuah Textbox, sebuah Command Button, dan sebuah Label
4. Susun sesuai impian kamu, misalnya ibarat gambar berikut:

5. Masukkan arahan berikut pada project tersebut

Private Sub Command1_Click() Dim a As Integer Label1.Caption = "" a = Val(Text1.Text)  If Text1.Text = "" Then     Label1.Caption = "Masukkan bilangan yang benar"     Label1.ForeColor = &HFF& ElseIf a < 2 Then     Label1.Caption = (Str(a) + " bukan bilangan prima")     Label1.ForeColor = &HFF& ElseIf a = 2 Then     Label1.Caption = ("2 yaitu bilangan prima")     Label1.ForeColor = &HC000& Else     n = 2     Do         h = a Mod n         If h > 0 Then             n = n + 1         Else             Label1.Caption = (Str(a) + " bukan bilangan prima")             Label1.ForeColor = &HFF&             n = n + a         End If     Loop Until n >= a          If n = a Then         Label1.Caption = (Str(a) + " yaitu bilangan prima")         Label1.ForeColor = &HC000&     End If End If Text1.Text = a End Sub  Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then     KeyAscii = KeyAscii ElseIf KeyAscii = 46 Then     KeyAscii = KeyAscii ElseIf KeyAscii < 47 Or KeyAscii > 58 Then     KeyAscii = 0 End If End Sub

6. Setelah itu coba jalankan dan lihat hasilnya

Dengan memakai aktivitas tersebut kau bisa memilih apakah sebuah bilangan merupakan bilangan prima atau buka dengan gampang dan cepat. Selain itu untuk lebih mudahnya, kau bisa d0wnl0ad hasil aktivitas tersebut secara pribadi melalui link berikut ini: Google Drive atau ZippyShare.

Itulah beberapa langkah yang bisa kau lakukan untuk menciptakan aktivitas prime checker memakai aplikasi Visual Basic 6.0, atau dengan kata lain aplikasi yang sanggup mengusut bilangan prima.

Semoga artikel ini bisa bermanfaat untuk kamu, kalau ada hal yang kurang jelas, maka jangan sungkan untuk memberikan komentar kau di bawah atau melalui halaman contact blog ini. Terima kasih dan hingga jumpa!
Sumber http://www.maringngerrang.com/