NO TITLE: Maret 2015

Selasa, 31 Maret 2015

Menghitung Gaji Pegawai dengan Turbo Pascal

Uses Crt;

Var

Nip :string;

Nama :string;

Golongan :string;

Gaji :longint;

Tunjangan, TotalGaji:Real;

Begin

Clrscr;

writeln('Menghitung Gaji Pegawai');

write ('Input Nomor Induk Pegawai :'); Readln(Nip);

If Nip ='1001' then

Nama :='ZULVAN'

Else If Nip ='1002'then

Nama :='YUNUS'

Else if Nip ='1003' then

Nama :='UCOK';

Writeln('Nama ;', Nama);

Write('input Golongan :'); Readln(Golongan);

If Golongan ='III A'then

Gaji :=5000000

Else if Golongan ='III B'then

Gaji :=6000000

Else if Golongan ='III C'then

Gaji :=7000000;

Tunjangan:= 0.1 * Gaji;

TotalGaji:= Tunjangan + Gaji;

Writeln('Gaji Pokok Anda Adalah ;',Gaji);

writeln('Tunjangan Anda Adalah ;',Tunjangan:1:0);

writeln('Total Gaji Anda Adalah ;',TotalGaji:1:0);

Readln;

End.

Contoh hasilnya seperti di bawah ini:

Sabtu, 28 Maret 2015

cara menemukan Ponsel WindowsPhone yang hilang

Anda lupa di mana meletakkan ponsel atau khawatir ponsel dicuri? Gunakan temukan telepon saya untuk mencari ponsel dan mengunci atau menghapus semua data di ponsel dari jauh.
Anda harus memiliki akun Microsoft di ponsel.

Di komputer, buka http://www.windowsphone.com/.
Masuk dengan akun Microsoft yang sama seperti di ponsel.
Pilih temukan telepon saya.

Anda dapat:

Mencari ponsel di peta
Membuat ponsel berdering meskipun modus hening diaktifkan
Mengunci ponsel dan mengaturnya agar menampilkan pesan, sehingga ponsel dapat dikembalikan kepada Anda
Menghapus semua data di ponsel dari jauh

Pilihan yang tersedia dapat beragam.
Tips: Atur ponsel agar secara otomatis menyimpan lokasi setiap beberapa jam. Meskipun daya baterai ponsel habis, Anda masih dapat melihat lokasi terakhir yang disimpan. Di layar mulai, geser ke kiri, lalu ketuk ikon pengaturan

Pengaturan > temukan telepon saya.

Cara Menemukan hP Android yang Hilang Tanpa Aplikasi Pihak Ketiga

Cara Melacak HP Android yang Hilang Tanpa Aplikasi Pihak Ketiga

Pernahkah kamu kehilangan Smartphone? Entah itu dicuri atau hanya sekedar lupa. Kalau Jaka sendiri sih lebih sering lupa. Nah, sekarang Jaka punya Tips dan Trik untuk kalian guna mencegah atau memang ingin menemukan Smartphone yang telah hilang.
Cara yang Jaka gunakan sekarang TIDAK menggunakan aplikasi dari pihak ketiga, Jaka hanya menggunakan layanan dari Google, dan tentunya hal ini lebih akurat dibanding menggunakan aplikasi lain, yaitu Android Device Manager.
Berikut langkah yang harus dilakukan:

Pertama, aktifkan Android Device Manager. Caranya, cari icon Google Settings di Android kamu, lalu di bagian paling bawah ada Android Device Manager dan Centang pada bagian Allow Remote Lock and Factory Reset seperti gambar dibawah:

Kedua, pastikan kalau kamu sudah Sign In di Android kamu menggunakan akun Google yang aktif, dan tentunya bisa log-in kembali. Jika tidak ada akun Google yang terhubung, tentunya cara ini tidak akan ada gunanya.
Ketiga, sekarang buka website www.google.com/android/devicemanager, kemudian log-in menggunakan akun Google yang sudah dihubungkan dengan Android kamu.

Keempat, Jika ada Pop-Up yang bertuliskan "Allow Android Device Manager to use location data?" kamu klik Accept ya. Jika tidak muncul, langsung ke langkah berikutnya saja.
Sekarang, ucapkan selamat datang kepada Android Device Manager.

