Thursday 29 November 2012

Coding Trigger Album


DELIMITER $$

DROP TRIGGER /*!50032 IF EXISTS */ `toko_dbc110116`.`insertAlbum`$$

CREATE TRIGGER `toko_dbc110116`.`insertAlbum` AFTER INSERT on `toko_dbc110116`.`album`
FOR EACH ROW BEGIN
insert into log values ('aryudi',now(),'INSERT');
END$$

DELIMITER ;
-------------------------------------

DELIMITER $$

DROP TRIGGER /*!50032 IF EXISTS */ `toko_dbc110116`.`UpdateAlbum`$$

create trigger `toko_dbc110116`.`UpdateAlbum` AFTER UPDATE on `toko_dbc110116`.`album`
for each row BEGIN
insert into log values ('aryudi',now(),'UPDATE');
END;
$$

DELIMITER ;
------------------------------------

DELIMITER $$

DROP TRIGGER /*!50032 IF EXISTS */ `toko_dbc110116`.`DeleteAlbum`$$

CREATE TRIGGER `toko_dbc110116`.`DeleteAlbum` AFTER DELETE on `toko_dbc110116`.`album`
FOR EACH ROW BEGIN
insert into log values ('aryudi',now(),'DELETE');
END$$

DELIMITER ;


Friday 23 November 2012

Cara Menembus Media?


Menulis bukan hanya tentang idealisme, menulis juga tentang realisme. Kesempatan dimuat di media adalah kesempatan agar karya Anda dibaca dan diapresiasi oleh orang banyak. Honor adalah kompensasi paling akhir, meski tidak dapat dipungkiri bahwa bagi sebagian penulis, honor adalah motivasi paling awal. Ada sebagian penulis yang beranggapan bahwa media, dalam hal ini koran, adalah sebuah penasbihan. Jadi ketika karya Anda (cerpen atau puisi atau opini) dimuat di sebuah koran, maka penulis itu disebut sah disebut sebagai penulis. Ada juga sebagian penulis yang menganggap bahwa publisitas bukan barometer. Semuanya dikembalikan kepada Anda.

Namun ada hal-hal yang harus dicermati ketika kita akan mengirimkan karya ke sebuah media. Ibarat mencari pacar, maka kita harus tahu kesukaan kecengan kita apa, warna favoritnya, tempat nongkrongnya, dan hal-hal yang bisa kita jadikan 'bekal nembak'. Begitu juga dengan media. Jika Anda adalah penulis generalis dalam arti menulis apa saja, genre yang mana saja, tentu Anda harus menyesuaikan kebutuhan pasar, dalam hal ini kebijakan media. Nah, bagi Anda yang masih bingung akan ke mana naskah Anda dilempar, tentu mengetahui kebijakan editorial masing-masing media sangat diperlukan. Seperti strategi marketing; melempar produk yang tepat kepada audiens yang tepat.

Kenapa harus mengenali media? Karena Anda tentu tidak ingin naskah Anda sia-sia, bukan? Misalnya, mengirimkan chicklit ke majalah Bobo, sampai cacing berbulu pun, naskah Anda tidak akan dimuat. Kenapa? Karena Bobo adalah majalah anak-anak, dan cerpen Anda tidak sesuai untuk segmen pembaca mereka.

Agar Anda tidak salah kirim dan menyia-nyiakan naskah Anda, ada baiknya Anda melakukan hal-hal sebagai berikut:

1. JENIS RUBRIK
Patut diketahui bahwa tidak setiap media memuat cerpen dan atau puisi. Ada yang hanya memuat cerpen tapi tidak untuk puisi, ada yang hanya memuat puisi tapi tidak cerpen, ada yang memuat keduanya, ada juga yang tidak memuat keduanya. Misalnya, Tribun Jabar menyediakan halaman Senandika untuk cerpen, tapi di sana tidak ada puisi. Jadi, jangan kirimkan puisi ke Tribun Jabar. Majalah Kartini, Sekar, Chic, Femina adalah contoh-contoh majalah yang hanya menerima cerpen, tidak untuk puisi.

Cara untuk mengetahui itu bagaimana? Belilah media yang bersangkutan, koran biasanya setiap hari Minggu, majalah ada yang terbit mingguan, ada yang dwi mingguan, ada juga yang terbit setiap bulan. Perhatikan rubrik apa saja yang ada di sana yang menerima tulisan dari luar.

