DAFTAR PUSTAKA. Bronner, C, Essenberger, F., (2006). Frank-Hertz-Experiment, Freie Universität, Berlin

DAFTAR PUSTAKA Adri M., (2003). Pengembangan Paket Multimedia Interaktif sebagai Sarana Belajar Mandiri Mahasiswa, diakses dari www.ilmukomputer.com, tanggal 9 Mei 2008. Bronner, C, Essenberger, F., (2006). Frank-Hertz-Experiment, Freie Universität, Berlin. Burewicz, A., and Miranowicz, N., (2006). Effectiveness of Multimedia Laboratory Instruction, Jurnal Chemistry Education Researche and Practise, The Royal Society of Chemistry, 7 (1), 1-12 Dargo, (2006). Efektifitas Metode Eksperimen dan Audio Visual Komputer dengan Memperhatikan Motivasi Belajar Siswa untuk Meningkatkan Prestasi pada Konsep Transportasi Tumbuhan, Thesis Magister Pendidikan Universitas Sebelas Maret Surakarta. Eilks I., (2005). Experiences and Reflections about Teaching Atomic Structure in a Jigsaw Classroom in Lower Secondary School Chemistry Lessons, Journal of Chemical Education, vol 82-2. p 313-319 Gabel, D.L., Samuel, K.V., & Hunn, D.F., (1987). Understanding the particulate nature of matter, Journal of Chemical Education 64 (8), 695-697 Greenspan, D., (2000). A Survey of Factors that Influence Computer Access and Usage Among Students with and without Disabilities. Tesis Sarjana Pendidikan. Columbia University Teachers College. p 50-53 Holmes, B., Tangney, B., FitzGibbon, A., Savage, T., dan Meehan, S., (2001). Communal Constructivism: Student Constructing Learning for as well as with others, Proceeding of the 12th International Conference of the Society for Information Technology and Teacher Education (SITE 2001). P 3114-9 Holmes, B. dan Gardner J., (2006). e-Learning: Concepts and Practise, Sage Publications, London, UK. p. 14-16, 78 Horton, C., (2004 ). Student preconceptions and misconceptions in chemistry, California Journal of Science Education, Vol. VII, 2. Jones L.L., (1999). Learning Chemistry Through Desidn and Construction, Uniserve Science News, vol.14, p. 3-7. Krane, K., (1992). Fisika Modern (diterjemahkan oleh H.J. Wospakrik), Universitas Indonesia Press, Jakarta. p. 156 – 158.

72

Thomson J.J.,(1897). Cathode Rays, Philosophical Magazine, 44, 295 Parks, (1998), Atomic Structure from Democritus to Dalton, http://dbhs.wvusd.k12.ca.us diakses tanggal 14 November 2007 Parks J.L., (1998), John Dalton, the father of Atomic Theory, http : //dbhs.wvusd.k12.ca.us. Diakses 12 Oktober 2007 Kind, Vanessa, (2004). Beyond Appearances: Students’ misconceptions about basic chemical ideas, 2nd Edition, School of Education, Durham University, UK. Self-published; available at http://www.chemsoc.org/pdf/LearnNet/rsc/miscon.pdf/ Kozma, R., (2000). Students collaborating with computer models and physical experiments. In J. Roschelle & C. Hoadley (Eds.), Proceedings of the Conference on Computer-Supported Collaborative Learning 1999. Mahwah, NJ: Erlbaum. Millikan R A, (1924). The electron and the light quant from the experimental point of view, noble lecture dalam penerimaan hadiah nobel fisika 23 mei 1924. Mitra, A., dan Steffensmeier T., (2000). Changes in Student Attitudes and Student Computer Use in a Computer -Enriched Enviroment. Journal of Research on Computing in Education. 32(3): 417-433. Nazawee, M bin Mohd Zaki, (2006). Pembangunan aplikasi multimedia bagi proses analisis dan rekabentuk rasuk konkrit bertetulang, thesis PSm, Universiti Teknologi Malaysia. p. 25 - 32 Salomon G. dan Perkin D., (1998). Individual and Social Aspect of Learning, http://construct.haifa.ac.il/~gsalomon/new/. Diakses tanggal 12 Mei 2008. Team 19662, (2006). Millikan’s Experiment, Atom the Incredible World, dalam http://library.thinkquest.org/19662/low/eng/exp-thomson.html diakses tanggal 12 Oktober 2007 Wohnsigl, (1994). The Atomists: Leucippus of Miletus and Democritus of Abdera, Tufts University. Wospakrik,H.J. (2005), Dari Atomos Hingga Quark, Penerbit Universitas Atma Jaya, Jakarta. hal. 117-125. Tasir, Z, Harun, J, dan Yen, L, S. (2007). Faktor Penggunaan Komputer dan Kaitannya dengan Kesediaan Mengikuti Pembelajaran Dalam Talian Kalangan Pelajar Sarjana, Jurnal Teknologi, University Teknologi Malaysia, 44E, 75-79

LAMPIRAN

74

Lampiran A Daftar script pada percobaan Thomson

No

Nama Script

Letak

Keterangan

1

Page2

Halaman petunjuk tes pendahuluan

Perintah menyimpan variabel skor

2

Page 2_Script2


Pengisian nama, jika nama tidak diisi, keluar.

3

Page 2_TextBTN2


JIka nama diisi, pindah ke halaman 0

4

Page 2_TextBTN


keluar

5

0_Script1

Halaman soal tes pendahuluan

Memunculkan tulisan Benar jika jawab benar dan Salah jika sebaliknya.

6

0_Script2 s.d 0_Script5


s.d.a dan acak soal, acak opsi jawaban, simpan skor

7

0_ScriptRandom


Memunculkan skor, mengacak

8

0_ScriptAwal


Mengacak soal yang belum dikeluarkan

9

0_ScriptSoal


Menampilkan soal dan opsi jawab hasil pengacakan yang belum keluar

10

0_Soal0 s.d. 0_Soal7


Memilih jawaban benar

11

Page4

Halaman 4 animasi Thomson

Posisi awal arus listrik tidak terputus

75

12

Page 4_setup


Menentuka posisi awal elektron, menggerakkan elektron

13

Page 4_control


