Kongkow Dewan Guru

Seluruh Dewan Guru Aliyah Bustanul Ulum wongsorejo. Kongkow pada saat pembukaan acara perlombaan haflatul imtihan Pondok Pesantren Bustanul Ulum Wongsorejo yang ke-43

Laboratorium Komputer

Suasana dalam laboratorium komputer yang sekaligus sebagai pusat layanan internet kecamatan (PLIK), dibawah naungan Depkominfo. Ddengan demikian siswa dapat menambah informasi dengan mengakses situs pendidikan yang bermanfaat bagi mereka

Multimedia Pembelajaran

Guru memberikan pelajaran dengan memanfaatan multmedia komputer dalam studi Pembelajaran yang sesuai dengan Paikem (Pembelajaran Aktif, Inovatif, Kreatif, Efektif, dan Menyenangkan, di ruang kelas.

Siswa Dan Biologi

Siswa sedang mengamati mikroba yang terkandung dalam sebuah larutan air dengan menggunakan mikroskop,untuk memahami bentuk kehidupan lain yang ada di air.

Akses Internet Via Broadband Satellit

Sekalah kami dilengkapi dengan lab komputer yang menyediakan akses internet via broadban satelit, hasil kemitraan dengan Depkominfo. Dengan demikian siswa dapat dengan mudah mengikuti perkembangan informasi dengan mengaksesnya secara online melalui layanan internet yang kami sediakan

Kamis, 29 September 2011

Data Siswa

Posted On 06.59 by MA 0 komentar

Jumlah Siswa Total : 54 Siswa 
Update terakhir pada 04/10/2011 pk.11:01 WI

No.NISNNamaKelaminTingkat
19964408296AHMAD FAUZILaki-laki10
29954409598ASMAWATIPerempuan10
39954409586FITRIYAHPerempuan10
49940044358HARIYANTOLaki-laki10
59964408235ITA PURNAMA SARIPerempuan10
69951060308KHOLIFATUL JANNAHPerempuan10
79954409637KHOLIFATUR ROSITAPerempuan10
89965207241LILIK EMAWATIPerempuan10
99954409564MOH. ABDUL WAFILaki-laki10
109964408216MOH. ROFIQLaki-laki10
119991601896MUHAMMAD SHOLIHINLaki-laki10
129954409627MUSDHALIFAHPerempuan10
139951060311MUSLIMATUL HASANAHPerempuan10
149964408236NANANG HANDOKOLaki-laki10
159954409599NUR HASANAHPerempuan10
169951060305NUR ROHMANLaki-laki10
179964408238RATNA SARIPerempuan10
189942745771ROFI'AHPerempuan10
199964408298SAIFUL BAHRILaki-laki10
209954768395SELAMET ZULQORNAINLaki-laki10
219964505114SOFYAN SAURILaki-laki10
229942745794SRI MARIYATIPerempuan10
239951060300TAUFIQURROHMANLaki-laki10
249964408260TAZKIYATUN NUFUSPerempuan10
259954423651YOKO WAHYUDILaki-laki10
269942883790Abd.QohirLaki-laki11
279942883791Ach.ToyyibLaki-laki11
289942883792Agus Saputra Edi SusantoLaki-laki11
299942883793Anisa Umi CholifiahPerempuan11
309942883794Dewi SundariPerempuan11
319954626692IsmawatiPerempuan11
329954626694Kholifatul HasanahPerempuan11
339973604653Nur AzizahPerempuan11
349920903268Samsul ArifinLaki-laki11
359954626695SaniatiPerempuan11
369964647265Selvi LoretaPerempuan11
379954626696Shofi HikmatuzzahroPerempuan11
389954626697Windiyani AstutikPerempuan11
399931842842Adi SanjayaLaki-laki12
409954626698Ali FarisiLaki-laki12
419931842843Dwi Intan SusilawatiPerempuan12
429942883801Eko AriyantoLaki-laki12
439931842845Faridatul HikmahPerempuan12
449942883802Hendri PaitohLaki-laki12
459931842846Ikhwan Kusuma WLaki-laki12
469931842847Miswatin Nira RPerempuan12
479954626700MusdhalifaPerempuan12
489942883805Nur IsmaPerempuan12
499920903273Saiful RizalLaki-laki12
509942883806Siti Mu'awanahPerempuan12

 
No.NISNNamaKelaminTingkat
519942883807SugiyantoLaki-laki12
529942883808SumiyatiPerempuan12
539942883809Wahyunia MaghfirohPerempuan12
549954626701WarisinLaki-laki12

Sumber : http://banyuwangi.dapodik.org/sekolah.php?data=siswa&npsn=20526174


Sejarah Komputer

Posted On 00.12 by MA 0 komentar

Mesin luar biasa! Kita hidup di era komputer saat ini dan sebagian besar hari kami untuk kegiatan hari tidak dapat dilakukan tanpa menggunakan komputer. Kadang-kadang sadar dan kadang-kadang tanpa sadar kita menggunakan komputer. Komputer telah menjadi alat yang sangat diperlukan dan serbaguna. Kita bernapas di era komputer dan secara bertahap komputer telah menjadi suatu keharusan keinginan hidup yang sulit untuk membayangkan hidup tanpa itu.
'

DEFINISI

Bagi kebanyakan orang, komputer adalah mesin yang digunakan untuk perhitungan atau perhitungan, tapi sebenarnya jauh lebih dari itu. Tepatnya Komputer adalah perangkat elektronik untuk melakukan aritmatika dan operasi logis Atau "Komputer adalah perangkat atau mesin fleksibel untuk memproses data dan mengubahnya menjadi informasi.".

Untuk mengetahui tentang proses lengkap yang bagaimana komputer bekerja, kita harus menemukan berbagai istilah seperti Data, Pengolahan dan Informasi. Pertama-tama kita harus memahami istilah-istilah dalam arti sebenarnya.
1 DATA: -. "Data" tidak lain adalah kumpulan kuda fakta dasar dan mencari tanpa urutan apapun. Ketika data dikumpulkan sebagai fakta dan angka, ia tidak memiliki makna pada waktu itu, misalnya, nama siswa, nama-nama karyawan dll
2 PENGOLAHAN: -. "Pengolahan" adalah set instruksi yang diberikan oleh pengguna atau data yang terkait dengan output informasi yang berarti. Yang dapat digunakan oleh pengguna? Pekerjaan pengolahan mungkin perhitungan, perbandingan atau keputusan yang diambil oleh komputer.
3 INFORMASI: -. 'Informasi' adalah titik akhir atau output akhir dari setiap pekerjaan yang dilakukan. Ketika data output adalah makna itu disebut informasi.

PERKEMBANGAN KOMPUTER

Sebenarnya berbicara pengolahan data elektronik tidak kembali lebih dari hanya setengah yaitu centaury mereka ada semata-mata dari awal 1940-an. Pada hari-hari awal ketika nenek moyang kita digunakan untuk tinggal di dalam gua menghitung masalah. Masih dinyatakan menjadi sulit. Ketika mereka mulai menggunakan batu untuk menghitung hewan mereka atau kepemilikan mereka tidak pernah tahu bahwa hari ini akan mengarah ke komputer hari ini. Orang hari ini mulai mengikuti serangkaian prosedur untuk melakukan perhitungan dengan batu-batu, yang kemudian menyebabkan penciptaan perangkat penghitungan digital, yang adalah pendahulu perangkat menghitung pertama diciptakan, adalah dikenal sebagai ABACUS.

THE ABACUS
Dekak-dekak
Sempoa dikenal menjadi perangkat menghitung mekanis pertama. Yang digunakan untuk dilakukan penambahan dan pengurangan dengan mudah dan cepat? Perangkat ini adalah pertama-tama mengembangkan Ed oleh Mesir di centaury SM 10, tapi itu diberikan itu bentuk akhir dalam AD 12 centaury oleh pendidik Cina. Sempoa terdiri dari kerangka kayu di mana batang mana dilengkapi dengan manik-manik di putaran meluncur di batang. Ini id membagi menjadi dua bagian yang disebut 'Surga' dan 'bumi'. Surga adalah bagian atas dan Bumi adalah satu lebih rendah. Jadi tidak ada apapun. dapat direpresentasikan dengan menempatkan manik-manik di tempat yang tepat.



NAPIER'S FAKTA
Napier
Seperti perlunya menuntut, ilmuwan mulai menemukan perangkat menghitung lebih baik. Dalam proses demikian John Napier Skotlandia menciptakan perangkat menghitung, pada tahun 1617 disebut Tulang Napier. Dalam perangkat, Makasar menggunakan batang tulang tujuan penghitungan di mana tidak ada beberapa. tercetak pada batang tersebut. Batang ini bahwa seseorang dapat melakukan penambahan, pengurangan, perkalian dan pembagian dengan mudah.



PASCAL KALKULATOR
Pascal kalkulator
Pada tahun 1642, Blaise Pascal seorang ilmuwan Perancis menemukan mesin menambahkan disebut kalkulator Pascal, yang merupakan posisi digit dengan bantuan gigi di dalamnya.



LEIBNZ KALKULATOR
Leibnz Kalkulator
Pada tahun 1671, sebuah matematika Jerman, Gottfried Leibniz dimodifikasi kalkulator Pascal dan ia mengembangkan sebuah mesin yang dapat melakukan perhitungan berdasarkan berbagai perkalian dan pembagian juga.



ANALYTICAL ENGINE
Mesin analitis
Pada tahun 1833, seorang ilmuwan Inggris formulir tahu menjadi Charles Babbage menciptakan mesin tersebut. Yang bisa menyimpan data kita aman? Perangkat ini disebut Mesin Analitikal dan itu dianggap komputer mekanis pertama. Ini termasuk fitur seperti yang digunakan dalam bahasa komputer saat ini. Untuk ini penemuan besar dari komputer, Sir Charles Babbage juga dikenal sebagai bapak komputer.





GENERASI KOMPUTER

Seiring waktu berlalu, perangkat mesin yang lebih cocok dan dapat diandalkan adalah kebutuhan yang dapat melakukan pekerjaan kami lebih cepat. Selama waktu ini, pada tahun 1946, komputer elektronik pertama yang sukses disebut ENIAC dikembangkan dan itu adalah titik awal dari generasi sekarang dari komputer

GENERASI PERTAMA
ENIAC
ENIAC adalah komputer elektronik pertama yang sukses di dunia yang berkembang oleh dua ilmuwan yaitu JP Eckert dan JW Mauchy. Ini adalah awal dari komputer generasi pertama. Bentuk lengkap dari ENIAC merupakan "Numeric Elektronik Terpadu Dan Kalkulator" ENIAC adalah komputer yang sangat besar dan besar dan beratnya adalah 30 nada. Hal ini dapat menyimpan hanya jumlah terbatas atau kecil informasi. Awalnya di komputer generasi pertama konsep tabung vakum digunakan. Sebuah tabung vakum adalah seperti komponen elektronik yang memiliki efisiensi kerja sangat kurang dan sehingga tidak bisa bekerja dengan baik dan itu diperlukan sistem pendingin yang besar.



GENERASI KEDUA
Transister
Sebagai pengembangan bergerak lebih jauh, komputer generasi kedua mengetuk pintu. Dalam generasi ini, transistor digunakan sebagai komponen elektronik, bukan tabung vakum. Sebuah transistor jauh lebih kecil dalam ukuran daripada tabung vakum. Sebagai ukuran komponen elektron menurun dari tabung vakum transistor, ukuran komputer juga menurun dan itu menjadi jauh lebih kecil daripada komputer sebelumnya.



GENERASI KETIGA
Sirkuit terpadu
Komputer generasi ketiga diciptakan di tahun 1964. Dalam generasi komputer, IC (sirkuit Terpadu) digunakan sebagai komponen elektronik untuk komputer. Perkembangan IC melahirkan bidang baru mikroelektronika. Keuntungan utama dari IC tidak hanya berukuran kecil tetapi kinerja yang unggul dan kehandalan dari sirkuit sebelumnya. Ini pertama kali dikembangkan oleh TS Kilby. Ini generasi komputer memiliki kapasitas penyimpanan yang besar dan kecepatan menghitung yang lebih tinggi.


GENERASI KEEMPAT
Komputer Pribadi
Ini adalah generasi di mana kita bekerja sekarang. Komputer yang kita lihat di sekitar kita berasal dari komputer generasi keempat. 'Prosesor Mikro' adalah konsep utama di balik ini generasi komputer.
Sebuah mikroprosesor adalah sebuah chip tunggal (LSI sirkuit), yang digunakan dalam komputer untuk setiap fungsi aritmatika atau logis untuk dilakukan dalam program apapun. Para honaur mikroprosesor mengembangkan pergi ke Ted Hoff dari Amerika Serikat Ia mengembangkan mikro pertama-prosesor, Intel 4004, karena ia bekerja untuk Intel Corporation, USA dengan penggunaan mikroprosesor dalam komputer generasi keempat, ukuran komputer menjadi sangat cepat dan efisien. Ini adalah bukti bahwa generasi berikutnya dari komputer generasi kelima yaitu akan segera dikembangkan. Pada generasi itu, komputer akan memiliki kecerdasan buatan dan akan mampu mengambil keputusan sendiri seperti manusia.

Sumber :
http://wikieducator.org/History_of_Computer_Development


BahasaProgram VB

Posted On 00.07 by MA 0 komentar

Jika dulu bel masuk sekolah ataupun istirahat masih berupa lonceng yang dipukul, ataupun bel elektronik yang harus dipencet, sekarang bel sekolah sudah bisa diautomatisasi dengan komputer. Dalam kesempatan ini, kita akan mencoba membuat program bel musik sekolah dari Visual Basic. Untuk tampilan awal programnya adalah sebagai berikut:



jadi dalam keadaan running, kita akan memanfaatkan object timer dari VB untuk mengecek atau memeriksa waktu yang ada. Jika sama dengan waktu yang sudah didefinisikan sebelumnya, maka program akan memainkan musik, yang jika disambungkan ke amplifyer dan speaker, akan berbunyi ke seluruh lingkungan sekolah.
Untuk definisi waktu ganti jam pelajaran, jam masuk ataupun jam pulang, dianjurkan menyimpan data-datanya ke dalam database agar mudah dicustomisasi. hal ini sangat penting dilakukan karena musik yang digunakan sebagai pertanda masuk, ganti jam, istirahat ataupun jam pulang bisa jadi adalah musik yang berbeda. Jika kita perhatikan, menu utama program ini ada empat tombol, yaitu:
1. Pause - untuk menghentikan program sementara
2. Time Schedule - untuk mengubah nilai jam yang tersimpan di dalam database
3. Adjustment - untuk mengubah jam
4. Exit - keluar program

untuk time schedule, akan menampilkan tampilan sebagai berikut:



jika kita perhatikan, ada perbedaan jam antara hari biasa dan jumat, dimana hari jumat siswa akan pulang lebih awal. Untuk kasus-kasus tertentu, program dapat dengan mudah dicustomisasi, yang nantinya akan dicek harinya, dan akan mengikuti jadwal hari yang bersesuaian.
Sedangkan untuk adjustment, kita akan dapat mengubah jamnya jika tidak cocok atau perlu diubah.






Program Bel Musik Sekolah ini terdiri dari 2 form dan 1 buah module. Pertama kita akan lihat modulnya terlebih dahulu

Option Explicit

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Const SND_ASYNC = &H1
Public Const SND_FILENAME = &H20000
Public Const SND_SYNC = &H0

Global Jam(15) As String
Global cn As New ADODB.Connection

Public Sub set_conn_getData(ByRef sConnection As ADODB.Connection, ByVal sDataLocation As String, ByVal sHavePassword As Boolean, ByVal sPassword As String)
If sHavePassword = True Then
sConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDataLocation & ";Persist Security Info=False;Jet OLEDB:Database Password=" & sPassword
Else
sConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDataLocation & ";Persist Security Info=False"
End If
End Sub

Public Sub set_rec_getData(ByRef sRecordset As ADODB.Recordset, ByRef sConnection As ADODB.Connection, ByVal sSQL As String)
With sRecordset
.CursorLocation = adUseClient
.Open sSQL, sConnection, adOpenKeyset, adLockOptimistic
End With
End Sub

Public Function SndPlay(ByVal filename As String, Optional ByVal options As Long = (SND_FILENAME Or SND_ASYNC)) As Long
SndPlay = sndPlaySound(filename, options)
End Function


kita akan menggunakan 2 buah fungsi API yaitu fungsi untuk memainkan file berformat WAV. Kemudian kita mendeklarasi dua buah Public Sub, yang gunanya untuk melakukan koneksi terhadap database dan yang satu lagi untuk mengeksekusi string query dari perintah SQL. Lalu sebuah public function digunakan untuk memainkan musik.

Berikutnya untuk form yang pertama, kita membutuhkan beberapa object yaitu:
4 buah object command button
Object timer
Beberapa object line untuk membuat tampilan jam digital

Langsung saja Programnya adalah sebagai berikut:

Private Sub Command1_Click()
Form2.Show
End Sub

Command1 berfungsi untuk memanggil form yang satu lagi

Private Sub Form_Load()
Dim i As Byte
'set your own bell time here...
'load the values from the database
Call set_conn_getData(cn, App.Path & "\bell.mdb", False, "")

Dim Rs As New ADODB.Recordset

'the program will terminate if the day is Saturday or Sunday
If Weekday(Date) = 1 Or Weekday(Date) = 7 Then
MsgBox "Sorry... this program is not working on Saturday or Sunday"
End
Else

'choose day
If Not Weekday(Date) = 6 Then
Call set_rec_getData(Rs, cn, "SELECT * FROM tblBell WHERE Jenis='Biasa'")
Else
Call set_rec_getData(Rs, cn, "SELECT * FROM tblBell WHERE Jenis='Jumat'")
End If

Rs.MoveFirst
Do While Not Rs.EOF = True
If Not Rs.EOF = True Then
Jam(0) = Rs.Fields(1)
Jam(1) = Rs.Fields(2)
Jam(2) = Rs.Fields(3)
Jam(3) = Rs.Fields(4)
Jam(4) = Rs.Fields(5)
Jam(5) = Rs.Fields(6)
Jam(6) = Rs.Fields(7)
Jam(7) = Rs.Fields(8)
Jam(8) = Rs.Fields(9)
Jam(9) = Rs.Fields(10)
Jam(10) = Rs.Fields(11)
End If
Rs.MoveNext
Loop

Set Rs = Nothing
End If
End Sub

Pertama-tama dilakukan pembacaan dari database dan pengecekan, jika hari Sabtu atau Minggu, program akan terminate dengan sendirinya. Asumsinya untuk Sabtu Minggu, sekolah tidak masuk, jadi apabila tidak ada rutin pengecekan ini, bel akan tetap berbunyi apabila komputer dinyalakan. Lalu akan ada pengecekan terhadap harinya, dengan asumsi bahwa jadwal bel untuk Senin - Kamis berbeda dengan jadwal hari Jumat. Selanjutnya, data dari field akan disimpan ke dalam sebuah variabel array sehingga kita bisa menutup koneksi ke database.

Private Sub Timer1_Timer()
Dim j As Byte
AmPm

If Format(Time$, "H:MM:SS AMPM") = Jam(0) Then
SndPlay "masuk.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(1) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(2) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(3) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(4) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(5) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(6) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(7) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(8) Then
SndPlay "ganti.wav"
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(9) Then
If Not Weekday(Date) = 6 Then
SndPlay "ganti.wav"
Else
SndPlay "pulang.wav"
End If
End If
If Format(Time$, "H:MM:SS AMPM") = Jam(10) Then
If Not Weekday(Date) = 6 Then
SndPlay "pulang.wav"
End If
End If

For j = 1 To 6
Tim Mid(Format(Time, "HHMMSSAMPM"), j, 1), j - 1
Next j
End Sub

Lalu kita tambahkan rutin pengecekan pada object Timer. Sebagaimana kita ketahui, object Timer akan dieksekusi secara terus menerus. Jadi sederhana saja, kita tinggal membandingkan Timer dengan nilai array dari database, jika sama, maka akan dimainkan musiknya. Disamping itu kita juga akan mengganti tampilan digital dengan memanggil subrutin Tim.

Sub Tim(Wat, Id)
Select Case Wat
Case 0: LCD Id, , False
Case 1: LCD Id, False, False, False, False, False
Case 2: LCD Id, , , , False, , , False
Case 3: LCD Id, , , , False, False
Case 4: LCD Id, False, , False, , False
Case 5: LCD Id, , , , , False, False
Case 6: LCD Id, , , , , , False
Case 7: LCD Id, , False, False, False, False
Case 8: LCD Id
Case 9: LCD Id, , , , , False
End Select
End Sub

Subrutin Tim pada dasarnya pengecekan terhadap digit, yang nantinya akan di"gambar" oleh subrutin LCD dengan memanfaatkan variabel boolean, dimana nilainya diset TRUE apabila mau ditampilkan dan False apabila tidak ditampilkan

Sub LCD(ByVal i As Integer, Optional L1 As Boolean = True, Optional L2 As Boolean = True, Optional L3 As Boolean = True, Optional L4 As Boolean = True, Optional L5 As Boolean = True, Optional L6 As Boolean = True, Optional L7 As Boolean = True)
Up(i).Visible = L1
Midl(i).Visible = L2
Down(i).Visible = L3
Lft1(i).Visible = L4
Lft2(i).Visible = L5
Rgt1(i).Visible = L6
Rgt2(i).Visible = L7
End Sub

Sub AmPm()
If Right(Time, 2) = "PM" Then ARgt2.Visible = False Else ARgt2.Visible = True
End Sub

Private Sub Adj_Click()
Dat.Hour = Hour(Now)
Dat.Minute = Minute(Now)
Dat.Second = Second(Now)
Frame1.Visible = True
End Sub

Private Sub Pause_Click()
If Pause.Caption = "&Pause" Then Pause.Caption = "&Resume" Else Pause.Caption = "&Pause"
If OptAmPm.Value Then
If Timer1.Enabled Then Timer1.Enabled = False Else Timer1.Enabled = True
Else
If Timer2.Enabled Then Timer2.Enabled = False Else Timer2.Enabled = True
End If
End Sub

Private Sub Xit_Click()
End
End Sub

Private Sub OK_Click()
Can_Click
Time = Format(Dat.Value, "HH:MM:SS AMPM")
End Sub

Private Sub Can_Click()
Frame1.Visible = False
End Sub

Sebenarnya form ini adalah core atau inti dari program bel musik, sedangkan form yang satunya hanyalah form yang digunakan untuk mengupdate database dengan mengeset jam-jam pelajaran yang berlaku di sekolah. Dengan penggunaan database, tentunya program ini menjadi lebih fleksibel karena mudah dicustomize di sekolah mana saja, tidak dibatasi oleh jam yang sama.

Sumber:
http://www.wahyukurniawan.info