[Download] JDK 7.0

Hallo kali ini mau posting software yang sedang saya pake untuk kuliah Java yaitu JDK 7.0

Download -> Disini <-

»»  Baca Selengkapnya...

[Download] Packet Tracker 5.3

Cisco packet Tracker adalah software Simulasi jaringan komputer.... sama fungsinya seperti EWB software yang pernah saya share yang berfungsi sebagai simulasi supaya saat pemasangan tidak perlu ada kesalahan yang fatal.

nah biasanya yang kuliah jaringan komputer membutuhkan software ini sebagai simulasi bagi yang butuh silahkan download...

Download -> Disini <-

»»  Baca Selengkapnya...

[Download] ArcView Portabel 3.1

Lagi lagi Poating Sofware Ini Software untuk Sistem Informasi Georafi yang pengunaannya untuk pengolahan pada peta tapi masih banyak fungsinya. dan untuk yang mau cari Softwarennya bisa didownload arcview portable nya

info tentang gis juga bisa didapat disini

Untuk pengunaannya buat yang belum jelas silahkan Search sendiri yachhh 8) hehhe saya juga masih belum ahli...

Silahkan mencoba dan Belajar :)

credit

»»  Baca Selengkapnya...

[Download] Electronic Workbench (EWB)

Hallo... kembali lagi tapi hanya untuk share software yang biasa dipakai saya sewaktu praktikum Elekronika, Sistem Digital dan dasar dasar Instrumen.

yackk SF ini biasa disebut Electronic Workhbench atu biasa di sebut EWB yang biasa dipakai untuk simulasi, karna jika kita langsung praktek takutnya gagal dan alat rusak bagus jika alat murah nah kalo yang mahal. jadi Software EWB ini sangat berfungsi sebagai simulasi..

Download Software Disini

Dancara pengunaannya sangat lah mudah yaitu tinggal menarik simbol dari alat/ komponen yang akan digunakan saat praktek. setelah itu pada ujung kaki komponen biasanya ada titik hitam yang bisa digunakan untuk menghubungkan antara 1 komponen dengan komponen lainnya.. dan untuk pengujian bisa dilakukan dengan memilih analyst dan beri simbol huruf pada switch lalu jika ingin menganti input jadi 1 atau 0 maka tekan huruf yang menjadi simbol switch yang ingin diganti...

silahkan dicoba :)

»»  Baca Selengkapnya...

[Download] Dev C++ dan OpenGL

Hallo balik lagi mau posting sesuatu tapi buka tentang Hobi saya baik dalam baca Novel atau pun tentang Drama. Tapi saya mau posting tentang sesuatu yang saya tau dan info bagi yang mau tau tentang Dev c++ dan OpenGL software yang dipakai oleh saya untuk mata Kuliah Grafika komputer

1 Download softwarenya disini

2. setelah download silahkan di Extract Here rarnya

3. lalu instal dulu Devi C++ nya

pilih tools > Package Managel

maka akan keluar halaman baru seperti gambar dibawah lalu pilih Instal dan anda akan diminta untuk mencari folder dari yang anda cari maka pilih file OPenGL serta Glut yang sudah di Download tadi

Jika sudah DiInstal tutup Halaman package Manager

lalu lakukan pengujian apakah OPenGl serta Glut telah terinstal dengan Baik

caranya pilih File > New > Project > pilih Multimedia jangan Basic. anda akan diperintah 3 kali ngeSave terakhir pilih F9 untuk meruning/ menjalankan.

jika Instalan berhasil akan muncul gambar seperi berikut pada Glut dan OpenGl

nah Setelah itu anda bisa mengunakan Dev c++ sesuka hati. tapi hal penting yang harus dingat yaitu:

1. jangan lupa memilih project dengan pilih Console Aplication pada basic
2.Project Opition ubah Menjadi WINGUI32
3. linker Diisi dengan -lglut32 -lglu32 -lopengl32 -lwinmm


AND info Dev c++ yang ini Portable LOchhh


jadi selamat mencoba :)

»»  Baca Selengkapnya...

[info] coding pada pengunaan comandd prompt

belajar sekalian Share Ilmu

pastikan Database yang anda pakai suha Running

jika sudah maka pilih Start lalu Run dan masukan/ketik CMD lalu enter

maka tampilan pada saat masuk adalah seperti gambar dibawah ini

• setelah kita masuk maka kita dapat melihat database yang sudah ada pada CMD dengan mengetik 

show databases;

• jika ingin menmbuat data bases ketik

Create databases nama_database; ex create database universitas;

• jika inggin mengunakan database maka

use nama_databases; ex use universitas;

