ANDROID (Sistem Operasi)

Android adalah system operasi untuk  telepon seluler yang berbasis linux. Android menyediakan platform terbuka bagi para pengembang buat menciptakan aplikasi mereka sendiri untuk digunakan oleh bermacam peranti bergerak. Awalnya, Google Inc. membeli Android Inc., pendatang baru yang membuat peranti lunak untuk ponsel. Kemudian untuk mengembangkan Android, dibentuklah open headset , konsorsium dari 34 perusahaan peranti keras, peranti lunak, dan telekomunikasi, termasuk google,HTC ,INTEL,Motorola, dll

Pada saat perilisan perdana Android, 5 November 2007, Android bersama Open Handset Alliance menyatakan mendukung pengembangan standar terbuka pada perangkat seluler. Di lain pihak, Google merilis kode–kode Android di bawah lisence aplace sebuah lisensi perangkat lunak dan standar terbuka perangkat seluler.

Di dunia ini terdapat dua jenis distributor sistem operasi Android. Pertama yang mendapat dukungan penuh dari Google atau Google Mail Services (GMS) dan kedua adalah yang benar–benar bebas distribusinya tanpa dukungan langsung Google atau dikenal sebagai Open Handset Distribution (OHD).

Ditahun 2011 ini sudah banyak sekali pengguna telepon seluler berbasis android, masyarak mulai berpaling menggunakan Handphone smartphone, termaksud saya yang sudah menggunakan handphone smartphone. sangat membantu dalam kehidupan saya sehari-hari. semoga saja ditahun kedepan telephone seluler semakin berkembang.

sumber : http://id.wikipedia.org/wiki/Android_%28sistem_operasi%29

Tugas SOD - Pemrograman Multi List

program di bawah ini menggunakan Turbo pascal :
uses crt;
type
filebio = record
npm:string[8];
nirm:string[3];
nama:string[15];
alamat:string[12];
end;
filenirm = record
nirm2:string[3];
masuk:string[10];
akhir:string[10];
end;
var
biodata :array[1..10] of filebio;
tglnirm :array[1..10] of filenirm;
isi:text;
a,x,y:integer;
Procedure tbio;
begin
a:=5;
assign(isi,’biodata2.dat’);
reset(isi);
writeln(‘Biodata’);
writeln(‘————————————————————’);
writeln(‘*    Npm    *   Nirm   *      Nama        *      Alamat    *’);
writeln(‘————————————————————’);
for x:=1 to 10 do
begin
readln(isi,biodata[x].npm);
readln(isi,biodata[x].nirm);
readln(isi,biodata[x].nama);
readln(isi,biodata[x].alamat);
write(‘*  ‘,biodata[x].npm,’    ‘,biodata[x].nirm,’        ‘,biodata[x].nama,’        ‘,biodata[x].alamat:5);
gotoxy(60,a);
writeln(‘*’);
a:=a+1;
end;
close(isi);
writeln(‘————————————————————’);
readln;
end;
procedure tnirm;
begin
assign(isi,’filenirm.dat’);
reset(isi);
writeln(‘File Nirm’);
writeln(‘—————————————————–’);
writeln(‘* Nirm   *    Tanggal Masuk    *    Tanggal Akhir   *’);
writeln(‘—————————————————–’);
for x := 1 to 10 do
begin
readln(isi,tglnirm[x].nirm2);
readln(isi,tglnirm[x].masuk);
readln(isi,tglnirm[x].akhir);
writeln(‘*  ‘,tglnirm[x].nirm2,’   *     ‘,tglnirm[x].masuk,’      *     ‘,tglnirm[x].akhir,’     *’);
end;
writeln(‘—————————————————–’);
close(isi);
readln;
end;
procedure daftarsiswa;
begin
a:=5;
gotoxy(1,30);writeln(‘Daftar Siswa’);
writeln(‘———————————————————————–’);
writeln(‘* No *    Npm   * Nirm *       Nama       *  Tgl masuk  *  Tgl Akhir  *’);
writeln(‘———————————————————————–’);
for x := 01 to 10 do
begin
write(‘  ‘,x,’    ‘,biodata[x].npm,’   ‘,biodata[x].nirm,’    ‘,biodata[x].nama,’   ‘,’              ‘,’   ‘,’    ‘);
for y := 01 to 10 do
if biodata[x].nirm = tglnirm[y].nirm2 then
begin
gotoxy(46,a);
writeln(tglnirm[y].masuk);
gotoxy(60,a);
writeln(tglnirm[y].akhir);
a:=a+1;
end;
end;
writeln(‘———————————————————————–’);
readln;
end;
begin
clrscr;tbio;
clrscr;tnirm;
clrscr;daftarsiswa;
end.

