Belajar Logika dan Pemrograman

html

head
titleBrowser Informatio/title>

/head

body onload="info()"


h1Browser Information/h1
table border="1" width="400"
tr
thCode Name/th
td:/td
td id="code" /td
/tr

tr
thName/th
td:/td
td id="name" /td
/tr

tr
thVersion/th
td:/td
td id="version" /td
/tr

tr
thUser Agent/th
td>:/td
td id="agent" /td
/tr

tr
thPlatform/th
td:/td
td id="platform" /td
/tr
/table

script type="text/javascript"
document.getElementById("code").innerHTML = navigator.appCodeName;
document.getElementById("name").innerHTML = navigator.appName;
document.getElementById("version").innerHTML = navigator.appVersion;
document.getElementById("agent").innerHTML = navigator.userAgent;
document.getElementById("platform").innerHTML = navigator.platform;
/script
/body

/html

Download...

html

head
titleHTML DOM Table Object/title
/head

body
script type="text/javascript"
var p1 = document.createElement("p");
var t_p1 = document.createTextNode("Table Object Properties");
p1.appendChild(t_p1);

var table = document.createElement("table");
table.setAttribute("border","1");
table.setAttribute("width","500");
var tr1 = document.createElement("tr");
var th1_1 = document.createElement("th");
var th1_2 = document.createElement("th");
var t_th1_1 = document.createTextNode("Property");
var t_th1_2 = document.createTextNode("Description");
th1_1.appendChild(t_th1_1);
th1_2.appendChild(t_th1_2);
tr1.appendChild(th1_1);
tr1.appendChild(th1_2);
table.appendChild(tr1);

var tr2 = document.createElement("tr");
var td2_1 = document.createElement("td");
var td2_2 = document.createElement("td");
var t_td2_1 = document.createTextNode("border");
var t_td2_2 = document.createTextNode("Sets or returns the width of the table border");
td2_1.appendChild(t_td2_1);
td2_2.appendChild(t_td2_2);
tr2.appendChild(td2_1);
tr2.appendChild(td2_2);
table.appendChild(tr2);

var tr3 = document.createElement("tr");
var td3_1 = document.createElement("td");
var td3_2 = document.createElement("td");
var t_td3_1 = document.createTextNode("caption");
var t_td3_2 = document.createTextNode("Sets or returns the caption of a table");
td3_1.appendChild(t_td3_1);
td3_2.appendChild(t_td3_2);
tr3.appendChild(td3_1);
tr3.appendChild(td3_2);
table.appendChild(tr3);

document.body.appendChild(p1);
document.body.appendChild(table);
/script
/body
/html

Download...

html

head
titleTanggal & Waktu Sistem/title
script type="text/javascript"
function mulai(){
var nama_hari = new Array("Minggu","Senin","Selasa","Rabu","Kamis","Jumat","Sabtu");
var nama_bulan = new Array("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");
var tanggal = new Date();
var hour = tanggal.getHours();
var minute = tanggal.getMinutes();
var second = tanggal.getSeconds();
var tgl = tanggal.getDate();
var day = tanggal.getDay();
var month = tanggal.getMonth();
var year = tanggal.getFullYear();
if(minute<10) minute="0"+tanggal.getMinutes();
if(second<10) second= "0"+tanggal.getSeconds();


document.getElementById("wkt").innerHTML = "Waktu: " + hour + ":" + minute + ":" + second;
document.getElementById("tgl").innerHTML = "Hari: " + nama_hari[day] + "," + tgl + " " + nama_bulan[month] + " " + year;
t = setTimeout("mulai()",1000);
}

/script
/head

body onload="mulai()"

/body
/html

Download...

import java.util.Scanner;

public class soal3
{
public static void main(String []args)
{
String nama,barang;
int harga,jumlah,total;
double td,pa;
Scanner input;
input = new Scanner (System.in);
System.out.print("nama pelanggan : ");
nama = input.nextLine();
System.out.print("nama barang : ");
nama = input.nextLine();
System.out.print("Harga Satuan : ");
harga = input.nextInt();
System.out.print("jumlah pembelian : ");
jumlah = input.nextInt();

total=harga * jumlah;
td = 0.05*total;
pa=total-td;

System.out.print("harga total :"+" "+pa);
System.out.println();
}
}

Download...

import java.util.Scanner;

