Renny Endah Parwati: 2014

Jaringan

1. Buat 5 jaringan LAN dengan nama Kilo, Limo, November, Oscar dan Mike

a. Pertama-tama siapkan 1 buah PC, leptop, Server dan Switch

b. Dan untuk Mike Switchnya diganti dengan acsespoint

c. Setting IP address di masing-masing PC, Lepto dan server dengan cara klik pada PC, leptop ataupun sever à pilih desktop à IP configurasi

d. Setting IP address

- Kilo dan November dengan IP class B

- Limo dan Oscar dengan IP class C

- Mike dengan IP class A

· Kilo

1. IP 190.168.10.1

Subnet 255.255.0.0

2. IP 190.168.10.2

Subnet 255.255.0.0

3. IP 190.168.10.3

Subnet 255.255.0.0

· November

1. IP 190.168.10.11

Subnet 255.255.0.0

2. IP 190.168.10.12

Subnet 255.255.0.0

3. IP 190.168.10.13

Subnet 255.255.0.0

· Limo

1. IP 192.168.10.1

Subnet 255.255.0.0

2. IP 192.168.10.2

Subnet 255.255.255.0

3. IP 192.168.10.3

Subnet 255.255.255.0

· Oscar

1. IP 192.168.10.11

Subnet 255.255.0.0

2. IP 192.168.10.12

Subnet 255.255.0.0

3. IP 192.168.10.13

Subnet 255.255.0.0

· Mike

1. IP 109.168.10.1

Subnet 255.0.0.0

2. IP 109.168.10.2

Subnet 255.0.0.0

3. IP 109.168.10.3

Subnet 255.0.0.0

e. Lalu hubungkan masing perangkat menggunakan kabel Stright, apabila kabel tidak dapat diterima perangkat maka gantu dengan CGE caranya klik switch à Physical à lalu matikan tombol on/off nya à gantikan lubang dengan CGE (pilihan ada di kiri) àhidupkan kembali on/offnya

Lalu hubungakan kembali dengan kabel

f. Siapkan 3 buah router dan gabungak ke 3 router tersebut dengan kabel fiber dengan cara klik pada router à pilih physical à matikan tombol on/offnya à pilih CGE sebanya 3 dan FGE sebanyak 3 à lalu on kan kembali

g. Gabungkan LAN Kilo dengan Limo dalam 1 router(left) dengan menggunakan kabel straight, November dengan Oscar dalam 1 router(right) dan Mike sendiri di tenagah(mid/center)

h. Untuk Mike apabila kabelnya tidak dapat terhung kita bias gunakan klik pada PC à Physical à matikan/off à ganti dengan ‘Linksys’à on-kan kembali

Untuk PC. Klik pada PC à Physical à off-kan à ganti dengan Linksys à on-kan kembali

Pada server. Klik server à Physical à off-kan à ganti dengan Linksys à on-kan kembali

i. Setting IP di masing-masing router 1, 2 dan 3 dengan IP address ‘200.100.10.1’ pada router 1, ‘200.100.10.2’ pada router 2, dan ‘200.100.10.3’ pada router 3 caranya dengan

Arahkan kursor pada lampu hijau yang ada di kabel yang terhubung dengan router maka otomatis akan keluar

Lalu klik pada router à pilih confiig à pilih GigabitEthenet0/0à setting IP routernya ‘190.168.10.5’ sunetnya ‘255.255.0.0’ jadikan IP router GigabitEthenet0/0 sebagai Geteway pada server,PC dan leptop dalam LAN ‘KILO’

Begitu pula dengan GigabitEthenet2/0,. Setting IPnya ‘192.168.10.5’ dan subnetnya 255.255.255.0’ dan jadikan IP GigabitEthenet2/0 sebagai Gateway PC, leptop dan server dalam jaringan LAN “LIMO”

Begitu selanjutnya sama seperti dengan November, Oscar dan Mike hanya saya IP untuk gatewaynya jangan sama ya

05.19 | Category: | 0 komentar

Program Gaji Pegawai Delhi

procedure TForm2.Button1Click(Sender: TObject);

begin

if (user.Text='admin') AND (pass.Text='123456') then

begin

ShowMessage('Login berhasil');

Form1.Show;

end

else

begin

ShowMessage('Peiksa kembali user danpassword');

user.Text:='';

pass.Text:='';

user.SetFocus;

end;

end;

procedure TForm2.userKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

pass.SetFocus;

end;

procedure TForm2.passKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

Button1.SetFocus;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

user.Text:='';

pass.Text:='';

end;

end.

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

tanggal.Caption:=FormatDateTime('dd-mm-yyyy',now)

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

no.Text:='';

nip.Text:='';

nama.Text:='';

id.Text:='';