2. JENIS MEDIA
Jika diperhatikan, jenis-jenis cerpen di koran, majalah, atau tabloid berbeda-beda dari gaya penceritaan dan pemilihan tema. Koran lebih bersifat umum sedangkan majalah dan tabloid biasanya disesuaikan dengan segmen pembaca. Sesuaikan gaya bercerita Anda. Merasa terkekang dengan keinginan media? Jangan kirimkan cerpen Anda. Mudah saja, bukan?

3. VISI DAN MISI
Majalah anak-anak dengan majalah wanita dewasa tentu berbeda. Majalah wanita dewasa pun ada berbagai jenis. Chic diperuntukkan bagi para wanita karier. Femina dan Sekar berbeda lagi. Belum lagi ada berbagai jenis koran.

Visi dan misi biasanya bersangkutan dengan kebijakan editorial. Misalnya, majalah Ummi, Annida, Sabili, Tarbawi lebih ke visi dan misi islami. Jangan kirimkan cerpen-cerpen bertema rating 'S' ke sana karena akan langsung 'dibantai' :D.

Majalah Bobo dikhususkan untuk pembaca anak-anak. Majalah Story berisi cerpen-cerpen bertema remaja walau sekarang ada satu rubrik yang khusus memuat cerpen yang 'nyastra'. Republika lebih islami, berbeda dengan Kompas dan Pikiran Rakyat.

4. PANJANG NASKAH
Patokan panjang naskah di berbagai media itu berbeda-beda karena disesuaikan dengan space yang mereka sediakan. Ini penting, karena tidak semua redaktur mau bersusah payah mengirimkan cerpen yang kita kirim untuk direvisi, biasanya langsung ditolak mentah-mentah. Contoh, Tribun Jabar mematok maksimal 7 ribu karakter dengan spasi. Jawa Pos, Inilah Koran, dan Kompas sekitar 9-10 ribu karakter. Dengan spasi? Yaiyalah dengan spasi, kecuali medianya mengatakan lain.

Bagaimana mengetahui ini? Lihat informasinya di media yang bersangkutan. Majalah Story memuat detail pengiriman naskah di setiap edisinya. Atau, bisa bertanya kepada mereka yang naskahnya sudah pernah dimuat. Bisa juga tanyakan langsung kepada redaktur atau pengasuh rubrik yang bersangkutan. Masih tidak bisa? Kirimkan e-mail atau telepon. Masih tidak bisa juga? PM atau DM.

Dan tolong jangan tanya soal jenis huruf dan besar huruf. Nyaris seluruh media menggunakan standard TNR 12 dengan spasi 1.5.

5. KENALI SELERA REDAKTUR
Koran adalah media yang paling susah ditebak. Hanya Tuhan dan redaktur bersangkutan yang tahu. Hahahaha .... Believe it or not, tidak ada garis merah atau garis besar tentang ini. Untuk mengetahuinya, baca cerpen-cerpen atau puisi yang telah lebih dulu dimuat, atau baca karya-karya redakturnya. Biasanya para redaktur juga adalah para penulis. Mengenali selera redaktur memang bukan langkah yang mudah, karena walau bagaimanapun, selera itu akan dibenturkan dengan visi dan misi serta kebijakan editorial media yang bersangkutan. Menyerah? Please don't!

6. TEKNIS PENGIRIMAN
Hard copy atau soft copy. Dewasa ini banyak media yang lebih suka menerima naskah dalam bentuk e-mail daripada dalam bentuk print out. Barangkali dalam rangka save the earth dan mengurangi sampah naskah, eh sampah kertas :D

Ini keuntungan bagi kita para penulis karena mengirim naskah melalui e-mail cenderung lebih ringkas daripada harus mengirimkan naskah dalam bentuk hard copy. Eh sebentar, beberapa hari yang lalu pernah ada yang bertanya kepada saya apa itu beda hard copy dan soft copy. Oke, mari saya jelaskan di sini juga.

Hard copy ==>; Dikirim dalam bentuk print out (please, jangan tanya print out itu apa), disertai biodata, dan surat pengantar. Contoh surat pengantar bisa dilihat di sini. Foto? Sesuaikan dengan media, ada yang meminta foto ada yang tidak. Kalau media yang bersangkutan tidak meminta foto, sebaiknya jangan kirim foto Anda.

Apakah perlu dijilid? Cerpen? No! Kalau novel, iya. Masukkan semua berkas tadi ke dalam amplop cokelat tertutup. Ingat, amplop! Jangan kertas koran atau kertas kado. Anda sedang mengirim naskah, bukan mengirim ucapan selamat ulang tahun.
Dikirim melalui apa? Datang langsung ke redaksi, pos, jasa ekspedisi. Pilih saja sesuai selera Anda.