public class prima
{
public static void main(String []args)
{
int n,a,b=14,c;
a=b=1;
Scanner input;
input = new Scanner (System.in);
System.out.print("input n : ");
n = input.nextInt();
int[]x=new int [n+1000];
for (int i=15;i<=n;i++)
{
if(i%2!=0 && i%3!=0 && i%5!=0 && i%7!=0 && i%11!=0 &&
i%13!=0 && i%17!=0 && i%19!=0 && i%23!=0 && i%29!=0 &&
i%31!=0 && i%37!=0 && i%41!=0 && i%43!=0)
{
x[i]=i;
}
}
x[0]=2; x[1]=3; x[2]=5; x[3]=7; x[4]=11; x[5]=13; x[6]=17; x[7]=19; x[8]=23;
x[9]=29; x[10]=31; x[11]=37; x[12]=41; x[13]=43;
for(int j=0;j System.out.print(x[j]+" ");
System.out.println();
}

}

Download...

import java.util.Scanner;

public class fibo
{
public static void main(String []args)
{
long n,a,b,c;
a=b=1;
Scanner input;
input = new Scanner (System.in);
System.out.print("input n : ");
n = input.nextInt();
System.out.print("1 1 ");
for (int i=3;i<=n;i++)
{
c=a+b;
a=b;
b=c;
System.out.print(c + " ");
}
System.out.println();

}
}

Download...

import java.util.Scanner;

public class Pegawai
{
public static void main(String[] args)
{
System.out.printf("Masukkan Nama ! ");
String na = new Scanner(System.in).nextLine();

System.out.printf("Masukkan Nim ! ");
String ni = new Scanner(System.in).nextLine();

System.out.printf("Masukkan lama Kerja ! ");
int la = new Scanner(System.in).nextInt();

System.out.printf("Masukkan Gaji pokok ! ");
int ga = new Scanner(System.in).nextInt();

Kelas_pegawai staf = new Kelas_pegawai(na, ni, la, ga);

System.out.printf("\n\n\n");

System.out.println("Nama Pegawai : "+staf.getNama());
System.out.println("NIM Pegawai : "+staf.getNim());
System.out.println("Lama Kerja : "+staf.getLama());
System.out.println("Gaji Pegawai : "+(int)staf.getGaji());
System.out.println("Bonus Pegawai : "+(int)staf.bonus());
System.out.println("Pajak Pegawai : "+(int)staf.pajak());
System.out.println("Gaji Bersih Pegawai : "+(int)staf.gaji());
}
}

public class Kelas_pegawai
{
//Atribut
private String nama, nim;
private int lama_kerja;
private int gaji_pokok;

//Konstruktor
public Kelas_pegawai(String nama, String nim, int lama_kerja, int gaji_pokok)
{
this.nama = nama;
this.nim = nim;
this.lama_kerja = lama_kerja;
this.gaji_pokok = gaji_pokok;
}

//Method aksesor
public String getNama()
{
return nama;
}

public String getNim()
{
return nim;
}

public int getLama()
{
return lama_kerja;
}

public int getGaji()
{
return gaji_pokok;
}

//Method Mutator
public void setNama(String a)
{
this.nama = a;
}

public void setNim(String b)
{
this.nim = b;
}

public void setLama(int c)
{
this.lama_kerja = c;
}

public void setGaji(int d)
{
this.gaji_pokok = d;
}

//Method Perhitungan
public double bonus()
{
double bns=0;

if(lama_kerja<1)
{
bns = 1.5 * gaji_pokok;
}
else if(lama_kerja>=1 && lama_kerja<=3)
{
bns = 2.0 *gaji_pokok;
}
else if(lama_kerja>3)
{
bns = 5.0 *gaji_pokok;
}
return(bns);
}

public double pajak()
{
double pjk=0;

if(gaji_pokok<1000000)
{
pjk = gaji_pokok*0.05;
}
else if(gaji_pokok>=1 && gaji_pokok<=5)
{
pjk = gaji_pokok*0.1;
}
else if(gaji_pokok>5)
{
pjk = gaji_pokok*0.15;
}
return(pjk);
}

public double gaji()
{
return(gaji_pokok+bonus()-pajak());
}


public String toString()
{
return
"NAMA : "+getNama() + "\n" +
"NIM : "+getNim() + "\n" +
"LAMA : "+getLama() + "\n" +
"Gaji : "+getGaji() + "\n\n";

}
}

Download...

public class demodepartemen
{
public static void main(String[] args)
{
Kelas_pegawai A = new Kelas_pegawai("Ucok", "111", 8, 1000000);
Kelas_pegawai B = new Kelas_pegawai("Udin", "121", 7, 2000000);
Kelas_pegawai C = new Kelas_pegawai("Ipin", "106", 5, 3000000);
Kelas_pegawai D = new Kelas_pegawai("Ahmad", "043", 6, 4000000);
Kelas_pegawai E = new Kelas_pegawai("Butet", "136", 10, 5000000);

departemen F = new departemen("0911");

F.terima(A);
F.terima(B);
F.terima(C);
F.terima(D);
F.terima(E);
System.out.print(A);
System.out.print(B);
System.out.print(C);
System.out.print(D);
System.out.print(E);


System.out.println("Setelah Naik Gaji 10%");
F.naik_gaji(0.1);

System.out.print(A);
System.out.print(B);
System.out.print(C);
System.out.print(D);
System.out.print(E);

System.out.println("PECAT");
F.pecat("106");
System.out.print(A);
System.out.print(B);
System.out.print(C);
System.out.print(D);
System.out.print(E);


System.out.println("Rata - rata gaji : "+F.rata2_pokok());
System.out.println("Rata - rata lama : "+F.rata2_lama());
System.out.println("Rata - rata bersih : "+F.rata2_gaji());
//System.out.print(F.getMerek());
}
}

import java.util.ArrayList;

public class departemen
{
private ArrayList p;
private String merek;

public departemen(String merek)
{
p = new ArrayList();
this.merek = merek;
}

public String getMerek()
{
return merek;
}
public void terima(Kelas_pegawai c)
{
p.add(c);
}

public void pecat(String nim)
{
for(Kelas_pegawai c:p)
{
if(c.getNim()==nim)
{
p.remove(c);
break;
}
}
}

public void naik_gaji(double persen)
{
for(Kelas_pegawai c:p)
{
int naik=0;
int jum =c.getGaji();
naik = (int)(c.getGaji()*persen);
jum = jum + naik;
c.setGaji(jum);
}
}

public double rata2_pokok()
{
int jumlah=0;

for(Kelas_pegawai c:p)
{
jumlah = jumlah + c.getGaji();
}

return(jumlah / p.size());
}

public double rata2_lama()
{
int jumlah = 0;
for(Kelas_pegawai c:p)
{
jumlah = jumlah + c.getLama();
}
return(jumlah/p.size());

}

public int rata2_gaji()
{
double jumlah=0;
for(Kelas_pegawai c:p)
{
jumlah = jumlah + c.gaji();
}
return((int)(jumlah/p.size()));
}

public int jumlahStaf()
{
int jum=0;
for(Kelas_pegawai c:p)
{
jum++;
}
return(jum);
}
}

Download...

#include stdio.h
#include stdlib.h
#include conio.h

main()
{
int i,j,a[i];
printf ("masukkan 10 data\n");
for (i=0; i<10;i++) i="0;" i="0;" j="0;">9-i)
{
printf("*");
}
else
{
printf (" ");
}
}
printf("\n\r");
}
getch();
}