• jika ingin membuat table ketik

create table nama_table (enter)

-> (data1 typedata (ttl) null,

->data2 typedata (ttl) primarykey );

ex

crete table mahasiswa (enter)

->( nim varchar (6) primary key,

-> nama varchar (40) ,

-> alamat varchar (30),

->notelp varchar (11) null); 

• jika ada kolom pada table yang kurang

alter table nama_table add dataditambah typedata (ttl);

ex

alter  table mahasiswa add ttl date null default "0000-00-00";

• menginput/insert data pada table

insert into nama_table (enter)

-> values

-> ("data1","data2","dataditambah");

ex

insert into mahasiswa (enter)

->values

->("065109","Devi Rouli","Bogor,sentul","021879808");

• jka ingin melihat tabel yang ada pada database

show tables;

• jika ingin melihat struktur table

desc nama_table;

ex

desc mahasiswa;

• jika ingin melihat isi table

select * from nama_table;

ex

select * from mahasiswa;

berikut gambar gambar dari contoh diatas

jiak anda sudah selesai maka ketik exit

dan ketik Exit untuk terakhir maka anda sudah keluar dari CMD

sebenarnya masih ada bebrapa lagi tapi saya mau latihan lagi buat besok kuis

jadi sekian Tutorial singkat dari saya :)

bye

»»  Baca Selengkapnya...

[kuliah] listing praktikum

unit Scanner;

interface

uses winCRT;
const
ALNG = 30; {Number of significant chars in identifiers.}
eof = #26;
tab = #009;
LineFeed = #010;
space = #032;
car_return = #013;

type
Alfa = string [ALNG];

{Recognized symbol tokens.}
tokens = (
t_int, t_add, t_sub, t_mul, t_rdiv, t_double_mul,
t_assign { ':=' },
t_lbrack { '[' }, t_rbrack { ']' },
t_lparent { '(' }, t_rparent { ')' },
t_id, t_else, t_if, t_then
);

const
num_reserved_word = 3; {number of reserved word.}

{recognized reserved word strings.}
KeyStr : array [1..num_reserved_word] of Alfa = (
'else', 'if', 'then'
);

{Recognized reserved word tokens}
KeySym : array [1..num_reserved_word] of tokens = (
t_else, t_if, t_then
);

var
FIn : string[12]; {input file name}
FInput : text; {Input file pointer}

LookAhead : boolean; {TRUE if had been read ahead, else FALSE}
Enum : boolean; {TRUE if an enumeration delimeter countered}
Ch : char; {Read from finput}
token : tokens; {current token}
Id : Alfa; {current identifier}
Inum : longint; {integer number read, must be in --> integer;}
LineNumber : integer;

procedure initialize; {membuka file}
procedure scan;
procedure terminate; {menutup file}

implementation