Soft copy ==>; Dikirim dalam bentuk file, disertai dengan biodata, dan surat pengantar di badan e-mail. Foto sama dengan cara pengiriman hard copy di atas. And remember this: kirim naskah di lampiran, BUKAN DI BADAN E-MAIL. Kalau mau jadi penulis sukses, jangan gaptek :D.

Untuk surat pengantar melalui e-mail, Anda bisa menggunakan pengantar yang sama seperti ketika mengirim hard copy, bisa juga dengan yang lebih ringkas.
Contoh:

Kepada redaktur koran ...

Berikut ini saya kirimkan naskah cerpen/puisi dengan judul ....
Bersama naskah ini pula saya sertakan biodata.
Terima kasih.

Hormat saya,

(Nama jelas/nama pena)

Dikirim ke mana? Tentu saja dikirim ke redaktur yang bersangkutan. Tidak tahu alamat e-mailnya? Please refer to this link.


Setelah naskah dikirim lalu apa? Ya tunggu sampai dimuat. Ditolak? Buat yang baru, kirim lagi. Masih ditolak? Buat aja terus sampai dimuat. Hehehe .... Because being a writer is a hardwork. Good luck, and keep writing.

Salam
~eS

Thursday 8 November 2012

Koding Program Procedure untuk inputDetailPenjualan


Koding Program Procedure untuk inputDetailPenjualan pada SQL

DELIMITER $$

DROP PROCEDURE IF EXISTS `toko_dbc110071`.`inputDetailPenjualan`$$

CREATE DEFINER=`root`@`localhost` PROCEDURE `inputDetailPenjualan`(vkode_album varchar(5), vqty smallint, vharga decimal)
BEGIN
DECLARE vkode_penjualan VARCHAR(20);
declare vsubtotal decimal;
set vsubtotal = vqty*vharga;
SET vkode_penjualan = getKodePenjualan(now());
INSERT INTO detail_penjualan VALUES (vkode_penjualan, vkode_album, vqty, vharga, vsubtotal);
select vkode_penjualan, vkode_album,vqty, vharga from detail_penjualan;
    END$$

DELIMITER ;

Monday 5 November 2012

koding program stored dan function


DELIMITER $$

DROP FUNCTION IF EXISTS `toko_dbc110091`.`getKodepenjualan`$$

CREATE FUNCTION `toko_dbc110091`.`getKodepenjualan`(vTgl_pinjam DATETIME)
RETURNS VARCHAR(10)
   DETERMINISTIC


BEGIN

DECLARE vthn CHAR(2);

DECLARE vbln CHAR(2);

DECLARE vtgl CHAR(2);

DECLARE vUrut INT;


SET vthn=SUBSTR(vTgl_pinjam,3,4);

SET vbln=SUBSTR(vTgl_pinjam,6,6);

SET vtgl=SUBSTR(vTgl_pinjam,9,9);

SELECT IFNULL (MAX(CAST(SUBSTR(Kode_Penjualan, 4, 5) AS UNSIGNED)),0)

FROM detail_penjualan

WHERE vtgl_pinjam LIKE CONCAT (vthn, vbln, vtgl, '%')INTO vUrut;


RETURN CONCAT (vthn, vbln,vtgl, vUrut+1);
   

END$$

DELIMITER ;

coding program kalkulator dalam bahasa delphi


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TambahClick(Sender: TObject);
var EdJumlah : integer;
begin
EdJumlah := StrToInt(Bil_1.Text)+StrToInt(Bil_2.Text);
jml.Text := IntToStr(EdJumlah);
end;

procedure TForm1.KurangClick(Sender: TObject);
var edjumlah : integer;
begin
EdJumlah := StrToInt(Bil_1.Text)-StrToInt(Bil_2.Text);
jml.Text := IntToStr(EdJumlah);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (application.MessageBox('Anda yakin keluar dari program','Information',mb_yesno)=idyes) then
close;
end;

procedure TForm1.BagiClick(Sender: TObject);
var edjumlah : real;
bil1,bil2 : real;
begin
bil1 := StrToFloat(Bil_1.Text);
bil2 := StrToFloat(bil_2.Text);
EdJumlah := bil1/bil2;
jml.Text := FloatToStr(EdJumlah);
end;

procedure TForm1.KaliClick(Sender: TObject);
var edjumlah : integer;
begin
EdJumlah := StrToInt(Bil_1.Text)*StrToInt(Bil_2.Text);
jml.Text := IntToStr(EdJumlah);
end;

