Mengenal Bilangan Prima di Java

Dalam matematika, bilangan prima adalah bilangan asli yang lebih besar dari 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29. Pencarian bilangan prima dapat diterapkan dengan menggunakan program java, berikut source code nya:

/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/
package bil.prima;

/**
*
* @author Prima
*/
import java.util.Scanner;
public class BilPrima {


/**
* @param args the command line arguments
*/
public static void main(String[] args) {
int num = 0;
int menu= 0;
boolean iPrima = true;
Scanner scan = new Scanner(System.in);
do
{
System.out.println("Apakah nilai ini bilangan prima ?");
System.out.println("_________________________________");
System.out.print("Masukan Nilai : ");
num = scan.nextInt();
for (int i=2; i<=num/2; i++) {
if ((num % i) == 0) {
iPrima = false; break; } }
if (iPrima)
System.out.println (num +" adalah bilangan prima \n");
else
System.out.println (num +" bukan bilangan prima \n");
System.out.println ("-----------------------------");
System.out.println("Tekan 1 untuk Mengulang, Tekan 0 untuk KELUAR");
System.out.print("Pilihan : "); menu = scan.nextInt();
System.out.println(" ");
if (menu > 1 | menu < 0 ) {
System.out.println("Pilihan Salah"); break; } }
while(menu != 0);
System.out.print("Bye... "); } }

Program nya bisa didownload di sini

Read more »

Create Pdf With VB

Ketika user menginginkan sebuah laporan dengan format pdf maka suatu program harus ditambahkan sebuah button yang berfungsi untuk mengcreate laporan menjadi format pdf, source code dipalajari dari www.vb6.us download Source Codenya

Read more »

Visual Studio 6 Portable

Untuk teman-teman yang pengen belajar bahasa pemrograman Visual Basic, Foxpro , dan C++ dengan spec PC yang kurang memadai, kita sediakan Visual Studio 6 Portable yang tidak perlu diinstall, kapan kita perlu program baru dijalankan. Jadi....... Selamat meng coding.
Download Sotfware

Read more »

AT Command Siemens C55

AT Command adalah perintah-perintah yang digunakan dalam komunikasi dengan serial port. Dengan AT Command kita dapat mengetahui vendor dari Handphone yang digunakan, kekuatan sinyal, membaca pesan yang ada pada SIM Card, megirim pesan, mendeteksi pesan SMS baru yang masuk secara otomatis, menghapus pesan pada SIM Card dan masih banyak lagi.

Sebagian perintah AT Command adalah sebagai berikut :

AT Command	Keterangan
AT	Mengecek apakah Handphone telah terhubung
AT+CMGF	Untuk menetapkan format mode dari terminal
AT+CSCS	Untuk menetapkan jenis encoding
AT+CNMI	Untuk mendeteksi pesan SMS baru masuk secara otomatis
AT+CMGL	Membuka daftar SMS yang ada pada SIM Card
AT+CMGS	Mengirim pesan SMS
AT+CMGR	Membaca pesan SMS
AT+CMGD	Menghapus pasan SMS
ATE1	Mengatur ECHO
ATV1	Mengatur input dan output berupa naskah
AT+CGMI	Mengecek Merek HP
AT+CGMM	Mengecek Seri HP
AT+CGMR	Mengecek Versi Keluaran HP
AT+CBC	Mengecek Baterai
AT+CSQ	Mengecek Kualitas Sinyal
AT+CCLK?	Mengecek Jam (waktu) pada HP
AT+CALM=<n>	Mengecek Suara/dering HP saat di Telepon (ada Telepon Masuk) ‘n’ adalah adalah angka yang menunjukkan jenis dering 0 = berdering 1 dan 2 = Silent (Diam)
AT^SCID	Mengecek ID SIM CARD

Contoh AT Command untuk mengkonekkan Hp Siemens C55 dengan PC bisa didownload  di sini

Read more »

Konversi Biner ke Octal

Kali ini postingan tentang konversi bilangan biner ke octal, berikut potongan kode program nya :

Private Function BinaryToDecimal(ByVal BinValue As String) As Long
Dim lngValue As Long
Dim x As Long
Dim k As Long
k = Len(BinValue) 'will only work with 30 or fewer "bits"
For x = k To 1 Step -1 'work backwards down string
If Mid$(BinValue, x, 1) = "1" Then
If k - x > 30 Then
lngValue = lngValue Or -2147483648# 'avoid overflow error
Else
lngValue = lngValue + 2 ^ (k - x)
End If
End If
Next x
BinaryToDecimal = lngValue
End Function

Private Sub Command1_Click()
bil1 = BinaryToDecimal(Text1)
Text2.Text = Oct(bil1)
End Sub

Programnya silahkan didownload

Read more »

Delphi 7 Second Edition v7.2

Delphi merupakan salah satu bahasa pemrograman yang mengalami perkembangan sangat pesat di dunia khususnya di Indonesia. Banyak aplikasi dapat dikembangkan dengan Delphi seperti operasi perhitungan matematis, grafis, Pengolah kata, Spreet Sheet, games dan basis data. Dengan dukungan OOP Delphi mempunyai kemampuan yang sangat handal apalagi dengan adanya komunitas Delphi semakin memperjelas eksistensinya.
Download Software
Download E-Book

Read more »

Sort Ascending

Pogram sederhana untuk mengurutkan huruf maupun angka dari awal ke akhir, dan berikut tampilan programnya :

Source code silahkan download di sini

Read more »