procedure Initialize;
{Initialize variables}
begin
if (ParamCount < 1)
then repeat
Write ('File Sumber (.pas) : ');
ReadLn (FIn);
until (Length(FIn) <> 0)
else FIn := ParamStr (1);
if (Pos('.', FIn) = 0)
then FIn := FIn + '.pas';
{$I-}
Assign(FInput, FIn);
Reset(FInput);
{$I+}
if (IOResult <> 0)
then begin
WriteLn('Tidak bisa mengakses file: ''', FIn, '''');
Halt;
end;

FIn := Copy(FIn, 1, Pos('.', FIn) - 1) + '.out';

LookAhead := FALSE;
Enum := FALSE;
Ch := ' ';
LineNumber := 1;
End;

procedure Terminate;
begin
close(FInput);
end;

procedure GetCh;
{get a charakter from finput}
begin
Read(FInput, Ch);
end;

procedure error_report(id : byte);
begin
case id of
1 : writeln('Error --> unknown charakter ''', Ch, ''' Line : ', LineNumber);
2 : writeln('Error --> comment not limited Line' , LineNumber);
3 : writeln('Error -->integer overflow Line',LineNumber);
end;
end;

procedure Scan;
{Scan input text, and send a token}
var
Idx : integer;
e : integer;
begin
if (not LookAhead)
then GetCh;
LookAhead := FALSE;
repeat
case ch of
tab,LineFeed, space : GetCh;
car_return :
begin
GetCh;
inc (LineNumber);
end;
eof : {end of file}
Exit;
'A'..'Z', 'a'..'z' : {identifier}
begin
Id := '';
repeat
Id := Id + Ch;
GetCh;
until (not (Ch in['0'..'9', 'A'..'Z', 'a'..'z']));
LookAhead :=TRUE;
Idx := 0;
repeat
Idx := Idx + 1;
until ( (Idx = num_reserved_word) or (Id = KeyStr[Idx]));
if (Id = KeyStr[Idx])
then token := KeySym[Idx]
else token := t_id;
exit;
end;
'0'..'9' : {number}
begin
Inum := 0;
token := t_int;
repeat
Inum := Inum * 10 + (ord(Ch) - ord('0'));
GetCh;
until (not (Ch in['0'..'9']));
LookAhead := true;
Exit;
end;
'+' :
begin
token := t_add;
exit ;
end;
'-' :
begin
token := t_sub;
exit;
end;
'*' :
begin
getch;
if (ch = '*')
then token := t_double_mul
else begin
token := t_mul;
lookAhead := true;
end;
exit;
end;
'/' :
begin
token := t_rdiv;
exit;
end;
')' :
begin
token := t_rparent;
exit;
end;
'[' :
begin
token := t_lbrack;
exit;
end;
']' :
begin
token := t_rbrack;
exit;
end;
':' :
begin
GetCh;
if (Ch = '=')
then begin
token := t_assign;
end
else begin
WriteLn('Error --> unknown character ":" Line : ', LineNumber);
lookahead := true;
end;
Exit;
end;
'(' :
begin
GetCh;
if (Ch <> '*')
then begin
token := t_lparent;
LookAhead := TRUE;
Exit;
end
else begin
GetCh;
if (Ch = eof)
then begin
error_report (2);
exit;
end;
repeat
while (Ch <> '*')
do begin
GetCh;
if (Ch = eof) then
begin
error_report (2);
Exit;
end;
end;
GetCh;
if (Ch = eof)
then begin
error_report (2);
Exit;
end;
until (Ch = ')');
GetCh;
end;
end;
else
begin
error_report(1);
GetCh;
end;
end; {case}
until FALSE;
end;

end.

»»  Baca Selengkapnya...

[Kuliah] Listing praktikum 1 - Model Kompilator (pascal)

unit Scanner;
interface

uses winCRT;
const
ALNG = 30; {Number of significant chars in indentifiers.}
eof = #26;
tab = #009;
LineFeed = #010;
space = #032;
car_return = #013;

type
Alfa = string [ALNG];
{Recognized symbol tokens.}
tokens = (
t_int, t_add, t_sub, t_mul, t_rvid, t_double_mul,
t_assign {'='},
t_lbrack {'['}, t_rbrack {']'},
t_lparent {'('}, t_rparent {')'},
t_id, t_else, t_if, t_then
);
const
num_reserved_word = 3; {number of reserved word.}

{recognized reserved word strings.}
KeyStr : array [1.. num_reserved_word] of tokens = (
t_else, t_if, t_then
);

var
FIn : string[12]; {input file name}
Finput : text; {input file pninter}

LookAhead : boolean; {TRUE if had been read ahead, else FALSE}
Enum : boolean; {TRUE if an enumeration delimeter countered}
Ch : char; {Read from input}
token : tokens; {current token}
Id : Alfa; {current identifier}
Inum : longint; {integer number read, must be in --> integer;}
LineNumber : integer;

procedure initialize; {membuka file}
procedure scan;
procedure terminate; {menutup file}

implementation

procedure Initialize;
{initialize variables}
begin
if (ParamCount < 1) then repeat Write ('File Sumber (.pas):'); ReadLn (FIn); until (Length(FIn) <> 0)
else FIn := ParamStr (1);
if (Pos('.', FIn) = 0)
then FIn := FIn + '.pas';
{$I-}
Assign(FInput, FIn);
Reset(FInput);
{$I+}
if (IOResult <>0)
then begin
WriteLn('Tidak bisa mengakses file : ''',FIn,'''');
Halt;
end;

FIn:= Copy(FIn, 1, Pos('.', FIn) -1) + '.out';

LookAhead := FALSE;
Enum := FALSE;
Ch := ' ';
LineNumber :=1;
End;

procedure Terminate;
begin
close (FInput);
end;

procedure GetCh;
{get a charakter from finput}
begin
Read (FInput, Ch);
End;

procedure error_report (id : byte);
begin
case id of
1 : writeln('Error --> unknown charakter"", Ch, ""Line : ', LineNumber);
2 : writeln('Frror --> comment not limited Line', LineNumber);
3 : writeln('Frror --> integer overflo Line', LineNumber);
end;
end;



sumber modul praktikum teori otomata dan kompilasi, gambar http://t1.gstatic.com/images?q=tbn:ANd9GcSKRpuONVd6iKUon_fZ0moHOKU32qypQdOBAhtkcrb4hNlzjbBo6g

»»  Baca Selengkapnya...