procedure TForm1.div1Click(Sender: TObject);
var edjumlah : integer;
begin
EdJumlah := StrToInt(Bil_1.Text) div StrToInt(Bil_2.Text);
jml.Text := IntToStr(EdJumlah);
end;

procedure TForm1.mod1Click(Sender: TObject);
var edjumlah : integer;
begin
EdJumlah := StrToInt(Bil_1.Text) mod StrToInt(Bil_2.Text);
jml.Text := IntToStr(EdJumlah);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
bil_1.Clear;
bil_2.Clear;
Jml.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
var edjumlah : integer;
begin
EdJumlah := StrToInt(Bil_1.Text) * StrToInt(Bil_1.Text);
jml.Text := IntToStr(EdJumlah);
end;

end.

Sunday 4 November 2012

Contoh Pidato Perpisahan


Assalamualaikum Warohmatullohi Wabarokaatu

Puji syukur mari kita panjatkan kehadirat Allah SWT, karena kehendak-Nya lah kita semua dapat berkumpul di tempat yang berbahagia ini. Sholawat serta salam semoga senantiasa tercurah selama-lamanya kepada junjunan alam Nabi Muhammad SAW.

Bapak beserta Ibu, hadirin yang saya hormati. Waktu memang terasa berlalu begitu cepat. Rasanya baru kemarin saya dan teman-teman pertama masuk ke sekolah ini, dan sekarang harus sudah berpisah lagi. Saya dan teman-teman harus pergi meninggalkan sekolah ini untuk melanjutkan sekolah, mengejar cita-cita kami semua. Tentu saja selama tiga tahun belajar di sekolah ini, banyak yang  akan menjadi kenangan. Di sini, di sekolah yang sama-sama kita cintai ini, kami semua belajar mencari ilmu. Berkumpul di kelas ataupun di berbagai macam kegiatan, kadang-kadang bercanda bersama teman-teman. Tentu saja itu semua akan menjadi kenangan yang tak akan terlupakan.

Kebaikan Bapak dan Ibu guru semua, ilmu yang telah di berikan kepada kami tentu akan kami ingat selalu, tersimpan di hati kami menjadi cahaya yang akan menerangi jalan kami. Mudah-mudahan, ilmu yang kami terima dapat bermanfaat bagi kami semua. Amiiin..
Kami tidak bisa membalas kebaikan Bapak dan Ibu, kami hanya bisa mengucapkan terimakasih, dan memanjatkan do’a, semoga atas ilmu yang telah diberikan kepada kami, Bapak Ibu diberi pahala yang berlipat oleh Allah SWT, Amiiin…

Bapak Kepala Sekolah, Bapak Ibu Guru, serta Bapak Ibu dari staf Tata Usaha yang saya hormati. Selama kami belajar di sekolah ini, tentu banyak kesalahan, banyak prilaku yang mungkin bisa menyakiti hati semuanya. Maka dari itu, saya mewakili teman-teman semua, pada kesempatan kali ini, kami meminta maaf kepada Bapak Ibu semua, atas kesalahan dan kekhilapan kami semua. Semoga Bapak Ibu dapat memaafkannya..

Terakhir, mohon do’a dari semuanya, semoga saya dan teman-teman dapat meneruskan mencari ilmu, untuk mencapai cita-citaa kami. Semoga tidak ada halangan untuk mencapai semua itu. Amiin..
Mungkin cukup sekian yang dapat saya sampaikan, apabila ada kesalahan dan kekurangan, saya mohon maaf. . Wabillahi taufik Wal Hidayah,

Wassalamualaikum warohmatullohi Wabarokatu..

Saturday 3 November 2012

Koding Program Exception


public class konversi
{
public static void main (String[] args)
{
       String bil = "0101001";
       int[] arr_bil= new int[1000];
       String[] st= new String[1000];
       double hasil=0,result=0;
       int a=0;
       char t;
       for(int i=0;i < bil.length();i++)
       {
       t = bil.charAt(i);
       st[i]=Character.toString(t);
       }
       for(int i=bil.length()-1; i>=0;i--)
       {
       arr_bil[a]=Integer.parseInt(st[i]);
       hasil= arr_bil[a]* (Math.pow(2,a));
       result=result+hasil;
       a++;
       }
       {
        int resultIn = (int)result;
        System.out.println("Bilangan Biner : "+bil);
        System.out.println("Bilangan Desimal : "+resultIn);
        }
    }
}