Protto Lan

Array 1 dan Multidimensi

2012-10-23T10:29:00.001-07:00

Yaaah tugas lagi.... tugas lagi, apa boleh buat. meskipun otak jadul kita harus tetap di tuntut untuk berfikir ekstra dalam menyelesaikan tugas. walau sesulit apapun kita harus tegar dan kuat. Merdeka... hahaha.

Dengan semangat yang membara akhirya menemukan juga program dari Visual Basic untuk membuat Array, untuk kali ini kayaknya udah agak lelah sih jadi sedikit ada bantuan dari Mbah Google. hehehe
oke bagi yang ingin berminat langsung aja gas pool rem poool.

Dim nama(10) As String
Dim nilai(5, 5) As Byte
Dim r As Byte
Dim m As Byte
Dim w As Byte
Dim i As Byte
Private Sub Cmdclear_Click()
Dim ctrl As Control
For Each ctrl In Me
If TypeName(ctrl) = "ListBox" Then
ctrl.Clear
End If
Next
End Sub
Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdmultidimensi_Click()
List1.Clear
w = InputBox("Masukkan Jumlah Baris :", "Input Baris", "Masukkan Disini")
i = InputBox("Masukkan Jumlah Kolom :", "Input Baris", "Masukkan Disini")
For r = 1 To w
For m = 1 To i
nilai(r, m) = InputBox("Nilai Pada ( " + Str(r) + " , " + Str(m) + " )", "Input Nilai Matrik", 0)
Next
Next
For r = 1 To w
For m = 1 To i
List1.AddItem "Nilai ( " + Str(r) + " , " + Str(m) + " ) = " + Str(nilai(r, m))
Next
Next
End Sub
Private Sub cmdsatudimensi_Click()
List1.Clear
m = InputBox("Masukkan Jumlah Data Teman Anda : ", "Input Jumlah Data", "Masukkan Disini")
For r = 1 To m
nama(r) = InputBox("Masukan nama Teman Anda yang ke- " + Str(r), "Input Jumlah Data", "Nama")
Next
For r = 1 To m
List1.AddItem UCase(nama(r))
Next r
End Sub
Private Sub Form_Load()
Me.Width = 100
Label1.Caption = "Array 1 Dimensi" & vbCrLf & _
"dan Multi Dimensi"
End Sub

Download Array Installer

Puzzle Game Visual Basic 6.0

2012-10-22T09:59:00.000-07:00

Game merupakan sebuah wadah yang menampung berbagai macam seni baik itu seni rupa, seni musik, seni penulisan (segi cerita) maupun seni gerak. Jadi sangat bagus apabila anda memiliki bakat di bidang seni .Tapi bagi anda yang tidak memiliki talenta di bidang ini tidak perlu berkecil hati, karena bukan berarti anda tidak bisa membuat game, tetapi anda dapat giat berlatih mengasah kepandaian anda seperti melukis, atau anda juga dapat menggunakan gambar atau musik ciptaan orang lain untuk dijadikan bahan bagi game anda, hanya saja hasilnya tidak akan orisinil.

Dalam postingan kali ini aku sajikan sebuah game sederhana dengan menggunakan Visual Basic 6.0. Dan pembuatan game ini juga sebagai salah satu tugas dari dosen.
Tapi yang aku sajikan dalam program ini hanya sebagai demo dan tidak aku sertakan script dari program tersbut. apabila anda ingin melihatya silahkan donwload link di bawah ini :

Download Game Installer

Kalkulator Sederhana

2012-10-06T01:29:00.000-07:00

Cara membuat aplikasi sederhana yaitu kalkulator dengan menggunakan Visual Basic 6.0 adalah sebagai berikut:
Pertama buka Visual Basic 6.0 dan pilih Standard EXE lalu klik Open Lalu akan muncul form yang selanjutnya tambahkan 3 TextBox 8 CommandButton, 2 Frame, 1 ComboBox, 2 OptionButton, dan paling tidak tambahkan 2 Label. Yang kemudian atur menurut selera anda.
dari aplikasi diatas aku berikan 2 tampilan yang berbeda. Dan untuk tampilan yang pertama seperti yang tampak pada gambar di bawah ini :

dan untuk tampilan yang kedua adalah sebagaimana gambr 2 berikut ini :

Kegunaan dari masing-masing komponen adalah :
2 Option, untuk merubah tampilan 1 ke tampilan 2
3 TextBox 2 text untuk mengisi bilangan dan 1 text untuk hasil dari text1 dan text2
2 OptionButton untuk tombol Hitung dan Keluar
dan basih banyak lagi tombol-tombol yang lain yang tentunya kalian penasaran. Tapi jangan kuatir langsung aja download demonya di link di bawah ini

Download Demo

Evolusi dan Kinerja Komputer

2012-10-01T12:19:00.000-07:00

Generasi Pertama / Tabung Vakum (1945 – 1955)