#include stdio.h
#include conio.h

main ()
{
int n,i,j,c=0;
printf("masukkan N=");
scanf("%d",&n);

for (i=1;i<=n;i++) { c=c+1; for (j=1;j<=c;j++) printf(" * "); printf("\n"); } getch(); }

Download...

Public Class Form1

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
TxtBatas.Clear()
LblHasil.Text = " "
TxtBatas.Focus()

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
Me.Close()

End Sub

Private Sub BtnJumlah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnJumlah.Click
'Dengan Statement for........Next
Dim i, total As Integer
total = 0
For i = 1 To Val(TxtBatas.Text)
total = total + 1

Next
LblHasil.Text = total
End Sub
End Class

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DtpTglPertama.Format = DateTimePickerFormat.Custom
DtpTglPertama.CustomFormat = "dd-MMMM-yyyy"
DtpTglKedua.Format = DateTimePickerFormat.Custom
DtpTglKedua.CustomFormat = "dd-MMMM-yyyy"


End Sub

Private Sub BtnSelisih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelisih.Click
Dim TglPertama, TglKedua As Date
TglPertama = Format(DtpTglPertama.Value, "dd-MMMM-yyyy")
TglKedua = Format(DtpTglKedua.Value, "dd-MMMM-yyyy")
LblSelisih.Text = Math.Abs(DateDiff(DateInterval.Day, TglPertama, TglKedua)) & " Hari"

End Sub
End Class

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Minimum = 0
TrackBar1.Maximum = 100
TrackBar1.SmallChange = 1
TrackBar1.LargeChange = 1
TrackBar1.TickFrequency = 5
TrackBar1.Value = 0

End Sub

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Dim Reamur, Fahrenheit As Single
Reamur = 4 / 5 * TrackBar1.Value
Fahrenheit = 9 / 5 * TrackBar1.Value
LblKonversi.Text = "Suhu " & TrackBar1.Value & " Derajat sama dengan " & Format(Reamur, "0.00") & " Reamur dan " & Format(Fahrenheit, "0.00") & " Fahrenheit"
End Sub
End Class

Public Class Form1

Dim P As Integer

Sub Bersih()
TxtN.Text = " "
TxtR.Text = " "
LblHasil.Text = " "
TxtN.Focus()

End Sub
Function faktorial(ByVal A As Integer) As Long
Dim f As Long
Dim i As Integer
f = 1
For i = 2 To A
f = f * i

Next
faktorial = f

End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Bersih()

End Sub

Private Sub BtnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKosong.Click
Call Bersih()

End Sub

Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
P = faktorial(TxtN.Text) / faktorial(TxtR.Text)
LblHasil.Text = P
End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
Me.Close()

End Sub
End Class

Public Class Form1
Dim P As Integer
Sub Bersih()
TxtN.Text = " "
TxtR.Text = " "
LblHasil.Text = " "
TxtN.Focus()

End Sub

Function faktorial(ByVal A As Integer) As Long
Dim f As Long
Dim i As Integer
f = 1
For i = 2 To A
f = f * i

Next
faktorial = f

End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Bersih()

End Sub

Private Sub BtnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKosong.Click
Call Bersih()

End Sub

Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
P = faktorial(TxtN.Text) / (faktorial(TxtN.Text - TxtR.Text) * faktorial(TxtR.Text))
End Sub
End Class