lblgol.Caption:='';

lblpangkat.Caption:='';

tj.Text:='';

gaji.Text:='';

mkn.Text:='';

ass.Text:='';

bank.Text:='';

smb.Text:='';

koprasi.Text:='';

ass.Text:='';

akhir.Caption:='';

end;

procedure TForm1.namaKeyPress(Sender: TObject; var Key: Char);

begin

if not(key in['A'..'Z','a'..'z',#8,#13]) then

begin

key:=#0;

end

else if key=#13 then

begin

id.SetFocus;

end;

end;

procedure TForm1.noKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

if no.Text='' then

begin

ShowMessage('Isi telebih dahulu');

no.Text:='';

no.SetFocus;

end;

nip.SetFocus;

end;

procedure TForm1.nipKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

nama.SetFocus;

end;

procedure TForm1.arsKeyPress(Sender: TObject; var Key: Char);

var a,b,c,d,e,f,g,h,i,j:real;

begin

if not(key=chr(13)) then exit;

a:=StrToFloat(ass.text);

b:=StrToFloat(bank.Text);

c:=StrToFloat(smb.Text);

d:=StrToFloat(koprasi.Text);

e:=StrToFloat(ars.Text);

f:=StrToFloat(ptg.Text);

f:=(a+b+c+d+e);

g:=StrToFloat(gaji.Text);

h:=StrToFloat(tj.Text);

i:=StrToFloat(mkn.Text);

j:=StrToFloat(akhir.Caption);

j:=(g+h+i)-f;

ass.Text:=FloatToStr(a);

bank.Text:=FloatToStr(b);

smb.Text:=FloatToStr(c);

koprasi.Text:=FloatToStr(d);

ars.Text:=FloatToStr(e);

ptg.Text:=FloatToStr(f);

gaji.Text:=FloatToStr(g);

tj.Text:=FloatToStr(h);

mkn.Text:=FloatToStr(i);

akhir.Caption:=FloatToStr(j);

end;

procedure TForm1.assKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

bank.SetFocus;

end;

procedure TForm1.bankKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

smb.SetFocus;

end;

procedure TForm1.koprasiKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

ars.SetFocus;

end;

procedure TForm1.smbKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

koprasi.SetFocus;

end;

procedure TForm1.tjKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

mkn.SetFocus;

end;

procedure TForm1.mknKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

ass.SetFocus;

end;

procedure TForm1.idKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

if LeftStr(id.text,2)='01' then

begin

cb1.ItemIndex:=0;

end;

if LeftStr(id.text,2)='02' then

begin

cb1.ItemIndex:=1;

end;

if LeftStr(id.text,2)='03' then

begin

cb1.ItemIndex:=2;

end;

if LeftStr(id.text,2)='04' then

begin

cb1.ItemIndex:=3;

end;

if LeftStr(id.text,2)='05' then

begin

cb1.ItemIndex:=4;

end;

if LeftStr(id.text,2)='06' then

begin

cb1.ItemIndex:=5;

end;

if LeftStr(id.text,2)='07' then

begin

cb1.ItemIndex:=6;

end;

if LeftStr(id.text,2)='08' then

begin

cb1.ItemIndex:=7;

end;

if LeftStr(id.text,2)='09' then

begin

cb1.ItemIndex:=8;

end;

if LeftStr(id.text,2)='10' then

begin

cb1.ItemIndex:=9;

end;

if LeftStr(id.text,2)='11' then

begin

cb1.ItemIndex:=10;

end;

if LeftStr(id.text,2)='12' then

begin

cb1.ItemIndex:=11;

end;

if RightStr(id.Text,2)='2A' then

begin

lblgol.Caption:='IIA';

lblpangkat.Caption:='Pengatur Muda';

gaji.Text:='1714100';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2B' then

begin

lblgol.Caption:='IIB';

lblpangkat.Caption:='Guuru Pertama';

gaji.Text:='1871900';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2C' then

begin

lblgol.Caption:='IIC';

lblpangkat.Caption:='Pengatur';

gaji.Text:='1951100';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2D' then

begin

lblgol.Caption:='IID';

lblpangkat.Caption:='Pengatur TK.1';

gaji.Text:='2033600';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3A' then

begin

lblgol.Caption:='IIIA';

lblpangkat.Caption:='Penata Muda';

gaji.Text:='3590900';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3B' then

begin

lblgol.Caption:='IIIB';

lblpangkat.Caption:='Penata Muda Tk.1';

gaji.Text:='3742800';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3C' then

begin

lblgol.Caption:='IIIC';

lblpangkat.Caption:='Penata';

gaji.Text:='3901100';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3D' then

begin

lblgol.Caption:='IIID';

lblpangkat.Caption:='Penata Tk.1';

gaji.Text:='4066100';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4A' then

begin

lblgol.Caption:='IVA';

lblpangkat.Caption:='Pembina';

gaji.Text:='4238000';

tj.Text:='630000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4B' then

begin

lblgol.Caption:='IVB';

lblpangkat.Caption:='Pembina Tk.1';

gaji.Text:='4417400';

tj.Text:='630000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4C' then

begin

lblgol.Caption:='IVC';

lblpangkat.Caption:='Pembina Utama Muda';

gaji.Text:='4604200';

mkn.Text:='250000';

tj.Text:='630000';

end;

if RightStr(id.Text,2)='4D' then

begin

lblgol.Caption:='IVD';

lblpangkat.Caption:='Pembina Utama Madaya';

gaji.Text:='4799000';

tj.Text:='630000';

mkn.Text:='250000';

end;

ass.SetFocus;

end;

end.

05.04 | Category: | 0 komentar

13YE!

Udah pada tau ini belum !

Baru saja kemarin pengumuman kelulusan dan alhamdulilah SMK Telkom Lulus semuanya, dan sekarang tanggal 21 Mai 2014 diadakan Farewell Party di gedung Bina Satria Banjarbaru yang diadakan pukul 09.00 am sampai dengan 02.00 pm yang bertemakan "13YE!" acara ini sangat meriah dan juga gak kalah serunya dengan angkatan sebelumnya, acara farewell party ini dihadiri siswa siswi SMK Telkom dan Guru-guru beserta staf SMK Telkom
Dibukanya acara dengan Tari Tradisional dari kakak-kakak kelas 3, selanjutnya sambutan dari ketua OSIS, lalu Band, ataksi sulap dari kakak kelas 3, drama dari angkatan 14 dan 15, dilanjutkan dengan Band lagi, lalu pemutaran Vidio dari angkatan 13 dan selanjutnya.
Pokoknya yang tadi datang gak nyesel deh menghadiri acara Farewell party angkatan 15 terimakasih

Add caption

04.52 | Category: | 0 komentar

Final Test Desain Grafis

Berhubung telah memasuki akhir Mai guru-guru mengadakan ujian untuk mata pelajaran produftif salah satunya Desain Grafis yang di Gurui oleh Widdi Hermawan, beliau mengadakan final test pada hari ini 20 Mai 2014 pada 2 kelas yaitu 2C dan 2D, bahan yang diujikan adalah sebagai berikut

Dan ini hasil final test saya tadi !

Saya "Renny Endah Parwati"

kelas "XI-D"
NIS "121959"
Absen "23"
SMK Telkom Banjarbaru ingin mengumpulkan hasil final test yang diadakan tadi pagi, semoga dapat bermanfaat bagi teman-teman semua dan dapat memotifasi kita semua untuk dapat belajar lebih giat lagi terimakasih

04.27 | Category: | 0 komentar

Mendekati ulangan semester

Mendekati ujian akhir semester para guru gencar mengadakan ulangan harian dan pengumpulan tugas-tugas untuk menambah nilai para siswa agar pada saat pembagian rapot para siswa memiliki nilai yang mencapai KKM sekolah mulai dari Produktif, Adaftif, Normatif semua akan diujikan
Ulangan yang akan diadakan pada tanggal 2 Juni ini membuat para guru kewalahan untuk mengajarkan materi pembelajaran dikarenakan banyaknya waktu libur dan acara-acara yang diadakan sekolah, siswa pun kelabakan menerima pelajaran yang begitu banyak, semoga saja pada saat mendekati ulangan para siswa bisa mengerjakan soal dengan lancar tanpa kesulitan !!!!!!

07.28 | Category: | 0 komentar

Studytour SMK Telkom di Bali

Kegiatan studytour yang diadakan pada tanggal 21-26 April ini melibatkan 78 orang siswa dan 6 orang guru pendamping, tour yang diadakan selama 6 hari ini adakan untuk refreshing para siswa dan untuk melakukan kunjungan ke berbagai macam universitas di Malang dan mengunjungi SMK telkom Malang, disana bukan hanya berlibur tetapi juga belajar
Kegiatan yang awalnya di mulai dari pulau Bali untuk bersenang-senang lalu dilanjutkan menuju kota Malang kurang lebih 1hari di perjalanan, disana hawanya dingin sekali tepatnya di Batu Malang kami disana tidak lama sekitar 2 hari saja,banyak universitas besar disana selain itu juga banyak wahana permainan yang mengasikan untuk di kunjungi contohnya BNS (Batu Night Spectaculer)
Tak lama di Malang kami pun menuju bandara Djuanda untuk kembali ke Banjarmasin sekian cerita singkat saya selama perjalanan

07.21 | Category: | 0 komentar