ENIAC (Electronic Numerical Integrator And Computer)
Dibuat pada tahun 1946
John Mauchly dan John Presper Eckert di Universitas Pennsylvania
Berat 30 ton
Volume 15000 kaki persegi
Terdiri dari 18.000 tabung vakum
Membutuhkan listrik 140 KW
Kecepatan operasi penambahan 5.000 operasi / detik

Von Neumann Machine

Dikenal dengan Komputer IAS (Computer of Institute for Advanced Studies)
Merupakan komputer dengan stored-program concept.
Memiliki struktur :

Memori Utama, untuk menyimpan data maupun instruksi.
Arithmetic Logic Unit (ALU), untuk mengolah data binner.
Control Unit, untuk melakukan interpretasi instruksi – instruksi di dalam memori sehingga adanya eksekusi instruksi tersebut.
I/O, untuk berinteraksi dengan lingkungan luar.

Isi Register IAS

Memory Buffer Register (MBR), berisi sebuah word yang akan disimpan di dalam memori atau digunakan untuk menerima word dari memori.
Memory Address Register (MAR), untuk menentukan alamat word di memori untuk dituliskan dari MBR atau dibaca oleh MBR.
Instruction Register (IR), berisi instruksi 8 bit kode operasi yang akan dieksekusi.
Instruction Buffer Register (IBR), digunakan untuk penyimpanan sementara instruksi sebelah kanan word di dalam memori.
Program Counter (PC), berisi alamat pasangan instruksi berikutnya yang akan diambil dari memori.
Accumulator (AC) dan Multiplier Quotient (MQ), digunakan untuk penyimpanan sementara operand dan hasil ALU. Misalnya, hasil perkalian 2 buah bilangan 40 bit adalah sebuah bilangan 80 bit; 40 bit yang paling berarti (most significant bit) disimpan dalam AC dan 40 bit lainnya (least significant bit) disimpan dalam MQ.

Download Chapter - 2

Tugas Komponen Visual Basic 6.0

2012-09-29T12:32:00.000-07:00

Visual BASIC (Beginners All-Purpose Symbolic Instruction Code) merupakan sebuah bahasa pemrograman yang dapat digunakan untuk membuat suatu aplikasi dalam Microsoft Windows. Visual BASIC menggunakan metode Graphical User Interface (GUI) dalam pembuatan program aplikasi (project). Istilah visual mengacu pada metode pembuatan tampilan program (Interface) atau objek pemrograman yang biasa dilakukan secara langsung terlihat oleh programmer. Dalam Visual BASIC, pembuatan program aplikasi harus dikerjakan dalam sebuah project.
Sebuah Project dapat terdiri dari File Project (.vbp), File Form (.frm), File data binary (.frx), Modul Class (.cls), Modul Standar (.bas), dan file resource tunggal (.res). Bahasa yang digunakan adalah bahasa BASIC yang sangat populer pada era sistem operasi DOS

Properti
Adalah karakteristik yang melekat pada sebuah objek yang menunjukkan ciri /karakteristik suatu objek. Misalnya BackColor menunjukkan warna latar belakang, Font menunjukkan jenis dan ukuran font yang digunakan, dan sebagainya. Pengaturan properti suatu objek dapat diatur dengan 2 cara. Cara pertama adalah dengan mengatur komponen melalui Property Window. Cara kedua adalah dengan memberi baris program pada Code Window dengan urutan penulisan sebagai berikut:

<Nama_Objek> . <Property> = <Nilai/Value>

Event
Menunjukkan kejadian yang terjadi pada sebuah objek. Misalnya kejadian ketika command1 diklik (event Command1_Click), kejadian ketika form loading pertama kali (event Form_Load), dan sebagainya.

Metode (Method)
Adalah prosedur yang dikerjakan pada satu objek. Metode merupakan suatu tindakan di mana objek dapat di bentuk.

Download Modul

Organisasi dan Arsitektur Komputer

2012-09-21T10:12:00.000-07:00

Komputer adalah sebuah mesin hitung elektronik yang secara cepat menerima informasi masukan digital dan mengolah informasi tersebut menurut seperangkat instruksi yang tersimpan dalam komputer tersebut dan menghasilkan keluaran informasi yang dihasilkan setelah diolah.

Organisasi Komputer adalah bagian yang terkait erat dengan unit–unit operasional dan interkoneksi antar komponen penyusun sistem komputer dalam merealisasikan aspek arsitekturalnya.

Contoh aspek organisasional adalah teknologi hardware, perangkat antarmuka, teknologi memori, sistem memori, dan sinyal–sinyal kontrol.

Arsitektur Komputer lebih cenderung pada kajian atribut–atribut sistem komputer yang terkait dengan seorang programmer.

Contohnya, set instruksi, aritmetika yang digunakan, teknik pengalamatan, mekanisme I/O

Download Makalah

Konsep Pemrograman Visual

2012-09-17T10:32:00.000-07:00

PENGERTIAN VISUAL
Visual adalah cara yang digunakan untuk membuat graphical user interface (gui)
Tidak perlu menuliskan intruksi pemrograman dalam kode-kode baris, tetapi secara mudah dapat melakukan “drag” dan “drop” objek-objek yang akan digunakan