Memandu arah gerakan elektron

14

Page 4_Arus


Jika arus hidup, gerak elektron melengkung

15

Pembukaan

Halaman 1 praktikum Thomson

Menyembunyikan group tombol menu.

16

Praktikum1_Gerak

Halaman praktikum

Mengatur gerakan melingkar elektron

17

Praktikum1_Simpan

Halaman praktikum

Mewnyimpan data

18

Praktikum1

Halaman praktikum

Menampilkan variabel medan dan potensial

19

Praktikum2

Halaman praktikum

Menampilkan variabel medan dan potensial

20

Analisa

Halaman analisa

Menyembunyikan gambar titik elektron

76

Lampiran B Script pada percobaan Thomson

Script 0_script1

*** If (string1$=benar$) Then jawab$='benar' End If (jawab$='benar') Then VideoPlay("Video") Total=Total+1 skor = Total*10 DisplayValue("Text0","skor") SaveVariable("Nilai","Total") End If (jawab$='salah ') Then VideoPlay("Video1") End Hide("grpBTN") Show("Bitmap") Pause("2000") RunScript("ScriptRandom")

0_Script2.rtf ****** If (string2$=benar$) Then jawab$='benar' End If (jawab$='benar') Then VideoPlay("Video") Total=Total+1 skor = Total*10 DisplayValue("Text0","skor") SaveVariable("Nilai","Total") End If (jawab$='salah ') Then VideoPlay("Video1") End Hide("grpBTN") Show("Bitmap") Pause("2000")

77

RunScript("ScriptRandom")

============================================================= 0_ScriptAwal.rtf *** If (On0=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On0=0) Then On0=1 LoadText("Paragraph","<Embedded>\soalthomson0.txt") SaveVariable("On0","On0") jawab$='salah ' benar$='Tabung sinar katoda' SongListLoad("<Embedded>\jwbthomson0.txt","") RunScript("ScriptSoal") End If (On1=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On1=0) Then On1=1 LoadText("Paragraph","<Embedded>\soalthomson1.txt") SaveVariable("On1","On1") jawab$='salah ' benar$='Karena sifat sinar yang dihasilkan oleh bahan yang berbeda memiliki karakteristik sama' SongListLoad("<Embedded>\jwbthomson1.txt","") RunScript("ScriptSoal") End If (On2=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On2=0) Then On2=1

78

