110 DAFTAR RIWAYAT HIDUP
Nama
: Evan Halim Kurniawan
Tempat, tanggal lahir : Jakarta, 08 Oktober 1982 Jenis kelamin
: Pria
Agama
: Kristen
Alamat
: Green Garden blok L1 no 16 Jakarta Barat
No. telepon
: 021 - 5809811
Riwayat pendidikan : - SD Triana (1988-1994) - SMP Ketapang I (1994-1997) - SMU Ketapang II (1997-2000) - Universitas Bina Nusantara (2000-2004)
111 DAFTAR RIWAYAT HIDUP
Nama
: Natalia
Tempat, tanggal lahir : Jakarta, 02 Desember 1981 Jenis kelamin
: Wanita
Agama
: Kristen
Alamat
: Jl. Janur II blok C14 no 26, Vila Kelapa Dua Jakarta Barat
No. telepon
: 021 - 5347795
Riwayat pendidikan : - SD Budi Mulia, Jakarta (1988-1994) - SMP Budi Mulia, Jakarta (1994-1997) - SMU St. Thomas Aquino Tangerang (1997-2000) - Universitas Bina Nusantara (2000-2004)
L1
KUISIONER Kami mahasiswa Universitas Bina Nusantara mengadakan kuisioner untuk melengkapi skripsi kami. Oleh karena itu, kami memohon bantuan kepada rekan-rekan, Bapak/Ibu untuk mengisi kuisioner ini dengan sebaik-baiknya. Harap semua pertanyaan diisi dengan memberi tanda X pada kotak yang disediakan. 1. Apakah Anda sering menggunakan komputer? Sangat sering Cukup sering Jarang
Tidak pernah
2. Apakah Anda mengetahui bagaimana cara agar satu komputer dapat terhubung dengan komputer lain? Ya Tidak 3. Apakah Anda mengetahui apa itu Jaringan Komputer? Sangat mengetahui Cukup mengetahui Kurang mengetahui Tidak mengetahui 4. Apakah Anda mengerti tentang Jaringan Komputer? Sangat mengerti Cukup mengerti Kurang mengerti
Tidak mengerti
5. Menurut Anda, apakah sulit membuat Jaringan Komputer sendiri? Sangat sulit Cukup sulit Kurang sulit Tidak sulit 6. Apakah Anda merasa tertarik membuat Jaringan Komputer sendiri? Sangat tertarik Cukup tertarik Kurang tertarik Tidak tertarik 7. Apakah Anda memerlukan panduan dalam membuat Jaringan Komputer? Sangat perlu Cukup perlu Kurang perlu Tidak perlu 8. Apakah Anda tertarik dengan metode pembelajaran perangkat ajar? Sangat tertarik Cukup tertarik Kurang tertarik Tidak tertarik 9. Menurut Anda, apakah bermanfaat jika dibuat suatu perangkat ajar membangun Jaringan Komputer berbasis multimedia? Sangat bermanfaat Cukup bermanfaat Kurang bermanfaat Tidak bermanfaat 10. Bagaimana kriteria suatu perangkat ajar yang baik menurut Anda? (jawaban boleh lebih dari satu) Informasi lengkap Mudah digunakan Tampilan menarik Interaktif
L2
KUISIONER EVALUASI PROGRAM Kami mahasiswa Universitas Bina Nusantara mengadakan kuisioner untuk melengkapi skripsi kami. Oleh karena itu, kami memohon bantuan kepada rekan-rekan, Bapak/Ibu untuk mengisi kuisioner ini dengan sebaik-baiknya. Harap semua pertanyaan diisi dengan memberi tanda X pada kotak yang disediakan. 1. Bagaimana pendapat Anda terhadap perangkat ajar ini? Sangat menarik Cukup menarik Kurang menarik
Tidak menarik
2. Menurut Anda, bagaimana kemudahan menjalankan perangkat ajar ini? Sangat mudah Cukup mudah Cukup Sulit Sangat sulit 3. Menurut Anda, bagaimana tampilan layar perangkat ajar ini? Sangat menarik Cukup menarik Kurang menarik
Tidak menarik
4. Menurut Anda, Bagaimana kelengkapan informasi dalam perangkat ajar ini? Sangat lengkap Cukup lengkap Kurang lengkap Tidak lengkap 5. Menurut Anda, Apakah gambar dan animasi yang ada sudah sesuai dan mendukung informasi yang ada? Sangat sesuai Cukup sesuai Kurang sesuai Tidak sesuai 6. Secara keseluruhan apakah perangkat ajar ini membantu Anda mendapatkan informasi yang Anda inginkan? Sangat membantu Cukup membantu Kurang membantu Tidak membantu 7. Apakah Anda merasa puas dengan perangkat ajar ini? Sangat puas Cukup puas Kurang puas
Tidak puas
8. Menurut Anda, apakah masih ada kekurangan dalam perangkat ajar ini secara keseluruhan? Ya Tidak 9. Sebutkan kekurangan yang ada dari perangkat ajar ini (jawaban boleh lebih dari satu) Link yang kurang baik Waktu akses lama Pencarian kurang baik Masih terdapat kesalahan 10. Menurut Anda, apakah perlu dibuat versi selanjutnya yang lebih baru dari perangkat ajar ini? Sangat perlu Kurang perlu Sangat perlu Tidak perlu
Listing Program
Add Image <%@ Language=VBScript %> <% If (Request.Form("newNamafile") <> "") And (Request.Form("newPreview") <> "") Then dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Data Source=" & dbPath Set rs = conn.Execute("SELECT MAX(ID_Gambar) As Max_ID FROM Gambar") If Not rs.EOF Then num = CInt(Mid(rs("Max_ID"), 2))+1 id = "000" & num id = "G" & Mid(id, Len(id)-3) conn.Execute "INSERT INTO Gambar (ID_Gambar, Keterangan, Namafile, Preview) VALUES ('" & id & "', '" & Request.Form("newKeterangan") & "', '" & Request.Form("newNamafile") & "', '" & Request.Form("newPreview") & "')" Response.write "hasil=ok" End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing End If %>
Add Image Link <%@ Language=VBScript %> <% If (Request.Form("ID_Pelajaran") <> "") And (Request.Form("ID_Gambar") <> "") Then dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Data Source=" & dbPath Set rs = conn.Execute("SELECT * FROM DaftarGambar WHERE ID_Gambar='" & Request.Form("ID_gambar") & "' AND ID_Pelajaran='" & Request.Form("ID_Pelajaran") & "'") If rs.EOF Then conn.Execute "INSERT INTO DaftarGambar (ID_Pelajaran, ID_Gambar) VALUES ('" & Request.Form("ID_Pelajaran") & "', '" & Request.Form("ID_Gambar") & "')" rs.Close conn.Close Set rs = Nothing Set conn = Nothing End If %>
Delete Image <%@ Language=VBScript %> <% If Request.Form("id") <> "" Then dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Data Source=" & dbPath
conn.BeginTrans conn.Execute "DELETE DaftarGambar FROM DaftarGambar WHERE ID_Gambar='" & Request.Form("id") & "'" conn.Execute "DELETE Gambar FROM Gambar WHERE ID_Gambar='" & Request.Form("id") & "'" conn.CommitTrans conn.Close Set conn = Nothing End If %>
Delete Image Link <%@ Language=VBScript %> <% If (Request.Form("ID_Pelajaran") <> "") And (Request.Form("ID_Gambar") <> "") Then dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Data Source=" & dbPath conn.Execute "DELETE DaftarGambar FROM DaftarGambar WHERE ID_Pelajaran='" & Request.Form("ID_Pelajaran") & "' AND ID_Gambar='" & Request.Form("ID_Gambar") & "'" conn.Close Set conn = Nothing End If %>
Get Image <% dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Persist Security Info=False;Data Source=" & dbPath set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Gambar.ID_Gambar, Gambar.Keterangan, Gambar.Namafile, Gambar.Preview FROM DaftarGambar,Gambar WHERE DaftarGambar.ID_Pelajaran='" & Request.Form("id") & "' AND DaftarGambar.ID_Gambar=Gambar.ID_Gambar ORDER BY Gambar.ID_Gambar ASC" rs.Open strSQL, conn, 1, 3 nHitung = 0 Do While Not rs.EOF Response.Write "gambar" & nHitung & "=" & Server.URLEncode(rs("ID_Gambar")) & "&preview" & nHitung & "=" & Server.URLEncode(rs("Preview")) & "&namafile" & nHitung & "=" & Server.URLEncode(rs("Namafile")) & "&keterangan" & nHitung & "=" & Server.URLEncode(rs("keterangan")) & "&" nHitung = nHitung + 1 rs.MoveNext Loop rs.close conn.close set rs = Nothing set conn = Nothing Response.Write( "total=" & nHitung ) %>
Get Image List <% dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Persist Security Info=False;Data Source=" & dbPath set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT ID_Gambar, Keterangan, Namafile, Preview FROM Gambar ORDER BY ID_Gambar ASC" rs.Open strSQL, conn, 1, 3 nHitung = 0 Do While Not rs.EOF Response.Write "id" & nHitung & "=" & Server.URLEncode(rs("ID_Gambar")) & "&preview" & nHitung & "=" & Server.URLEncode(rs("Preview")) & "&namafile" & nHitung & "=" & Server.URLEncode(rs("Namafile")) & "&keterangan" & nHitung & "=" & Server.URLEncode(rs("keterangan")) & "&" nHitung = nHitung + 1 rs.MoveNext Loop rs.close conn.close set rs = Nothing set conn = Nothing Response.Write( "total=" & nHitung ) %>
Get Pelajaran <% dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Persist Security Info=False;Data Source=" & dbPath set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Keterangan FROM Pelajaran WHERE ID_Pelajaran='" & Request.Form("id") & "'" rs.Open strSQL, conn, 1, 3 If Not rs.EOF Then teori = Server.URLEncode(rs("Keterangan")) else teori = " " rs.Close conn.Close Set rs = Nothing Set conn = Nothing Response.Write( "teori=" & teori ) %>
Get Pelajaran List <%@ Language=VBScript %> <% dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Persist Security Info=False;Data Source=" & dbPath Set rs = conn.Execute("SELECT ID_Pelajaran, Nama, Keterangan FROM Pelajaran ORDER BY ID_Pelajaran") nHitung = 0 While Not rs.EOF
Response.Write "id" & nHitung & "=" & Server.URLEncode(rs("ID_Pelajaran")) & "&" Response.Write "nama" & nHitung & "=" & Server.URLEncode(rs("Nama")) & "&" nHitung = nHitung + 1 rs.MoveNext Wend Set rs = Nothing Set conn = Nothing Response.Write "total=" & nHitung %>
Update Image <%@ Language=VBScript %> <% If Request.Form("id") <> "" Then dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Data Source=" & dbPath conn.Execute "UPDATE Gambar SET Keterangan='" & Request.Form("newKeterangan") & "', Namafile='" & Request.Form("newNamafile") & "', Preview='" & Request.Form("newPreview") & "' WHERE ID_Gambar='" & Request.Form("id") & "'" Set rs = Nothing Set conn = Nothing End If %>
Update Pelajaran <%@ Language=VBScript %> <% If Request.Form("id") <> "" Then dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read|Write;Data Source=" & dbPath conn.Execute "UPDATE Pelajaran SET Keterangan='" & Request.Form("newKeterangan") & "' WHERE ID_Pelajaran='" & Request.Form("id") & "'" conn.Close Set conn = Nothing End If %>
Do Search <% dbPath = Server.MapPath("db/database.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Persist Security Info=False;Data Source=" & dbPath set rs = Server.CreateObject("ADODB.Recordset") searchtext = Request.Form("searchtext") if searchtext <> "" then strSQL = "SELECT ID_Pelajaran, Nama FROM Pelajaran WHERE (Keterangan LIKE '% " & searchtext & "%') OR (Keterangan LIKE '%" & searchtext & " %') ORDER BY ID_Pelajaran" else strSQL = "SELECT ID_Pelajaran, Nama FROM Pelajaran"
end if rs.Open strSQL, conn, 1, 3 nIndex = 0 Do While Not rs.EOF Response.Write "id" & nIndex & "=" & Server.URLEncode(rs("ID_Pelajaran")) & "&nama" & nIndex & "=" & Server.URLEncode(rs("Nama")) & "&" nIndex = nIndex + 1 rs.MoveNext Loop rs.close conn.close set rs = Nothing set conn = Nothing Response.Write( "total=" & nIndex ) %>