KONSEP PEMROGRAMAN BERBASIS VISUAL
Program berbasis visual memakai konsep event-driven, kode program tidak mengikuti alur yang ditetapkan awal, ekseskusi program dapat berlainan sesuai dengan event yang diberikan.
Urutan event menentukan urutan kode yang dieksekusi, jadi alur jalannya program bisa berbeda untuk setiap program dieksekusi.

PENGERTIAN BASIC
Basic (beginners all-purpose symbolic instruction code) yaitu sebuah bahasa pemrograman yang dalam sejarahnya sudah banyak digunakan oleh para programmer untuk menyusun aplikasi

Download Modul

Logika Informatika - WinLogiLab

2012-08-23T23:53:00.000-07:00

Booltut menyediakan tutorial interaktif sebagai proses penyederhanaan pada Karnaugh Map dan Quine Mc-Cluskey. Pengoperasian program dioperasikan user dengan input dan display dan presentasi animasi satu demi satu pada tiap-tiap bagian tersendiri dari proses penyederhanaan

WinBoolean menyediakan desain dan analisis sistem logika digital. Input digital dapat mengambil masukan dipertukarkan berbagai Tabel kebenaran, Persamaan Boolean, dan Diagram Sirkuit. Ini dapat mengkonversi masing-masing masukan kepada yang lainnya dari input.

WinEspresso menyediakan metode alternatif untuk menyederhanakan tabel kebenaran Boolean menggunakan lebih efisien berbasis aturan pendekatan. Metode ini memberikan kecepatan dalam penyederhanaan tabel kebenaran dengan input banyak dan output variabel.

Program Wartel Record Pascal

2012-06-10T23:14:00.001-07:00

Sebuah record merupakan koleksi satuan data yang heterogen, yakni terdiri dari berbagai type. Satuan data tersebut sering disebut sebagai field dari record. Field dipanggil dengan menggunakan namanya masing-masing. Suatu field dapat terdiri atas beberapa subfield.
Sebagai Contoh, data Lama Bicara pada Wartel di suatu perusahaan Swasta di Indonesia, merupakan sebuah record yang dapat terdiri dari berbagai field, dan subfield
seperti berikut ini :

    1 Nama Bilik
    2 Lama Bicara terdiri atas :
    Menit
    Detik
   3 Sambungan
    Lokal
    Interlokal
    Internasional

dan sebagainya..

Contoh Program :

program wartel;
uses wincrt;
type data=record
bilik:integer;
menit:integer;
detik:integer;
jenis_pgl:char;
end;
var
tarif:real;
rincian:data;
lama,conv:real;
jenis:string;
urt:integer;
procedure kop;
begin
urt:=6;
gotoxy(21,urt-5);writeln('-------------------------------------');
gotoxy(21,urt-4);writeln('>> Program Wartel Mahasiswa Unisla <<');
gotoxy(21,urt-3);writeln('- -');
gotoxy(21,urt-2);writeln('-------------------------------------');
writeln;
end;
procedure input;
begin
urt:=urt+1;
write('Masukkan Nomor Bilik = ');readln(rincian.bilik);
write('Masukkan Lama Bicara (menit:detik) = ');readln(rincian.menit);
gotoxy(40,urt);write(':');readln(rincian.detik);
writeln;
writeln('Masukkan Jenis Panggilan = ');
writeln(' a. Lokal');
writeln(' b. InterLokal');
writeln(' c. Internasional');
writeln;
write('Pilih : ');readln(rincian.jenis_pgl);
writeln;
end;
procedure proses;
begin
conv:=(rincian.menit)*60;
lama:=conv+(rincian.detik);
case(rincian.jenis_pgl) of
'a': tarif:=lama*10;
'b': tarif:=lama*30;
'c': tarif:=lama*60;
end;
end;
procedure output;
begin
urt:=urt+8;
writeln('Bilik Yang Anda Pakai : ',(rincian.bilik));
writeln('Lama Bicara Anda : ',(rincian.menit),' : ',(rincian.detik));
write('Jenis Panggilan : ');
if (rincian.jenis_pgl)='a' then writeln('lokal')
else if (rincian.jenis_pgl)='b' then writeln('InterLokal')
else if (rincian.jenis_pgl)='c' then writeln('Internasional');
writeln;
writeln('Tarif yang harus di bayar : ',tarif:4:0);
writeln;
writeln;
gotoxy(21,urt);writeln('TERIMA KASIH ATAS KUNJUNGAN ANDA');
gotoxy(21,urt+1);writeln('---------------------------------');
end;
begin
kop;
input;
proses;
clrscr;
kop;
output;
end.

Array 2 Dimensi Pascal

2012-06-10T22:30:00.000-07:00

