Materi Presentasi TIK Kelas 9

Bagi siswa-siswa kelas 9 yang membutuhkan file presentasi bisa klik link berikut:
presentasi TIK.rar
Silakan di unudh dan dipelajari.

Read More

Cliper Kelompok B

Bagi teman teman yang membutuhkan script ujian clipper kelompok B, bisa mengambil script di bawah ini. Silakan unduh dan copy ke notepad. Setelah dicompile file akan menjadi 6. Berekstensi TXT, OBJ, DBF, PRG, dan EXE. Jangan lupa saran dan kritiknya untuk blog ini. Untuk memberi saran bisa ke postingini atau ke Buku tamu. Trims


//Ujian Pemrograman Basis Data I



Do while .t.
set colo to
clea
set colo to w/b
@5,5 clea to 17,60
@5,5 to 17,60
@6,20 say "MENU UTAMA"
@08,10 SAY "1] ENTRY DATA"
@10,10 SAY "2] LAPORAN"
@12,10 SAY "3] SELESAI"
P=0
@16,15 SAY "PILIHAN : " GET P PICT "9"
READ



DO CASE
CASE P=1
MASUK()
CASE P=2
LAPOR()
CASE P=3
EXIT
ENDCASE
ENDDO

func formulir()
set colo to
clea
set colo to w/b
@5,5 clea to 17,60
@5,5 to 17,60
@06,20 say " ENTRI GAJI PEGAWAI"
@08,10 SAY "No. Induk Pegawai: [F2]-Lihat NIP"
@09,10 say "Nama Pegawai :"
@10,10 say "Kode :"
set colo to gr+*/b
@08,40 say "F2"
set colo to w/b
retu



FUNC LIHAT()
Local Layar:=savescreen()
set colo to w+/br,gr*+/r*
@7,27 clea to 17,71
@7,27 to 17,71
go top
dbedit(8,28,16,70,{"NIP","NAMA"},,,{"NIP","NAMA PEGAWAI "})
mNIP=Fieldget(1)
keyboard chr(13)
set color to
restscreen(,,,,layar)
retu


FUNC CT_LAYAR()
SETCURSOR(2)
SET COLO TO W+/B
@1,0 to 23,79
@24,1 clea to 24,78
@24,14 say "Pres Atas Bawah Batal ScUp ScDn"
set colo to GR+/b
@24,19 say chr(24)
@24,27 say chr(25)
@24,35 SAY 'ESC'
@24,47 say 'PgUp'
@24,57 say 'PgDn'
SET PRINT OFF
SET CONS ON
SET ALTER TO
SET COLO TO W+/B
geser:=memoedit(memoread("LAPOR.TXT"),2,1,22,78,.F.,,350,10)
return


//Program untuk menambah data
Func Masuk()
Close Data
set menu off
set score off
set date ital
set cent on


//Deteksi apakah database ada, jika tdk buat dulu
If ! file("Pegawai.dbf")
dbcreate("Pegawai.dbf",{{"NIP","C",5,0},;
{"NAMA","C",20,0},;
{"KODE","N",1,0}})
endif

//Deteksi apakah database sudah dindex, jika belum index dulu
If ! file("pegawai.ntx")
use pegawai
index on nip to pegawai
endif

// buka file database beserta indexnya
Use pegawai index pegawai

// awal perulangan/looping
Do while .t.
Formulir()
mNIP=spac(5)
set key -1 to lihat
set colo to w/b
@8,30 get mNIP
read

// cek apakah nim kosong, jika kosong lanjutkan
if empty(mNIP)
exit
endif


// cari apakah NIP ada jika tdk ada buat file baru,
//jika sudah ada tampilkan & edit

Seek mNIP
if ! found()
appe blank
repl nip with mNIP
endif
set colo to
@9,30 get NAMA
@10,30 get KODE
read


// Tanya masih ada data lagi, jika tidak maka proses berakhir

Tanya=spac(1)
set colo to w/b
@15,20 say "Masih ada Data [Y/T] " get tanya pict "@!" valid Tanya$"YT"
read
if Tanya="T"
exit
endif
enddo
retu

//Program untuk mencetak data
Func Lapor()
Close Data

//Deteksi apakah database ada, jika tdk ada beri respon
If ! file("Pegawai.dbf")
alert("Perhatian File pegawai.dbf Belum ada")
retu
endif

// buka file database beserta indexnya

Use Pegawai index pegawai

