05.12 |
Category: |
0
komentar
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
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.
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
Udah pada tau ini belum !
.jpg)
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
.jpg)
.jpg) |
| Add caption |
.jpg)
.jpg) |
| Add caption |
.jpg)
.jpg) |
| Add caption |
.jpg)
04.52 |
Category: |
0
komentar
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
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
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 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 !!!!!!
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
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