Sebuah array dimensi banyak atau multi-dimensional array didefinisikan sebagai sebuah array yang elemennya berupa array pula. Misal array B mempunyai M elemen berupa array pula, yang terdiri dari N elemen. Kalau hal tersebut kita gambarkan, akan terbentuk baris dan kolom.
Untuk itu diperlukan dua buah subscript. Yang pertama digunakan untuk menyatakan posisi baris, sedangkan yang kedua untuk posisi kolom. Secara umum array dimensi dua B, dengan elemen bertipe data T, subscript baris dari l sampai M, subscript kolom dari l sampai N, ditulis sebagai B(1:M, 1:N) = (B(I,J)), I = 1, 2, ...,M dan J = 1, 2,...,N dengan setiap elemen B(I,J) bertipe data T. Array B tersebut dikatakan berukuran atau berorder M x N. Di sini banyak elemen array adalah M*N.
Seperti halnya pada array dimensi satu, pada array dimensi dua batas bawah untuk subscript I maupun J dapat diambil secara umum. Misalnya, batas bawah subscript baris adalah L1 subscript kolom adalah L2 sedangkan batas atas subscript baris adalah U1 dan untuk kolom adalah U2, maka array dimensi dua tersebut dapat dinotasikan sebagai :

B(L1:U1, L2:U2) = (B(I,J)), L1 <= 1 <= U1, L2 <=J <= U2

Contoh Program :

Program Input_nilai_mhs;
Uses WinCrt;
Const
garis='------------------------------------------------------------------------';
batas='|';
Var
nil1,nil2,nil3 : Array [1..10] Of 0..100;
nim: Array [1..10] Of String [8];
nama: Array [1..10] Of String [50];
n,i,bar: Integer;
rata,jml: Real;
tl: Char;
procedure logo;
begin
gotoxy(21,1);writeln('-------------------------------------------');
gotoxy(21,2);writeln('>> Program Jumlah Nilai Mahasiswa Unisla <<');
gotoxy(21,3);writeln('- -');
gotoxy(21,4);writeln('-------------------------------------------');
writeln;
end;
Begin
ClrScr;
logo;
Write ('Berapa Data Mahasiswa yang aka diinput : ');Readln (n);
For i:= 1 To n Do
Begin
ClrScr;
GotoXY(30,4+i); Write('Input Data Mahasiswa Ke-: ',i:2);
writeln;
GotoXY(10,5+i); Write('NIM : '); Readln(nim[i]);
GotoXY(10,6+i); Write('Nama : '); Readln(nama[i]);
GotoXY(10,7+i); Write('Nilai TGS : '); Readln(nil1[i]);
GotoXY(10,8+i); Write('Nilai UTS : '); Readln(nil2[i]);
GotoXY(10,9+i); Write('Nilai UAS : '); Readln(nil3[i]);
End;
ClrScr;
logo;
bar:=12;
GotoXY(4,6); Write(Garis);
GotoXY(6,7); Write ('No');
GotoXY(10,7); Write ('NIM');
GotoXY(20,7); Write ('Nama');
GotoXY(37,7); Write ('TGS');
GotoXY(43,7); Write ('UTS');
GotoXY(49,7); Write ('UAS');
GotoXY(56,7); Write ('Rata');
GotoXY(63,7); Write ('Jml%');
GotoXY(70,7); Write ('Abjad');
GotoXY(4,8); Write (Garis);
GotoXY(4,7);Writeln(batas);
GotoXY(8,7);Writeln(batas);
GotoXY(19,7);Writeln(batas);
GotoXY(35,7);Writeln(batas);
GotoXY(41,7);Writeln(batas);
GotoXY(47,7);Writeln(batas);
GotoXY(54,7);Writeln(batas);
GotoXY(61,7);Writeln(batas);
GotoXY(69,7);Writeln(batas);
GotoXY(75,7);Writeln(batas);
bar := 9;
For i:= 1 To n Do
Begin
rata:=(nil1[i]+nil2[i]+nil3[i])/3;
jml:=(nil1[i]*20/100+nil2[i]*30/100+nil3[i]*50/100);
If rata>= 90 Then tl:='A'
Else
If rata>80 Then tl:='B'
Else
If rata>60 then tl:='C'
Else
If rata>50 Then tl:='D'
Else
tl:='E';
GotoXY(5,bar); Writeln(i:2);
GotoXY(10,bar); Writeln (NIM[i]:6);
GotoXY(20,bar); Writeln (NAMA[i]);
GotoXY(36,bar); Writeln (NIL1[i]:4);
GotoXY(42,bar); Writeln (NIL2[i]:4);
GotoXY(48,bar); Writeln (NIL3[i]:4);
GotoXY(55,bar); Writeln (rata:2:2);
GotoXY(63,bar); Writeln (jml:2:2);
GotoXY(72,bar); Writeln (tl);
GotoXY(4,bar);Writeln(batas);
GotoXY(8,bar);Writeln(batas);
GotoXY(19,bar);Writeln(batas);
GotoXY(35,bar);Writeln(batas);
GotoXY(41,bar);Writeln(batas);
GotoXY(47,bar);Writeln(batas);
GotoXY(54,bar);Writeln(batas);
GotoXY(61,bar);Writeln(batas);
GotoXY(69,bar);Writeln(batas);
GotoXY(75,bar);Writeln(batas);
bar:=bar+1;
End;
GotoXY(4,bar+1);Writeln(garis);
Readln;
End.

