TR Channel

contoh program input data mahasiswa dengan pascal. Listing Programnya ; Program Data_Mahasiswa; Uses WinCrt; Type Mahasiswa = Record NoMhs : Word; Nama  : String[20]; IPK   : Real; Usia  : Byte; end; Var Filemhs  : File of Mahasiswa; Data     : Mahasiswa; Pil,Ul   : Char; Procedure Menu; Begin Clrscr; Gotoxy(34,1);Write(‘MENU PILIHAN’); Gotoxy(34,2);Write(‘============’); Gotoxy(27,4);Write(’1. Tambah Data Mahasiswa’); Gotoxy(27,5);Write(’2. Edit Data Mahasiswa’); Gotoxy(27,6);Write(’3. Hapus Data Mahasiswa’); Gotoxy(27,7);Write(’4. Tampilkan Data Mahasiswa’); Gotoxy(27,8);Write(’5. View Mahasiswa Berdasarkan Umur’); Gotoxy(27,9);Write(’6. Hapus NoMhs Ganjil’); Gotoxy(27,10);Write(’9. Keluar (Exit)’); Gotoxy(32,12);Write(‘Pilihan [1..9]: ‘);Pil:=Readkey; End; Procedure BukaFile; Begin Assign(FileMhs,’Mhs.Dat’); {$I-}; Reset(FileMhs); {$I+}; End; Procedure Tambah; Var Lagi: Char; Ada : ...

Doa dimulai dengan bacaan BISMILLAAHIR RAHMAANIR RAHIIM. Diteruskan dengan ALLAAHUMMA DZIS SULTHAANIL ‘AZHIM, WA DZIL MANNIL QADIIM, WA DZIL WAJHIL KARIIM, WA WALIY YIL KALIMAATI TAAMMAATI WAD DA’AWAATIL MUSTA JAABAH, ‘AAQILIL HASANI WAL HUSAINI MIN ANFUSIL HAQQI ‘AINIL QUDRATI WAN NAAZHIRIINA WA’AINIL INSI WAL JINN, WA IN YAKAADUL LADZIINA KAFARUU LI YUZLIQUUNAKA BI ABSHAARIHIM LAMMAA SAMI’UDZ DZHIKRA, WAYAQUULUUNA INNAHUU LAMAJNUUN, WA MAA HUWA ILLAA DZIKRUL LIL ‘AALAMIIN. WA MUSTAJAABU LUQMAANIL HAKIIM. WA WARITSU SULAIMAANABNI DAAWUDA ‘ALAIHI WAS SALAAM. AL-WADUUD (tujuh kali AL WADUUD) …………………….(Sebutkan keinginan dalam hati kepada Allah s.w.t.) Lanjutkan dengan membaca…. DZUL’ARSYIL MAJIID. THAWWIL ‘UMRII WA SHAHHIH AJSAADII WAQDHI HAAJATII WAKTSIR AMWAALII WA AULAADII WAJ ALNI HABBIBAN LIN NAASI AJMA’J IN. WA TABBA’ADIL’ADAAWATA KULLA MIMBANII AADAMA ‘ALAIHIS SALAAM. MAN KAANA HAYYAUW WA YAHIQQAL QAULU ‘ALAL KAAFIRIIN. WA QUL JAA AL HAQQU WA ZAHAQAL BAATHIL, I...

