terimakasih telah mengopensourcekan program menerima dan mengirim sms, dari situ kita dapat mengubahnya menjadi auto response…!

sekali lagi terimakasih n tetap berkarya…..

untuk bagi yang mau sourcena comment/email ja ya….!

berikut cara yang lebih mudah… ini salah satu cara yang aku gunakan dalam proyek sms gateway…

<pascal>

function SplitStrings(const str: string; const separator: string;
Strings: TStrings): TStrings;
begin
if Strings = nil then
Result := TStringList.Create
else
Result := Strings;
Result.Text := StringReplace(str, separator, #13#10, [rfReplaceAll]);
end;

//pengunaanya misalnya

procedure TForm1.Button1Click(Sender: TObject);
var
a:tstringlist;
i:integer;
begin
a:= TStringList.Create;
SplitStrings(edit1.Text,’ ‘,a);
for i:=0 to a.Count-1 do
begin
memo1.Lines.Add(a[i]);
end;

end;

</pascal>

semoga bermanfaat

Contoh untuk menge-set variabel lingkungan PATH :

$ export PATH=/home/lab/jdk1.6.0_13/bin:$PATH

Variabel lingkungan CLASSPATH harus memuat directory di mana file .class dari aplikasi berada. Contoh untuk menge-set variabel  lingkungan CLASSPATH :

$ export CLASSPATH=/home/lab/tugas

1. Melalui console, jalankan javac :

$ javac HelloWorld.java

Jika langkah-langkah di atas dikerjakan dengan benar, akan terdapat file HelloWorld.class di dalam directory yang sama.

1. Ceklah dengan:

$ ls

akan tampil:

HelloWorld.class   HelloWorld.java

1. Klik kanan pada My Computer, pilih Properties

System Properties di Windows

2. Klik tab Advanced, kemudian klik tombol Environment Variables

Tab Advanced dan tombol Environment Variables

3. Akan muncul kotak dialog sebagai berikut:

Kotak Dialog Environment Variables

Pada area System Variables pilih pilihan New untuk menambah system variable baru, kemudian isikan variable name : JAVA_HOME, dan variable value : lokasi dari instalasi JDK

Adding JAVA_HOME variable

Lalu, cari variable Path, klik edit untuk menambahkan sub variables JAVA_HOME dengan menuliskan %JAVA_HOME%\BIN di belakang variable

Edit Path Variable

ketika tombol edit di klik, keluar berikut:

Kotak Edit System Variable

Tambahkan %JAVA_HOME%\BIN di belakangnya.

Jika dibutuhkan, restartlah kompi anda…

4. Jika sudah, cek setting dengan mengakses command prompt (Start > Run > ketikkan cmd tekan Enter), di command prompt ketikkan java
Jika benar, akan muncul seperti ini:

Ketikkan java di Command Prompt

5. Ulangi langkah mengakses command prompt, kemudian ketikkan javac
Jika benar, akan muncul seperti ini:

Ketikkan javac di Command Prompt

Selamat mencoba

di lihat ya di http://error-loading.blogspot.com/

Berikut hal yang dibutuhkan :

Modem, bisa juga modem GSM atau Hp yang dijadikan modem

Gammu sebagai engine sms gateway

Mysql database

Install mysql database, extrak Gammu engine ubah sedikit configurasi gammu yang terletak pada file gammurc ubah port sesuaikan dengan port usb modem yang digunakan cek di property modemnya, ubah juga baris connection = at115200 menggunakan AT Command kebanyakan untuk piranti modem atau ponsel saat ini.

File kedua yang harus di edit yaitu file smsdrc, edit menggunakan notepad, edit baris

user = root (Jika anda tidak merubah settingan default Mysqlnya)

password = (kosongkan kalau anda tidak menggunakan password di mysqlnya)

pc = localhost

database = smsd

import database mysql.sql yang ada di folder win32 folder gammu.

Ubah field Coding Ubah dulu field Coding yang ada di tabel Outbox dan sent items, ubah typenya jadi enum(’Default_No_Compression’).

Untuk melakukan test buka command promp ketik

Gammu –identify

Kalo berhasil mendeteksi modem maka akan tampil informasi modem yang dipakai.

Setelah terdeteksi tinggal mengektifkan service gammu dengan cara ketik

Gammu –smsd MYSQL smsdrc

Membuat Auto response

Gammu mempunyai tabel-tabel utama dalam operasi sms disamping tabel-tabel lainnya tabel-tabel itu sebagai berikut:

Inbox : tabel untuk menampung sms masuk

Outbox : tabel yang berfungsi untuk pengiriman sms dimana data yang masuk di tabel outbox akan dikirim ke alamat tujuan kemudian dipindah ke tabel sentitems

Sentitems : berfungsi untuk menampung sms terkirim

Pada prinsibnya untuk membuat auto response kita tinggal membuat trigger pada table inbox, dimana trigger tersebut akan mengecek input sms yang masuk sesuai dengan yang diharapkan atau tidak. Trigger itu sendiri merupakan mekanisme yang dibenamkan dalam database yang akan memicu suatu aksi bila ada perubahan data pada tabel lain yang diberi trigger.

Misal kita punya tabel ipk_mhs dengan field nim, nama, ipk kita bisa membuat trigger sebagai berikut:

create trigger
smsd.ipk
AFTER
INSERT
on
smsd.inbox
for each row begin
insert into outbox(DestinationNumber,
TextDecoded,CreatorID)
 values(New.SenderNumber,(select concat(nama,
' Ipk: ',ipk) from ipk_mhs
 where nim=SUBSTRING(NEW.TextDecoded,1)),'1');
end

dengan trigger diatas maka engine gammu akan melakukan aksi pengiriman sms dengan mengambil new.SenderNumber itu yang akan di insertkan ke outbox sms, karna percobaan yang aku lakukan diatas hanya iseng dan ternyata yg kirim sms 1 orang bisa 10 sms wah bisa tekor nih pulsa heheheh…. kemudian pada trigger pun kita bisa melakukan pembatasan contoh triggernya seperti berikut

create trigger
smsd.ipk
AFTER
INSERT
on
smsd.inbox
for each row begin
if (select count(*) from inbox
where SenderNumber=New.SenderNumber) = 6 then
insert into outbox(DestinationNumber,
TextDecoded,CreatorID)
 values(New.SenderNumber,
' Maaf No Anda Sudah Lebih 5 kali Request','1');
elseif (select count(*) from inbox
where SenderNumber=New.SenderNumber) <= 5 then
insert into outbox(DestinationNumber,
TextDecoded,CreatorID)
 values(New.SenderNumber,(select concat(nama,
' Ipk: ',ipk) from ipk_mhs
 where nim=SUBSTRING(NEW.TextDecoded,1)),'1');
end if;
end

Jadih deh smsnya terbatasi 5 kali sms abis itu gak bakal digubris hehehe…… yah semoga bisa di pahami… hanya coretan kecil

Berikut Mysql Subquerynya semoga bisa dijadikan pelajaran

select ("20081")as Thsmstrakm,("055006")as Kdptitrakm,
("E")as Kdjentrakm,(kdpst)as Kdpsttrakm,("")as smawltrakm,
(no_mhs)as Nimhstrakm,round((sum(mata_kuliah.sks*khs.nilai ))/
(sum(mata_kuliah.sks)),2)as Nlipstrakm,
sum(mata_kuliah.sks)as sksemtrakm,

(SELECT round((sum(mata_kuliah.sks*khs.nilai ))/
(sum(mata_kuliah.sks)),2)as total_nilai FROM `identitas_mhs`
INNER JOIN `krs` ON (`identitas_mhs`.`kode_mhs` = `krs`.`kode_mhs`)
INNER JOIN `khs` ON (`krs`.`kode_krs` = `khs`.`kode_krs`)
INNER JOIN `mata_kuliah` ON (`krs`.`kode_automatkul` = `mata_kuliah`.`kode_automatkul`)
where identitas_mhs.no_mhs=Nimhstrakm
and krs.semester<=3)as Nlipktrakm,

(SELECT sum(sks) FROM `identitas_mhs`
INNER JOIN `krs` ON (`identitas_mhs`.`kode_mhs` = `krs`.`kode_mhs`)
INNER JOIN `khs` ON (`krs`.`kode_krs` = `khs`.`kode_krs`)
INNER JOIN `mata_kuliah` ON (`krs`.`kode_automatkul` = `mata_kuliah`.`kode_automatkul`)
where identitas_mhs.no_mhs=Nimhstrakm
and krs.semester<=3)as Skstttrakm

FROM  `identitas_mhs`
INNER JOIN `krs` ON (`identitas_mhs`.`kode_mhs` = `krs`.`kode_mhs`)
INNER JOIN `khs` ON (`krs`.`kode_krs` = `khs`.`kode_krs`)
INNER JOIN `mata_kuliah` ON (`krs`.`kode_automatkul` = `mata_kuliah`.`kode_automatkul`)
inner join `kdpstpt` on(`kdpstpt`.`kode_prodi`=`identitas_mhs`.`kode_prodi`)
where krs.semester=3
and identitas_mhs.tahun_angkatan =2007
and identitas_mhs.kode_prodi=7
group by identitas_mhs.kode_mhs
order by no_mhs

Ternyata sebuah query sql dapat dilakukan subquery lagi terlihat dari script diatas pada subquery pertama

where identitas_mhs.no_mhs=Nimhstrakm

Nimhstrakm mengambil nilai dari query pertama yaitu

select ("20081")as Thsmstrakm,("055006")as Kdptitrakm,
("E")as Kdjentrakm,(kdpst)as Kdpsttrakm,("")as smawltrakm,
(no_mhs)as Nimhstrakm,round((sum(mata_kuliah.sks*khs.nilai ))/
(sum(mata_kuliah.sks)),2)as Nlipstrakm,
sum(mata_kuliah.sks)as sksemtrakm,

Didalam subquery kitapun dapat membuat filtering kondisi dengan where didalamnya. Huuh ribet juga nih…. Sql diatas kalo di eksekusi lumayan lama sih ya kira-kira 2 menit untuk menghasilkan result record tapi lumayan buatku dari pada harus ketik 20.000 record yang sebulan ja blom tentu kelar hehehe… mungkin kalo dirampingkan dikit bisa lebih cepat berhubung gak ada dananya jadi segitu aja cukup lah .. ! hahahaha..

Dalam rangka mencerdaskan anak bangsa Indonesia, khususnya pendidikan dan pengajaran langsung dari dunia komputer, maka Politeknik Seni Yogyakarta akan mengadakan festival dengan unsur hiburan dan edukasi.

Kegiatan ini bertujuan untuk menghasilkan game tech dan Animasi yang dapat mencerdaskan anak bangsa. Festival Game Tech dan Animasi 2009 (FGTA) ini melalui pola sinergi dengan Southeast Asian Ministry of Educational Organization Regional Open Distance Learning Centre (SEAMEO SEAMOLEC), Biro Perencanaan Kerjasama Luar Negeri (BPKLN) Depdiknas, yang sangat diharapkan akan memberikan dukungan atas terselenggaranya kegiatan dimaksut.

Informasi selengkapnya dilihat di:

P4TK-SB Yogyakarta
Poliseni Yogyakarta web blog

Beberapa antivirus juga udah dicoba tetapi tidak menemukanadanya virus. Kecurigaanku mulai timbul ketika memasukan flash disk tiba-tiba didalam flash terkopikan “autorun.ini” dan folder “recycle”, isi file “autorun.ini” itu mengeksekusi file “autorun.exe” yang ada di folder recycle jadi tiap flash yang terinfeksi setiap di buka di komputer akan menjalankan “autorun.exe” alias menginfeksikan ke komputer lainnya.

Binggung juga ma jengkel lha komputer normal kok gak bisa buat internet kalo mau di format ntar dulu deh. Terpaksa sample virus dari kantor ak bawa pulang trus langsung flash disk ku yang udah terinfeksi virus ak colokin di komputer rumah dan hasilnya sih gak terasa apa-apa hehehehe…… tapi ketika mau menghidupin internet lewat modem ak buka operamini browser lewat micro emulator hasilnya wakakakakaka…… gak nyambung-nyambung padahal buat chating lancar, bener-bener tuh virus.

Setelah melakukan beberapa infestigasi dan mengerahkan pelacak akhirnya menemukan kejanggalan juga, ada file baru yang berjalan sebagai service ak coba kill pake taskmanager gak bisa-bisa juga, sempet pake killbox tetapi juga gagal. Akhirnya ak boot pake live cd Xp trus ak delet file “wmibus.exe” tepatnya di folder:

“C:\WINDOWS\system\wmibus.exe”

Ak test dengan memasukan flash disk yang belum terinfeksi Alhamdzulillah tidak terjadi pengkopian file lagi

Jadi menurutku virus autorun.exe itu ada di “C:\WINDOWS\system\wmibus.exe”

Virus ini juga melakukan aktivitas mengakses situs microsoft terlihat pada tool netstat windows.

Silahkan hapus file tersebut bisa di boot pake cd, mungkin juga ada cara lain tetapi ak belum coba. Boot dan delete beres deh

Semoga bermanfaat……..!

List merupakan subclass dari screen yang berisi sebuah daftar dari suatu pilihan. Sebuah list dapat dibagi menjadi tiga tipe: IMPLICIT, EXCLUSIVE atau MULTIPLE.

Jika List bertipe IMPLICIT dan user mengeksekusi tombol “select”, commandAction() dari list commandListener akan dipanggil. Default perintahnya adalah List.SELECT_COMMAND.

Untuk tipe IMPLICIT dan EXCLUSIVE, GetSelectedIndex() mengembalikan index dari element yang dipilih. Untuk tipe MULTIPLE, getSelectedFlags() mengembalikan sebuah array dari boolean yang berisi state dari elemen-elemen. isSelected(int index) mengembalikan state dari elemen dalam pemberian posisi index.

Untuk lebih jelasnya coba aja deh samplenya Download List Image