Data Siswa

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

No.	NISN	Nama	Kelamin	Tingkat
1	9964408296	AHMAD FAUZI	Laki-laki	10
2	9954409598	ASMAWATI	Perempuan	10
3	9954409586	FITRIYAH	Perempuan	10
4	9940044358	HARIYANTO	Laki-laki	10
5	9964408235	ITA PURNAMA SARI	Perempuan	10
6	9951060308	KHOLIFATUL JANNAH	Perempuan	10
7	9954409637	KHOLIFATUR ROSITA	Perempuan	10
8	9965207241	LILIK EMAWATI	Perempuan	10
9	9954409564	MOH. ABDUL WAFI	Laki-laki	10
10	9964408216	MOH. ROFIQ	Laki-laki	10
11	9991601896	MUHAMMAD SHOLIHIN	Laki-laki	10
12	9954409627	MUSDHALIFAH	Perempuan	10
13	9951060311	MUSLIMATUL HASANAH	Perempuan	10
14	9964408236	NANANG HANDOKO	Laki-laki	10
15	9954409599	NUR HASANAH	Perempuan	10
16	9951060305	NUR ROHMAN	Laki-laki	10
17	9964408238	RATNA SARI	Perempuan	10
18	9942745771	ROFI'AH	Perempuan	10
19	9964408298	SAIFUL BAHRI	Laki-laki	10
20	9954768395	SELAMET ZULQORNAIN	Laki-laki	10
21	9964505114	SOFYAN SAURI	Laki-laki	10
22	9942745794	SRI MARIYATI	Perempuan	10
23	9951060300	TAUFIQURROHMAN	Laki-laki	10
24	9964408260	TAZKIYATUN NUFUS	Perempuan	10
25	9954423651	YOKO WAHYUDI	Laki-laki	10
26	9942883790	Abd.Qohir	Laki-laki	11
27	9942883791	Ach.Toyyib	Laki-laki	11
28	9942883792	Agus Saputra Edi Susanto	Laki-laki	11
29	9942883793	Anisa Umi Cholifiah	Perempuan	11
30	9942883794	Dewi Sundari	Perempuan	11
31	9954626692	Ismawati	Perempuan	11
32	9954626694	Kholifatul Hasanah	Perempuan	11
33	9973604653	Nur Azizah	Perempuan	11
34	9920903268	Samsul Arifin	Laki-laki	11
35	9954626695	Saniati	Perempuan	11
36	9964647265	Selvi Loreta	Perempuan	11
37	9954626696	Shofi Hikmatuzzahro	Perempuan	11
38	9954626697	Windiyani Astutik	Perempuan	11
39	9931842842	Adi Sanjaya	Laki-laki	12
40	9954626698	Ali Farisi	Laki-laki	12
41	9931842843	Dwi Intan Susilawati	Perempuan	12
42	9942883801	Eko Ariyanto	Laki-laki	12
43	9931842845	Faridatul Hikmah	Perempuan	12
44	9942883802	Hendri Paitoh	Laki-laki	12
45	9931842846	Ikhwan Kusuma W	Laki-laki	12
46	9931842847	Miswatin Nira R	Perempuan	12
47	9954626700	Musdhalifa	Perempuan	12
48	9942883805	Nur Isma	Perempuan	12
49	9920903273	Saiful Rizal	Laki-laki	12
50	9942883806	Siti Mu'awanah	Perempuan	12

 

No.	NISN	Nama	Kelamin	Tingkat
51	9942883807	Sugiyanto	Laki-laki	12
52	9942883808	Sumiyati	Perempuan	12
53	9942883809	Wahyunia Maghfiroh	Perempuan	12
54	9954626701	Warisin	Laki-laki	12

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

Sejarah Komputer

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

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