(Solo OnlIne Community)
Anda hanya bisa melihat link dan forum tersembunyi apabila anda menjadi anggota dan telah mendaftar forum Solo Online Community.
langkah Pendaftaran:
1. Isi formulir di http://www.sonicsolo.org/
2. Tunggu konfirmasi dari admin
3. daftar di forum ini agar terhubung bersama kami.

by Admin SONIC



 
IndeksPortal BeritaCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Startup di Indonesia Perlu Kolaborasi Supaya Makin Sukses
Mon Jan 25, 2016 11:41 pm by silvester

» Koperasi Bersama Startup Digital Solo Telah Terbentuk!
Mon Jan 25, 2016 12:11 pm by silvester

» Hidupkan Forum Online SONIC kembali
Mon Jan 25, 2016 12:08 pm by silvester

» Arab Saudi Ingin Akhiri Anonim Pada Twitter
Mon Apr 22, 2013 12:00 pm by Ardhy

» Malware Baru di Android
Mon Apr 22, 2013 11:44 am by Ardhy

» Info Kegiatan Solo April - Mei 2013
Wed Apr 17, 2013 2:11 pm by silvester

» WhatsApp "Lebih Besar" daripada Twitter
Wed Apr 17, 2013 1:46 pm by Ardhy

» Info Event Kota Solo April 2013
Fri Apr 05, 2013 11:03 am by Ardhy

» CEO Raksasa Game EA Mengundurkan Diri
Sat Mar 23, 2013 4:57 am by Ardhy

Official Partner
Space

Space


Share | 
 

 (VISUAL BASIC) Source Code Bilangan Prima

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Ardhy
Admin


Jumlah posting : 246
Koin : 9
Join date : 14.02.12
Lokasi : Surakarta

PostSubyek: (VISUAL BASIC) Source Code Bilangan Prima   Tue Mar 20, 2012 9:37 pm

Source code di VB untuk mencari bilagan prima Untuk yang :
1. bilangan prima yang lebih Kecil dari pada Nilai X
2. bilangan yang prima yan lebih besar dari pada Nilai Y.
Quote :

Dim nilai, x
If Text1.Text = "" Then
MsgBox "Masukkan angka dulu, jeng..", vbInformation + vbOKOnly, "Error"
Text1.SetFocus
ElseIf Val(Text1.Text) <= "0" Then
MsgBox "Masukkan angka lebih besar dari 0, jeng..", vbInformation + vbOKOnly, "Error"
Text1.SetFocus
ElseIf Val(Text1.Text) = "1" Or Val(Text1.Text) = "2" Then
MsgBox Text1.Text & "Bukan bilangan prima ki", vbInformation + vbOKOnly, "Informasi"
Text1.SetFocus
Else
For i = 2 To (Val(Text1.Text) - 1)
nilai = Val(Text1.Text) Mod Val(i)
If nilai = "0" Then
x = x + 1
Exit For
End If
Next i

If x > 0 Then
MsgBox Text1.Text & " Buka Bilangan Prima, jeng..."
Else
MsgBox Text1.Text & " Nah ki baru Bilangan Prima, jeng.."
End If
End If
End Sub


_________________
INGAT!!! gw ganteng Ganteng Ganteng
Kembali Ke Atas Go down
Lihat profil user http://forum.sonicsolo.org/ardhy
 
(VISUAL BASIC) Source Code Bilangan Prima
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» PROJECT VISUAL NOVEL[Need Volunteer]
» Arti Cinta
» Hanya Sebuah Kalimat Sederhana
» film detective
» Minta pendapat mau beli helm dengan budget terbatas!

Permissions in this forum:Anda tidak dapat menjawab topik
(Solo OnlIne Community) :: Berbagi Ilmu :: Programer-
Navigasi: