Welcome lagi pencita bloger,…thank s ya udah mau ngunjungin blog yang gado-gado ini, gak apa2 ya?..,
sebelumnya saya mau minta maaf , solanya banyak yang minta session 2 Cuma saya ngasihnya telat , maklumlah bos saya juga banyak kegiatan jadi harus bener-bener nyempetin waktu, tapi tenang saya akan tetep tepatin janjji saya.
Ok sebelumnya pernah kita bahas bagaimana membuat tampilan input Absensi dimana disitu juga kita bahas cara membuat text, label commad button,dll.
,.So saya harapkan untuk kali ini saya enggak perlu lagi ngejelasin lagi , jadi bagi yang Cuma baca session 2 sory ya….he…he..
, dan insya Allah Aplikasi Bisa di dapetin gratis Koq entar saya kabarkan dan silahkan insatall dan download programnya , tunggu kalau saya udah kelar TA …bukan Promosi loh?, Oh ya Aplikasi ini saya buat dengan system client admin (ada admin dan client), tapi kalau saya jelaskan dari awalhigga akhir maka perlu satu buku kali ya, tapi enggak apa sedikit asal membantu itu lebih baik.Sebelum kita masuk kepembhasan Membuat Tampilan proses absesnsi , terlebih dulu saya minta maaf bila tampilan form dan fields yang kemarin agak sedikit berbeda maklumlah , aplikasi ini saya buat untuk tugas akhir makanya saya masih melakukan normalisasi, Mungkin untuk saat ini mudah-mudahan sudah lumayan normal, dan sebenrnya saya buat tidak hanya untuk absensi tapi juga satu paket degan Koreksi soal objectif serta Katalog buku perpustakaan, tapi kalau saya kasih tahu terus gimana dong dengan TA saya
Yups ..sekarang kita tentunkan skanario dari form yang kita sebuat sebagai interface input absensi , pada form ini kita akan melakukan absensi pada tanggal hari ini ( Updating) sesuai jam di system computer, Pada pembahasan sebelumya kita sudah membuat record, No, Nip/nis/Nim, Nama, Jenis kelamin, kelas/bagian,Tanggal , alpa, izin, masuk, sakit serta total .
Dalam form Proses absesnsi dimana kelas /bagian akan kita buat sebagai locked (pengunci) kenapa ya?, ketiak saya ingin mengabsen kelas XI-A , maka , database hanya akan menampilkan data yang ada pada kelas XI-A saja smentara yang lain dihiden dulu . So, kita butuh script SQL untuk menjlankan perintah ini , BTW dalam membuat laporan pun nantinya kita perlu Dengan SQL Pastinya hal ini untuk mengelompokan data tersebut berdasarkan kelas, tentunya saya tidak membahas banyak tentang SQL , tapi pembahasan lain insya Allah saya kasih tahu bgaimana penggunaan SQl pada VB 6.0 ditunggu aja ya?.
Ok tugas kita adalah mendesaign Form seperti ini nih:
Nah buat formnya seperti ini form ini belum saya running jika sudah di running, maka hasilnya:
Pada bagian form ini kita perlu beberapa komponen
DataGrid (sebagai jembatan)
Dbgrid (Sebagai penampil hasil), seperti pada gamabar kedua tersebut jika anda melihat ada DataGrid yang lain anda tidak perlu membuatnya anda hanya perlu satu DataGrid Saja OK!,.
DataGrid 1 pada bagian properties ubah menjadi :
Name=Data1
Caption=(Terserah anda)
DataBaseName=Path tempat anda menyimpaan data basenya contoh : (D:LTIHAN . VBAbsensi abel1.mdb).
Recordsource=Tabel yang dibuat oleh Data Input sebelumnya missal : Tabel2,
recordsetType=1-type DynaSet
Untuk DbGrid1 di bagian properties:
Name=DbGrid1
Caption=terserah anda
DataSource=Data1.
Type dynaset ini berpengaruh terhadap pengurutan fileds pada DbGrid, karena dengan properties ini field tidak diurut berdasrakan kunci, tapi jika menggunkan 0-Table, maka akan diurut berdasar Index.
Kemudain untuk nama=>text3 misalnya prpertiesnya:
DataSource=Data1
dataField=nama,
lajutkan dengan text=nip ,tex=tanggal, text=kelas ,pada frame sebelum absensi (text=alpa, text=izin ,text=sakit ,text=masuk ,text=total) lakukan sama halnya pada text3.
Makanya pada saat gambar dua di running alpa dll masih dalm keadan kosong karena memang belum saya isi.
Pada
option 1=>Alpa ubah Caption=Alpa
Option2=>Masuk ubah Caption=Masuk
Option3=>Izin ubah Caption=Izin
Option4=>Sakit ubah Caption=Sakit
Nah sekarang kita buat script di masing-masing Option untuk
Option1=>Alpa:
Private Sub Option1_Click()
If Option1.Value = True Then
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Text10.Text = Val(Text6.Text) + 1
Else
Text10.Text = Val(Text6.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Perlu di perhatikan saya tidak mengubah text -text yang saya buat memang sengaja tidak saya ubah, Karena inti dari sebuah program adalah hanya si programerlah yang tahu dari maksud kode yang dia buat..he…he…
Pada text11.text=text7.text, maksudnya ketika option1. diberikan titik maka text11.text akan disi oleh data yang ada pada text7.text.
Text11.text=>izin akan tetap berisi satu pada text7.text=>setelah basen , begitu pula pada saat option2 .value =true, maka text10.text=text6.text (seudah absent).
Untuk text10.text jika Option1.value=True maka text10.text(sebelum absent)=text6.text(sesudah absent) akan ditambah satu, sehingga menjadi=val(text6.text)+1, dan anda jangan berpikir jika data ini akan langsung disimpan tapi Cuma di input hanya saja kita menambahkan command button1=Save, dari pada pusing-pusing terusin scriptnya untuk
Option2=>Izin:
Private Sub Option2_Click()
If Option2.Value = True Then
Text11.Text = Val(Text7.Text) + 1
Text10.Text = Text6.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Else
Text11.Text = Val(Text7.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Option3=>Sakit:
Private Sub Option3_Click()
If Option3.Value = True Then
Text12.Text = Val(Text8.Text) + 1
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text14.Text = Text2.Text
Else
Text12.Text = Val(Text8.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text12.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text14.Text)
End Sub
Option4=>Masuk:
Private Sub Option4_Click()
If Option4.Value = True Then
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Val(Text2.Text) + 1
Else
Text14.Text = Val(Text2.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Nah kalau anda melihat text13, itu bermaksud untuk mencari jumlah seluruh a.bsensi baik sakit, izin,masuk dan alpa akan di jumlah menjadi satu. Sebenernya anda juga bisa membuat model seperti tanpa bantuan text sedudah absent tapi cukup mennggunkan database buffer yang sifatnya menyimpan dta smentara dan ketika di klik save maka Database akan dikosongkan kembali, nah metodhe ini saya terapkan pada koreksi soal , untuk yang ini silahkan coba dicari sendiri ya?…he…he..
Ok karena database kita bersifat global , dan aplikasi ini kita gunakan untuk absensi siswa , maka kita tidak mungkin mengabsen secara acak berdasar Nim siswa , dan biasanay mengabsen berdasarkan Kelas oleh karena itu kita perlu pengunci untuk mengunci, misalnya saya mau absent kelas XI-A maka data yang akan tampil hanya Kelas XI-A nah sekarang kita ketik pada command4=> Lock :
Private Sub Command4_Click()
Data1.RecordSource = "select*FROM tabel2 WHERE bagian LIKE '*" & Text1.Text & "*'"
Data1.Refresh
DBGrid1.Refresh
Text1.SetFocus
End Sub
Oke sakarang kita coba Run tapi sebelumnya kita klik-> Project-> ProjectProperties-> jika muncul jendela kayak gini tentukan mana dulu yang akan kita jalankan kayak gini nih,
Kalau udah klik Ok.
Nah sekarang ketikin XI-A kayak yang saya contohkan terus clik Lock.
Pada bagian Dbgrid1, ditampilkan hanya data kelas XI-A aja, nah sekarang silahkan klik Option1=>Alpa, dan perahtikan pada bagian frame sesudah absent jika muncul angka 1 pada bagian Alpa maka scrip telah berjalan dengan benar, selanjutnya apakah kita akan menyimpan hasil absensi tersebut ?, pasti dong yaiyalah kan emang itu yang kita maksud daripada pusing mendingan ketikin scripnya di command=>save:
Private Sub Command1_Click()
If Text16.Text = "" Or Text3.Text = "" Or Text5.Text = "" Then
MsgBox ("Absensi Telah Selesai / Tidak Ada Object Yang akan di Simpan")
ElseIf Text16.Text = Data1.Recordset.Fields("nip") And Option1.Value = True Or Option2.Value = True Or Option3.Value = True Or Option4.Value = True Then
x=MsgBox ("Thank's you ", vbOKOnly + vbInformation, "Aplication For Master")
Data1.Recordset.Edit
Data1.Recordset.Fields("alpa") = Text10.Text
Data1.Recordset.Fields("izin") = Text11.Text
Data1.Recordset.Fields("sakit") = Text12.Text
Data1.Recordset.Fields("masuk") = Text14.Text
Data1.Recordset.Fields("total") = Text13.Text
Data1.Recordset.Fields("tgl") = Label16.Caption
Data1.Recordset.Update
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
DBGrid1.Refresh
Data1.Recordset.MoveNext
Else
Z = MsgBox("Anda Belum Memilih Keterangan Absesnsi!", vbOKOnly + vbInformation, "Informasi")
End If
End Sub
Untuk mencegah kesalahan ,seperti menyimpan data kosong ,object yang diabsensi sudah salah,Tanpa memilih option, jika hal ini dilakukan maka program akan memeberikan peringatan seperti: "Absensi Telah Selesai / Tidak Ada Object Yang akan di Simpan" atau "Anda Belum Memilih Keterangan Absesnsi!" tapi jika data diisi dengan benar maka akan muncul pesan "Thanks You", nah ternyata yang seperti ini jutru lebih penting dan ribet loh ,saya aja udah berakali me-Run supaya berjalan Normal, tapi tenang ada kemaun pasti ada jalan….setuju…he… .
Itulah scrip yang terpenting dalam proses ini tapi kalau penegen tahu semua scripnya boleh asal jangan muntah ya…he…ini dya jreng":
Private Sub Command1_Click()
'untuk menyimpan hasil absesnsi kedalam database
If Text16.Text = "" Or Text3.Text = "" Or Text5.Text = "" Then
MsgBox ("Absensi Telah Selesai Tidak Ada Object Yang akan di Simpan")
ElseIf Text16.Text = Data1.Recordset.Fields("nip") And Option1.Value = True Or Option2.Value = True Or Option3.Value = True Or Option4.Value = True Then
X = MsgBox("Thank's you ", vbOKOnly + vbInformation, "Aplication For Master")
Data1.Recordset.Edit
Data1.Recordset.Fields("alpa") = Text10.Text
Data1.Recordset.Fields("izin") = Text11.Text
Data1.Recordset.Fields("sakit") = Text12.Text
Data1.Recordset.Fields("masuk") = Text14.Text
Data1.Recordset.Fields("total") = Text13.Text
Data1.Recordset.Fields("tgl") = Label16.Caption
Data1.Recordset.Update
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
DBGrid1.Refresh
Data1.Recordset.MoveNext 'setalah di save maka akan menuju record selanjutnya
Else
Z = MsgBox("Anda Belum Memilih Keterangan Absesnsi!", vbOKOnly + vbInformation, "Informasi")
End If
End Sub
Private Sub Command2_Click()
'hanya refresh doang
Data1.Refresh
Data3.Refresh
End Sub
Private Sub Command3_Click()
'keluar dari form proses absensi
X = MsgBox("Apa ada yakin untuk Mengakhiri Pengisian Absensi ini ? ", vbYesNo + vbQuestion, "Aplication For Master")
If X = vbYes Then
subDepan.Show
Form_Input_absensi.Hide
Else
End If
End Sub
Private Sub Command4_Click()
'menseleksi berdasarkan kelas
Data1.RecordSource = "select*FROM tabel2 WHERE bagian LIKE '*" & Text1.Text & "*'"
Data1.Refresh
DBGrid1.Refresh
Text1.SetFocus
End Sub
Private Sub Command5_Click()
' ini untuk find menu berdasarkan nip/nim/nis
Data1.Recordset.FindFirst "nip='" & Text15.Text & "'"
If Not Data1.Recordset.NoMatch Then
Text15.Text = ""
Text15.SetFocus
Else
X = Text15.Text
X = MsgBox("Mohon Periksa kembali Data yang anda Cari!", vbyesonly + vbinformasi, "Aplication For Master")
Text15.SetFocus
End If
End Sub
Private Sub Form_Load()
'Posisikan Form ini ketengah
Me.Move (Screen.Width – Me.Width) / 2, (Screen.Height – Me.Height) / 2
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text1.Text = ""
r = "Silahkan Input Nip/Nim/Nis!"
Text15.Text = r
End Sub
Private Sub Option1_Click()
'jika di klik maka jumlah alpa akan bertambah satu
If Option1.Value = True Then
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Text10.Text = Val(Text6.Text) + 1
Else
Text10.Text = Val(Text6.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Option2_Click()
'jika diklik maka jumlah izin akan bertambah satu
If Option2.Value = True Then
Text11.Text = Val(Text7.Text) + 1
Text10.Text = Text6.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Else
Text11.Text = Val(Text7.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Option3_Click()
jika diklik maka jumlah sakit akan bertambah satu
If Option3.Value = True Then
Text12.Text = Val(Text8.Text) + 1
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text14.Text = Text2.Text
Else
Text12.Text = Val(Text8.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text12.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text14.Text)
End Sub
Private Sub Option4_Click()
jika diklik maka jumlah izin akan bertambah satu
If Option4.Value = True Then
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Val(Text2.Text) + 1
Else
Text14.Text = Val(Text2.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'ini hanya untuk di Enter supaya pidah ke field berikutnya
If KeyAscii = 13 Then
Command4.SetFocus
End If
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command5.SetFocus
End If
End Sub
Private Sub Timer1_Timer()
Label14.Caption = Format(Time, "hh:mm:ss:am/pm")'cuma format jam doang
Label16.Caption = Format(Date, "dd/mmmm/yyyy")
End Sub
Sekarang kita coba input absensi dan lihat hasilnya missal saya mw absent kelas XI-B,
,Hasilnya udah langsung bisa dilihat , ketika saya klik option(keterangan) masuk maka pada frame sesudah absent bagian masuk= 1(bertambah satu yang mulanya Nol) dan jika kita memilih absen masuk lagi maka akan bertambah menjadi dua , dan tanggalnya bersifat update pada field pertama dengan nama Lina Marlina tertera tgl 11/02/2009, sedangkan yang lainya tgl 07/02/2009.jangan heran dan aneh kalau ada yang nanya diamana saya menyimpan tanggalnya seperti pada Input data?, Coba anda perhatikan di bagian kanan ats form disitu tertera hari ini tanggal: dan itulah yang saya masukan kedatabase …he……he..
,., istilahnya masih sedikit saya rahasikan gak apa kan Oke dech kalau emang kurang jelas dan belum ngerti dari aplikasi yang saya buat ini , entar dech saya kasih aplikasi udah jadinya , soalnya saya juga buat aplikasi ini untuk TA he…..he…
Mungkin karena saya udah ngantuk nih jadi saya cukupin buat session (part 2-nya), nah nanti kita ketemu di part ke 3 dibagian output N pastinya gak kalah seru loh di tunggu ya…!!
Kalau gitu good luck aja yah…..!
Senin, 28 Juni 2010
Minat Membaca dan menulis
Minat membaca dan menulis yang tinggi sangat terasa di negara-negara barat, termasuk di Selandia Baru. Dimana-mana, baik di tempat umum seperti di taman, di tempat wisata maupun di perpustakaan dan di sekolah-sekolah termasuk universitas, sangat lazim kita melihat orang asyik membaca baik buku-buku fiksi maupun ilmiah. Perpustakaan ada di setiap wilayah tempat tinggal dan ramai dikunjungi orang baik anak-anak, orang dewasa maupun kaum manula (lanjut-usia). Banyak tulisan yang ditulis oleh pengarang dan penulis barat kita baca di berbagai media cetak termasuk jurnal-jurnal ilmiah yang jumlahnya hampir tak terhitung. Mengapa membaca dan menulis bagi mereka merupakan suatu aktivitas yang dibutuhkan untuk mengekspresikan diri, meluangkan waktu luang dan menyalurkan aspirasi dan ide? Mungkin budaya ini bisa kita tilik dari bagaimana mereka belajar membaca dan menulis sejak mereka duduk di bangku sekolah dasar. Tulisan ini dibagi menjadi dua bagian dimana bagian pertama akan lebih difokuskan pada kegiatan belajar membaca dan di bagian kedua lebih pada kegiatan belajar menulis.
Pemerintah Selandia Baru sangat menitik beratkan kegiatan ajar mengajar di sekolah dasar pada pengembangan kemampuan literacy, yaitu kemampuan untuk membaca dan menulis dan menggunakan bahasa dengan lancar. Selama enam tahun pertama pendidikan, dari kelas satu yang ditujukan untuk anak-anak usia 5 tahun sampai kelas enam, untuk anak-anak berusia sekitar 10-11 tahun, anak-anak belajar membaca sambil mempelajari ilmu pengetahuan alam, pengetahuan sosial, matematika, seni, kesehatan dan teknologi. Sambil mempelajari tentang tumbuh-tumbuhan misalnya, anak kelas dua belajar membaca kata-kata baru dalam konteks bacaan dan menggunakan gambar dan diagram untuk memahami isi bacaan yang disajikan guru. Hal ini dimungkinkan karena hampir semua murid sekolah dasar mempunyai guru yang sama untuk semua mata ajaran. Sampai sekitar kelas empat mata ajaran yang diajarkan "hanya" membaca, menulis, matematika dan seni. Sedangkan di kelas lima dan enam sudah ada pembagian yang lebih jelas, seperti ilmu pengetahuan alam, sosial, kesehatan dan teknologi selain keempat pelajaran yang juga diajar di kelas sebelumnya.
Tahapan dan metode belajar membaca
Secara umum kegiatan membaca di sekolah dasar di Selandia Baru dibagi menjadi dua tahapan. Pertama, belajar membaca (learning to read) yang diberikan pada tahun-tahun pertama sekolah dasar dan tahapan berikutnya adalah membaca untuk belajar (read to learn) yang perlu dikuasai oleh anak-anak di kelas enam. Pada tahapan pertama anak belajar proses membaca, seperti:
• posisi buku yang tepat dan tidak terbalik
• membaca tulisan dari kiri ke kanan
• bagaimana membedakan huruf-huruf dari kata-kata
• bagaimana kombinasi berbagai huruf menciptakan bunyi yang berbeda-beda
• bagaimana memahami isi bacaan.
Setelah kemampuan ini dikuasai dengan baik anak diajak untuk mempelajari ketrampilan membaca, seperti:
• bagaimana menangani bacaan yang panjang yang tingkatannya lebih sulit
• bagaimana mencari tahu arti dari kata-kata yang sulit
• bagaimana membedakan antara informasi yang berguna dan tidak berguna dalam suatu bacaan.
Sedangkan pada tahapan kedua anak harus belajar ketrampilan membaca untuk mengetahui apa yang mereka harus ketahui. Bukan lagi belajar membaca melainkan membaca untuk mempelajari pengetahuan yang perlu dipahami.
Kebanyakan guru, terutama di kelas-kelas awal, menggunakan proses grapho phonic untuk memperkenalkan huruf-huruf dan pola-pola huruf baik yang disajikan secara terpisah maupun secara berkelompok agar anak mampu mengenal bunyi-bunyi huruf, misalnya dengan:
• membuat tabel kata-kata yang bunyinya serupa, seperti malam dan masam
• mengajarkan nama dan bunyi abjad secara bersamaan, seperti "bé"(nama) dan "be"(bunyi) untuk huruf B
• memperlihatkan gambar-gambar benda yang memiliki bunyi awal kata yang sama dengan kata yang sedang dipelajari, seperti memperlihatkan gambar "roda" sambil mempelajari kata-kata baru seperti "roti", "rasa", "rumah".
Guru juga mendorong anak untuk memakai tanda-tanda semantic dan syntactic untuk menemukan arti dari kata dengan memahami konteks bacaan dan dengan melihat penempatan dan bentuk kata dalam kalimat. Selain itu gambar-gambar dan tanda baca yang ada dalam bacaan dipakai untuk membantu memahami arti kata yang sulit.
Bila anak menemukan kesulitan ketika membaca suatu kata, guru tak segan-segan bertanya pada anak mengapa anak membaca kata seperti itu dan apa yang membuat mereka berpikir mereka benar. Pertanyaan-pertanyaan ini dapat membantu anak untuk mengatasi kesulitan membaca kata bila orang dewasa tidak dapat membantunya, karena anak akan selalu berusaha memilah-milah huruf dalam kata berdasarkan bunyinya.
Bahan yang digunakan dan kegiatan yang dilakukan
Kegiatan membaca dilakukan dalam situasi yang menyenangkan di kelas, baik dalam kelompok besar (satu kelas yang biasanya terdiri dari sekitar 25 sampai 30 murid) maupun dalam kelompok-kelompok kecil yang diatur menurut kemampuan membaca anak. Kegiatan-kegiatan yang dilakukan meliputi:
• membaca bersama-sama satu kelas menggunakan buku besar dengan gambar dan huruf yang besar. Ukuran bukunya hampir sebesar surat kabar.
• membaca puisi yang memiliki bunyi kata (rhyme) yang diulang-ulang
• membaca bersama anak yang lebih tinggi kelasnya secara berpasangan dan bergantian
• membaca sendiri dalam hati dalam kelompok-kelompok kecil dengan memakai buku yang sama judulnya dan menjawab pertanyaan-pertanyaan mengenai bacaan yang baru dibaca
• membaca buku cerita di rumah sesuai anjuran guru, yang tingkat kesulitannya disesuaikan dengan kemampuan anak.
Lingkungan belajar anak di kelas sangat kaya dengan bahan-bahan yang dapat mendorong minat anak membaca. Setiap kelas, dari kelas satu sampai kelas enam, penuh dengan buku-buku dan bahan-bahan cetakan dalam berbagai macam bentuk dan warna. Bahan-bahan yang berkaitan dengan ilmu pengetahuan alam, sosial dan kesehatan tersedia untuk dibaca anak di kelas. Anak juga dapat membaca bacaan yang sifatnya interaktif yang tersaji di layar komputer di kelas. Guru mendorong anak untuk membaca puisi, cerita, poster, daftar dan bagan yang ditaruh di dinding kelas.
Guru yang secara aktif membaca bersama anak dan kepada anak, anak berada di kelas yang penuh dengan bahan-bahan bacaan dan adanya fasilitas membaca yang memadai merupakan kunci keberhasilan membaca di sekolah dasar yang bisa jadi merupakan salah satu faktor penting terciptanya budaya senang membaca di kalangan masyarakat Selandia Baru. Tak kalah pentingnya anak perlu melihat orang-orang dewasa di sekitarnya, termasuk guru dan orangtua, membaca dan anak tahu mengapa mereka perlu membaca. Anak perlu menyadari bahwa orang dewasa perlu membaca untuk mengetahui lebih dalam tentang suatu hal dan mereka senang dengan kegiatan membaca. Adanya contoh nyata di sekitar anak akan menciptakan anak yang gemar membaca dan menjadikan kegiatan membaca sebagai salah satu kegiatan yang dibutuhkannya sepanjang hidupnya. (Diterbitkan di media cetak Suara Pembaruan Minggu)
Pemerintah Selandia Baru sangat menitik beratkan kegiatan ajar mengajar di sekolah dasar pada pengembangan kemampuan literacy, yaitu kemampuan untuk membaca dan menulis dan menggunakan bahasa dengan lancar. Selama enam tahun pertama pendidikan, dari kelas satu yang ditujukan untuk anak-anak usia 5 tahun sampai kelas enam, untuk anak-anak berusia sekitar 10-11 tahun, anak-anak belajar membaca sambil mempelajari ilmu pengetahuan alam, pengetahuan sosial, matematika, seni, kesehatan dan teknologi. Sambil mempelajari tentang tumbuh-tumbuhan misalnya, anak kelas dua belajar membaca kata-kata baru dalam konteks bacaan dan menggunakan gambar dan diagram untuk memahami isi bacaan yang disajikan guru. Hal ini dimungkinkan karena hampir semua murid sekolah dasar mempunyai guru yang sama untuk semua mata ajaran. Sampai sekitar kelas empat mata ajaran yang diajarkan "hanya" membaca, menulis, matematika dan seni. Sedangkan di kelas lima dan enam sudah ada pembagian yang lebih jelas, seperti ilmu pengetahuan alam, sosial, kesehatan dan teknologi selain keempat pelajaran yang juga diajar di kelas sebelumnya.
Tahapan dan metode belajar membaca
Secara umum kegiatan membaca di sekolah dasar di Selandia Baru dibagi menjadi dua tahapan. Pertama, belajar membaca (learning to read) yang diberikan pada tahun-tahun pertama sekolah dasar dan tahapan berikutnya adalah membaca untuk belajar (read to learn) yang perlu dikuasai oleh anak-anak di kelas enam. Pada tahapan pertama anak belajar proses membaca, seperti:
• posisi buku yang tepat dan tidak terbalik
• membaca tulisan dari kiri ke kanan
• bagaimana membedakan huruf-huruf dari kata-kata
• bagaimana kombinasi berbagai huruf menciptakan bunyi yang berbeda-beda
• bagaimana memahami isi bacaan.
Setelah kemampuan ini dikuasai dengan baik anak diajak untuk mempelajari ketrampilan membaca, seperti:
• bagaimana menangani bacaan yang panjang yang tingkatannya lebih sulit
• bagaimana mencari tahu arti dari kata-kata yang sulit
• bagaimana membedakan antara informasi yang berguna dan tidak berguna dalam suatu bacaan.
Sedangkan pada tahapan kedua anak harus belajar ketrampilan membaca untuk mengetahui apa yang mereka harus ketahui. Bukan lagi belajar membaca melainkan membaca untuk mempelajari pengetahuan yang perlu dipahami.
Kebanyakan guru, terutama di kelas-kelas awal, menggunakan proses grapho phonic untuk memperkenalkan huruf-huruf dan pola-pola huruf baik yang disajikan secara terpisah maupun secara berkelompok agar anak mampu mengenal bunyi-bunyi huruf, misalnya dengan:
• membuat tabel kata-kata yang bunyinya serupa, seperti malam dan masam
• mengajarkan nama dan bunyi abjad secara bersamaan, seperti "bé"(nama) dan "be"(bunyi) untuk huruf B
• memperlihatkan gambar-gambar benda yang memiliki bunyi awal kata yang sama dengan kata yang sedang dipelajari, seperti memperlihatkan gambar "roda" sambil mempelajari kata-kata baru seperti "roti", "rasa", "rumah".
Guru juga mendorong anak untuk memakai tanda-tanda semantic dan syntactic untuk menemukan arti dari kata dengan memahami konteks bacaan dan dengan melihat penempatan dan bentuk kata dalam kalimat. Selain itu gambar-gambar dan tanda baca yang ada dalam bacaan dipakai untuk membantu memahami arti kata yang sulit.
Bila anak menemukan kesulitan ketika membaca suatu kata, guru tak segan-segan bertanya pada anak mengapa anak membaca kata seperti itu dan apa yang membuat mereka berpikir mereka benar. Pertanyaan-pertanyaan ini dapat membantu anak untuk mengatasi kesulitan membaca kata bila orang dewasa tidak dapat membantunya, karena anak akan selalu berusaha memilah-milah huruf dalam kata berdasarkan bunyinya.
Bahan yang digunakan dan kegiatan yang dilakukan
Kegiatan membaca dilakukan dalam situasi yang menyenangkan di kelas, baik dalam kelompok besar (satu kelas yang biasanya terdiri dari sekitar 25 sampai 30 murid) maupun dalam kelompok-kelompok kecil yang diatur menurut kemampuan membaca anak. Kegiatan-kegiatan yang dilakukan meliputi:
• membaca bersama-sama satu kelas menggunakan buku besar dengan gambar dan huruf yang besar. Ukuran bukunya hampir sebesar surat kabar.
• membaca puisi yang memiliki bunyi kata (rhyme) yang diulang-ulang
• membaca bersama anak yang lebih tinggi kelasnya secara berpasangan dan bergantian
• membaca sendiri dalam hati dalam kelompok-kelompok kecil dengan memakai buku yang sama judulnya dan menjawab pertanyaan-pertanyaan mengenai bacaan yang baru dibaca
• membaca buku cerita di rumah sesuai anjuran guru, yang tingkat kesulitannya disesuaikan dengan kemampuan anak.
Lingkungan belajar anak di kelas sangat kaya dengan bahan-bahan yang dapat mendorong minat anak membaca. Setiap kelas, dari kelas satu sampai kelas enam, penuh dengan buku-buku dan bahan-bahan cetakan dalam berbagai macam bentuk dan warna. Bahan-bahan yang berkaitan dengan ilmu pengetahuan alam, sosial dan kesehatan tersedia untuk dibaca anak di kelas. Anak juga dapat membaca bacaan yang sifatnya interaktif yang tersaji di layar komputer di kelas. Guru mendorong anak untuk membaca puisi, cerita, poster, daftar dan bagan yang ditaruh di dinding kelas.
Guru yang secara aktif membaca bersama anak dan kepada anak, anak berada di kelas yang penuh dengan bahan-bahan bacaan dan adanya fasilitas membaca yang memadai merupakan kunci keberhasilan membaca di sekolah dasar yang bisa jadi merupakan salah satu faktor penting terciptanya budaya senang membaca di kalangan masyarakat Selandia Baru. Tak kalah pentingnya anak perlu melihat orang-orang dewasa di sekitarnya, termasuk guru dan orangtua, membaca dan anak tahu mengapa mereka perlu membaca. Anak perlu menyadari bahwa orang dewasa perlu membaca untuk mengetahui lebih dalam tentang suatu hal dan mereka senang dengan kegiatan membaca. Adanya contoh nyata di sekitar anak akan menciptakan anak yang gemar membaca dan menjadikan kegiatan membaca sebagai salah satu kegiatan yang dibutuhkannya sepanjang hidupnya. (Diterbitkan di media cetak Suara Pembaruan Minggu)
Source VB absensi XI-A Bag I
Welcome lagi pencita bloger,…thank s ya udah mau ngunjungin blog yang gado-gado ini, gak apa2 ya?..,
sebelumnya saya mau minta maaf , solanya banyak yang minta session 2 Cuma saya ngasihnya telat , maklumlah bos saya juga banyak kegiatan jadi harus bener-bener nyempetin waktu, tapi tenang saya akan tetep tepatin janjji saya.
Ok sebelumnya pernah kita bahas bagaimana membuat tampilan input Absensi dimana disitu juga kita bahas cara membuat text, label commad button,dll.
,.JSo saya harapkan untuk kali ini saya enggak perlu lagi ngejelasin lagi , jadi bagi yang Cuma baca session 2 sory ya….he…he..
, dan insya Allah Aplikasi Bisa di dapetin gratis Koq entar saya kabarkan dan silahkan insatall dan download programnya , tunggu kalau saya udah kelar TA …bukan Promosi loh?, Oh ya Aplikasi ini saya buat dengan system client admin (ada admin dan client), tapi kalau saya jelaskan dari awalhigga akhir maka perlu satu buku kali ya, tapi enggak apa sedikit asal membantu itu lebih baik.LSebelum kita masuk kepembhasan Membuat Tampilan proses absesnsi , terlebih dulu saya minta maaf bila tampilan form dan fields yang kemarin agak sedikit berbeda maklumlah , aplikasi ini saya buat untuk tugas akhir makanya saya masih melakukan normalisasi, Mungkin untuk saat ini mudah-mudahan sudah lumayan normal, dan sebenrnya saya buat tidak hanya untuk absensi tapi juga satu paket degan Koreksi soal objectif serta Katalog buku perpustakaan, tapi kalau saya kasih tahu terus gimana dong dengan TA saya
Yups ..sekarang kita tentunkan skanario dari form yang kita sebuat sebagai interface input absensi , pada form ini kita akan melakukan absensi pada tanggal hari ini ( Updating) sesuai jam di system computer, Pada pembahasan sebelumya kita sudah membuat record, No, Nip/nis/Nim, Nama, Jenis kelamin, kelas/bagian,Tanggal , alpa, izin, masuk, sakit serta total .
Dalam form Proses absesnsi dimana kelas /bagian akan kita buat sebagai locked (pengunci) kenapa ya?, ketiak saya ingin mengabsen kelas XI-A , maka , database hanya akan menampilkan data yang ada pada kelas XI-A saja smentara yang lain dihiden dulu . So, kita butuh script SQL untuk menjlankan perintah ini , BTW dalam membuat laporan pun nantinya kita perlu Dengan SQL Pastinya hal ini untuk mengelompokan data tersebut berdasarkan kelas, tentunya saya tidak membahas banyak tentang SQL , tapi pembahasan lain insya Allah saya kasih tahu bgaimana penggunaan SQl pada VB 6.0 ditunggu aja ya?.
Ok tugas kita adalah mendesaign Form seperti ini nih:
Nah buat formnya seperti ini form ini belum saya running jika sudah di running, maka hasilnya:
Pada bagian form ini kita perlu beberapa komponen
DataGrid (sebagai jembatan)
Dbgrid (Sebagai penampil hasil), seperti pada gamabar kedua tersebut jika anda melihat ada DataGrid yang lain anda tidak perlu membuatnya anda hanya perlu satu DataGrid Saja OK!,.
DataGrid 1 pada bagian properties ubah menjadi :
Name=Data1
Caption=(Terserah anda)
DataBaseName=Path tempat anda menyimpaan data basenya contoh : (D:LTIHAN . VBAbsensi abel1.mdb).
Recordsource=Tabel yang dibuat oleh Data Input sebelumnya missal : Tabel2,
recordsetType=1-type DynaSet
Untuk DbGrid1 di bagian properties:
Name=DbGrid1
Caption=terserah anda
DataSource=Data1.
Type dynaset ini berpengaruh terhadap pengurutan fileds pada DbGrid, karena dengan properties ini field tidak diurut berdasrakan kunci, tapi jika menggunkan 0-Table, maka akan diurut berdasar Index.
Kemudain untuk nama=>text3 misalnya prpertiesnya:
DataSource=Data1
dataField=nama,
lajutkan dengan text=nip ,tex=tanggal, text=kelas ,pada frame sebelum absensi (text=alpa, text=izin ,text=sakit ,text=masuk ,text=total) lakukan sama halnya pada text3.
Makanya pada saat gambar dua di running alpa dll masih dalm keadan kosong karena memang belum saya isi.
Pada
option 1=>Alpa ubah Caption=Alpa
Option2=>Masuk ubah Caption=Masuk
Option3=>Izin ubah Caption=Izin
Option4=>Sakit ubah Caption=Sakit
Nah sekarang kita buat script di masing-masing Option untuk
Option1=>Alpa:
Private Sub Option1_Click()
If Option1.Value = True Then
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Text10.Text = Val(Text6.Text) + 1
Else
Text10.Text = Val(Text6.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Perlu di perhatikan saya tidak mengubah text -text yang saya buat memang sengaja tidak saya ubah, Karena inti dari sebuah program adalah hanya si programerlah yang tahu dari maksud kode yang dia buat..he…he…
Pada text11.text=text7.text, maksudnya ketika option1. diberikan titik maka text11.text akan disi oleh data yang ada pada text7.text.
Text11.text=>izin akan tetap berisi satu pada text7.text=>setelah basen , begitu pula pada saat option2 .value =true, maka text10.text=text6.text (seudah absent).
Untuk text10.text jika Option1.value=True maka text10.text(sebelum absent)=text6.text(sesudah absent) akan ditambah satu, sehingga menjadi=val(text6.text)+1, dan anda jangan berpikir jika data ini akan langsung disimpan tapi Cuma di input hanya saja kita menambahkan command button1=Save, dari pada pusing-pusing terusin scriptnya untuk
Option2=>Izin:
Private Sub Option2_Click()
If Option2.Value = True Then
Text11.Text = Val(Text7.Text) + 1
Text10.Text = Text6.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Else
Text11.Text = Val(Text7.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Option3=>Sakit:
Private Sub Option3_Click()
If Option3.Value = True Then
Text12.Text = Val(Text8.Text) + 1
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text14.Text = Text2.Text
Else
Text12.Text = Val(Text8.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text12.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text14.Text)
End Sub
Option4=>Masuk:
Private Sub Option4_Click()
If Option4.Value = True Then
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Val(Text2.Text) + 1
Else
Text14.Text = Val(Text2.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Nah kalau anda melihat text13, itu bermaksud untuk mencari jumlah seluruh a.Jbsensi baik sakit, izin,masuk dan alpa akan di jumlah menjadi satu. Sebenernya anda juga bisa membuat model seperti tanpa bantuan text sedudah absent tapi cukup mennggunkan database buffer yang sifatnya menyimpan dta smentara dan ketika di klik save maka Database akan dikosongkan kembali, nah metodhe ini saya terapkan pada koreksi soal , untuk yang ini silahkan coba dicari sendiri ya?…he…he..
Ok karena database kita bersifat global , dan aplikasi ini kita gunakan untuk absensi siswa , maka kita tidak mungkin mengabsen secara acak berdasar Nim siswa , dan biasanay mengabsen berdasarkan Kelas oleh karena itu kita perlu pengunci untuk mengunci, misalnya saya mau absent kelas XI-A maka data yang akan tampil hanya Kelas XI-A nah sekarang kita ketik pada command4=> Lock :
Private Sub Command4_Click()
Data1.RecordSource = "select*FROM tabel2 WHERE bagian LIKE '*" & Text1.Text & "*'"
Data1.Refresh
DBGrid1.Refresh
Text1.SetFocus
End Sub
Oke sakarang kita coba Run tapi sebelumnya kita klik-> Project-> ProjectProperties-> jika muncul jendela kayak gini tentukan mana dulu yang akan kita jalankan kayak gini nih,
Kalau udah klik Ok.
Nah sekarang ketikin XI-A kayak yang saya contohkan terus clik Lock.
Pada bagian Dbgrid1, ditampilkan hanya data kelas XI-A aja, nah sekarang silahkan klik Option1=>Alpa, dan perahtikan pada bagian frame sesudah absent jika muncul angka 1 pada bagian Alpa maka scrip telah berjalan dengan benar, selanjutnya apakah kita akan menyimpan hasil absensi tersebut ?, pasti dong yaiyalah kan emang itu yang kita maksud daripada pusing mendingan ketikin scripnya di command=>save:
Private Sub Command1_Click()
If Text16.Text = "" Or Text3.Text = "" Or Text5.Text = "" Then
MsgBox ("Absensi Telah Selesai / Tidak Ada Object Yang akan di Simpan")
ElseIf Text16.Text = Data1.Recordset.Fields("nip") And Option1.Value = True Or Option2.Value = True Or Option3.Value = True Or Option4.Value = True Then
x=MsgBox ("Thank's you ", vbOKOnly + vbInformation, "Aplication For Master")
Data1.Recordset.Edit
Data1.Recordset.Fields("alpa") = Text10.Text
Data1.Recordset.Fields("izin") = Text11.Text
Data1.Recordset.Fields("sakit") = Text12.Text
Data1.Recordset.Fields("masuk") = Text14.Text
Data1.Recordset.Fields("total") = Text13.Text
Data1.Recordset.Fields("tgl") = Label16.Caption
Data1.Recordset.Update
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
DBGrid1.Refresh
Data1.Recordset.MoveNext
Else
Z = MsgBox("Anda Belum Memilih Keterangan Absesnsi!", vbOKOnly + vbInformation, "Informasi")
End If
End Sub
Untuk mencegah kesalahan ,seperti menyimpan data kosong ,object yang diabsensi sudah salah,Tanpa memilih option, jika hal ini dilakukan maka program akan memeberikan peringatan seperti: "Absensi Telah Selesai / Tidak Ada Object Yang akan di Simpan" atau "Anda Belum Memilih Keterangan Absesnsi!" tapi jika data diisi dengan benar maka akan muncul pesan "Thanks You", nah ternyata yang seperti ini jutru lebih penting dan ribet loh ,saya aja udah berakali me-Run supaya berjalan Normal, tapi tenang ada kemaun pasti ada jalan….setuju…he… .
Itulah scrip yang terpenting dalam proses ini tapi kalau penegen tahu semua scripnya boleh asal jangan muntah ya…he…ini dya jreng":
Private Sub Command1_Click()
'untuk menyimpan hasil absesnsi kedalam database
If Text16.Text = "" Or Text3.Text = "" Or Text5.Text = "" Then
MsgBox ("Absensi Telah Selesai Tidak Ada Object Yang akan di Simpan")
ElseIf Text16.Text = Data1.Recordset.Fields("nip") And Option1.Value = True Or Option2.Value = True Or Option3.Value = True Or Option4.Value = True Then
X = MsgBox("Thank's you ", vbOKOnly + vbInformation, "Aplication For Master")
Data1.Recordset.Edit
Data1.Recordset.Fields("alpa") = Text10.Text
Data1.Recordset.Fields("izin") = Text11.Text
Data1.Recordset.Fields("sakit") = Text12.Text
Data1.Recordset.Fields("masuk") = Text14.Text
Data1.Recordset.Fields("total") = Text13.Text
Data1.Recordset.Fields("tgl") = Label16.Caption
Data1.Recordset.Update
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
DBGrid1.Refresh
Data1.Recordset.MoveNext 'setalah di save maka akan menuju record selanjutnya
Else
Z = MsgBox("Anda Belum Memilih Keterangan Absesnsi!", vbOKOnly + vbInformation, "Informasi")
End If
End Sub
Private Sub Command2_Click()
'hanya refresh doang
Data1.Refresh
Data3.Refresh
End Sub
Private Sub Command3_Click()
'keluar dari form proses absensi
X = MsgBox("Apa ada yakin untuk Mengakhiri Pengisian Absensi ini ? ", vbYesNo + vbQuestion, "Aplication For Master")
If X = vbYes Then
subDepan.Show
Form_Input_absensi.Hide
Else
End If
End Sub
Private Sub Command4_Click()
'menseleksi berdasarkan kelas
Data1.RecordSource = "select*FROM tabel2 WHERE bagian LIKE '*" & Text1.Text & "*'"
Data1.Refresh
DBGrid1.Refresh
Text1.SetFocus
End Sub
Private Sub Command5_Click()
' ini untuk find menu berdasarkan nip/nim/nis
Data1.Recordset.FindFirst "nip='" & Text15.Text & "'"
If Not Data1.Recordset.NoMatch Then
Text15.Text = ""
Text15.SetFocus
Else
X = Text15.Text
X = MsgBox("Mohon Periksa kembali Data yang anda Cari!", vbyesonly + vbinformasi, "Aplication For Master")
Text15.SetFocus
End If
End Sub
Private Sub Form_Load()
'Posisikan Form ini ketengah
Me.Move (Screen.Width – Me.Width) / 2, (Screen.Height – Me.Height) / 2
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text1.Text = ""
r = "Silahkan Input Nip/Nim/Nis!"
Text15.Text = r
End Sub
Private Sub Option1_Click()
'jika di klik maka jumlah alpa akan bertambah satu
If Option1.Value = True Then
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Text10.Text = Val(Text6.Text) + 1
Else
Text10.Text = Val(Text6.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Option2_Click()
'jika diklik maka jumlah izin akan bertambah satu
If Option2.Value = True Then
Text11.Text = Val(Text7.Text) + 1
Text10.Text = Text6.Text
Text12.Text = Text8.Text
Text14.Text = Text2.Text
Else
Text11.Text = Val(Text7.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Option3_Click()
jika diklik maka jumlah sakit akan bertambah satu
If Option3.Value = True Then
Text12.Text = Val(Text8.Text) + 1
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text14.Text = Text2.Text
Else
Text12.Text = Val(Text8.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text12.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text14.Text)
End Sub
Private Sub Option4_Click()
jika diklik maka jumlah izin akan bertambah satu
If Option4.Value = True Then
Text10.Text = Text6.Text
Text11.Text = Text7.Text
Text12.Text = Text8.Text
Text14.Text = Val(Text2.Text) + 1
Else
Text14.Text = Val(Text2.Text) + 0
End If
Text13.SetFocus
Text13.Text = Val(Text11.Text) + Val(Text10.Text) + Val(Text12.Text) + Val(Text14.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'ini hanya untuk di Enter supaya pidah ke field berikutnya
If KeyAscii = 13 Then
Command4.SetFocus
End If
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command5.SetFocus
End If
End Sub
Private Sub Timer1_Timer()
Label14.Caption = Format(Time, "hh:mm:ss:am/pm")'cuma format jam doang
Label16.Caption = Format(Date, "dd/mmmm/yyyy")
End Sub
Sekarang kita coba input absensi dan lihat hasilnya missal saya mw absent kelas XI-B,
,JHasilnya udah langsung bisa dilihat , ketika saya klik option(keterangan) masuk maka pada frame sesudah absent bagian masuk= 1(bertambah satu yang mulanya Nol) dan jika kita memilih absen masuk lagi maka akan bertambah menjadi dua , dan tanggalnya bersifat update pada field pertama dengan nama Lina Marlina tertera tgl 11/02/2009, sedangkan yang lainya tgl 07/02/2009.jangan heran dan aneh kalau ada yang nanya diamana saya menyimpan tanggalnya seperti pada Input data?, Coba anda perhatikan di bagian kanan ats form disitu tertera hari ini tanggal: dan itulah yang saya masukan kedatabase …he……he..
,.L, istilahnya masih sedikit saya rahasikan gak apa kan JOke dech kalau emang kurang jelas dan belum ngerti dari aplikasi yang saya buat ini , entar dech saya kasih aplikasi udah jadinya , soalnya saya juga buat aplikasi ini untuk TA he…..he…
Mungkin karena saya udah ngantuk nih jadi saya cukupin buat session (part 2-nya), nah nanti kita ketemu di part ke 3 dibagian output N pastinya gak kalah seru loh di tunggu ya…!!
Kalau gitu good luck aja yah…..!
Trik percepat akses internet
A. Menggubah setting bandwith pada windows (Hanya kami uji pada Windows XP)
Pada dasarnya OS windows sudah membatasi bandwidth untuk koneksi internet sebanyak 20% dari total bandwidth yang seharusnya bisa maksimal, jika netter ingin menambah bandwidth internet supaya koneksinya terasa lebih cepat dan kencang bisa dengan cara mengurangi atau mengosongkan batasan bandwidth tersebut supaya pada Windows kita bisa maksimal dalam menggunakan bandwidth yang sudah ada.
Ikuti petunjuknya seperti dibawah ini :
1. Klik Start
2. Klik Run
3. Ketik gpedit.msc
4. Kemudian klik Ok
5. Setelah masuk klik (buka) Administrative Templates
6. Kemudian klik (buka) Network
7. Setelah terbuka klik QoS Packet scheduler
8. Kemudian klik Limit Reservable Bandwidth
9. Dan setelah terbuka ubah setting menjadi Enable
10. Kemudian ubah Bandwidth Limitnya menjadi 0
11. Klik Apply, dan terus Ok
12. Kemudian keluar dan Restart komputer
B. Pakai browser Google Chrome atau Apple Safari
Versi terbaru dari browser Chrome dan Safari sangatlah cepat bila dibandingkan dengan Firefox ataupun Internet Explorer (sudah dicoba dan terbukti memang jauh lebih cepat). Saran saya pakailah Google Chrome karena selain cepat, Chrome lebih aman dibanding dengan Safari, walau dalam beberapa hal Safari kadang lebih cepat dari Chrome.
Kalau netter sudah terbiasa memakai Firefox dan tidak ingin beralih ke browser lagi, bisa tambahkan Add-on "Adblock" untuk memblok iklan, gambar, dan flash yang aktif. Ada beberapa Add-on lagi dari Firefox seperti NoScript yang bisa mempercepat akses internet, tapi sayangnya kalau kebanyakan Add-on justru, kadang malah memperlambat akses dari browser Firefox sendiri.
C. Perbesar cache browser hingga 5% dari kapasitas Harddisk atau 1 - 2 GB
Cara ini terbukti efektif untuk mempercepat akses browser. Logikanya adalah browser tidak perlu tiap kali loading gambar dan tetek bengeknya segala setiap kali berkunjung ke situs yang sudah pernah dikunjungi, karena kalau situs sudah pernah dikunjungi akan otomatis di-cache oleh browser.
Cara ini hanya berlaku jika kapasitas harddisk netter cukup besar. Pada umumnya masing-masing browser ada yang bisa diset kapasitas cachenya, ada yang otomatis. Jika browser netter tidak ada pilihan set cache, artinya netter jangan sering-sering (atau tidak perlu) clear history di browser.
Pada dasarnya OS windows sudah membatasi bandwidth untuk koneksi internet sebanyak 20% dari total bandwidth yang seharusnya bisa maksimal, jika netter ingin menambah bandwidth internet supaya koneksinya terasa lebih cepat dan kencang bisa dengan cara mengurangi atau mengosongkan batasan bandwidth tersebut supaya pada Windows kita bisa maksimal dalam menggunakan bandwidth yang sudah ada.
Ikuti petunjuknya seperti dibawah ini :
1. Klik Start
2. Klik Run
3. Ketik gpedit.msc
4. Kemudian klik Ok
5. Setelah masuk klik (buka) Administrative Templates
6. Kemudian klik (buka) Network
7. Setelah terbuka klik QoS Packet scheduler
8. Kemudian klik Limit Reservable Bandwidth
9. Dan setelah terbuka ubah setting menjadi Enable
10. Kemudian ubah Bandwidth Limitnya menjadi 0
11. Klik Apply, dan terus Ok
12. Kemudian keluar dan Restart komputer
B. Pakai browser Google Chrome atau Apple Safari
Versi terbaru dari browser Chrome dan Safari sangatlah cepat bila dibandingkan dengan Firefox ataupun Internet Explorer (sudah dicoba dan terbukti memang jauh lebih cepat). Saran saya pakailah Google Chrome karena selain cepat, Chrome lebih aman dibanding dengan Safari, walau dalam beberapa hal Safari kadang lebih cepat dari Chrome.
Kalau netter sudah terbiasa memakai Firefox dan tidak ingin beralih ke browser lagi, bisa tambahkan Add-on "Adblock" untuk memblok iklan, gambar, dan flash yang aktif. Ada beberapa Add-on lagi dari Firefox seperti NoScript yang bisa mempercepat akses internet, tapi sayangnya kalau kebanyakan Add-on justru, kadang malah memperlambat akses dari browser Firefox sendiri.
C. Perbesar cache browser hingga 5% dari kapasitas Harddisk atau 1 - 2 GB
Cara ini terbukti efektif untuk mempercepat akses browser. Logikanya adalah browser tidak perlu tiap kali loading gambar dan tetek bengeknya segala setiap kali berkunjung ke situs yang sudah pernah dikunjungi, karena kalau situs sudah pernah dikunjungi akan otomatis di-cache oleh browser.
Cara ini hanya berlaku jika kapasitas harddisk netter cukup besar. Pada umumnya masing-masing browser ada yang bisa diset kapasitas cachenya, ada yang otomatis. Jika browser netter tidak ada pilihan set cache, artinya netter jangan sering-sering (atau tidak perlu) clear history di browser.
Langganan:
Postingan (Atom)