Senin, 10 Oktober 2011

Javaxsource :: Membuat Vektor dengan Java

package Tugas3;
import java.util.*;
/**
*
* @author DUB
*/
public class BukuTeman {



public static void main(String args[]) {
Vector v = new Vector();
v.add(new PhoneBook("Ardi","081215782613"));
v.add(new PhoneBook("Roni","085727888777"));
v.add(new PhoneBook("Hari","089239292922"));
v.add(new PhoneBook("Heni","083929849113"));
v.add(new PhoneBook("Beni","083929878449"));
System.out.println("Nama\tNo.Hp");
for (int i=0;i

Javaxsource :: Membuat LinkedList dengan Java

Linked List atau sering disebut juga Senarai Berantai adalah salah satu bentuk struktur data, berisi kumpulan data (node) yang tersusun secara sekuensial, saling sambung-menyambung dan dinamis.

Linked list hampir sama dengan array, yaitu sama-sama menyimpan sekumpulan data. Perbedaannya adalah dalam mengalokasikan memori.



Ada bebepa macam jenis LinkedList yaitu
  1. Singly Linked List
  2. Doubly Linked List
  3. Circular Linked List

Method Kelas di LinkedList
addFirst(E), menambahkan elemen di depan list
addLast(E), menambahkan elemen di akhir list
get(int), mendapatkan list berdasarkan indeks
remove(), menghapus head/elemen pertama pada list
removeLast(), menghapus elemen terakhir pada list


Dalam java, library java menyediakan beberapa fungsi bawaan seperti dibawah ini

  • addFirst(E), menambahkan elemen di depan list
  • addLast(E), menambahkan elemen di akhir list
  • get(int), mendapatkan list berdasarkan indeks
  • remove(), menghapus head/elemen pertama pada list
  • removeLast(), menghapus elemen terakhir pada list





//LinkedList + Iterator
package Tugas3;
import java.util.*;
/**
*
* @author DUB
*/
public class BukuTelepon {


public static void main(String[] args) {
LinkedList list = new LinkedList();
list.add(new PhoneBook("Ardi","081215782613"));
list.add(new PhoneBook("Roni","085727888777"));
list.addFirst(new PhoneBook("Hari","089239292922"));
list.addLast(new PhoneBook("Heni","083929849113"));
list.addLast(new PhoneBook("Beni","083929878449"));
list.remove(1);
Iterator it = list.iterator();
System.out.println("Nama\tNo.Hp");
while (it.hasNext()) {//contoh Iterator
PhoneBook tampil = (PhoneBook) it.next();
System.out.println(tampil.nama+" "+tampil.noHP);
}
}
}

class PhoneBook {
String nama;
String noHP;
public PhoneBook(String nama, String noHP) {
this.nama = nama;
this.noHP = noHP;
}
}


Javaxsource :: Membuat ArrayList dengan Java

Kita dapat memanfaatkan ArrayList dalam java dalam membuat Buku Telepon

berikut source code untuk membuat Buku Telepon dengan menggunakan ArrayList dalam Java

kita harus membuat class Buku.java
package Tugas3;

/**
*
* @author DUB
*/
public class Buku {

int id;
String almt,nm,nope;
public Buku(int id, String almt, String nm,String nope)
{
this.id = id;
this.almt = almt;
this.nm = nm;
this.nope=nope;
}

public int getId()
{
return id;
}

public String getAlmt()
{
return almt;
}

public String getNm()
{
return nm;
}

public String getNope() {
return nope;
}


}



Setelah itu kita membuat class main dengan nama BukuAlamat
package Tugas3;
//Array List


import java.util.ArrayList;
/**
*
* @author DUB
*/
public class BukuAlamat {

//deklarasi ArrayList untuk menampung
ArrayList simpan;

public BukuAlamat()
{
//instansiasi
simpan = new ArrayList();
}

public void isiData(int id,String almt,String nm,String nope)
{
simpan.add(new Buku(id,almt,nm,nope));
}

public void tampil()
{
System.out.println("No\tAlamat\tNama\tNo.Hp");
System.out.println("------------------------------------------------");
for (int i=0;i

Javaxsource :: Membuat Segi Enam bintang dengan Pascal



Kita bisa menggunakan perulangan untuk membuat sebuah segi enam dengan pascal

Urutan Logikanya
1.Membuat Trapesium atas
2.Membuat persegi panjang
3.Membuat trapesium bawah
berikut coding yang saya buat dari pascal


uses crt;

var i,j,k:integer;
n:char;
begin
clrscr;
write('Masukkan Karakter :');readln(n);
for i:= 2 to 5 do
begin
for j := 4 downto i do//buat spasinya
write(' ');
for k := 1 to 2*i do
begin
textcolor(i-1);
write(n);
end;
writeln();
end;
for i:=1 to 2 do
begin
for j:=1 to 10 do
begin
textcolor(4+i);
write(n);
end;
writeln();
end;
for i:= 5 downto 2 do
begin
for j := 4 downto i do
write(' ');
for k := 1 to 2*i do
begin
textcolor(k);
write(n);
end;
writeln();
end;


readkey;
end.