LoadText("Paragraph","<Embedded>\soalthomson2.txt") SaveVariable("On2","On2") jawab$='salah ' benar$='berhasil menentukan harga perbandingan e/m' SongListLoad("<Embedded>\jwbthomson2.txt","") RunScript("ScriptSoal") End If (On3=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On3=0) Then On3=1 LoadText("Paragraph","<Embedded>\soalthomson3.txt") SaveVariable("On3","On3") jawab$='salah ' benar$='jika atom kehilangan satu atau lebih elektron akan membentuk ion positif' SongListLoad("<Embedded>\jwbthomson3.txt","") RunScript("ScriptSoal") End If (On4=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On4=0) Then On4=1 LoadText("Paragraph","<Embedded>\soalthomson4.txt") SaveVariable("On4","On4") jawab$='salah ' benar$='atom bersifat kekal dan tidak terbagi' SongListLoad("<Embedded>\jwbthomson4.txt","") RunScript("ScriptSoal") End If (On5=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End

79

If (On5=0) Then On5=1 LoadText("Paragraph","<Embedded>\soalthomson5.txt") SaveVariable("On5","On5") jawab$='salah ' benar$='sinar akan membelok mendekati kutub magnet' SongListLoad("<Embedded>\jwbthomson5.txt","") RunScript("ScriptSoal") End If (On6=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On6=0) Then On6=1 LoadText("Paragraph","<Embedded>\soalthomson6.txt") SaveVariable("On6","On6") jawab$='salah ' benar$='televisi' SongListLoad("<Embedded>\jwbthomson6.txt","") RunScript("ScriptSoal") End If (On7=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On7=0) Then On7=1 LoadText("Paragraph","<Embedded>\soalthomson7.txt") SaveVariable("On6","On6") jawab$='salah ' benar$='terjadi defleksi sinar katoda menjauhi kutub magnet negatif' SongListLoad("<Embedded>\jwbthomson7.txt","") RunScript("ScriptSoal") End

======================================================= =====

80

0_ScriptRandom.rtf **** n=n+1 SaveVariable("nomer","n") skor =Total*10 DisplayValue("Text0","skor") If (n=6) Then LoadVariable("Nilai","Total") Hide("Anigif") Hide("Group") Hide("Paragraph") Hide("Text1") Hide("Video") Hide("Video1") Show("Group3") LoadText("txtNama","name$") DisplayValue("txtNilai","skor") End If (n<>6) Then script=RND(4) Script$ = 'Soal'+CHAR(script) Pause("100") RunScript("Script$") End ============================================================ 0_ScriptSoal.rtf **** skor = Total*10 DisplayValue("Text0","skor") DisplayValue("Text1","n") string1$=' ' string2$=' ' string3$=' ' string4$=' ' string5$=' ' SongListRND() LoadText("string1$","1") LoadText("string2$","2") LoadText("string3$","3") LoadText("string4$","4") LoadText("string5$","5") LoadText("Paragraph1","string1$") LoadText("Paragraph2","string2$")

81

LoadText("Paragraph3","string3$") LoadText("Paragraph4","string4$") LoadText("Paragraph5","string5$") Hide("Bitmap") Show("Bitmap9a") Show("Text9a") Show("Bitmap9b") Show("Text9b") Show("Bitmap9c") Show("Text9c") Show("Bitmap9d") Show("Text9d") Show("Bitmap9e") Show("Text9e") Hide("Video") Hide("Video1") SaveVariable("Nilai","Total") ======================================================= === 0_Soal0.rtf **** If (On0=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On0=0) Then On0=1 LoadText("Paragraph","<Embedded>\soalthomson0.txt") SaveVariable("On0","On0") jawab$='salah ' benar$='Tabung sinar katoda' SongListLoad("<Embedded>\jwbthomson0.txt","") RunScript("ScriptSoal") End Refresh("")

============================================================ Analisa.rtf **** Hide("Line") Hide("Circle1") Hide("Circle2") Hide("Circle3")

82

Hide("Circle4") Hide("Circle5") Hide("Circle6") Hide("Circle7") Hide("Circle8") Hide("Circle9") Hide("Circle10") ====================================================================

Analisa_Analisa.rtf ****

JumlahX=0 JumlahY=0 For l=1 To k JumlahX=JumlahX+dataX[l] JumlahY=JumlahY+dataY[l] Next l JumlahX$=CHAR(JumlahX) JumlahY$=CHAR(JumlahY) k$=CHAR(k) eq$='prec(10); '+JumlahX$+'/'+k$+'' PluginSet("Eval","eq$") PluginGet("Eval","RataX$") eq$='prec(10); '+JumlahY$+'/'+k$+'' PluginSet("Eval","eq$") PluginGet("Eval","RataY$") RataX=VAL(RataX$) RataY=VAL(RataY$) **Menghitung Gradien For l=1 To k GradAtas= GradAtas + ((dataX[l]-RataX)*(dataY[l]RataY)) GradBawah= GradBawah + ((dataX[l]-RataX)^2) Next l GradAtas$=CHAR(GradAtas) GradBawah$=CHAR(GradBawah) eq$='prec(10); '+GradAtas$+'/'+GradBawah$+'' PluginSet("Eval","eq$") PluginGet("Eval","Gradien$") Gradien=VAL(Gradien$) **Menghitung nilai maksimum dan minimum For l=1 To k If (dataXMaks
83

dataXMaks = dataX[l] End Next l For l=1 To k If (dataYMaksdataX[l]) Then dataXMin = dataX[l] End Next l For l=1 To k If (dataYMin>dataY[l]) Then dataYMin = dataY[l] End Next l

=========================================================== Page 2.rtf **** aa = 0 SaveVariable("aa","aa") skor=0 =========================================================== Page 2_Script2.rtf **** If (aa = 1) Then If (name$='') Then Show("Group2") End If (name$<>'' ) Then Page("0") End End =========================================================== Page 2_TextBTN2.rtf **** If (name$='') Then Message("Tuliskan Nama Anda","") End If (name$<>'' ) Then

84

aa = 1 SaveVariable("aa ","aa") Page("0") End

========================================================== Page 2_TextBTN.rtf **** Exit() ======================================================= Page 2_TextBTN.rtf **** Exit()

=========================================================== Page 4.rtf **** on=FALSE arus=FALSE =========================================================== Page 4_Arus.rtf **** If (arus=TRUE) Then If (x>373) Then **Reverse the dirx calculation so if it =5 it will now =-5 dirx=0+7 diry=0+0.5 End End =========================================================== Page 4_control.rtf **** ***Move the ball horisontally by dirx and vertically by diry** x=x+dirx y=y+diry MoveObject("Circle","x,y")

85

**************************************************** *** ***Check if the ball has gone past xlocation 400 (current right hand side of screen ) If (arus=TRUE) Then If (x>373) Then **Reverse the dirx calculation so if it =5 it will now =-5 dirx=0+7 diry=0+0.5 End End If (x>551) Then dirx=0 diry=0 RunScript("setup") End ReorderObject("Circle","") **************************************************** *** ScriptTimer("control","30")

=========================================================== Page 4_setup.rtf **** If (on=TRUE) Then ***Set the start postion of the ball x=224 y=255 MoveObject("Circle","x,y") ***Set Direction Control*** **This will be used as the pixel amount the object will move** dirx=0+7 diry=0 **Now Run the Move Script** RunScript("control") End =========================================================== Pembukaan.rtf ****

86

Hide("GroupTombolPraktikum")

============================================================ Praktikum1.rtf **** LoadText("Paragraph","F:\tugas akhir\embeded files\Cara Kerja thomson.txt") LoadVariable("Medan","B") LoadVariable("Potensial","V") DisplayValue("Medan","B") DisplayValue("Potensial","V")

============================================================ Praktikum1_Gerak.rtf **** If (B=0) Then Message("Anda belum menentukan besarnya medan magnet","") Else If (B>0) Then If (V=0) Then Message("Anda belum menentukan besarnya potensial","") Else If (V>0) Then If (Reset=FALSE) Then Message("Anda belum mereset alat praktikum","") Else If (Reset=TRUE) Then ** menghitung jari-jari ** k adalah perbandingan m/e ** r = akar(2Vk)/B ** misalkan k = 5.685 x 10-9 g/C akar= 2*V*5.685*10^-9 akar$=CHAR(akar) eq$='prec(10); sqrt('+akar$+')'

87

PluginSet("Eval","eq$") PluginGet("Eval","d$") r=VAL(d$)/B X = 360 Y = 286 For i=0 To 2*r+1 Y2=r*r-(r-i)^2 Y2$=CHAR(Y2) eq$='prec(10); sqrt('+Y2$+')' PluginSet("Eval","eq$") PluginGet("Eval","d$") d=VAL(d$) x=360+i y=286-d MoveObject("Circle1","x,y") Pause("jeda") Refresh("") Next i DisplayValue("Text","r") Reset=FALSE End End End End End End

============================================================ Praktikum1_Simpan.rtf **** If (k=10) Then Message("Data yang diijinkan adalah 10 data","") Else If (k<10) Then k=k+1 V$=CHAR(V) eq$='prec(10); sqrt('+V$+')' PluginSet("Eval","eq$") PluginGet("Eval","d$") dataX[k]=VAL(d$) jari=VAL(jari$) dataY[k]=jari file$='<Embedded>\data.txt' k$=CHAR(k)

88

dataX$=CHAR(dataX[k]) dataY$=CHAR(dataY[k]) C$=' '+k$+' '+dataX$+' ' +dataY$ PluginSet("PlugIn","file$") PluginRun("PlugIn","f_OpenApend") PluginSet("PlugIn","C$") PluginRun("PlugIn","f_Write") PluginRun("PlugIn","f_CloseWrite") PluginSet("PlugIn","file$") PluginRun("PlugIn","f_OpenApend") SaveVariable("Medan","B") SaveVariable("Potensial","V") Page("Praktikum1") Else End End

=========================================================== Praktikum2.rtf **** LoadText("Paragraph"," <embedded>\Cara Kerja thomson.txt") LoadVariable("Medan","B") LoadVariable("Potensial","V") DisplayValue("Medan","B") DisplayValue("Potensial","V")

Lampiran C Daftar script pada percobaan Millikan

No

Nama Script

Letak

Keterangan

1

0_Script1-tes millikan.rtf

Tes millikan

Memunculkan tulisan Benar jika jawab benar dan Salah jika sebaliknya.

2

0_Script2-tes millikan.rtf s.d. 0_Script5

Tes millikan

s.d.a dan acak soal, acak opsi jawaban, simpan skor

3

0_ScriptAwal-tes millikan.rtf


Mengacak soal yang belum dikeluarkan

4

0_ScriptRandom-tes millikan.rtf


Memunculkan skor, mengacak

5

0_ScriptSoal-tes millikan.rtf


Menampilkan soal dan opsi jawab hasil pengacakan yang belum keluar

6

Page 2_Script2-tes millikan.rtf


Pengisian nama, jika tidak aplikasi keluar

7

Page 2-tes millikan.rtf


Perintah menyimpan variabel skor

8

Praktikum1_Nilai-millikan.rtf

Percobaan Milikan

Jika V=0 gerak turun, jika V>0 gerak naik

9

Praktikum1_PauseOf-millikan.rtf

Percobaan Milikan

Mengatur tombol pause

10

Praktikum1_PauseOnmillikan.rtf

Percobaan Milikan


90

11

Praktikum1_Pengukuran1millikan.rtf

Percobaan Milikan

Pengaturan pengukuran

12

Praktikum1_Pengukuranmillikan.rtf

Percobaan Milikan

Mengatur pengukuran

13

Praktikum1_PengukuranUtamamillikan.rtf

Percobaan Milikan

Mengatur script No. 11 dan No. 12

14

Praktikum1_ScriptGerak1millikan.rtf

Percobaan Milikan

Mengatur gerak tetes minyak

15

Praktikum1_ScriptGerak1millikan.rtf

Percobaan Milikan

Gerakan teters minyak.

16

Praktikum1_ScriptPausemillikan.rtf

Halaman praktikum


17

Praktikum1_Simpan-millikan.rtf

Halaman praktikum

Menyimpan data

18

Praktikum1_UkurOf1-millikan.rtf

Halaman praktikum

Menampilkan data hasil pengukuran gerak naik

19

Praktikum1_UkurOf-millikan.rtf

Halaman praktikum

Menampilkan data hasil pengukuran gerak naik

20

Praktikum2-millikan.rtf

Halaman analisa

Menampilkan halaman 2, mulai pengukuran baru. Script sama dengan praktikum1

91

Lampiran D Script pada percobaan Millikan

============================================================= 0_Script1-tes millikan.rtf **** If (string1$=benar$) Then jawab$='benar' End If (jawab$='benar') Then VideoPlay("Video") Total=Total+1 skor = Total*10 DisplayValue("Text0","skor") SaveVariable("Nilai","Total") End If (jawab$='salah ') Then VideoPlay("Video1") End Hide("grpBTN") Show("Bitmap") Pause("2000") RunScript("ScriptRandom")

=============================================================


**** If (string2$=benar$) Then jawab$='benar' End If (jawab$='benar') Then VideoPlay("Video") Total=Total+1 skor = Total*10 DisplayValue("Text0","skor") SaveVariable("Nilai","Total") End

92

If (jawab$='salah ') Then VideoPlay("Video1") End Hide("grpBTN") Show("Bitmap") Pause("2000") RunScript("ScriptRandom")

============================================================= 0_Script3-tes millikan.rtf

****

If (string3$=benar$) Then jawab$='benar' End If (jawab$='benar') Then VideoPlay("Video") Total=Total+1 skor = Total*10 DisplayValue("Text0","skor") SaveVariable("Nilai","Total") End If (jawab$='salah ') Then VideoPlay("Video1") End Hide("grpBTN") Show("Bitmap") Pause("2000") RunScript("ScriptRandom")

============================================================= 0_Script4-tes millikan.rtf

****

93

If (string4$=benar$) Then jawab$='benar' End If (jawab$='benar') Then VideoPlay("Video") Total=Total+1 skor = Total*10 DisplayValue("Text0","skor") SaveVariable("Nilai","Total") End If (jawab$='salah ') Then VideoPlay("Video1") End Hide("grpBTN") Show("Bitmap") Pause("2000") RunScript("ScriptRandom")

=============================================================


****

If (string4$=benar$) Then jawab$='benar' End If (jawab$='benar') Then VideoPlay("Video") Total=Total+1 skor = Total*10 DisplayValue("Text0","skor") SaveVariable("Nilai","Total") End If (jawab$='salah ') Then VideoPlay("Video1") End Hide("grpBTN") Show("Bitmap") Pause("2000")

94

RunScript("ScriptRandom")

============================================================= 0_ScriptAwal-tes millikan.rtf

****

If (On0=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On0=0) Then On0=1 LoadText("Paragraph","<Embedded>\soalmilikan0.txt") SaveVariable("On0","On0") jawab$='salah ' benar$='massa dan muatan elektron' SongListLoad("<Embedded>\jwbmilikan0.txt","") RunScript("ScriptSoal") End If (On1=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On1=0) Then On1=1 LoadText("Paragraph","<Embedded>\soalmilikan1.txt") SaveVariable("On1","On1") jawab$='salah ' benar$='Tidak mudah menguap, sehingga sifatnya tidak berubah selama pengamatan' SongListLoad("<Embedded>\jwbmillikan1.txt","") RunScript("ScriptSoal") End If (On2=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End

95

If (On2=0) Then On2=1 LoadText("Paragraph","<Embedded>\soalmilikan2.txt") SaveVariable("On2","On2") jawab$='salah ' benar$='Sebagai pengion tetes minyak dalam ruang pengamatan ' SongListLoad("<Embedded>\jwbmilikan2.txt","") RunScript("ScriptSoal") End If (On3=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On3=0) Then On3=1 LoadText("Paragraph","<Embedded>\soalmilikan3.txt") SaveVariable("On3","On3") jawab$='salah ' benar$='Muatan tiap tetes minyak merupakan kelipatan dari muatan elektron' SongListLoad("<Embedded>\jwbmilikan3.txt","") RunScript("ScriptSoal") End If (On4=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On4=0) Then On4=1 LoadText("Paragraph","<Embedded>\soalmilikan4.txt") SaveVariable("On4","On4") jawab$='salah ' benar$='pada saat perbandingan gaya berat sama dengan gaya listrik ke atas.' SongListLoad("<Embedded>\jwbmilikan4.txt","") RunScript("ScriptSoal") End If (On5=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On5=0) Then On5=1 LoadText("Paragraph","<Embedded>\soalmilikan5.txt")

96

SaveVariable("On5","On5") jawab$='salah ' benar$='J.J. Thomson dan Townsend' SongListLoad("<Embedded>\jwbmilikan5.txt","") RunScript("ScriptSoal") End If (On6=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On6=0) Then On6=1 LoadText("Paragraph","<Embedded>\soalmilikan6.txt") SaveVariable("On6","On6") jawab$='salah ' benar$='massa atom dapat dianggap sama dengan massa ionnya' SongListLoad("<Embedded>\jwbmillikan6.txt","") RunScript("ScriptSoal") End If (On7=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On7=0) Then On7=1 LoadText("Paragraph","<Embedded>\soalmilikan7.txt") SaveVariable("On7","On7") jawab$='salah ' benar$='diamati dari kilauan cahaya yang ditimbulkan tetes minyak' SongListLoad("<Embedded>\jwbmillikan7.txt","") RunScript("ScriptSoal") End If (On8=1) Then n=n-1 SaveVariable("nomer","n") RunScript("ScriptRandom") End If (On8=0) Then On8=1 LoadText("Paragraph","<Embedded>\soalmilikan8.txt") SaveVariable("On8","On8") jawab$='salah ' benar$='saat melewati celah kecil pada pelat atas'

97

SongListLoad("<Embedded>\jwbmillikan8.txt","") RunScript("ScriptSoal") End

============================================================= 0_ScriptRandom-tes millikan.rtf

**** n=n+1 SaveVariable("nomer","n") skor =Total*10 DisplayValue("Text0","skor") Refresh("") If (n=6) Then LoadVariable("Nilai","Total") Hide("Anigif") Hide("Group") Hide("Paragraph") Hide("Text1") Hide("Video") Hide("Video1") Show("Group3") LoadText("txtNama","name$") DisplayValue("txtNilai","skor") End Refresh("") If (n<>6) Then script=RND(4) Script$ = 'Soal'+CHAR(script) Pause("100") RunScript("Script$") End Refresh("")

============================================================= 0_ScriptSoal-tes millikan.rtf

****

98

skor = Total*10 DisplayValue("Text0","skor") DisplayValue("Text1","n") string1$=' ' string2$=' ' string3$=' ' string4$=' ' string5$=' ' Refresh("") SongListRND() LoadText("string1$","1") LoadText("string2$","2") LoadText("string3$","3") LoadText("string4$","4") LoadText("string5$","5") Refresh("") LoadText("Paragraph1","string1$") LoadText("Paragraph2","string2$") LoadText("Paragraph3","string3$") LoadText("Paragraph4","string4$") LoadText("Paragraph5","string5$") Hide("Bitmap") Show("Bitmap9a") Show("Text9a") Show("Bitmap9b") Show("Text9b") Show("Bitmap9c") Show("Text9c") Show("Bitmap9d") Show("Text9d") Show("Bitmap9e") Show("Text9e") Hide("Video") Hide("Video1") SaveVariable("Nilai","Total")

============================================================= Page 2-tes millikan.rtf **** aa = 0 SaveVariable("aa","aa") skor=0 n=0

99

============================================================= Praktikum1_Nilai-millikan.rtf **** Ru=1.290 Rm=1030 Vis=1.81/10^5 g=9.80665 e=1.6021892/10^19 d=0.006 s=12/10^5 r1=r/10^6 phi=3.14 Viscorr=Vis/(1+(0.864*9)/(r1*10^8)) Vdown=2*r1^2*g*(Rm-Ru)/(9*Viscorr) Vup=((n*e*VD/d)-(4*phi*g*(Rm-Ru)*r1^3)/3)/(6*phi*Viscorr) If (VD=0) Then kec=Vdown*10^5 End If (VD>0) Then kec=-Vup*10^11 End ============================================================= Praktikum1_PauseOf-millikan.rtf **** pause=FALSE V=V1 Show("HotSpot") Show("HotSpot1")

============================================================= Praktikum1_PauseOn-millikan.rtf **** pause=TRUE

100

V=0 Hide("HotSpot") Hide("HotSpot1")

============================================================= Praktikum1_Pengukuran1-millikan.rtf **** If (ukur=FALSE) Then RunScript("UkurOn1") Else If (ukur=TRUE) Then RunScript("UkurOf1") End End ============================================================= Praktikum1_Pengukuran-millikan.rtf ****

If (ukur=FALSE) Then RunScript("UkurOn") Else If (ukur=TRUE) Then RunScript("UkurOf") End End

============================================================= Praktikum1_PengukuranUtama-millikan.rtf **** If (VD=0) Then RunScript("Pengukuran") End If (VD>0) Then RunScript("Pengukuran1") End

101

============================================================= Praktikum1_ScriptGerak1-millikan.rtf **** For y=0 To 1000000 X=300+x RunScript("Nilai") Y=Y1+kec*V If (Y>400|Y<200|berhenti=TRUE|mouseup=FALSE) Then Hide("Circle[l]") Break() End If (200
============================================================= Praktikum1_ScriptPause-millikan.rtf **** If (pause=FALSE) Then RunScript("PauseOn") Else If (pause=TRUE) Then RunScript("PauseOf") End End =============================================================

Praktikum1_Simpan-millikan.rtf

102

**** If (k=10) Then Message("Data yang diijinkan adalah 10 data","") Else If (k<10) Then k=k+1 kec0$=CHAR(kec0) eq$='prec(3); '+kec0$ PluginSet("Eval","eq$") PluginGet("Eval","d$") dataX[k]=VAL(d$) kec1$=CHAR(kec1) eq$='prec(3); '+kec1$ PluginSet("Eval","eq$") PluginGet("Eval","d$") dataY[k]=VAL(d$) file$='<Embedded>\data.txt' k$=CHAR(k) VD0$=CHAR(VD0) dataX$=CHAR(dataX[k]) dataY$=CHAR(dataY[k]) C$=' '+k$+' '+VD0$+' '+dataX$+' PluginSet("PlugIn","file$") PluginRun("PlugIn","f_OpenApend") PluginSet("PlugIn","C$") PluginRun("PlugIn","f_Write") PluginRun("PlugIn","f_CloseWrite") PluginSet("PlugIn","file$") PluginRun("PlugIn","f_OpenApend") Page("Praktikum2") Else End End

' +dataY$

============================================================= Praktikum1_UkurOf1-millikan.rtf **** ukur=FALSE t2=y T=t2-t1 jarak=-1*T*kec kec1=-1*kec VD0=VD DisplayValue("JarakNaik","jarak")

103

DisplayValue("WaktuNaik","T") DisplayValue("VNaik","kec1")

============================================================= Praktikum1_UkurOf-millikan.rtf **** ukur=FALSE t2=y T=t2-t1 jarak=T*kec ukur=FALSE kec0=kec t2=y T=t2-t1 DisplayValue("Jarak","jarak") DisplayValue("Waktu","T") DisplayValue("VTurun","kec0") ============================================================= Praktikum1_UkurOn1-millikan.rtf **** ukur=TRUE t1=y ============================================================= Praktikum1_UkurOn-millikan.rtf ***** ukur=TRUE t1=y

============================================================= Praktikum2-millikan.rtf **** atas = FALSE pause=FALSE V=V1

104

Lampiran E Daftar script pada percobaan Rutherford No Nama Script

Letak

Keterangan

Mengatur waktu tampil halaman Mengatur waktu tampil 2 Animasi Page 3-rutherford.rtf halaman Mengatur waktu tampil 3 Animasi Page 4-rutherford.rtf halaman Mengatur waktu tampil 4 Animasi Page 5-rutherford.rtf halaman Menggerakkan obyek 5 Animasi Page _Script-rutherford.rtf lingkaranilingkaran Mengacak pergerakan 6 Animasi Page _ScriptAcak-rutherford.rtf lingkaran Mengacak sudut gerak 7 Animasi Page _ScriptSudut-rutherford.rtf lingkaran Mengatur gerakan Percobaan 8 lingkaran sebagai sinar praktikum_ScriptGerak_rutherford.rtf Rutherford alfa catatan : script pada tes pendahuluan sama dengan percobaan Thomson dan Millikan 1

Page 2-rutherford.rtf

Animasi

105

Lampiran F Script pada percobaan Rutherford

============================================================= Page 2-rutherford.rtf **** RunScript("Setup")

============================================================= Page 3-rutherford.rtf **** PageTimer("20000","")

============================================================= Page 4-rutherford.rtf **** PageTimer("20000","")

============================================================= Page5-rutherford.rtf **** PageTimer("20000","")

=============================================================

106

Page _ScriptAcak-rutherford.rtf **** t=t+5 u=u+5 x=113+t*cos y=313+t*sin x1=113+t*cos1 y1=313+t*sin1 x2=113+t*cos2 y2=313+t*sin2 u=u+5 x3=418+u*cos3 y3=330+u*sin3 x4=418+u*cos4 y4=330+u*sin4 x5=418+u*cos5 y5=330+u*sin5 x6=418+u*cos6 y6=330+u*sin6 x7=418+u*cos7 y7=330+u*sin7 MoveObject("Circle","x,y") MoveObject("Circle1","x1,y1") MoveObject("Circle2","x2,y2") If (acak3>225&acak3<315) Then MoveObject("Circle3","x3,y3") End If (acak3<225|acak3>315) Then If (x3>370&x3<480&y3>290&y3<380) Then MoveObject("Circle3","x3,y3") End End If (acak4>225&acak4<315) Then MoveObject("Circle4","x4,y4") End If (acak4<225|acak4>315) Then If (x4>370&x4<480&y4>290&y4<380) Then MoveObject("Circle4","x4,y4") End End If (acak5>225&acak5<315) Then MoveObject("Circle5","x5,y5") End If (acak5<225|acak5>315) Then

107

If (x5>370&x5<480&y5>290&y5<380) Then MoveObject("Circle5","x5,y5") End End If (acak6>225&acak6<315) Then MoveObject("Circle6","x6,y6") End If (acak6<225|acak6>315) Then If (x6>370&x6<480&y6>290&y6<380) Then MoveObject("Circle6","x6,y6") End End If (acak7>225&acak7<315) Then MoveObject("Circle7","x7,y7") End If (acak7<225|acak7>315) Then If (x7>370&x7<480&y7>290&y7<380) Then MoveObject("Circle7","x7,y7") End End If (x3<370&x3>480&y3<290&y3>380) Then Hide("Circle3") End If (x4<370&x4>480&y4<290&y4>380) Then Hide("Circle4") End If (x5<370&x5>480&y5<290&y5>380) Then Hide("Circle5") End If (x6<370&x6>480&y6<290&y6>380) Then Hide("Circle6") End If (x7<370&x7>480&y7<290&y7>380) Then Hide("Circle7") End MoveObject("Circle","x,y") MoveObject("Circle1","x1,y1") MoveObject("Circle2","x2,y2") If (t>100) Then t=0 u=0 RunScript("ScriptSudut") End If (t<=100) Then ScriptTimer("ScriptAcak","30")

108

End

============================================================= Page _Script-rutherford.rtf **** MoveObject("Circle3","x3,y3") MoveObject("Circle4","x4,y4") MoveObject("Circle5","x5,y5") MoveObject("Circle6","x6,y6") MoveObject("Circle7","x7,y7")

============================================================= ======= Page _ScriptSudut-rutherford.rtf **** ***linkaran acak=RND(360) sudut=acak*22/(7*180) sudut$=CHAR(sudut) eq$='prec(3); sin('+sudut$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin$") sin=VAL(sin$) eq$='prec(3); cos('+sudut$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos$") cos=VAL(cos$) ***lingkaran1 acak1=RND(360) sudut1=acak1*22/(7*180) sudut1$=CHAR(sudut1) eq$='prec(3); sin('+sudut1$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin1$") sin1=VAL(sin1$) eq$='prec(3); cos('+sudut1$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos1$")

109

cos1=VAL(cos1$) ***lingkaran2 acak2=RND(360) sudut2=acak2*22/(7*180) sudut2$=CHAR(sudut2) eq$='prec(3); sin('+sudut2$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin2$") sin2=VAL(sin2$) eq$='prec(3); cos('+sudut2$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos2$") cos2=VAL(cos2$) ***partikel dalam kotak acak3=RND(360) sudut3=acak3*22/(7*180) sudut3$=CHAR(sudut3) eq$='prec(3); sin('+sudut3$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin$") sin3=VAL(sin$) eq$='prec(3); cos('+sudut3$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos$") cos3=VAL(cos$) *** acak4=RND(360) sudut4=acak4*22/(7*180) sudut4$=CHAR(sudut4) eq$='prec(3); sin('+sudut4$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin$") sin4=VAL(sin$) eq$='prec(3); cos('+sudut4$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos$") cos4=VAL(cos$) *** acak5=RND(360) sudut5=acak5*22/(7*180) sudut5$=CHAR(sudut5) eq$='prec(3); sin('+sudut5$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin$") sin5=VAL(sin$)