pilih=0
pilih:=alert("Media etakan",{"Layar","Printer","Batal"})
Do case
case pilih=1
set printer off
set cons off
set alter to lapor.txt
set alter on
case pilih=2
if ! isprinter()
alert("Printer Belum Siap")
return
endif
set cons off
set printer on
case pilih=3 .or. pilih=0
return
endcase
clea
NO=0
? " LAPORAN GAJI PEGAWAI"
? "====================================================================================="
? "|NO | NIP | NAMA PEGAWAI | KODE |GAJI POKOK | TUNJANGAN | GAJI TOTAL |"
? "-------------------------------------------------------------------------------------"
DO WHILE .NOT. EOF()
NO=NO+1

IF KODE=1
GAJI=450000
TUNJANGAN=45000

ELSEIF KODE=2
GAJI=350000
TUNJANGAN=35000

ELSE
GAJI=300000
TUNJANGAN=30000
ENDIF
JML=GAJI+TUNJANGAN

A="|"+TRAN(NO,"99")+" | "+NIP+" | "+NAMA
B=" | "+TRAN(KODE,"9")+" | "+TRAN(GAJI,"999,999")+" | "
C=TRAN(TUNJANGAN,"999,999")+" | "+TRAN(JML,"999,999")+" | "


? A+B+C
SKIP
ENDDO
? "====================================================================================="
IF PILIH=1
CT_LAYAR()
ENDIF
RETU

Read More

Tugas Matematika Diskrit

Bagi rekan-rekan yang ingin mengunduh file Tugas Matematika Diskrit, silakan klik link berikut ini.
tugas Mandiri 1.rtf
Selain dengan cara ini, teman-teman bisa unduh lewat Tab Unduhan di atas.

Read More

Materi Clipper

Bagi teman-teman yang ingin mengunduh file materi clipper bisa klik link berikut.
materi cliper.rar

Read More

Membuat Presentasi Bahan Ajar dengan PowerPoint 2007

Langkah-langkah:
1.Klik Start, All Program, Microsoft Office, Microsoft Office 2007
2.Tampil halaman lembar kerja PowerPoint
3.Atur design template dengan cara klik menu design, lalu pilih template yang dikehendaki.
4.Untuk menambah slide, klik kanan slides, pilih New Slide.
5.Untuk menghapus slide, klik kanan slides, pilih delete slide
6.Untuk membuat tombol navigasi dan menu, kita dapat menggunakan Slide Master. Carannya klik View pada ribbon, kemudian klik Slide Master.
7.Pada mode slide master klik slide yang pertama.
8.Untuk membuat tombol navigasi Next/Selanjutnya, pada ribbon klik Home, Shapes, dan klik Action Button Next.
9.Arahkan mouse ke pojok kanan bawah, klik – tahan – geser, untuk mengatur tombol, kemudian klik OK.
10.Masih dalam mode Slide Master, klik slide 3 untuk membuat tombol navigasi selanjutnya.
11.Untuk membuat tombol navigasi Back, Klik Ribbon Home, Shapes, klik Action Button Back.
12.Arahkan mouse ke pojok kiri bawah, klik-tahan-geser untuk mengatur ukuran tombol, kemudian klik OK.
13.Masih dalam slide 3, untuk membuat tombol home, klik ribbon Home, Shapes, klik Action Button Home.
14.Arahkan mouse ke pojok kiri bawah, klik-tahan-geser untuk mengatur ukuran tombol, kemudian klik OK.
15.Masih dalam mode Slide Master slides , klik-tahan dan geser ke kanan mouse agar kotak layout lebih kecil untuk memberi ruang menu yang akan kita buat.
16.Masih di slide 3, klik Home, Shapes, klik action button Rectangle
17.Arahkan mouse ke kiri atas, klik-tahan-geser, untuk mengatur ukuran menu. Untuk membuat teks, Klik kanan di pinggir kotak, pilih Edit. Dalam tutorial ini diketik Home
18.Kemudian untuk membuat menu selanjutnya, klik kanan, pilih Copy.
19.Arahkan mouse ke bawahnya lalu klik Paste.
21.Lakukan hal yang sama (19-20) untuk membuat menu yang lain.
22.Ok, urusan Slide Master sementara sudah selesai. Selanjutnya tutup Slide Master dengan cara klik Slide Master, Close Master View
23.Tampilan slide normal dapat kita lihat seperti gambar di bawah ini.
24.Sekarang kita lanjutkan mengisi slide dengan materi yang kita perlukan, klik slide 1 untuk membuat judul bahan ajar.
25.Slide 2 untuk mengiasi SK/KD, dan seterusnya sampai author sesuai urutan menu yang kita buat.
26.Jika langkah-langkah di atas dilakukan dengan benar, maka kita sudah mempunyai bahan ajar berbasis power point.
27.Heit…, tugas kita belum selesai. Kita simpan dulu dokumen kita supaya aman. Caranya klik Office button, Save As, PowerPoint Presentation.
28.Simpan file di tempat yang diinginkan pada kotak Save In, ketik nama file di kotak file name, lalu klik Save.
29.Kita lanjutkan urusan kita membuat hyperlink. Caranya, klik Slide 2, kemudian klik View, Slide Master.
30.Pada Mode Slide Master klik Slide 3.
31.Arahkan pointer mouse tepat di sepanjang kotak menu Home, kemudian klik Insert, Hyperlink.
32.Pada Kotak dialog Insert Hyperlink, klik Place in this Document, pilih Pengertian Internet/intranet, kemudian OK.
33.Lakukan hal yang sama untuk membuat Hyperlink SK/KD.
34.Demikian juga dengan Indikator.
35.Demikian juga dengan Materi.
36.Jangan lupa juga contoh.
37.Jangan lupa juga Uji Kompetensi.
38.Hal yang sama untuk Referensi.
39.Hyperlink terakhir untuk Author.
40.Sampai pada ini membuat hyperlink selesai, tutup slide master dengan klik Slide Master, Close Slide Master.
41.Sekarang kita tampilkan slide yang telah kita buat dengan cara klik menu Slide Show, From Current Slide.
42.Selanjutnya uji Hyperlink yang telah kita buat, dengan cara klik, Home, SK/KD, Indikator, Materi, dan seterusnya. Jika tahap yang kita lakukan benar maka hasilnya tidak akan mengecewakan.
43.Materi untuk pembelajaran telah selesai kita buat, selanjutnya silahkan berkreasi sebebas-bebasnya. Selamat Mencoba….

