Selasa, 11 Maret 2014

Bahan US TIK 2014

Ms. Access
1. Kegunaan obyek-obyek Access (lihat bagian Table-nya Ms. Access)

2. Tipe-tipe data tablenya Ms. Access (lihat bagian Table-nya Ms. Access)

3. Merancang desain table dari tampilan table yang ada

4. Field properties tablenya Ms. Access (lihat bagian Field Properties Ms. Access)

5. Tombol / tool obyek form Ms. Access (lihat bagian Form Access 2007)


Boarland Delphi

6. Tombol / tool obyek form Delphi (lihat bagian Kegunaan tombol / tool Delphi)

7. Kegunaan dan penggunaan properti dari tiap obyek Delphi yang mendampinginya dalam penulisan program, ada pada seluruh bagian blog, fokus pada obyek label, edit, button, groupbox, radiobutton, radiogroup dan checkbox)

8. Membuat program dengan label, button dan edit (lihat bagian Obyek button-label-edit Delphi) dan (lihat bagian label, edit, button pada Delphi kecuali tentang properti visible)


C++

9. Perintah-perintah yang terkait file header,
contoh :
cout dan cin dari iostream.h
clrscr, getch, cprintf, gotoxy, textcolor, textbackground dari conio.h
printf dari stdio.h
div dari stdlib.h
sqrt, pow, modf, fmod, floor, ceil, sin, cos dari math.h
strlwr, strupr, ctrcpy. strcat dari string.h

10. Cara menampilkan nilai variabel pada perintah cetak printf / cprintf (lihat bagian fungsi string C++)

11. Membentuk program pengaturan tampilan dengan gotoxy (lihat bagian pengaturan tampilan C++ kecuali warna)

12. Bilangan basis C++ (lihat bagian program basis C++)

12. Kegunaan dan penggunaan fungsi C++ (lihat bagian fungsi string C++) dan (lihat bagian fungsi numerik C++)

13 Pengulangan dengan for (lihat bagian lanjutan pengulangan dengan C++)

14 Pengulangan dengan while (lihat bagian pengulangan dengan while)

Kegunaan tombol / tool Delphi


1.  Label digunakan untuk menampilkan teks keterangan pada form

2.  Edit digunakan untuk input dan output hasil program

3.  Button digunakan untuk menjalankan suatu program

4.  Checkbox digunakan untuk menampilkan daftar pilihan dimana dapat dipilih lebih dari satu atau bahkan tidak memilih sama sekali

5.  RadioButton digunakan untuk menampilkan daftar pilihan dimana hanya dapat dipilih 1 pilihan

6.  ListBox digunakan untuk menampilkan daftar pilihan dalam kotak yang bisa digulung

7.  ComboBox digunakan untuk menampilkan daftar pilihan dalam kotak yang bisa digulung dan dapat diketik jika pilihannya tidak ada

8.  ScrollBar digunakan untuk menampilkan nilai minimal sampai maximal saat scroll box digerakkan

9.  GroupBox digunakan untuk mengelompokkan beberapa obyek

10.  RadioGroup digunakan untuk menampilkan daftar pilihan dimana hanya dapat dipilih 1 pilihan dengan menggunakan array








Minggu, 02 Maret 2014

Pengulangan dengan do-while







































































































coba juga untuk deret angka :

1
2 1
3 2 1
4 3 2 1
5 4 3 2 1

5
4 5
3 4 5
2 3 4 5
1 2 3 4 5

5 4 3 2 1
4 3 2 1
3 2 1
2 1
1

Pengulangan dengan while


































































































coba juga untuk deret angka :

1
2 1
3 2 1
4 3 2 1
5 4 3 2 1

5
4 5
3 4 5
2 3 4 5
1 2 3 4 5

5 4 3 2 1
4 3 2 1
3 2 1
2 1
1

Sabtu, 01 Maret 2014

lanjutan Pengulangan dengan C++

Hasil Program :
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5















































Hasil program :
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1











































Hasil program :
1 2 3 4 5
2 3 4 5
3 4 5
4 5
5









































Hasil program :
5 4 3 2 1
5 4 3 2
5 4 3
5 4
5











































Hasil program :
5
5 4
5 4 3
5 4 3 2
5 4 3 2 1










































coba juga untuk deret angka :

1
2 1
3 2 1
4 3 2 1
5 4 3 2 1


5
4 5
3 4 5
2 3 4 5
1 2 3 4 5

5 4 3 2 1
4 3 2 1
3 2 1
2 1
1

Minggu, 23 Februari 2014

Obyek pilihan pada Delphi

Memilih dengan menggunakan GroupBox dan RadioButton


Programnya :
procedure TForm1.RadioButton1Click(Sender: TObject);
var a,b:integer;
d:real;
e:string;
begin
val(edit1.text,a,b);
d:=pi*a*a;
str(d:5:2,e);
edit2.Text:=e;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
var a,b:integer;
d:real;
e:string;
begin
val(edit1.text,a,b);
d:=pi*a*2;
str(d:5:2,e);
edit2.Text:=e;
end;