Public Class Form1

Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
If MessageBox.Show("Apakah Data Yang Anda Masukkan Sudah Benar?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
TxtNim.Clear()
TxtNama.Clear()
TxtNim.Focus()
Else
TxtNim.Focus()

End If
End Sub
End Class

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LblKota.Text = " "
tipToolTip.setToolTip(LblNAD, "Banda Aceh")
tipToolTip.SetToolTip(LblSumut, "Medan")

End Sub

Private Sub BtnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelesai.Click
Me.Close()

End Sub

Private Sub LblNAD_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblNAD.MouseHover

LblKota.Text = "Banda Aceh"
End Sub



Private Sub LblNAD_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblNAD.MouseLeave
LblKota.Text = " "

End Sub

Private Sub LblSumut_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblSumut.MouseHover
LblKota.Text = tipToolTip.GetToolTip(LblSumut)


End Sub

Private Sub LblSumut_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblSumut.MouseLeave
LblKota.Text = " "

End Sub
End Class

Public Class Form1

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
BtnProses.Enabled = False
PbrProses.Value = PbrProses.Minimum
PbrProses.Visible = True
TmrProses.Enabled = True


End Sub

Private Sub PbrProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PbrProses.Click
LblPersen.Text = " "
PbrProses.Minimum = 1
PbrProses.Maximum = 100
PbrProses.Step = 1
PbrProses.Visible = False




End Sub

Private Sub TmrProses_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrProses.Tick
If PbrProses.Value = PbrProses.Maximum Then
BtnProses.Enabled = True
TmrProses.Enabled = False

End If
PbrProses.PerformStep()
LblPersen.Text = PbrProses.Value * PbrProses.Maximum / 100 & "%"
End Sub
End Class

Public Class Form1

Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
LblVolume.Text = 22 / 7 * TxtJari.Text * TxtTinggi.Text
End Sub

Private Sub BtnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKosong.Click
TxtJari.Text = " "
TxtTinggi.Text = " "
LblVolume.Text = " "
TxtJari.Focus()

End Sub
End Class

.Model Small
.Code
org 100h

Start :
jmp mulai
welcome DB 'Program Untuk Menghitung Jumlah Vokal'
DB 13,10,'dan Konsonan dalam Suatu Kalimat'
DB 13,10,'-------------------------------------',13,10,'$'
tanya DB 'Ketikkan suatu kalimat : $'
buffer DB 30,?,30 DUP (?)
vokal DB 13,10,'Jumlah Huruf Vokal = $'
konsonan DB 13,10,'Jumlah Huruf Konsonan = $'

mulai :
mov ah,09
lea dx,welcome
int 21h

mov ah,09
lea dx, tanya
int 21h

mov ah,0Ah
lea dx, buffer
int 21h ; input dari keyboard

lea bx, buffer+2

mov al,00
compare :
cmp byte ptr [bx], 0dh
je exit
cmp byte ptr [bx], 'a'
je c_vokal
cmp byte ptr [bx], 'e'
je c_vokal
cmp byte ptr [bx], 'i'
je c_vokal
cmp byte ptr [bx], 'o'
je c_vokal
cmp byte ptr [bx], 'u'
je c_vokal

cmp byte ptr [bx], 20h
je c_kons

inc bx
add al,1 ; isi dari consonant
loop compare

c_vokal :
add dh,1 ; isi dari vocal
inc bx
add al,1
loop compare

c_kons :
inc bx
loop compare

exit :
;mov dl,6
;count dl

sub al,dh
add al,1
push dx ; simpan isi dari dh (untuk vocal)

push ax ; simpan isi dari al (untuk consonant)
mov ah,09
mov dx, offset konsonan
int 21h

pop ax ; pop al
mov bl,10
mov al,al
mov ah,0
div bl
push ax

mov dl,al
add dl,30h
mov ah,2
int 21h

pop ax
mov dl,ah
mov ah,2
add dl,30h
int 21h

pop dx ; pop dh
;.............................................

sub dh,1
push dx
mov ah,09
mov dx,offset vokal
int 21h

pop dx
mov bl,10
mov al,dh
mov ah,0
div bl
push ax

mov dl,al
add dl,30h
mov ah,2
int 21h

pop ax
mov dl,ah
mov ah,2
add dl,30h
int 21h

int 20h
end start

.Model Small
.code
org 100h

start :
jmp mulai
welcome DB 'Program Untuk Mengkonversi'
DB 13,10,'Kalimat dari huruf besar ke'
DB 13,10,'kecil dan sebaliknya'
DB 13,10,'===========================',13,10,'$'
tanya DB 'Masukkan suatu kalimat : $'
buffer DB 30,?,30 DUP (?)
kal_konv DB 13,10,'Kalimat yang sudah dikonversi : $'

mulai :
mov ah,09
lea dx, welcome
int 21h

mov ah,09
lea dx, tanya
int 21h

mov ah,0Ah
lea dx, buffer
int 21h

mov ah,09
mov dx, offset kal_konv
int 21h

lea bx, buffer+2

compare :
cmp byte ptr [bx],0dh
je exit
cmp byte ptr [bx],20h
je space
cmp byte ptr [bx],5Ch
jae f_kecil
cmp byte ptr [bx],5Bh
jbe f_besar
inc bx
loop compare

f_kecil :
mov ah,2
mov dl,[bx]
sub dl,20h
int 21h
inc bx
loop compare

f_besar :
mov ah,2
mov dl,[bx]
add dl,20h
int 21h
inc bx
loop compare

space :
mov dl,[bx]
mov ah,2
int 21h
inc bx
loop compare

exit :
int 20h

end start

Readkey MACRO ; Fungsi untuk pembentukan Titik
mov ah,00
int 16h
endm

SetCRT MACRO Mode ; pemanggilan untuk fungsi Mode Grafiknya
mov ah,00
mov al,Mode
int 10h
endm

PutPixel MACRO X,Y,Warna
push ax
push bx
push cx
push dx
mov ah,12
mov cx,x
mov dx,y
mov al,warna
int 10h
pop dx
pop cx
pop bx
pop ax
endm

delay macro
local ulang
local ulang2
push cx
mov cx,50
ulang :
push cx
mov cx,0
ulang2 :
loop ulang2
pop cx
loop ulang
pop cx
endm


GarisKiri MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
sub dx,ax
add bx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm


GarisKanan MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
add dx,ax
add bx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm

aksidatar MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov cx,panjang
ulang :
PutPixel bx,y1,warna
delay
add bx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm

aksi3 MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
add bx,ax
add bx,ax
add bx,ax
add dx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm


aksi5 MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
add bx,ax
add bx,ax
add bx,ax
sub dx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm


Bintang MACRO klm,brs,panjang,warna
gariskiri klm,brs,panjang,1,warna
gariskanan klm+panjang,brs-panjang,panjang,1,warna
gariskiri klm+panjang*2,brs,panjang,1,warna-2
gariskanan klm+panjang*3,brs-panjang,panjang,1,warna-2
gariskiri klm+panjang*4,brs,panjang,1,warna-3
gariskanan klm+panjang*5,brs-panjang,panjang,1,warna-3

gariskiri klm+panjang*6,brs,panjang,-1,warna-3
gariskanan klm+panjang*5,brs+panjang,panjang,-1,warna-3
gariskiri klm+panjang*4,brs,panjang,-1,warna-2
gariskanan klm+panjang*3,brs+panjang,panjang,-1,warna-2
gariskiri klm+panjang*2,brs,panjang,-1,warna
gariskanan klm+panjang,brs+panjang,panjang,-1,warna

aksi5 klm,brs,panjang*2/3,1,warna
aksidatar klm+panjang*2,brs-panjang*2/3,panjang*2,-1,warna
aksi3 klm,brs-panjang*2/3,panjang*2/3,1,warna
aksi5 klm+panjang*2,brs,panjang*2/3,1,warna-2
aksidatar klm+panjang*4,brs-panjang*2/3,panjang*2-2,-1,warna-2
aksi3 klm+panjang*2,brs-panjang*2/3,panjang*2/3,1,warna-2
aksi5 klm+panjang*4,brs,panjang*2/3,1,warna-3
aksidatar klm+panjang*6,brs-panjang*2/3,panjang*2-2,-1,warna-3
aksi3 klm+panjang*4,brs-panjang*2/3,panjang*2/3,1,warna-3

aksi5 klm+panjang*6,brs,panjang*2/3,-1,warna-3
aksidatar klm+panjang*4,brs+panjang*2/3,panjang*2-2,1,warna-3
aksi3 klm+panjang*6-2,brs+panjang*2/3,panjang*2/3,-1,warna-3
aksi5 klm+panjang*4,brs,panjang*2/3,-1,warna-2
aksidatar klm+panjang*2,brs+panjang*2/3,panjang*2-2,1,warna-2
aksi3 klm+panjang*4-2,brs+panjang*2/3,panjang*2/3,-1,warna-2
aksi5 klm+panjang*2,brs,panjang*2/3,-1,warna
aksidatar klm,brs+panjang*2/3,panjang*2-2,1,warna
aksi3 klm+panjang*2-2,brs+panjang*2/3,panjang*2/3,-1,warna

endm


.Model small
.code
org 100h

proses :
SetCRT 13h ;PENGEMBALIAN MODE GRAFIKNYA
bintang 50,60,30,10
;bintang 19,150,70,10
Readkey
SetCRT 03h
int 20h
end proses

Public Class MiniWorPad
Dim Frm As Form
Dim Tmp As System.IO.TextReader
Private Sub MiniWordPad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BkDlg.Title = "Baca File Teks"
BkDlg.Filter = "File Teks.RTF |*.RTF"
SmpnDlg.Title = "Simpan File Teks"
SmpnDlg.Filter = "File Teks.RTF |*.RTF "
TlsnDlg.FontMustExist = True
TlsnDlg.ShowApply = True
TlsnDlg.ShowEffects = True
WrnDlg.FullOpen = True
Me.IsMdiContainer = True
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
BkDlg.ShowDialog()
On Error GoTo Batal
Tmp = New System.IO.StreamReader(BkDlg.FileName)
RTB.Text = Tmp.ReadToEnd
Tmp.Close()
Exit Sub
Batal:
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
SmpnDlg.FileName = ""
SmpnDlg.ShowDialog()
On Error GoTo Batal
Dim Tmp As System.IO.TextWriter
Tmp = New System.IO.StreamWriter(SmpnDlg.FileName)
Tmp.Write(RTB.Text)
Tmp.Close()
Exit Sub
Batal:
End Sub
Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
TlsnDlg.ShowDialog()
RTB.Font = TlsnDlg.Font
End Sub
Private Sub FontDlg_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TlsnDlg.Apply
RTB.Font = TlsnDlg.Font
End Sub

Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
WrnDlg.ShowDialog()
RTB.ForeColor = WrnDlg.Color
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
RTB.Clear()
End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
RTB.Cut()
End Sub
Private Sub BulletToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BulletToolStripMenuItem.Click
If RTB.SelectionBullet = False Then
RTB.SelectionBullet = True
ElseIf RTB.SelectionBullet = True Then
RTB.SelectionBullet = False
End If
End Sub
Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
RTB.Undo()
End Sub

Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
RTB.Redo()
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
RTB.Copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
RTB.Paste()
End Sub

End Class

Download...

Public Class Form4
Dim tahun As Integer
Dim JlhHari As String
Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
tahun = 1944
Do While tahun <= 2014
tahun += 1
thn.Items.Add(tahun)
Loop
bln.Items.Add("January")
bln.Items.Add("Febuary")
bln.Items.Add("March")
bln.Items.Add("April")
bln.Items.Add("May")
bln.Items.Add("June")
bln.Items.Add("July")
bln.Items.Add("August")
bln.Items.Add("September")
bln.Items.Add("October")
bln.Items.Add("November")
bln.Items.Add("December")
End Sub
Private Sub bln_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bln.TextChanged
JlhHari = 0
If bln.Text = "January" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "Febuary" Then
If Val(thn.Text) Mod 4 = 0 Then
Do While Val(JlhHari) <= 28
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
Else
Do While JlhHari <= 27
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
End If
ElseIf bln.Text = "March" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "April" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "May" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "June" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "July" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "August" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "September" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "October" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "November" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
Else
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
End If
End Sub

Private Sub keluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub

Private Sub btnLoad_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoad.Click
Me.OpenDlg.Filter = "File_Gambar (*.BMP;*.JPG;*GIF;*.ICO)|*.BMP; *.JPG;*.GIF;*.ICO|Semua_File (*.*)|*.*"
Me.OpenDlg.ShowDialog()
If Not Me.OpenDlg.FileName = "" Then
Me.picture.Image = Image.FromFile(OpenDlg.FileName)
End If
picture.SizeMode = PictureBoxSizeMode.StretchImage
End Sub


Private Sub show_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles show.Click
Dim nilai As Integer
Dim umur As String
Dim TglWkt As Date
TglWkt = Now
Select Case (bln.Text)
Case "January"
nilai = 1
Case "Febuary"
nilai = 2
Case "March"
nilai = 3
Case "April"
nilai = 4
Case "May"
nilai = 5
Case "June"
nilai = 6
Case "July"
nilai = 7
Case "August"
nilai = 8
Case "September"
nilai = 9
Case "October"
nilai = 10
Case "November"
nilai = 11
Case "December"
nilai = 12
End Select

If nilai < TglWkt.Month Then
umur = TglWkt.Year - Val(thn.Text)
Else
umur = TglWkt.Year - Val(thn.Text) + 1
End If

Dim kelas As String
If g1.Checked = True Then
kelas = "first class"
ElseIf g2.Checked = True Then
kelas = "second class"
ElseIf g3.Checked = True Then
kelas = "third class"
ElseIf g4.Checked = True Then
kelas = "fourth clas"
Else
kelas = "fifth class"
End If

Dim gender As String
If RadioButton1.Checked = True Then
gender = "He"
Else
gender = "She"
End If
MessageBox.Show(TextBox1.Text + " is a student in the " + kelas + "." & vbCrLf & gender + " is " + umur + " years old.")

End Sub

Private Sub btnNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNew.Click
Dim a As RadioButton

TextBox1.Text = ""
picture.Image = Nothing
For Each a In GroupBox1.Controls
a.Checked = False
Next
For Each a In GroupBox2.Controls
a.Checked = False
Next
tgl.Text = "(Tgl)"
bln.Text = "(Bln)"
thn.Text = "(Thn)"
End Sub
End Class

Lihat Silsilah Keluarga
Masukkan nama pertama	:	'>
Masukkan nama kedua	:	'>

Could not connect to server: " . mysql_error() . "
");
}else{
//SET NAMA DATABASE
$db = mysql_select_db("family");

if(!($db)) {
echo "Couldn't connect to database
";
}else{
$query1 = "select level from keluarga where nama like '%$nama1%'";
$result1 = mysql_query($query1, $db_con);
$test1 = mysql_fetch_array($result1);
$level1 = $test1[0];

$query11 = "select nama from keluarga where nama like '%$nama1%'";
$result11 = mysql_query($query11, $db_con);
$test11 = mysql_fetch_array($result11);
$namasatu = $test11[0];

$query2 = "select level from keluarga where nama like '%$nama2%'";
$result2 = mysql_query($query2, $db_con);
$test2 = mysql_fetch_array($result2);
$level2 = $test2[0];

$query22 = "select nama from keluarga where nama like '%$nama2%'";
$result22 = mysql_query($query22, $db_con);
$test22 = mysql_fetch_array($result22);
$namadua = $test22[0];
}
echo "Hasil :
";
if(!($result1) || !($result2)) {
echo "Couldn't find query
";
}else{
if($level1 == "A1" && $level2 == "1B1") { echo $namasatu." adalah ayah dari ".$namadua; }
else if($level1 == "A2" && $level2 == "1B1") { echo $namasatu." adalah ibu dari ".$namadua; }
else if($level1 == "A1" && $level2 == "1B2") { echo $namasatu." adalah ayah mertua dari ".$namadua; }
else if($level1 == "A2" && $level2 == "1B2") { echo $namasatu." adalah ibu mertua dari ".$namadua; }
else if($level1 == "A1" && $level2 == "1C") { echo $namasatu." adalah kakek dari ".$namadua; }
else if($level1 == "A2" && $level2 == "1C") { echo $namasatu." adalah nenek dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "1C") { echo $namasatu." adalah ayah dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "1C") { echo $namasatu." adalah ibu dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "1B2") { echo $namasatu." adalah suami dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "1B1") { echo $namasatu." adalah istri dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "A1") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "A2") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "A1") { echo $namasatu." adalah menantu dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "A2") { echo $namasatu." adalah menantu dari ".$namadua; }
else if($level1 == "A1" && $level2 == "A2") { echo $namasatu." adalah suami dari ".$namadua; }
else if($level1 == "A2" && $level2 == "A1") { echo $namasatu." adalah istri dari ".$namadua; }
else if($level1 == "1C" && $level2 == "1C") { echo $namasatu." adalah saudara dari ".$namadua; }
else if($level1 == "1C" && $level2 == "1B1") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "1C" && $level2 == "1B2") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "1C" && $level2 == "A1") { echo $namasatu." adalah cucu dari ".$namadua; }
else if($level1 == "1C" && $level2 == "A2") { echo $namasatu." adalah cucu dari ".$namadua; }