contoh data record dapat di download disini

screen shoot program

File Biodata

  

File Nirm 

Hasil Akhir:

PROGRAM FILE SEQUENSIAL

IDENTIFICATION DIVISION .
PROGRAM – ID. SEQUEL .
AUTHOR . JOGIYANTO HM .
SECURITY . PROGRAM MEMASUKAN DATA ORGANISASI FILE SEQUENTIAL
ENVIRONMENT DIVISION .

INPUT – OUTPUT SECTION .

FILE – CONTROL.

SELECT PENJUALAN ASSIGN TO DISK.

ORGANIZATION IS SEQUENTIAL.

ACCESS MODE IS SEQUENTIAL.

FILE STATUS IS STATUS – SALAH .

DATA DIVISION .

FILE SECTION .

FD PENJUALAN.

LABEL RECORD IS STANDARD.

VALUE OF FILE – ID IS ‘ JUAL . DAT ‘

DATA RECORD IS RECORD – RELASI .

01 DATA – PENJUALAN .

02 NOMER – FAKTUR PIC X ( 12 ) .

02 NAMA – LANGGANAN PIC X ( 25 ) .

02 KODE – JUAL PIC A .

88 TUNAI VALUE IS ‘ T ‘ .

88 KREDIT VALUE IS ‘ K ‘ .

02 NILAI – JUAL PIC 9 ( 6 ) .

WORKING – STORAGE SECTION .

77 STATUS – SALAH PIC XX .

01 SUDAH – BENAR PIC X .

88 BENAR VALUE ‘ Y ‘ , ‘ y ‘ .

88 BELUM VALUE ‘ T ‘ , ‘ t ‘ .

01 MASUKKAN – LAGI – TIDAK PIC X .

88 LAGI VALUE ‘ Y ‘ , ‘ y ‘ .

88 TIDAK VALUE ‘ T ‘ , ‘ t ‘ .

SCREEN SECTION .

01 HAPUS LAYAR .

02 BLANK SCREEN .

01 LAYAR – DATA .

02 LINE 4 COLUMN 5 ‘ NOMER FAKTUR

02 COLUMN PLUS 1 PIC X ( 12 ) TO NOMER – FAKTUR  REQUIRED .

02 LINE 6 COLUMN 5 ‘ NAMA LANGGANAN .

02 COLUMN PLUS 1 PIC X ( 25 ) TO NAMA – LANGGANAN .

02 LINE 8 COLUMN 5 ‘ KODE TRANSAKSI

02 COLUMN PLUS 1 PIC A TO KODE – JUAL .

02 LINE 10 COLUMN 5 ‘ NILAI PENJUALAN .

02 COLUMN PLUS 1 PIC 9 ( 6 ) TO NILAI – JUAL .

PROCEDURE DIVISION .
RUTIN – UTAMA SECTION .
BUKA – FILE .
OPEN OUTPUT PENJUALAN .
MULAI .
MOVE SPACE TO SUDAH – BENAR
PERFORM MASUKKAN – DATA UNTIL BENAR
PERFORM REKAM – DATA
PERFORM ADA – LAGI – TIDAK .
SELEKSI – MASUKKAN – LAGI – TIDAK .
IF LAGI
GO TO MULAI .
SELESAI .
CLOSE PENJUALAN
STOP RUN .
RUTIN – BAGIAN SECTION .
MASUKKAN – DATA .
DISPLAY HAPUS – LAYAR
DISPLAY LAYAR – DATA
ACCEPT LAYAR – DATA .
DISPLAY ( 18 , 5 ) ‘ SUDAH BENAR ( Y / T ) ? ‘
ACCEPT ( , ) SUDAH – BENAR .
REKAM – DATA .
MOVE ‘ ‘ TO STATUS – SALAH.
WRITE DATA – PENJUALAN.
PERFORM SELEKSI – REKAMAN .
ADA – LAGI – TIDAK .
DISPLAY ( 10 , 5 ) ‘ ADA LAGI DATA LAINNYA ( Y / T ) ? ‘.
ACCEPT ( , ) MASUKKAN – LAGI – TIDAK .
SELEKSI – REKAMAN .
IF STATUS – SALAH = ‘ 34 ‘.
DISPLAY ( 18 , 5 ) ‘ TIDAK TEREKAM , DISK PENUH ‘ .
IF STATUS – SALAH = ‘ 91 ‘.
DISPLAY ( 18 , 5 ) ‘ STRUKTUR FILE RUSAK ‘