Array 1 Dimensi

2012-06-08T11:59:00.000-07:00

Salah satu struktur data yang teramat penting adalah array atau larik. Array merupakan bagian dasar, yang disebut blok, guna keperluan pembentukan suatu struktur data lain yang lebih kompleks. Hampir setiap jenis struktur data kompleks dapat disajikan secara logik oleh array.
Kita dapat mendefinisikan array sebagai suatu himpunan hingga elemen, terurut dan homogen. Terurut, kita artikan bahwa elemen tersebut dapat diidentifikasi sebagai elemen pertama, elemen kedua, dan seterusnya sampai elemen ke-n. Sedangkan pengertian elemen yang homogen adalah bahwa setiap elemen dari sebuah array tertentu haruslah mempunyai tipe data yang sama.

Sebagai Contoh berikut ini :

program urutkan_data;
uses wincrt;
type
urtdata=string;
var
i,j:byte;
temp:urtdata;
lagi:char;
data:array[1..10] of urtdata;
k:integer;
procedure kop;
begin
gotoxy(21,1);writeln('------------------------------------');
gotoxy(21,2);writeln('>> Program Pengurutan Data Unisla <<');
gotoxy(21,3);writeln('- -');
gotoxy(21,4);writeln('------------------------------------');
writeln;
end;
begin
lagi:='y';
while (lagi='y') or (lagi='Y') do
begin
clrscr;
kop;
write('Masukkan Jumlah Data : ');readln(k);
writeln;
for i:=1 to k do
begin
write('Masukkan Data ke - ',i,' : ');readln(data[i]);
end;
for i:= 1 to k-1 do
for j:= i to k do
if data[i]>data[j] then
begin
temp:=data[i];
data[i]:=data[j];
data[j]:=temp;
end;
clrscr;
kop;
writeln(' Data Setelah di urutkan');
writeln('-------------------------');
writeln;
writeln;
for i:=1 to k do
writeln(i:2,'. ',data[i]);
writeln;
write('Ulangi ? (Y/T) : ');readln(lagi);
end;
end.

Function Pascal

2012-06-07T11:39:00.000-07:00

Blok fungsi hampir sama dengan blok prosedur, hanya fungsi harus dideklarasikan dengan tipenya atau jenis hasilnya. Tipe deklarasi ini menunjukkan tipe hasil dari fungsi.
Pada bahasa Pascal dikenal beberapa fungsi, misalkan : abs, pred, sqrt, sqr, succ dan sebagainya.
Fungsi-fungsi tersebut biasanya dikenal dengan Built in Function. Sedangkan function yang akan bicarakan disini adalah fungsi yang kita buat sendiri. Berbeda dengan procedure, function merupakan modul program yang menghasilkan suatu kuantitas.

Hal ini dapat dilihat dari bentuk header-nya yang menyebutkan jenis data dari kuantitas yang dihasilkan. Secara umum bentuk header suatu function adalah :

FUNCTION nama : jenis hasil;

Atau

FUNCTION nama (formal parameter : jenis ) : jenis_hasil;

Sebagaimana contoh Program Factorial berikut :

program faktorial;
uses wincrt;
var
n,cacah:integer;
function fakt(m:integer):longint;
begin
if m=0 then
fakt:=1
else
fakt:=m*fakt(m-1);
end;
begin
clrscr;
gotoxy(21,1);writeln('---------------------------------------------');
gotoxy(21,2);writeln('>> Program Factorial & Perpangkatan Unisla <<');
gotoxy(21,3);writeln('- ----- ----- ----- ----- -');
gotoxy(21,4);writeln('---------------------------------------------');
writeln;
write('Masukkan Jumlah Bilangan : ');readln(n);
writeln;
for cacah:=1 to n do
writeln(' ',cacah,' = ',fakt(cacah));
readln;
end.

Procedure Pascal

2012-06-01T12:04:00.000-07:00

Prosedur diawali dengan kata cadangan Procedure di dalam bagian deklarasi prosedur. Prosedur dipanggil dan digunakan di dalam blok program yang lainnya dengan menyebutkan judul prosedurnya.
Prosedur banyak digunakan pada program yang terstruktur, karena :

Merupakan penerapan konsep program modular, yaitu memecah-mecah program yang rumit menjadi program-program bagian yang lebih sederhana dalam bentuk prosedur-prosedur.
Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan.

Sebagaimana halnya sebuah program, suatu procedure juga memiliki header dan block. Perbedaan bentuknya dengan program hanyalah pada bagian header-nya saja.
Bentuk Umum header suatu procedure adalah :

PROCEDURE nama;
Atau
PROCEDUREnama (formal parameter : jenis);

Contoh Program