Kelima, untuk melacak Android yang hilang, kamu klik Icon GPS yang ada di pojok kanan Pop-Up. Jika kamu lupa mengaktifkan GPS Android kamu tidak akan bisa mendapatkan lokasi. Namun, kamu masih bisa meresetnya dengan menekan tombol "Hapus", Dengan begini pengaturan pabrik akan menyetel GPS untuk menyala, sehingga Android dapat kembali ditemukan.

Keenam, jika berhasil, maka akan muncul informasi lokasi beserta peta letak dimana Android kamu berada.
Ketujuh, kamu tidak hanya bisa mendapatkan informasi lokasi. Demi mencegah kejadian yang tidak diinginkan, kamu juga dapat mengunci Android dengan Password, serta jika merasa ponsel masih disekitar kamu tapi Android dalam keadaan silent, kamu bisa menggunakan fitur Ring/Dering, dengan begitu Android akan mengeluarkan suara penuh.

Sebenarnya banyak sekali aplikasi yang bisa membantu kita dalam mencegah kehilangan Android. Tapi yang Jaka bagikan ini merupakan alat langsung dari Google, si pencipta Android, tentu mereka lebih mengenal seluk-beluk Android.

Mesran.blogspot.com

mesran.blogspot.com adalah sebuah blog yang berisi tentang pemrograman di antaranya ada pemrograman android, visual basic 6, visual basic Net, visual c sharp, Pascal, C/C++, PHP,. Ada juga untuk DOWNLOAD(program)(ebook)(tugas akhir manajemen informatika)(skripsi teknik informatika), KAMPUS(silabus perkuliahan)(modul perkuliahan)(tgas perkuliahan)(judul TA/skrpsi), BERITA, dan Sistem INFORMASI(sistem penggajian karyawan).
di blog mesran.blogspot.com cukup lengkap tentang untuk belajar bahasa pemograman.

Selasa, 24 Maret 2015

Cara Membuat Perkalian Genap Ganjil Menggunakan Looping For dengan Turbo Pascal

uses crt;
var
   i,b,j : byte;
   ket   :string;

Begin
     Clrscr;
            writeln('perkalian');
            writeln('======================');
            {memberi nilai index akhir}
            write('input perkalian berapa ='); readln(b);
            {perintah looping for}
                      for i:= 1 to b do
                      begin
                      {proses perkalian}
                          j:=i*b;
                      {proses mencari keterangan}
                      if j mod 2 = 0 then
                      ket:='bilangan genap'
                      else
                          ket:='bilangan ganjil';
                      {menampilkan hasil}
                      writeln(i,'x',b,'=',j,'-',ket);
                      End;
            readln;
     End.

jadi nanti outputnya(hasil) seperti ini:

Menghitung, Volume Kubus, Luas Persegi Panjang, Luas Segitiga, Luas Lingkaran, dengan Turbo Pascal.

uses crt;
var
   pil         : byte;
   s,p,l    : longint;
   a,t       : longint;
   Ls         : real;
   r        : integer;
   Lk       : real;
   vol,luas : longint;
   const phi    =3.14;

Begin
     clrscr;
     writeln('menu program');
     writeln('============================');
     writeln('1.menghitung volume kubus');
     writeln('2.menghitung luas persegi panjang');
     writeln('3.menghitung luas segitiga');
     writeln('4.menghitung luas lingkaran');
     writeln('=============================');
     write('pilihan :');readln(pil);
     if pil= 1 then
     Begin
           clrscr;
           writeln('menghitung volume kubus');
           writeln('=========================');
           write('sisi kubus :');readln(s);
           vol:=s*s*s;
           writeln('volume kubus :',vol);
           readln;

     End
     else if pil= 2 then
     Begin
          clrscr;
          writeln('menghitung luas persegi panjang');
          writeln('============================');
          write('panjang :'); readln(p);
          write('lebar   :'); readln(l);
          luas:=p*l;
          writeln('luas :',luas);
          readln;

     End
     else if pil= 3 then
     Begin
          clrscr;
          writeln('menghitung luas segi tiga');
          writeln('=============================');
          write('alas   :'); readln(a);
          write('tinggi :'); readln(t);
          LS:=1/2*a*t;
          writeln('==============================');
          writeln('luas segi tiga :',ls:0:2);
          readln;

     End
     else if pil= 4 then
     Begin
          clrscr;
          writeln('menghitung luas lingkaran');
          writeln('===============================');
          write('masukkan jari-jari :'); readln(r);
          LS:=phi*r*r;
          writeln('================================');
          writeln('luas lingkaran :',lk:0:2);
          readln;
     End