110

eq$='prec(3); cos('+sudut5$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos$") cos5=VAL(cos$) *** acak6=RND(360) sudut6=acak6*22/(7*180) sudut6$=CHAR(sudut6) eq$='prec(3); sin('+sudut6$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin$") sin6=VAL(sin$) eq$='prec(3); cos('+sudut6$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos$") cos6=VAL(cos$) *** acak7=RND(360) sudut7=acak7*22/(7*180) sudut7$=CHAR(sudut7) eq$='prec(3); sin('+sudut7$+')' PluginSet("Eval","eq$") PluginGet("Eval","sin$") sin=VAL(sin$) eq$='prec(3); cos('+sudut7$+')' PluginSet("Eval","eq$") PluginGet("Eval","cos$") cos7=VAL(cos$) Show("Circle3") Show("Circle4") Show("Circle5") Show("Circle6") Show("Circle7") RunScript("ScriptAcak") ============================================================= ======= praktikum_ScriptGerak_rutherford.rtf **** For i=0 To 600 akar=((i-300)*(i-300))+1000 akar$=CHAR(akar) eq$='prec(3); sqrt('+akar$+')' PluginSet("Eval","eq$")

111

PluginGet("Eval","d$") r=VAL(d$) a=5000-impak jari=(a*a)+(1000000) X=(a/1000)*r Y=600-i jari$=CHAR(jari) eq$='prec(3); sqrt('+jari$+')' PluginSet("Eval","eq$") PluginGet("Eval","d$") Jari=VAL(d$) cosX=a/Jari sinY=1000/Jari cosX$=CHAR(cosX) eq$='prec(3); sqrt('+cosX$+')' PluginSet("Eval","eq$") PluginGet("Eval","d$") cosX=VAL(d$) sinY$=CHAR(sinY) eq$='prec(3); sqrt('+sinY$+')' PluginSet("Eval","eq$") PluginGet("Eval","d$") sinY=VAL(d$) posY=impak/100 posX=posY*cosX/sinY X1=400-((X*cosX)+((300-i)*sinY))-posX Y1=300-(X*sinY)+((300-i)*cosX)-posY DisplayValue("Hasil1","sinY") DisplayValue("Hasil2","cosX") If (X>=0&Y<=600) Then MoveObject("Circle","X1,Y1") Pause("10") End Next i