else if($level1 == "2B1" && $level2 == "2B2") { echo $namasatu." adalah suami dari ".$namadua; }
else if($level1 == "2B2" && $level2 == "2B1") { echo $namasatu." adalah istri dari ".$namadua; }
else if($level1 == "2B1" && $level2 == "2C") { echo $namasatu." adalah ayah dari ".$namadua; }
else if($level1 == "2B2" && $level2 == "2C") { echo $namasatu." adalah ibu dari ".$namadua; }
else if($level1 == "2C" && $level2 == "2B1") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "2C" && $level2 == "2B2") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "1C" && $level2 == "2C") { echo $namasatu." adalah saudara sepupu dari ".$namadua; }
else if($level1 == "2C" && $level2 == "1C") { echo $namasatu." adalah saudara sepupu dari ".$namadua; }
else if($level1 == "2C" && $level2 == "3C") { echo $namasatu." adalah saudara sepupu dari ".$namadua; }
else if($level1 == "2B1" && $level2 == "1C") { echo $namasatu." adalah bapaktua dari ".$namadua; }
else if($level1 == "2B2" && $level2 == "1C") { echo $namasatu." adalah inangtua dari ".$namadua; }
else if($level1 == "1C" && $level2 == "2B1") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "1C" && $level2 == "2B2") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "2C" && $level2 == "1B1") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "2C" && $level2 == "1B2") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "2C") { echo $namasatu." adalah bapauda dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "2C") { echo $namasatu." adalah tante dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "2B2") { echo $namasatu." adalah saudara perempuan dari ".$namadua; }
else if($level1 == "2B2" && $level2 == "1B2") { echo $namasatu." adalah saudara perempuan dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "2B1") { echo $namasatu." adalah lae dari ".$namadua; }
else if($level1 == "2B1" && $level2 == "1B1") { echo $namasatu." adalah lae dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "3B1") { echo $namasatu." adalah lae dari ".$namadua; }
else if($level1 == "3B1" && $level2 == "1B1") { echo $namasatu." adalah lae dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "3B1") { echo $namasatu." adalah nantulang dari ".$namadua; }
else if($level1 == "3B1" && $level2 == "1B2") { echo $namasatu." adalah lae dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "2B1") { echo $namasatu." adalah saudara perempuan dari ".$namadua; }
else if($level1 == "2B1" && $level2 == "1B2") { echo $namasatu." adalah saudara laki-laki dari ".$namadua; }

else if($level1 == "3B1" && $level2 == "3B2") { echo $namasatu." adalah suami dari ".$namadua; }
else if($level1 == "3B2" && $level2 == "3B1") { echo $namasatu." adalah istri dari ".$namadua; }
else if($level1 == "3B1" && $level2 == "3C") { echo $namasatu." adalah ayah dari ".$namadua; }
else if($level1 == "3B2" && $level2 == "3C") { echo $namasatu." adalah ibu dari ".$namadua; }
else if($level1 == "3C" && $level2 == "3B1") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "3C" && $level2 == "3B2") { echo $namasatu." adalah anak dari ".$namadua; }
else if($level1 == "1C" && $level2 == "3C") { echo $namasatu." adalah saudara sepupu dari ".$namadua; }
else if($level1 == "3C" && $level2 == "1C") { echo $namasatu." adalah saudara sepupu dari ".$namadua; }
else if($level1 == "3C" && $level2 == "2C") { echo $namasatu." adalah saudara sepupu dari ".$namadua; }
else if($level1 == "3B1" && $level2 == "1C") { echo $namasatu." adalah amangboru dari ".$namadua; }
else if($level1 == "3B2" && $level2 == "1C") { echo $namasatu." adalah namboru dari ".$namadua; }
else if($level1 == "1C" && $level2 == "3B1") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "1C" && $level2 == "3B2") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "3C" && $level2 == "1B1") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "3C" && $level2 == "1B2") { echo $namasatu." adalah keponakan dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "3C") { echo $namasatu." adalah paman / tulang dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "3C") { echo $namasatu." adalah bibi / nantulang dari ".$namadua; }
else if($level1 == "1B1" && $level2 == "3B2") { echo $namasatu." adalah saudara laki-laki dari ".$namadua; }
else if($level1 == "3B2" && $level2 == "1B1") { echo $namasatu." adalah saudara perempuan dari ".$namadua; }
else if($level1 == "1B2" && $level2 == "3B2") { echo $namasatu." adalah eda dari ".$namadua; }
else if($level1 == "3B2" && $level2 == "1B2") { echo $namasatu." adalah eda dari ".$namadua; }
}
}