End.

Rabu, 11 Maret 2015

contoh Program HTML jadwal perkuliahan ATA

<html>

<head>
<title>Perkuliahan ATA</title>
</head>
<body bgcolor="aqua">
Jadwal Perkuliahan ATA
<table align="center" width="50%" border="10" style="background:white">
 <tr>
 <td>Kelas</td>
 <td>Ruang</td>
 <td>Mata Kuliah</td>
 <td>Dosen</td>
 <td>Waktu</td>
 <td>Ruang</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Rabu</td>
 <td>Pemrograman Berbasis WEB **</td>
 <td>Aviariani</td>
 <td>1/2/3</td>
 <td>D337</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Rabu</td>
 <td>Sistem Informasi SDM</td>
 <td>Reza Chandra</td>
 <td>4/5</td>
 <td>D337</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Rabu</td>
 <td>Pengelolaan Proyek Sistem Informasi</td>
 <td>Farida</td>
 <td>7/8</td>
 <td>D023</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Sistem Informasi Perbankan</td>
 <td>Veranita</td>
 <td>1/2</td>
 <td>D003</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Testing dan Implementasi Sistem *</td>
 <td>Harjanto Sutejo</td>
 <td>3/4/5</td>
 <td>D003</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Etika dan Profesionalisme TSI #</td>
 <td>Robby Chandra</td>
 <td>78</td>
 <td>D005</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Sistem Informasi Geografis</td>
 <td>Avinanta Tarigan</td>
 <td>9/10</td>
 <td>D005</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Sabtu</td>
 <td>Aplikasi Bisnis Teknologi Informasi</td>
 <td>Dewi Anggraini Puspa Hapsari</td>
 <td>2/3/4</td>
 <td>D031</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Sabtu</td>
 <td>Bahasa Inggris Bisnis 2</td>
 <td>Sastri Lindawati</td>
 <td>6/7</td>
 <td>D037</td>
 </tr>
 </table>
Kembali ke Biodata klik <a href="Hal-1.html">disini</a>
</body>
</html>

Minggu, 08 Maret 2015

Contoh Program sederhan Input Nilai Mahasiswa dengan C++

Contoh Program Sederhana Input Nilai Mahasiswa C++

#include "iostream"

#include "conio.h"

#include "string"

using namespace std;

void main(){

string npm,nama;

int nilai[5],hasil=0,jumlah=0;

cout<<"Npm : ";cin>>npm;

if(npm=="2013250051"){

cout<<"Nama : Aisyah Fuja\n";

}

else if (npm=="2013250068"){

cout<<"Nama : Ulfa Puji Ramasari";}

else if (npm=="2013250019"){

cout<<"Nama : Toni Iskandar";}

else if(npm=="2013250042"){

cout<<"Nama : Asih Astuti";}

else {

cout<<"input nama : ";cin>>nama;

}

cout<<endl;

for(int i=0;i<=4;i++){

cout<<"Nilai "<<i+1<<" : ";cin>>nilai[i];

}

for(int i=0;i<=4;i++){

cout<<nilai[i]<<" ";

hasil+=nilai[i];

jumlah=hasil/5;

}

cout<<"\nHasil : "<<hasil;

cout<<"\nJumlah Rata-Rata : "<<jumlah;

_getch();

}

Harga Sony Xperia T3 dan Spesifikasinya 2015

Selasa, 03 Maret 2015

Program Cek kelulusan dengan Turbo Pascal