Memilih dengan menggunakan RadioGroup


Programnya :

procedure TForm1.raClick(Sender: TObject);
var a,b:integer;
d:real;
e:string;
begin
val(edit1.text,a,b);
if ra.ItemIndex = 0 then
d:=pi*a*a
else
d:=2*pi*a;
str(d:5:2,e);
edit2.Text:=e;
end;


Memilih dengan menggunakan GroupBox dan RadioButton dengan program pada Button


Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
d:real;
e:string;
begin
val(edit1.text,a,b);
if radiobutton1.checked then d:=pi*a*a;
if radiobutton2.checked then d:=2*pi*a;
str(d:5:2,e);
edit2.Text:=e;
end;



Memilih dengan menggunakan RadioGroup dengan program pada Button


Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
d:real;
e:string;
begin
val(edit1.text,a,b);
if radiogroup1.ItemIndex=0 then d:=pi*a*a;
if radiogroup1.itemindex=1 then d:=2*pi*a;
str(d:5:2,e);
edit2.Text:=e;
end;


Obyek CheckBox


Programnya :

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
edit1.visible:=true
else
edit1.visible:=false;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then
edit2.visible:=true
else
edit2.visible:=false;
end;


procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
edit3.visible:=true
else
edit3.visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,z:integer;
    y,u,w:string;
    x,v:real;
begin
val(edit1.Text,a,z);
val(edit2.Text,b,z);
val(edit3.Text,c,z);
z:=3000*a+2000*b+2500*c;
str(z,y);
edit4.Text:=y;
if radiogroup1.itemindex=0 then
x:=0.1*z
else
x:=0.02*z;
str(x:3:2,u);
edit5.Text:=u;
v:=z-x;
str(v:3:2,w);
edit6.Text:=w;
end;



Senin, 20 Januari 2014

Label, Edit & Button pada Delphi


Ketentuan :
- Setiap obyek pada desain form diatas diatur tampilan dan namanya
- tombol atas namanya satu
- tombol kiri namanya dua
- tombol bawah namanya tiga
- tombol kanan namanya empat
- label di tengah namanya lima.

Tabel Propertinya :
Obyek
Properti
Setting
Button1
Name
Satu

Caption
Atas
Button2
Name
Dua

Caption
Kiri
Button3
Name
Tiga

Caption
Bawah
Button4
Name
Empat

Caption
Kanan
Label1
Name
Lima

Caption
Posisi

Apabila tombol atas ditekan pada posisi tampil “Atas”, bila tombol kiri ditekan pada posisi tampil “Kiri”, bila tombol bawah ditekan pada posisi tampil “Bawah” dan bila tombol kanan ditekan pada posisi tampil “Kanan”.

Programnya :

procedure TForm1.SatuClick(Sender: TObject);
begin
        lima.Caption := 'Atas' ;
end;

procedure TForm1.DuaClick(Sender: TObject);
begin
        lima.Caption := 'Kiri' ;
end;

procedure TForm1.TigaClick(Sender: TObject);
begin
        lima.Caption := 'Bawah' ;
end;

procedure TForm1.EmpatClick(Sender: TObject);
begin
        lima.Caption := 'Kanan' ;

end;

Hasil :

           

            
     






Ketentuan :
- Nama obyek tidak diubah
- Nama barang, Harga Satuan dan Banyak diinput
- jika tombol Hitung ditekan, maka akan menampilkan nilai Jumlah
- Jumlah diperoleh dari hasil perkalian Harga Satuan dengan Banyak
- jika tombol Hapus ditekan, maka akan mengosongkan seluruh obyek edit

Tabel Propertinya :

Obyek
Properti
Setting
Form1
Caption
Mini Market
Label1
Caption
Nama Barang
Label2
Caption
Harga Satuan
Label3
Caption
Banyak
Label4
Caption
Jumlah
Button1
Caption
Hapus
Button2
Caption
Hitung
Edit1
Text
--
Edit2
Text
--
Edit3
Text
--
Edit4
Text
--


Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
        Edit1.Text := ' ' ;
        Edit2.Text := ' ' ;
        Edit3.Text := ' ' ;
        Edit4.Text := ' ' ;
end;

 procedure TForm1.Button2Click(Sender: TObject);
var  a , b , c , z : integer ;
d : string ;
begin
val ( Edit2.text , a , z ) ;
val ( Edit3.text , b , z ) ;
c := a * b ;
str ( c , d ) ;
Edit4.text := d ;
end ;

Hasil :

         








Ketentuan :
- Nama Barang dan Harga Barang tidak dapat diubah, jadi dibentuk dengan obyek label
- Jumlah Uang diinput
- jika tombol Hitung ditekan, menampilkan jumlah barang yang dapat diperoleh pada Diberikan dan besar sisa uang pada Uang Kembali


Tabel Propertinya :