============================================================= =======

112

Lampiran G Daftar script pada percobaan Frank Hertz

No

Nama Script

Letak

Keterangan

1

Pembukaan-frankhertz.rtf

Percobaan frankhertz

Menyembunyikan tombol menu utama

2

Praktikum1_Simpanfrankhertz.rtf


Menyimpan dan mengolah data percobaan

3

Praktikum1_Analisafrankhertz.rtf


Mengolah data percobaan

Lampiran H Script pada percobaan Frank Hertz ==================================================================== Praktikum1_Simpan-frankhertz.rtf **** If (k=20) Then Message("Data yang diijinkan adalah 20 data","") Else If (k<20) Then k=k+1 dataX[k]=V dataY[k]=arus file$='<Embedded>\data.txt' k$=CHAR(k) dataX$=CHAR(dataX[k]) dataY$=CHAR(dataY[k]) C$=' '+k$+' '+dataX$+ ' ' +dataY$ PluginSet("PlugIn","file$") PluginRun("PlugIn","f_OpenApend") PluginSet("PlugIn","C$") PluginRun("PlugIn","f_Write") PluginRun("PlugIn","f_CloseWrite") PluginSet("PlugIn","file$") PluginRun("PlugIn","f_OpenApend") Page("Praktikum2") Else ==================================================================== Pembukaan-frankhertz.rtf **** Hide("GroupTombolPraktikum")