program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘Input Data Siswa’);
writeln(‘—————-’);
write(‘Nama : ‘); readln(nama);
write(‘Kelas : ‘); readln(kelas);
write(‘No Absen : ‘); readln(no_absen);
write(‘Nilai Tugas : ‘); readln(n_tugas);
write(‘Nilai Ulangan Harian : ‘); readln(n_u_hari);
write(‘Nilai Ulangan Umum : ‘); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘ Siswa dengan’);
writeln(‘—————-’);
writeln(‘Nama : ‘,nama);
writeln(‘Kelas : ‘,kelas);
writeln(‘No Absen : ‘,no_absen);
writeln(‘Nilai Tugas : ‘,n_tugas);
writeln(‘Nilai Ulangan Harian : ‘,n_u_hari);
writeln(‘Nilai Ulangan Umum : ‘,n_u_umum);
writeln(‘Rata – rata : ‘,rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:=’memuaskan’
else if rerata <90 then predikat:=’sangat memuaskan’
else predikat:=’dengan pujian’;
writeln(‘Dinyatakan Lulus dengan ‘,predikat);
end
else
writeln(‘Dinyatakan Tidak Lulus’);
readln;
end.

Contoh Program Administrasi Mahasiswa dengan Turbo Pascal

Program Administrasi_Mahasiswa;
uses crt;
const
pkkspp = 400000;
infospp = 600000;
elekspp = 500000;
bogaspp = 450000;
ptikspp = 500000;
pkkprak = 100000;
infoprak = 500000;
elekprak = 450000;
bogaprak = 600000;
ptikprak = 350000;
sehat : real = 10000;
var
nm,jur : string;
nojur : byte;
tahun :integer;
spp,prak : real;
tot : real;
begin
clrscr;
writeln(‘Administrasi Mahasiswa Fakultas Teknik dan Kejuruan’);
writeln(‘===================================================’);
write(‘Nama : ‘); readln(nm);
writeln(‘Keterangan Jurusan : ‘);
writeln(’1. PKK’);
writeln(’2. D3 Informatika’);
writeln(’3. D3 Elektro’);
writeln(’4. D3 Boga Perhotelan’);
writeln(’5. PTIK’);
write(‘Jurusan (tulis no saja) : ‘); readln(nojur);
write(‘Tahun Masuk : ‘); readln(tahun);
if tahun<2004 then
begin
if nojur = 1 then
begin
spp := pkkspp;
jur := ‘PKK’
end
else if nojur = 2 then
begin
spp :=infospp;
jur := ‘D3 Informatika’;
end
else if nojur = 3 then
begin
spp :=elekspp;
jur := ‘D3 Elektro’
end
else if nojur = 4 then
begin
spp :=bogaspp;
jur := ‘D3 Boga Perhotelan’;
end
else if nojur= 5 then
begin
spp :=ptikspp;
jur := ‘PTIK’
end
else
writeln(‘Jurusan salah, tolong ulangi !!’);
end
else
begin
if nojur = 1 then
begin
spp := pkkspp;
prak:= pkkprak;
jur := ‘PKK’
end
else if nojur= 2 then
begin
spp :=infospp;
prak:= infoprak;
jur := ‘D3 Informatika’;
end
else if nojur = 3 then
begin
spp :=elekspp;
prak:=elekprak;
jur := ‘D3 Elektro’;
end
else if nojur = 4 then
begin
spp :=bogaspp;
prak:=bogaprak;
jur := ‘D3 Boga Perhotelan’;
end
else if nojur= 5 then
begin
spp :=ptikspp;
prak:=ptikprak;
jur := ‘PTIK’;
end
else
writeln(‘Jurusan salah, tolong ulangi !!’);
end;
tot := spp+prak+sehat;
writeln(‘Nama : ‘,nm);
writeln(‘Jurusan : ‘,jur);
writeln(‘Tahun Masuk : ‘,tahun);
writeln(‘Uang SPP : Rp. ‘,spp:7:2);
writeln(‘Uang Praktikum : Rp. ‘,prak:7:2);
writeln(‘Uang Kesehatan : Rp. ‘,sehat:7:2);
writeln(‘———————————’);
writeln(‘Total Pembayaran : Rp. ‘,tot:7:2);
writeln(‘=================================================’);
readln;
end.