Obyek
Properti
Setting
Form1
Caption
Minimarket
Label1
Caption
Nama Barang
Label2
Caption
Harga Barang
Label3
Caption
Jumlah Uang
Label4
Caption
Diberikan
Label5
Caption
Uang Kembali
Label6
Caption
Buku
Label7
Caption
3000
Button1
Caption
Hitung
Edit1
Text
--
Edit2
Text
--
Edit3
Text
--


Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var  a , z : integer ;
c , x : real ;
d , f : string ;
begin
val ( edit1.Text , a , z ) ;
c := a div 3000 ;
x := a mod 3000 ;
str ( c : 0 : 0 , d ) ;
str ( x : 0 : 0 , f ) ;
edit2.Text := d ;
edit3.Text := f ;
end;

Hasil :






Ketentuan :
- Jari-jari diinput
- jika menekan tombol Luas, akan menampilkan nilai luas lingkaran
- nilai luas dalam 2 desimal

Tabel Propertinya :

Obyek
Properti
Setting
Form1
Caption
Lingkaran
Label1
Caption
Jari-jari
Label2
Caption
Hasil
Button1
Caption
Luas
Edit1
Text
--
Edit2
Text
--


Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var  a , z : integer ;
c : real ;
d : string ;
begin
val ( edit1.Text , a , z ) ;
c := pi * a * a ;
str ( c : 5 : 2 , d ) ;
edit2.Text := d ;
end ;


Hasil :






Ketentuan :
- Nama dan Tahun Lahir diinput
- Usia dan Kelompok Umur akan tampil saat tombol Proses ditekan
- Usia diperoleh dari tahun sekarang dikurangi Tahun Lahir
- Kelompok Umur diperoleh dengan ketentuan,
jika usia di bawah 5 maka 'balita'
selainnya jika usia di bawah 13 maka 'anak-anak'
selainnya jika usia di bawah 17 maka 'remaja'
selainnya jika usia di bawah 33 maka ‘pemuda'
selainnya jika usia di bawah 60 maka'dewasa'
selainnya jika usia di bawah 120 maka 'lansia'
selainnya ‘Tidak Mungkin'
- Hapus untuk mengosongkan seluruh edit
- Exit untuk menghentikan jalannya program


Tabel Propertinya :

Obyek
Properti
Setting
Form1
Caption
Horoscope
Label1
Caption
Nama
Label2
Caption
Tahun Lahir
Label3
Caption
Usia
Label4
Caption
Kelompok Umur
Button1
Caption
&Proses
Button2
Caption
&Hapus
Button3
Caption
&Exit
Edit1
Text
--
Edit2
Text
--
Edit3
Text
--
Edit4
Text
--


Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var  a , b , z : integer ;
d : string ;
begin
val ( edit2.Text , a , z ) ;
b := 2014 – a ;
str ( b , d ) ;
Edit3.Text := d ;
if b < 5 then edit4.text := 'balita'
else if b < 12 then edit4.text := 'anak-anak'
else if b < 16 then edit4.text := 'remaja'
else if b < 32 then edit4.text := 'pemuda'
else if b < 60 then edit4.text := 'orang tua'
else if b < 120 then edit.text:='lansia'
else edit4.text:='Tidak Mungkin';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := ' ' ;
Edit2.Text := ' ' ;
Edit3.Text := ' ' ;
Edit4.Text := ' ' ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.terminate ;
end;


Hasil :

 

 

 

 






Ketentuan :
- Tampilan desain form seperti di atas
- Tampilan form saat baru dijalankan


- Alas dan Tinggi diinput, bila tombol Luas ditekan akan menampilkan nilai Luas dengan tampilan sbb :



- bila tombol Keliling ditekan akan menampilkan nilai Keliling dengan tampilan sbb :



Tabel Propertinya :

Obyek
Properti
Setting
Form1
Caption
Segitiga Sikusiku
Label1
Caption
Alas
Label2
Caption
Tinggi
Label3
Visible
False
Label4
Visible
False
Button1
Caption
&Luas
Button2
Caption
&Keliling
Edit1
Text
--
Edit2
Text
--
Edit3
Visible
False
Edit4
Visible
False


Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var  a , b , z : integer ;
c : real ;
d : string ;
begin
val ( edit1.Text , a , z ) ;
val ( edit2.Text , b , z ) ;
c := 0.5 * a * b ;
str ( c : 5 : 2 , d ) ;
edit3.Text := d ;
edit3.Visible := true ;
edit4.Visible := false ;
label3.Caption := 'Luas' ;
label3.Visible := true ;
label4.Visible := false ;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a , b , z : integer ;
c , e : real ;
d , f : string ;
begin
val ( edit1.Text , a , z ) ;
val ( edit2.Text , b , z ) ;
c := sqrt ( ( a * a ) + ( b * b ) ) ;
e := c + a + b ;
str ( c : 5 : 2 , d ) ;
str ( e : 5 : 2 , f ) ;
edit3.Text := d ;
edit4.Text := f ;
label3.Visible := true ;
label3.Caption := ' Sisi miring ' ;
label4.Visible := true ;
label4.Caption := ' Keliling ' ;
edit3.Visible := true ;
edit4.Visible := true ;
end;