Untuk panduan lengkap dengan gambar anda bisa mengunduh file pdf-nya dengan cara klik menu tutorial di bagian atas, lalu klik membuat bahan ajar dengan PowerPoint. Selanjutnya akan tampil halaman unduh pada website 4shared.

Read More

SOAL STATISTIK II

Bagi rekan2 silahkan download soal statistik 2 di link berikut. Soal statisktik.doc
Tolong di informasikan ke teman yang lain. Trm ksh.

Read More

Sejarah Internet

Internet merupakan jaringan komputer yang dibentuk oleh Departemen Pertahanan Amerika Serikat di tahun 1969, melalui proyek ARPA yang disebut ARPANET (Advanced Research Project Agency Network), di mana mereka mendemonstrasikan bagaimana dengan hardware dan software komputer yang berbasis UNIX, kita bisa melakukan komunikasi dalam jarak yang tidak terhingga melalui saluran telepon. Proyek ARPANET merancang bentuk jaringan, kehandalan, seberapa besar informasi dapat dipindahkan, dan akhirnya semua standar yang mereka tentukan menjadi cikal bakal pembangunan protokol baru yang sekarang dikenal sebagai TCP/IP (Transmission Control Protocol/Internet Protocol).

Tujuan awal dibangunnya proyek itu adalah untuk keperluan militer. Pada saat itu Departemen Pertahanan Amerika Serikat (US Department of Defense) membuat sistem jaringan komputer yang tersebar dengan menghubungkan komputer di daerah-daerah vital untuk mengatasi masalah bila terjadi serangan nuklir dan untuk menghindari terjadinya informasi terpusat, yang apabila terjadi perang dapat mudah dihancurkan.

Pada mulanya ARPANET hanya menghubungkan 4 situs saja yaitu Stanford Research Institute, University of California, Santa Barbara, University of Utah, di mana mereka membentuk satu jaringan terpadu di tahun 1969, dan secara umum ARPANET diperkenalkan pada bulan Oktober 1972. Tidak lama kemudian proyek ini berkembang pesat di seluruh daerah, dan semua universitas di negara tersebut ingin bergabung, sehingga membuat ARPANET kesulitan untuk mengaturnya.

Oleh sebab itu ARPANET dipecah manjadi dua, yaitu "MILNET" untuk keperluan militer dan "ARPANET" baru yang lebih kecil untuk keperluan non-militer seperti, universitas-universitas. Gabungan kedua jaringan akhirnya dikenal dengan nama DARPA Internet, yang kemudian disederhanakan menjadi Internet.