program prak1unisla;
uses wincrt;
var
kol,bar,has1,has2:integer;
procedure tabel;
begin
has1:=kol+bar;
has2:=kol*bar;
writeln(' Kolom + Baris = ',has1);
writeln(' Kolom * Baris = ',has2);
end;
begin
gotoxy(21,1);writeln('------------------------------------');
gotoxy(21,2);writeln('>> Program Pertama Praktek Unisla <<');
gotoxy(21,3);writeln('- ------------------------------ -');
gotoxy(21,4);writeln('------------------------------------');
writeln;
write('Masukkan Jumlah Kolom : ');readln(kol);
write('Masukkan Jumlah Baris : ');readln(bar);
writeln;
tabel;
end.

PTI Chapter - 4

2012-05-29T11:15:00.000-07:00

The system unit is a case that contains electronic components of the computer used to process data

The inside of the system unit on a desktop personal computer includes:
- Drive bay(s)
- Power supply
- Sound card
- Video card
- Processor
- Memory

The motherboard is the main circuit board of the system unit
- A computer chip contains integrated circuits

The processor, also called the central processing unit (CPU), interprets and carries out the basic instructions that operate a computer
- Contain a control unit and an arithmetic logic unit (ALU)
   - Multi-core processor
   - Dual-core processor
   - Quad-core processor

The control unit is the component of the processor that directs and coordinates most of the operations in the computer
The arithmetic logic unit (ALU) performs arithmetic, comparison, and other operations
For every instruction, a processor repeats a set of four basic operations, which comprise a machine cycle

Most current personal computers support pipelining
- Processor begins fetching a second instruction before it completes the machine cycle for the first instruction

Download

PTI Chapter - 3

2012-05-11T10:05:00.000-07:00

Application software consists of programs designed to make users more productive and/or assist with personal tasks
- To make business activities more efficient
- To assist with graphics and multimedia projects
- To support home, personal, and educational tasks
- To facilitate communications

Available in a variety of forms:
- Packaged software
- Custom software
- Web application
- Open source software
- Shareware
- Freeware
- Public-domain software

System software serves as the interface between the user, the application software, and the computer’s hardware
- Utility programs

Business software is application software that assists people while performing business activities
- Word Processing
- Spreadsheet
- Database
- Presentation
- Note taking
- Personal information manager
- Business software for phones
- Business software suites
- Project management
- Accounting
- Document management
- Enterprise computing software

Download

PTI Chapter - 2

2012-05-06T08:17:00.000-07:00

The Internet is a worldwide collection of networks that links millions of businesses, government agencies, educational institutions, and individuals

The Internet originated as ARPANET in September 1969 and had two main goals:
- Allow scientists at different physical locations to share information and work together
- Function even if part of the network were disabled or destroyed by a disaster

Each organization is responsible only for maintaining its own network
- The World Wide Web Consortium (W3C) oversees research and sets guidelines and standards

Internet2 connects more than 200 universities and 115 companies via a high-speed private network

Many home and small business users connect to the Internet via high-speed broadband Internet service

An access provider is a business that provides individuals and organizations access to the Internet free or for a fee

Download

Tugas-1 Algoritma & Pemrograman II

2012-05-03T23:47:00.001-07:00

Untuk para pemirsa yang telah bersedia mampir ke blog ini, sebelumnya saran kritik sangat saya harapkan, so pasti yaa gimana lg, masuk pertama kali eeeh langsung kasih tugas.

Pada tugas Algoritma dan Pemrograman kali ini, saya menitik beratkan pada fungsi string. Yang mana fungsi string ini saya mengkondisikan melalui perulangan IF.

Apabila dalam pernyataan yang berada diatas sama atau masuk salah satu dalam perulangan tersebut, maka eksekusi akan dilaksanakan.

Berikut adalah scriptnya :

uses wincrt;
var
tulisan:string[9];
i,j,keterangan:string;
begin
write('Input Nama Mahasiswa : ');readln(i);
write('tuliskan NIM Anda : ');readln(tulisan);
write('Isikan Alamat anda : ');readln(j);
writeln;
if (length(tulisan)>9) then
keterangan:='NIM apa ini'
else
if(copy(tulisan,3,2)='11') then
keterangan:='anda Mahasiswa S1'
else
if(copy(tulisan,3,2)='31') then
keterangan:='anda Mahasiswa D3'
else
keterangan:='Maaf, anda Bukan Mahasiswa UNISLA';
clrscr;
begin
writeln('Input Biodata Mahasiswa : ');
writeln('---------------------------');
writeln;
writeln('Nama anda : ',i);
writeln('Dengan NIM : ',tulisan);
writeln('Alamat : ',j);
writeln;
writeln('Keterangan : ',keterangan);
end
end.

Semoga bermanfaat untuk semua .....

Tabel Konversi Decimal ke Octal Pascal

2012-05-03T11:00:00.000-07:00

Pada kiriman yang sebelumnya tentang Tabel Konversi yang dalam bentuk Pdf. Kali ini saya mencoba untuk membuat Tabel Konversi dalam bentuk Pascal.

Ya meskipun gak seluruhnya hasil pemikiran, tapi gak ada salahnya kalau dapat membagi rasa pada anda. Yang tentunya hanya untuk dapat membuahkan manfaat.