PT PINDAD (Persero) Recruitment The Right Fit, The Right Hire, Right Now! PT. Pindad (Persero) membuka kesempatan bagi lulusan terbaik bangsa yang memiliki integritas, dedikasi, dan loyalitas tinggi untuk bergabung bersama melalui Program Rekruitment Entry Level Management Tahun 2013 PT Pindad (Persero) adalah BUMN industri strategis yang melaksanakan usaha terpadu di bidang perlatan dan keamanan serta peralatan industrial untuk mendukung pembangunan nasional, khususnya bidang pertahanan dan keamanan Negara Republik Indonesia. Aktivitas usaha mencakup proses desain, pengembangan, enjiniring, produksi dan maintenance serta aktivitas pendukung lainnya. Spesifikasi dan Persyaratan 1. Sarjana (S1) dengan program studi dan penempatan: a. Teknik Industri (Bandung) b. Teknik Informatika (Bandung) c. Teknik Eleketro (Konsentrasi Arus Kuat) (Bandung) d. Teknik Eleketro (Konsentrasi Arus Lemah) (Bandung) e. Teknik Mesin (Bandung) f. Teknik Metalurgi (...

PT. Kereta Api Indonesia (Persero) adalah perusahaan yang bergerak dibidang jasa transportasi terbesar di Indonesia, yang mengutamakan profesionalisme dan kinerja,  memberikan kesempatan kepada putra-putri terbaik Indonesia untuk berkarier sebagai pegawai operasional, pemeliharaan dan administrasi dengan persyaratan dan kriteria sebagai berikut : A.      Kriteria Pelamar 1. Warga Negara Indonesia (WNI) 2. Sehat jasmani /rohani dan tidak berkacamata (khusus untuk formasi operasional dan pemeliharaan) serta tidak buta warna 3. Berkelakuan baik 4. Berijazah SMA / SMK dan  NEM rata   rata sekurang-kurangnya 6,50 5. Usia pelamar per 30 September 2013  maksimal 27  tahun 6. Tinggi / Berat Badan : - Pria,  minimal 160 cm (berat badan ideal) - Wanita,  minimal 155 cm (berat badan ideal) 7.  Tidak pernah terlibat Narkoba atau Psikotropika 8.  Tidak bertato dan bertindik 9.  Bers...

Javascript diperkenalkan pertama kali oleh Netscape pada tahun 1995. Pada awalnya bahasa  ini dinamakan “LiveScript” yang berfungsi sebagai bahasa sederhana untuk browser Netscape Navigator 2. Pada masa itu bahasa ini banyak di kritik karena kurang aman, pengembangannya yang terkesan buru buru dan tidak ada pesan kesalahan yang di tampilkan setiap kali kita membuat kesalahan pada saat menyusun suatu program. Kemudian sejalan dengan sedang giatnya kerjasama antara Netscape dan Sun (pengembang bahasa pemrograman “Java” ) pada masa itu, maka Netscape memberikan nama  “JavaScript” kepada bahasa tersebut pada tanggal 4 desember 1995. Pada saat yang bersamaan Microsoft sendiri mencoba untuk mengadaptasikan teknologi ini yang mereka sebut sebagai “Jscript” di browser Internet Explorer 3. Javascript adalah bahasa yang berbentuk kumpulan skrip yang pada fungsinya berjalan pada suatu dokumen HTML, sepanjang sejarah internet bahasa ini adalah bahasa skrip pertama untuk web....

program pembuatan_record; uses crt; procedure garis; begin writeln(’==============================================’); end; type reckaryawan=record jab,nip,nama:string; gol:integer; gapok,tunj:real; end; var pegawai:reckaryawan; total:real; begin clrscr; writeln(’ LAPORAN PERHITUNGAN GAJI KARYAWAN PT MAJU TAK GENTAR’); garis; writeln; write(’Masukan NIP Karyawan : ‘);readln(pegawai.nip); write(’Masukan Nama Karyawan : ‘);readln(pegawai.nama); write(’Golongan[1/2/3] : ‘);readln(pegawai.gol); garis; case pegawai.gol of 1: begin pegawai.jab:=’Staf dan Tetap’; pegawai.gapok:=900000; end; 2: begin pegawai.jab:=’Staf dan Kontrak’; pegawai.gapok:=700000; end; 3: begin pegawai.jab:=’Kontrak’; pegawai.gapok:=500000; end; end; if pegawai.jab=’Staf dan Tetap’ then pegawai.tunj:=25/100*pegawai.gapok else if pegawai.jab=’Staf dan Kontrak’ then pegawai.tunj:=10/100*pegawai.gapok else pegawai.tunj:=0; total:=(pegawai.gapok)+(pegawai.tunj); writeln(’Jabatan Karyawan : ‘,pegawai.jab); writ...

listing programmnya : Private Sub Command1_Click() Text4.Text = 6 * Val(Text2.Text) * Val(Text2.Text) Text5.Text = Val(Text1.Text) * Val(Text2.Text) Text6.Text = 3.14 * Val(Text3.Text) * Val(Text3.Text) End Sub Private Sub Command2_Click() Unload Me End Sub Filed under: visual basic | 1 Komentar » program cek password Posted on 30 Agustus 2010 by sttdb buat program cek password ,jika password sama makan akan keluar,jika tidak maka akan ada pesan kesalahan(gunakan show mesage) inputanya adalah nama,password ,confirm password. OK kita mulai listing programmnya Private Sub Command1_Click() Dim intKeluar As Integer Do While (True) If (Text1.Text = “admin” And Text2.Text = “sttdb”) Then intpesan = MsgBox(“Password Anda Benar!”, , “informasi”) Unload Form1 ‘akan mengeluakan anda dari form1 End Else intpesan = MsgBox(“password Anda Salah!Ulangi!”, , “informasi”) Text1.Text = “” ‘bila mengulangi mengisi...

Dalam Tutorial  ini coba dijelaskan kepada anda bagaimana cara membuat suatu bercak noda, baik itu noda tinta, darah, noda bersejarah, kendaraan bernoda empat, halah! walaupun sebetulnya internet menyediakan secara gratis font symbol bercak-bercak tersebut, seperti WC Rhesus A, WC Rhesus B, etc. Silahkan anda mengawalinya dengan membuat new file, kemudian buatlah sebuah lingkaran ( F7 ), untuk membuat suatu lingkaran anda cukup me-klik ctrl kemudian drag.Untuk contoh, disini saya memakai diameter 831 pixel setelah itu klik kanan object tersebut, pilih convert to curve, ini perlu dilakukan untuk mempermudah smudge brush nanti. kemudian silahkan anda atur object lingkaran tersebut sedemikian rupa , sehingga terlihat seperti sebuah bercak yang jatuh dari atas saya membuatnya seperti ini : kemudian pilih smudge brush dan isi enter a fixed value for tilt setting dengan nilai 90 setelah itu anda bisa merubah bentuk object tersebut sedemikian rupa dengan shape t...

Daftar Kode Bank Untuk Transfer ATM Bersama Contohnya jika anda Mau Transfer dari Bank BCA ke Bank Mandiri, formatnya : 008+Nomer rekening tujuan, jadi penulisannya adalah 0080123456789. Daftar Kode Bank ATM Bersama: NO NAMA BANK CODE BANK 1 BANK BRI 002 2 BANK EKSPOR INDONESIA 003 3 BANK MANDIRI 008 4 BANK BNI 009 5 BANK DANAMON 011 6 PERMATA BANK 013 7 BANK BCA 014 8 BANK BII 016 9 BANK PANIN 019 10 BANK ARTA NIAGA KENCANA 020 11 BANK NIAGA 022 12 BANK BUANA IND 023 13 BANK LIPPO 026 14 BANK NISP 028 15 AMERICAN EXPRESS BANK LTD 030 16 CITIBANK N.A. 031 17 JP. MORGAN CHASE BANK, N.A. 032 18 BANK OF AMERICA, N.A 033 19 ING INDONESIA BANK 034 20 BANK MULTICOR TBK. 036 21 BANK ARTHA GRAHA 037 22 BANK CREDIT AGRICOLE INDOSUEZ 039 23 THE BANGKOK BANK COMP. LTD 040 24 THE HONGKONG & SHANGHAI B.C. 041 25 THE BANK OF TOKYO MITSUBISHI UFJ LTD 0...

Sistem Pakar merupakan salah satu bidang kecerdasan buatan (Artificial Intelligence), definisi Sistem Pakar itu sendiri adalah sebuah program komputer yang dirancang untuk mengambil keputusan seperti keputusan yang diambil oleh seorang pakar, dimana Sistem Pakar menggunakan pengetahuan (knowledge), fakta, dan teknik berfikir dalam menyelesaikan masalah-masalah yang biasanya hanya dapat diselesaikan oleh seorang pakar dari bidang yang bersangkutan. Dalam pengembangan suatu Sistem Pakar, pengetahuan (knowledge) mungkin saja berasal dari seorang ahli, atau merupakan pengetahuan dari media seperti majalah, buku, jurnal, dan sebagainya.Selain itu pengetahuan yang dimiliki Sistem Pakar bersifat khusus untuk satu domain masalah saja. Semakin banyak pengetahuan yang dimasukan kedalam Sistem Pakar, maka sistem tersebut akan semakin baik dalam bertindak, sehingga hampir menyerupai pakar yang sebenarnya. Ciri-ciri Sistem Pakar Sistem pakar yang baik harus memenuhi ciri-ciri sebagai berik...