Tahun, Kejadian

1957, Uni Soviet (sekarang Rusia) meluncurkan wahana luar angkasa, Sputnik.

1958, Sebagai buntut dari "kekalahan" Amerika Serikat dalam meluncurkan wahana luar angkasa, dibentuklah sebuah badan di dalam Departemen Pertahanan Amerika Serikat, Advanced Research Projects Agency (ARPA), yang bertujuan agar Amerika Serikat mampu meningkatkan ilmu pengetahuan dan teknologi negara tersebut. Salah satu sasarannya adalah teknologi komputer.

1962, J.C.R. Licklider menulis sebuah tulisan mengenai sebuah visi di mana komputer-komputer dapat saling dihubungkan antara satu dengan lainnya secara global agar setiap komputer tersebut mampu menawarkan akses terhadap program dan juga data. Di tahun ini juga RAND Corporation memulai riset terhadap ide ini (jaringan komputer terdistribusi), yang ditujukan untuk tujuan militer.

Awal 1960-an, Teori mengenai packet-switching dapat diimplementasikan dalam dunia nyata

Pertengahan 1960-an, ARPA mengembangkan ARPANET untuk mempromosikan "Cooperative Networking of Time-sharing Computers", dengan hanya empat buah host komputer yang dapat dihubungkan hingga tahun 1969, yakni Stanford Research Institute, University of California, Los Angeles, University of California, Santa Barbara, dan University of Utah.

1965, Istilah "Hypertext" dikeluarkan oleh Ted Nelson.

1968, Jaringan Tymnet dibuat.

1971, Anggota jaringan ARPANET bertambah menjadi 23 buah node komputer, yang terdiri atas komputer-komputer untuk riset milik pemerintah Amerika Serikat dan universitas.

1972, Sebuah kelompok kerja yang disebut dengan International Network Working Group (INWG) dibuat untuk meningkatkan teknologi jaringan komputer dan juga membuat standar-standar untuk jaringan komputer, termasuk di antaranya adalah Internet. Pembicara pertama dari organisasi ini adalah Vint Cerf, yang kemudian disebut sebagai "Bapak Internet"

1972-1974, Beberapa layanan basis data komersial seperti Dialog, SDC Orbit, Lexis, The New York Times DataBank, dan lainnya, mendaftarkan dirinya ke ARPANET melalui jaringan dial-up.

1973, ARPANET ke luar Amerika Serikat: pada tahun ini, anggota ARPANET bertambah lagi dengan masuknya beberapa universitas di luar Amerika Serikat yakni University College of London dari Inggris dan Royal Radar Establishment di Norwegia.

1974, Vint Cerf dan Bob Kahn mempublikasikan spesifikasi detail protokol Transmission Control Protocol (TCP) dalam artikel "A Protocol for Packet Network Interconnection".

1974, Bolt, Beranet & Newman (BBN), pontraktor untuk ARPANET, membuka sebuah versi komersial dari ARPANET yang mereka sebut sebagai Telenet, yang merupakan layanan paket data publik pertama.

1977, Sudah ada 111 buah komputer yang telah terhubung ke ARPANET.

1978, Protokol TCP dipecah menjadi dua bagian, yakni Transmission Control Protocol dan Internet Protocol (TCP/IP).

1979, Grup diskusi Usenet pertama dibuat oleh Tom Truscott, Jim Ellis dan Steve Bellovin, alumni dari Duke University dan University of North Carolina Amerika Serikat. Setelah itu, penggunaan Usenet pun meningkat secara drastis.
Di tahun ini pula, emoticon diusulkan oleh Kevin McKenzie.