==================================================================== Praktikum1_Gerak-frankhertz.rtf **** If (V=0) Then Message("Anda belum menentukan besarnya potensial","") Else If (V>0) Then If (Reset=FALSE) Then Message("Anda belum mereset alat praktikum","") Else If (Reset=TRUE) Then i=90*V/4.9 ** menghitung jari-jari ** k adalah perbandingan m/e ** r = akar(2Vk)/B

114

** misalkan k = 5.685 x 10-9 g/C ** =2*SIN(22*B2*90/(7*180*4.9))*2*SIN(22*B2*90/(7*180*4.9)) If (i<=90) Then sudut=22*V*90/(7*180*4.9) sudut$=CHAR(sudut) eq$='prec(3); 2*sin('+sudut$+')*2*sin('+sudut$+')' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else If (i>90&i<=100) Then **=4-(2*SIN(9*22*((B93*90/4.9)90)/(7*180))*SIN(9*22*((B93*90/4.9)-90)/(7*180))) sudut=9*22*((90*V/4.9)-90)/(7*180) sudut$=CHAR(sudut) eq$='prec(3); 4-(2*sin('+sudut$+')*sin('+sudut$+'))' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else If (i>100&i<=180) Then **=2*SIN(22*9*((B176*90/4.9)100)/(7*180*8))*2*SIN(22*9*((B176*90/4.9)-100)/(7*180*8))+2 sudut=9*22*((90*V/4.9)-100)/(7*180*8) sudut$=CHAR(sudut) eq$='prec(3); 2+(4*sin('+sudut$+')*sin('+sudut$+'))' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else If (i>180&i<=190) Then **=6-(2*SIN(9*22*((B185*90/4.9)180)/(7*180))*SIN(9*22*((B185*90/4.9)-180)/(7*180)))) sudut=9*22*((90*V/4.9)-180)/(7*180) sudut$=CHAR(sudut) eq$='prec(3); 6-(2*sin('+sudut$+')*sin('+sudut$+'))' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else If (i>190&i<=270) Then **=4+(2*SIN(22*9*((B197*90/4.9)190)/(7*180*8))*2*SIN(9*22*((B197*90/4.9)-190)/(7*180*8)))80))) sudut=9*22*((90*V/4.9)-190)/(7*180*8) sudut$=CHAR(sudut) eq$='prec(3); 4+(4*sin('+sudut$+')*sin('+sudut$+'))' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else If (i>270&i<=280) Then **=8-(2*SIN(9*22*((B273*90/4.9)270)/(7*180))*SIN(9*22*((B273*90/4.9)-270)/(7*180)))

