Postingan
PROGRAM BINTANG MENGGUNAKAN
PASCAL
program bintang_segitiga_siku;
uses wincrt;
var a, b, n : integer;
begin
write ('Masukkan angka : '); readln (n);
for a := 1 to n do
begin
for b := 1 to a do
begin
write ('*');
end;
writeln (' ');
end;
readln;
end.
program bintang_persegi;
uses wincrt;
var n, a, b, c : integer;
begin
clrscr;
write ('Masukkan angka : ');readln(n);
for a := 1 to n do
begin
write ('*');
end;
writeln;
for b := 2 to n-1 do
begin
write ('*');
for c := 1 to n-2 do
begin
write (' ');
end;
write ('*');
writeln;
end;
for a := 1 to n do
begin
write ('*');
end;
readln;
end.
program bintang_segitiga_samakaki;
uses crt;
var n, a, b : integer;
begin
clrscr;
write ('Masukkan angka : ');readln (n);
for a := 1 to n do
begin
for b := 0 to n-a do
begin
write (' ');
end;
for b := 1 to (2*a)-1 do
begin
write ('*');
end;
writeln;
end;
readln;
end.
program UTS;
uses crt;
var n, a, b : integer;
begin
clrscr;
write ('Masukkan angka : '); readln (n);
for a := 1 to n do
begin
for b := 1 to (2*n)-a do
begin
write (' ');
end;
for b:= 1 to (2*a)-1 do
begin
write ('*');
end;
writeln;
end;
for a := 1 to n do
begin
for b := 1 to n-a do
begin
write (' ');
end;
for b := 1 to a do
begin
write ('*');
end;
for b := 1 to (2*n)-1 do
begin
write (' ');
end;
for b := 1 to a do
begin
write ('*');
end;
writeln;
end;
for a := 1 to n-1 do
begin
for b := 1 to a do
begin
write (' ');
end;
for b := 1 to n-a do
begin
write ('*');
end;
for b := 1 to (2*n)-1 do
begin
write (' ');
end;
for b := 1 to n-a do
begin
write ('*');
end;
writeln;
end;
for a := 0 to n-1 do
begin
for b := 1 to n+a do
begin
write (' ');
end;
for b := 2 to (2*n)-(a*2) do
begin
write ('*');
end;
writeln;
end;
readln;
end.
Program Terkait
Program Bangun Ruang
Program Function
Program Array
Program Perulangan
Program Aplikasi Visual
Program Aplikasi Berbasis Array
If ..Then.. Else
Gambar desain aplikasi kelulusan dengan menggunakan fungsi If then else.
Langkah – langkahnya :
-
Drag and Drop jLabel1 seperti gambar dibawah ini untuk judul beri nama “aplikasi kelulusan”, jLabel2 beri nama nilai, dan jLabel3 beri nama keterangan
- Drag and Drop jButton1 kemudian beri nama “Proses”, jButton2 beri nama keluar
Btn proses berfungsi untuk mengeksekusi inputan yang dimasukkan pada kolom nilai, source kodenya sebagai berikut.
int nilai;
nilai = Integer.parseInt(txtnilai.getText());
if (nilai <100 && nilai >=80){
txtket.setText("A");
}
else if (nilai <80 && nilai >=65){
txtket.setText("B");
}
else if (nilai <65 && nilai >=60){
txtket.setText("C");
}
else if (nilai <60 && nilai >=40){
txtket.setText("D");
}
else if (nilai <40){
txtket.setText("E");
}else{
JOptionPane.showMessageDialog(mainPanel, "maaf angka yang anda masukkan harus 0-100");
}
}
| Btn keluar berfungsi untuk keluar dari area running. Source kodenya sebagai berikut. int jawab = JOptionPane.showConfirmDialog(mainPanel, "Do You Want To Keluar???", "Konfirmasi", JOptionPane.YES_NO_CANCEL_OPTION); |
if (jawab == JOptionPane.YES_OPTION){
System.exit(0);
}
}
SWITCH – CASE
Gambar desain bulan – bulan dalam kalender.
Langkah – langkahnya yaitu :
-
Drag and Drop jLabel1 dan beri nama “switch case” untuk judul, jLabel2 beri nama “angka”, dan jLabel3 beri nama “Bulan”. Seperti gambar di bawah.
- Drag and Drop jButton1 kemudian beri nama proses seperti gambar di bawah ini.
Btn proses berfungsi untuk menterjemahkan angka yang di inputkan pada kolom angka sesuai dengan nama bulan yang ada pada kalender. Source kodenya sebagai berikut.
int angka = Integer.parseInt(txtangka.getText());
switch(angka){
case 1: txtbln.setText("January");break;
case 2: txtbln.setText("February");break;
case 3: txtbln.setText("March");break;
case 4: txtbln.setText("April");break;
case 5: txtbln.setText("Mei");break;
case 6: txtbln.setText("June");break;
case 7: txtbln.setText("July");break;
case 8: txtbln.setText("August");break;
case 9: txtbln.setText("September");break;
case 10: txtbln.setText("October");break;
case 11: txtbln.setText("November");break;
case 12: txtbln.setText("December");break;
default: JOptionPane.showMessageDialog(mainPanel, "Inputkan Angka 1-12", "Seporannah..!!", JOptionPane.INFORMATION_MESSAGE);
}
}
JoptionPane ini sebelum digunakan harus di importkan terlebih dahulu di bagian paling atas.
3. Btn delete berfungsi untuk menghapus tulisan yang ada di kolom angka dan kolom bulan. Source kodenya berikut ini
txtangka.setText("");
txtbln.setText("");
4. Btn exit berfungsi
Btn exit berfungsi untuk keluar dari area running. Source kodenya.
int jawab = JOptionPane.showConfirmDialog(mainPanel, "Do You Want To Keluar???", "Konfirmasi", JOptionPane.YES_NO_CANCEL_OPTION);
if (jawab == JOptionPane.YES_OPTION){
System.exit(0);
}
}
Program Terkait
Program Bangun Ruang
Program Function
Program Array
Program Perulangan
Program Aplikasi Visual
Program Aplikasi Berbasis Array