Awal 1980-an, Komputer pribadi (PC) mewabah, dan menjadi bagian dari banyak hidup manusia.
Tahun ini tercatat ARPANET telah memiliki anggota hingga 213 host yang terhubung.
Layanan BITNET (Because It's Time Network) dimulai, dengan menyediakan layanan e-mail, mailing list, dan juga File Transfer Protocol (FTP).
CSNET (Computer Science Network) pun dibangun pada tahun ini oleh para ilmuwan dan pakar pada bidang ilmu komputer dari Purdue University, University of Washington, RAND Corporation, dan BBN, dengan dukungan dari National Science Foundation (NSF). Jaringan ini menyediakan layanan e-mail dan beberapa layanan lainnya kepada para ilmuwan tersebut tanpa harus mengakses ARPANET.

1982, Istilah "Internet" pertama kali digunakan, dan TCP/IP diadopsi sebagai protokol universal untuk jaringan tersebut.
Name server mulai dikembangkan, sehingga mengizinkan para pengguna agar dapat terhubung kepada sebuah host tanpa harus mengetahui jalur pasti menuju host tersebut.
Tahun ini tercatat ada lebih dari 1000 buah host yang tergabung ke Internet.

1986, Diperkenalkan sistem nama domain, yang sekarang dikenal dengan DNS (Domain Name System) yang berfungsi untuk menyeragamkan sistem pemberian nama alamat di jaringan komputer.


Kejadian penting lainnya

Tahun 1972, Ray Tomlinson berhasil menyempurnakan program e-mail yang ia ciptakan setahun yang lalu untuk ARPANET. Program e-mail ini begitu mudah sehingga langsung menjadi populer. Pada tahun yang sama, ikon "@" juga diperkenalkan sebagai lambang penting yang menunjukkan “at” atau “pada”. Tahun 1973, jaringan komputer ARPANET mulai dikembangkan ke luar Amerika Serikat.

Komputer University College di London merupakan komputer pertama yang ada di luar Amerika yang menjadi anggota jaringan Arpanet. Pada tahun yang sama, dua orang ahli komputer yakni Vinton Cerf dan Bob Kahn mempresentasikan sebuah gagasan yang lebih besar, yang menjadi cikal bakal pemikiran internet. Ide ini dipresentasikan untuk pertama kalinya di Universitas Sussex.

Hari bersejarah berikutnya adalah tanggal 26 Maret 1976, ketika Ratu Inggris berhasil mengirimkan e-mail dari Royal Signals and Radar Establishment di Malvern. Setahun kemudian, sudah lebih dari 100 komputer yang bergabung di ARPANET membentuk sebuah jaringan atau network. Pada 1979, Tom Truscott, Jim Ellis dan Steve Bellovin, menciptakan newsgroups pertama yang diberi nama USENET. Tahun 1981 France Telecom menciptakan gebrakan dengan meluncurkan telpon televisi pertama, dimana orang bisa saling menelpon sambil berhubungan dengan video link.

Karena komputer yang membentuk jaringan semakin hari semakin banyak, maka dibutuhkan sebuah protokol resmi yang diakui oleh semua jaringan. Pada tahun 1982 dibentuk Transmission Control Protocol atau TCP dan Internet Protokol atau IP yang kita kenal semua. Sementara itu di Eropa muncul jaringan komputer tandingan yang dikenal dengan Eunet, yang menyediakan jasa jaringan komputer di negara-negara Belanda, Inggris, Denmark dan Swedia. Jaringan Eunet menyediakan jasa e-mail dan newsgroup USENET.

Untuk menyeragamkan alamat di jaringan komputer yang ada, maka pada tahun 1984 diperkenalkan sistem nama domain, yang kini kita kenal dengan DNS atau Domain Name System. Komputer yang tersambung dengan jaringan yang ada sudah melebihi 1000 komputer lebih. Pada 1987 jumlah komputer yang tersambung ke jaringan melonjak 10 kali lipat manjadi 10.000 lebih.

Tahun 1988, Jarko Oikarinen dari Finland menemukan dan sekaligus memperkenalkan IRC atau Internet Relay Chat. Setahun kemudian, jumlah komputer yang saling berhubungan kembali melonjak 10 kali lipat dalam setahun. Tak kurang dari 100.000 komputer kini membentuk sebuah jaringan. Tahun 1990 adalah tahun yang paling bersejarah, ketika Tim Berners Lee menemukan program editor dan browser yang bisa menjelajah antara satu komputer dengan komputer yang lainnya, yang membentuk jaringan itu. Program inilah yang disebut www, atau World Wide Web.

Tahun 1992, komputer yang saling tersambung membentuk jaringan sudah melampaui sejuta komputer, dan di tahun yang sama muncul istilah surfing the internet. Tahun 1994, situs internet telah tumbuh menjadi 3000 alamat halaman, dan untuk pertama kalinya virtual-shopping atau e-retail muncul di internet. Dunia langsung berubah. Di tahun yang sama Yahoo! didirikan, yang juga sekaligus kelahiran Netscape Navigator.

Referensi:
* http://id.wikipedia.org/wiki/Sejarah_Internet

Read More