115

sudut=9*22*((90*V/4.9)-270)/(7*180) sudut$=CHAR(sudut) eq$='prec(3); 8(2*sin('+sudut$+')*sin('+sudut$+'))' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else If (i>280&i<=360) Then **=6+(2*SIN(22*9*((B283*90/4.9)280)/(7*180*8))*2*SIN(9*22*((B283*90/4.9)280)/(7*180*8)))0)/(7*180*8)))80))) sudut=9*22*((90*V/4.9)-280)/(7*180*8) sudut$=CHAR(sudut) eq$='prec(3); 6+(4*sin('+sudut$+')*sin('+sudut$+'))' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else If (i>290&i<=360) Then **=10-(2*SIN(9*22*((B363*90/4.9)360)/(7*180))*SIN(9*22*((B363*90/4.9)-360)/(7*180))) sudut=9*22*((90*V/4.9)-270)/(7*180) sudut$=CHAR(sudut) eq$='prec(3); 10(2*sin('+sudut$+')*sin('+sudut$+'))' PluginSet("Eval","eq$") PluginGet("Eval","d$") arus=VAL(d$) Else End End End End End End End End DisplayValue("Arus","arus") End End End End ==================================================================== Praktikum1_Analisa-frankhertz.rtf **** JumlahX=0 JumlahY=0 For l=1 To k JumlahX=JumlahX+dataX[l]