echo "

";
echo "Daftar Nama:";

function dbResultToArray($result) {
$res_array = array();

for($count=0;$row = mysql_fetch_array($result);$count++) {
$res_array[$count] = $row;
}
return $res_array;
}
function getNama10()
{
$sql = "select nama from keluarga where id <= 10"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama20() { $sql = "select nama from keluarga where id > 10 and id <= 20"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama30() { $sql = "select nama from keluarga where id > 20 and id <= 30"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama40() { $sql = "select nama from keluarga where id > 30 and id <= 40"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama50() { $sql = "select nama from keluarga where id > 40 and id <= 50"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama60() { $sql = "select nama from keluarga where id > 50 and id <= 60"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama70() { $sql = "select nama from keluarga where id > 60 and id <= 70"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama80() { $sql = "select nama from keluarga where id > 70 and id <= 80"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama90() { $sql = "select nama from keluarga where id > 80 and id <= 90"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } function getNama100() { $sql = "select nama from keluarga where id > 90 and id <=100"; $result = mysql_query($sql); if(!$result) return false; $num_rows = mysql_num_rows($result); if($num_rows == 0) return false; $result = dbResultToArray($result); return $result; } echo "";
echo "";
echo "";
echo "";
echo "";
echo "";
echo "";
echo "";
echo "";
echo "";
echo "";
echo "";
echo "

"; $daftarNama = getNama10(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama20(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama30(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama40(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama50(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama60(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama70(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama80(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama90(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

"; $daftarNama = getNama100(); foreach($daftarNama as $nama) { echo ""; } echo " ".$nama["nama"]."

";
?>
Download

import java.util.Scanner;

public class prima
{
public static void main (String[] args) {
int upperLimit;
int lowerLimit;
int gedean=0;
int x=0;
Scanner input;
input = new Scanner(System.in);
int counter=0;

System.out.print("Upper Limit = ");
upperLimit = input.nextInt();

System.out.print("Lower Limit = ");
lowerLimit = input.nextInt();

// System.out.println("Prima antara"+lowerLimit+"dan"+upperLimit+"adalah = ");
for(int i=lowerLimit;i<=upperLimit;i++)
{
int factorCounter=0;
for(int j=1;j<=i;j++)
{
if(i%j==0){
factorCounter++;
}
}
if(factorCounter==2)
{
counter++;
//System.out.print(i+" ");
x = i;
}

}
System.out.println("Jumlah Bilangan Prima = "+(counter-1));
System.out.println("Bilangan terbesar adalah = "+x);
if(counter==0)
System.out.println("Tidak ada");
}
}

(clear)
(deftemplate anak (slot x) (slot y))
(assert (anak (x Marthin) (y Alden)))
(assert (anak (x Endang) (y Asniar)))
(assert (anak (x Marthin) (y Netty)))
(assert (anak (x Endang) (y Doni)))
(assert (anak (x Julius) (y Alden)))
(assert (anak (x Alden) (y Jese)))
(assert (anak (x Marlinang) (y Jese)))
(assert (anak (x Asniar) (y Jese)))
(assert (anak (x Julius) (y Alden)))
(assert (anak (x Dewi) (y Marlinang)))

(defrule cucu
?x <- (anak (x ?x1) (y ?y1))
?y <- (anak (x ?x2) (y ?y2))
(test (eq ?x1 ?y2))
(test (neq ?x2 ?y1))
=>
(printout t ?x2 " cucu " ?y1 crlf))

(defrule saudara
?x <- (anak (x ?x1) (y ?y1))
?y <- (anak (x ?x2) (y ?y2))
(test (eq ?y1 ?y2))
(test (neq ?x1 ?x2))
=>
(printout t ?x1 " saudara " ?x2 crlf))

(defrule ortu
?x <- (anak (x ?x1) (y ?y1)) ?y <- (anak (x ?x2) (y ?y2)) (test (eq ?x1 ?x2)) (test (neq ?y1 ?y2)) =>
(printout t ?y2 " ortu " ?x1 crlf))

(defrule pasangan
?x <- (anak (x ?x1) (y ?y1))
?y <- (anak (x ?x2) (y ?y2))
(test (eq ?x1 ?x2))
(test (neq ?y1 ?y2))
=>
(printout t ?y1 " pasangan " ?y2 crlf))

(defrule keponakan
?x <- (anak (x ?x1) (y ?y1))
?y <- (anak (x ?x2) (y ?y2))
?z <- (anak (x ?x3) (y ?y3))
(test (eq ?y2 ?y1))
(test (neq ?x1 ?x2))
(test (eq ?x2 ?y3))
=>
(printout t ?x3 " keponakan " ?x1 crlf))

(defrule opung
(anak (x ?x1) (y ?y1))
(anak (x ?x2) (y ?y2))
(test (eq ?y1 ?x2))
=>
(printout t ?y2 " opung " ?x1 crlf)
)

(defrule sepupu
?a <- (anak (x ?x1) (y ?y1))
?b <- (anak (x ?x2) (y ?y2))
?c <- (anak (x ?x3) (y ?y3))
?d <- (anak (x ?x4) (y ?y4))
(test (eq ?y1 ?x2))
(test (eq ?y2 ?y3))
(test (neq ?x2 ?x3))
(test (eq ?x3 ?y4))
=>
(printout t ?x1 " sepupu " ?x4 crlf))

Download...