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...