Berikut adalah scriptnya...

uses wincrt;
var dec,bin,i:integer;
var a:array[1..100]of integer;
begin
readln(dec);
writeln('Angka Decimal : ',dec,' bila di konversi ke octal :');
i:=0;
repeat
i:=i+1;
a[i]:=dec mod 8;
dec:=dec div 8;
until(dec = 0);
writeln;
for i:=i downto 1 do
begin
write(a[i]);
end;
readln;
end.

Gak lupa, apabila ada saran, jangan sungkan...

Download

bagi yang ga ingin nulis

Jadwal Ujian Semester Genap

2012-05-02T08:54:00.000-07:00

KARTU UJIAN TENGAH SEMESTER GENAP

NO.	KODE MK.	MATA KULIAH	SKS	TANGGAL UJIAN	PARAF PENGAWAS
1	MKK2308	KALKULUS II	3	07 Mei 2012	1
2	MPK2304	KEWIRAAN	3	07 Mei 2012	2
3	MPK2105	PENDIDIKAN AGAMA ISLAM II	1	07 Mei 2012	3
4	MKB2310	SISTEM DIGITAL	3	08 Mei 2012	4
5	MPK2202	BAHASA INGGRIS II	2	08 Mei 2012	5
6	MKK2309	LOGIKA INFORMATIKA	3	08 Mei 2012	6
7	MKB2309	ALGORITMA & PEMROGRAMAN II	3	09 Mei 2012	7
8	MKK2310	MATEMATIKA DISKRIT	3	09 Mei 2012	8
9	MPB2112	PRAK. ALGO. & PEMROG. II	1		9

		JUMLAH	22

Lamongan, 23 April 2012

Sistem Digital ke-2

2012-05-01T08:21:00.000-07:00

Sistem Bilangan

1. Bilangan Desimal

2. Bilangan Biner

3. Desimal ke Biner

4. Aritmatika Biner

5. Komplemen 1 dan 2

6. Sign Bit

7. Operasi aritmatik dengan sign bilangan

8. Bilangan Hexadesimal

9. Bilangan Oktal

10. Binary Code Decimal (BCD)

11. Digital Code & Parity

Signed Numbers

Sistem digital harus mampu menangani kedua bilangan positif dan bilangan negatif. Sign bilangan biner ditentukan oleh sign dan mangitude

Sign menetukan tanda positif dan negatif sedangkan magnitude mentukan nilai dari bilangan.

Ada tiga bentuk sign integer yang dapat direpresentasikan :
1.Sign-magnitude
2.Complement 1
3.Complement 2
Yang paling penting adalah complement 2 sedangkan Sign- Magnitude yang paling sering digunakan Yang bukan integer dan angka yang sangat besar atau bilangan yang kecil diexpresikan dengan Floating-point format.

Aritmatika Biner
1. Penjumlahan
2. Pengurangan
3. Perkalian
4. Pembagian

Penjumlahan bilangan biner
0 + 0 = 0 Hasil 0 Simpanan 0
0 + 1 = 1 Hasil 1 Simpanan 0
1 + 0 = 1 Hasil 1 Simpanan 0
1 + 1 = 10 Hasil 0 Simpanan 1

Download

Tabel Konversi Sistem Digital

2012-04-29T09:39:00.000-07:00

Bilangan desimal adalah bilangan yang menggunakan 10 angka mulai 0 sampai 9 berturut2. Setelah angka 9, maka angka berikutnya adalah 10, 11, 12 dan seterusnya. Bilangan desimal disebut juga bilangan berbasis 10. Contoh penulisan bilangan desimal : 1710. Ingat, desimal berbasis 10, maka angka 10-lah yang menjadi subscript pada penulisan bilangan desimal.

Bilangan biner adalah bilangan yang hanya menggunakan 2 angka, yaitu 0 dan 1. Bilangan biner juga disebut bilangan berbasis 2. Setiap bilangan pada bilangan biner disebut bit, dimana 1 byte = 8 bit. Contoh penulisan : 1101112.

Bilangan oktal adalah bilangan berbasis 8, yang menggunakan angka 0 sampai 7. Contoh penulisan : 178.

Bilangan heksadesimal, atau bilangan heksa, atau bilangan basis 16, menggunakan 16 buah simbol, mulai dari 0 sampai 9, kemudian dilanjut dari A sampai F. Jadi, angka A sampai F merupakan simbol untuk 10 sampai 15. Contoh penulisan : C516.

Download

Algoritma Pemrograman II Bab-2

2012-04-27T09:11:00.000-07:00

Pemrograman Modular

Modular programming adalah merupakan suatu teknik untuk menulis program yang berukuran besar. Program dibagi menjadi beberapa bagian kecil. Tiap bagian disebut module, yang melakukan suatu tugas tertentu.
Contoh :
Menampilkan menu pilihan
Menghitung nilai rata-rata
Mensortir data

Pascal mengenal module sebagai:

PROCEDURE (terbagi menjadi dua)
Procedure Sederhana tidak menerima argumen (nilai atau data) ketika dieksekusi.
Procedure Kompleks menerima nilai yang diproses ketika dieksekusi.
Procedure mendukung desain program terstruktur, dengan membolehkan membuat module secara terpisah.
a. Procedure Sederhana
Procedure sederhana dipakai untuk menampilkan pilihan menu, dsb. procedure (module) tersebut terdiri atas beberapa pernyataan (statements), yang dikelompokkan dengan kata kunci begin dan end . Setiap procedure mempunyai nama. Seperti contoh berikut:
PROCEDURE NAMA;
begin;
pernyataan
end;

Contoh Program

PROCEDURE DISPLAY_MENU;
begin
writeln('Pilihan Menu');
writeln(' 1: Edit file teks');
writeln(' 2: buka file teks ');
writeln(' 3: Simpan file teks);
writeln(' 4: Kopi file teks’);
writeln(' 5: Cetak file teks’)
end;

Download

Algoritma Pemrograman II Bab-1

2012-04-26T09:13:00.000-07:00

Operasi String

Suatu string di dalam Pascal dapat dioperasikan dengan berbagai macam tujuan. Beberapa string dapat dirangkai menjadi satu, dapat digunakan sebagai kondisi yang diseleksi dan lain sebainya. Pascal menyediakan beberapa prosedur standar dan fungsi standar untuk operasi string.

Merangkai String

Pengerjaan suatu string hanya mempunyai sebuah operator, yaitu operator ‘+’. Bila operator ini digunakan untuk penambahan nilai numerik, maka akan berfungsi menjumlahkan dua buah nilai elemen numerik. Sedang pada string, operator ini digunakan untuk merangkai dua buah elemen string menjadi sebuah string. Panjang maksimum suatu string yang diijinkan oleh Pascal adalah 255 karakter

Contoh
Const
Tulisan1=’Bahasa ’; Tulisan2=’Turbo ’; Tulisan3=’Pascal ’:
Var
Begin
Sifat:string[10]; Kalimat:[100];
Sifat:=’Tersetruktur’;
Kalimat:=tulisan1+tulisan2+tulisan3+sifat;
Writeln(kalimat);
End.

Download

Kewiraan Bab III

2012-04-24T08:26:00.000-07:00

HAK DAN KEWAJIBAN WN

Apakah arti warga negara dan kewarganegaraan?

Bagaimana kedudukan warga negara dalam suatu negara ?

Siapakah warga negara Indonesia (WNI) dan bagaimana perihal kewarganegaraan di Indonesia?

Apa saja hak dan kewajiban warga negara Indonesia ?

Pengertian warga negara

Warga negara merupakan terjemahan kata citizens (bhs Inggris) yang mempunyai arti ; warganegara, petunjuk dari sebuah kota, sesama warga negara , sesama penduduk, orang setanah air; bawahan atau kaula

Warga mengandung arti peserta, anggota atau warga dari suatu organisasi atau perkumpulan. Warga negara artinya warga atau anggota dari organisasi yg bernama negara

Ada istilah rakyat, penduduk dan warga negara. Rakyat lebih merupakan konsep politis. Rakyat menunjuk pada orang-orang yang berada dibawah satu pemerintahan dan tunduk pada pemerintahan itu. Istilah rakyat umumnya dilawankan dengan penguasa. Penduduk adalah orang-orang yang bertempat tinggal di suatu wilayah negara dalam kurun waktu tertentu

Download

Kewiraan Bab I

2012-04-23T08:00:00.000-07:00

Protto Lan

Array 1 dan Multidimensi

Puzzle Game Visual Basic 6.0

Kalkulator Sederhana

Evolusi dan Kinerja Komputer

Tugas Komponen Visual Basic 6.0

Organisasi dan Arsitektur Komputer

Konsep Pemrograman Visual

Logika Informatika - WinLogiLab

Program Wartel Record Pascal

Array 2 Dimensi Pascal

Array 1 Dimensi

Function Pascal

Procedure Pascal

PTI Chapter - 4

PTI Chapter - 3

PTI Chapter - 2

Tugas-1 Algoritma & Pemrograman II

Tabel Konversi Decimal ke Octal Pascal

Jadwal Ujian Semester Genap

Sistem Digital ke-2

Tabel Konversi Sistem Digital

Algoritma Pemrograman II Bab-2

Algoritma Pemrograman II Bab-1

Kewiraan Bab III

Kewiraan Bab I

Globalisasi

Dipicu Revolusi teknologi

• Transportasi --> dunia “menyempit”

• Telekomunikasi --> “percepatan” jalan sejarah à e-mail dsb.

• Turisme à Perdagangan (trade)

Dunia Tanpa Batas

• Warganegara --> Warga Kosmopolitan

• Multi National Corporation

• Liberalisasi

Global Paradox

• Perusahaan besar --> melemah

• Perusahaan kecil --> kaya fungsi

• Pekerja unggul/ulung yg dicari

Download