116

JumlahY=JumlahY+dataY[l] Next l **Menghitung nilai maksimum dan minimum For l=1 To k If (dataXMaksdataX[l]) Then dataXMin = dataX[l] End Next l For l=1 To k If (dataYMin>dataY[l]) Then dataYMin = dataY[l] End Next l

====================================================================

117

Lampiran I Kuesioner Umpan balik penggunaan CD multimedia

DAFTAR ISIAN (KUESIONER)UMPAN BALIK PENGGUNAAN CD MULTIMEDIA UNTUK PRAKTIKUM VIRTUAL PADA KONSEP STRUKTUR ATOM Setelah anda mencoba menggunakan CD multimedia praktikum virtual, mohon kesediaannya untuk memberikan komentar dan penilaiannya terhadap CD tersebut. Komentar anda akan sangat bermanfaat untuk perbaikan dan pengembangan multimedia ini. Atas kesediaannya disampaikan terima kasih. Antar Muka I. Antar muka dalam hal ini meliputi penampilan fisik aplikasi seperti kerapihan, estetika, dan aspek fisik lain. Skor (range 1 – No Aspek Fisik Keterangan 100) 1 Kerapihan (tulisan, gambar, tabel, dll) 2 Konsistensi (jenis huruf, tata letak, ukuran, dll) 3 Keindahan (animasi, gambar, tulisan, tombol, dll) 4 Cara pengungkapan isi (tepat, singkat, berbelit, dll) 5 Penggunaan bahasa Tuliskan saran anda menyangkut aspek antar muka: ................................................................................................................................... ................................................................................................................................... ................................................................................................................................... ................................................................................................................................... II. Interaktifitas Skor (range 1 – No Aspek Interaktifitas Keterangan 100) 1 Proses berfikir (pengguna aktif, pasif, merangsang ingin tahu, dll) 2 Memenuhi syarat sebagai praktikum virtual 3 Pengambilan data (sulit, mudah, cukup, dll) 4 Analisis data (cukup, kurang, hubungan dengan tujuan, dll) 5 Dapat menggambarkan praktikum sesungguhnya

118

Tuliskan saran anda menyangkut aspek interaktifitas: ................................................................................................................................... ................................................................................................................................... ................................................................................................................................... ................................................................................................................................... III. Kelengkapan Isi No

1 2 3 4 5 6

Aspek Kelengkapan Isi

Skor (range 1 – 100)

Keterangan

Materi (secara keseluruhan) Animasi (keseluruhan) Kecocokan dengan kurikulum) Evaluasi Praktikum Tingkat kesulitan bagi siswa Tuliskan saran anda menyangkut aspek kelengkapan isi: ................................................................................................................................... ................................................................................................................................... ................................................................................................................................... ................................................................................................................................... IV. Kemudahan Penggunaan

No Aspek Kemudahan Penggunaan

1 2 3

Skor (range 1 – 100)

Keterangan

Cara kerja memadai Animasi Cacat dan kesalahan (tuliskan lokasinya pada keterangan) 4 Evaluasi 5 Praktikum Tuliskan saran anda menyangkut aspek kemudahan penggunaan: ................................................................................................................................... ................................................................................................................................... ................................................................................................................................... ...................................................................................................................................

DAFTAR PUSTAKA. Bronner, C, Essenberger, F., (2006). Frank-Hertz-Experiment, Freie Universität, Berlin

Recommend Documents