Aplikasi ini merupakan program yang dibuat untuk Sekolah SMPN 2 Rumpin, didalam aplikasi ini terdapat beberapa form antara lain :
1. Pengolahan Sata Siswa
2. Pengolahan Data Kelas
3. Pengolahan Data Mata Diklat
4. Pengolahan Data Nilai
5. Laporan Data Siswa
6. Laporan Data Nilai
7. Export Data Nilai ke Excel
Pengembangan :
Dalam beberapa waktu kedepan OpenSiswa ver.0.1 2010 kemungkinan akan dikembangkan ke arah Fasilitas Tambahan yaitu berupa SMS Gateway, diharapkan dengan adanya fasilitas ini setiap orang tua atau siswa bisa melihat Nilai tanpa harus lagi datang ke Sekolah, cukup dengan mengirimkan keyword tertentu ke SMS Centre Aplikasi OpenSMS tersebut.
Screen shot :
trus gmana blajarnya?
ReplyDeleteBelajar apanya om ?
ReplyDeleteTlg krm source codenya di email saya ya mas eka di dianadji@ymail.com
ReplyDeleteMaaf om, source codenya udah hilang karena hardisk ane rusak dan belum sempat di backup
ReplyDeletekirim source codenya ke email saya mas basrisaiful45@yahoo.co.id
ReplyDelete@Anonim : silahkan lihat komentar yang diatasnya,,,,
ReplyDeletetrus maksud om publish ni artikel buat apa ???? source code gk ada , pembelajarannya juga dimana ??? just info kali yaa .. . :) , cuma sedikt gmnaa gt jadinya omm. .
ReplyDeleteHahaha, gak baca komentar ane yah, coba donk baca baik-baik komentar ane, :P
DeleteOm Eka,
ReplyDeleteSaya yang lulusan SD ingin belajar vb,
Lihat contoh program di http://priyantoagoes.blogspot.com
Saya Mengikuti semua komentar di I-Bego.com tentang SMS gateway, dan saya rangkai menjadi program gateway...Al hasil sudah bisa untuk mengirim secara massal...
Yang jadi permasalahan saya...
Sampai saat ini saya belum menemukan cara untuk membaca SMS yang masuk dan memberikan nada dering di pesan yang ada...
untuk Read SMSnya sbb :
Sub isNewMessageReceived(nMemoryStorage As SMS_LISTSTAT, hPDUFormat As String, msgIndex As Integer, onMemory As String)
On Error Resume Next
Dim tmp As String
If Val(GetSetting("read_sms", "sms Reading", "show_message", 1)) = 1 Then
Dim c As New PDUToText
c.GetIsiSms hPDUFormat
tmp = "New Message Received From : " & c.GetSourceNumber & " at " & Time & vbCrLf & vbCrLf & c.GetText
txtshowmsg.SelStart = Len(txtshowmsg.Text)
txtshowmsg.SelText = tmp & vbCrLf & vbCrLf & String(30, "-") & vbCrLf
txtshowmsg.SelStart = Len(txtshowmsg.Text)
AddStack "AT+CPMS=" & onMemory
If Val(GetSetting("read_sms", "sms Reading", "show_message", 1)) = 1 Then
AddStack "AT+CMGD=" & msgIndex
End If
AddStack "AT+CPMS=" & Chr(34) & "SM" & Chr(34)
End If
End Sub
Tolong Bantuannya...
Sebelumnya saya ucapkan terima kasih
Om Eka,
ReplyDeleteSaya yang lulusan SD ingin belajar vb,
Lihat contoh program di http://priyantoagoes.blogspot.com
Saya Mengikuti semua komentar di I-Bego.com tentang SMS gateway, dan saya rangkai menjadi program gateway...Al hasil sudah bisa untuk mengirim secara massal...
Yang jadi permasalahan saya...
Sampai saat ini saya belum menemukan cara untuk membaca SMS yang masuk dan memberikan nada dering di pesan yang ada...
untuk Read SMSnya sbb :
Sub isNewMessageReceived(nMemoryStorage As SMS_LISTSTAT, hPDUFormat As String, msgIndex As Integer, onMemory As String)
On Error Resume Next
Dim tmp As String
If Val(GetSetting("read_sms", "sms Reading", "show_message", 1)) = 1 Then
Dim c As New PDUToText
c.GetIsiSms hPDUFormat
tmp = "New Message Received From : " & c.GetSourceNumber & " at " & Time & vbCrLf & vbCrLf & c.GetText
txtshowmsg.SelStart = Len(txtshowmsg.Text)
txtshowmsg.SelText = tmp & vbCrLf & vbCrLf & String(30, "-") & vbCrLf
txtshowmsg.SelStart = Len(txtshowmsg.Text)
AddStack "AT+CPMS=" & onMemory
If Val(GetSetting("read_sms", "sms Reading", "show_message", 1)) = 1 Then
AddStack "AT+CMGD=" & msgIndex
End If
AddStack "AT+CPMS=" & Chr(34) & "SM" & Chr(34)
End If
End Sub
Tolong Bantuannya...
Sebelumnya saya ucapkan terima kasih
maaf baru sempat lihat blog, bagaimana apakah sudah bisa ???
DeleteSundul lagi, gimana sudah bisa belum ???
Delete