My Virtual Class Room

Lebih Gampang Pake Case...Of

2009-04-18T16:06:00.001-07:00

Bagi anda yang sudah mencoba menggunakan sintak IF tentu sudah tau fungsi dan keguanaannya. Sekarang akan kita bahas penggunaan script Case...Of sebagai script untuk melakukan pilihan lebih dari dua pernyataan. Menurut saya cara ini lebih gampang dari pada mengguanakan IF.
Secara umum format penulisan scriptnya adalah seperti berikut:

CASE <kondisi> OF
         'label1' : <pernyataan ke-1>
         'label2' : <pernyataan ke-2>
         'label3' : <pernyataan ke-3>
         else : <pernyataan ke-akhir>
end;

Artinya jika nilai pada kondisi sama dengan nilai pada label1 maka bagian pernyataan ke-1 yang akan dieksekusi, sama halnya jika nilai pada label2 dan label3. Tapi jika nilai kondisi tidak sama dengan label1 s.d label3, maka pernyataan ke-akhir yang akan dieksekusi.

Dengan menggunakan CASE...OF akan banyak pernyataan yang bisa digunakan dengan mudah. Silanjutnya silahkan pelajari scirpt program pengguanaan CASE OF di bawah ini:

Contoh 1:

PROGRAM Case1;
{ --------------------------------}
{ Contoh pemakaian Case.}
{ --------------------------------}
USES Crt;
VAR
       Pil   :   Integer;
BEGIN
       ClsScr;
      Write('Pilihan [1, 2 atau 3] : ') ;
      ReadLn(Pil) ;

      CASE Pil OF
             1: WriteLn('Pilihan Anda adalah 1') ;
             2: WriteLn('Pilihan Anda adalah 2') ;
             3: WriteLn('Pilihan Anda adalah 3') ;
      ELSE
            WriteLn('Salah pilih !') ;
      END;

      WriteLn('Selesai...') ;
END.

Contoh 2:

PROGRAM Case2;
{ --------------------------------------------------- }
{ Contoh pemakaian koma di dalamCASE    }
{ --------------------------------------------------- }
USES Crt;

VAR
      KodeBulan : Integer
BEGIN
      ClrScr;
      Write('Kode bulan [1..12] : ') ;
      ReadLn('KodeBulan) ;

      CASE KodeBulan OF
        1, 3,5, 7, 8, 10, 12: WriteLn('Jumlah hari = 31') ;
        4, 6, 9, 11               : WriteLn('Jumlah hari = 30') ;
        2                                : WriteLn('Jumlah hari 28 atau 29') ;

ELSE
      WriteLn('Salah memasukan kode bulan')
      END;
END.

Contoh 3:

PROGRAM Case3;
{ -------------------------------------------------}
{ Contoh pemakaian tanda .. pada CASE}
{ -------------------------------------------------}
USES Crt;

VAR
      Kar : Char;

BEGIN
      ClrScr;
      Write('Masukan sembarang karakter dan tekan Enter : ') ;
      ReadLn(Kar) ;

      CASE Kar OF
            'A'..'B' : WriteLn('Huruf Kapital') ;
            'a'.. 'z' : WriteLn('Huruf kecil') ;
            '0'.. '1' : WriteLn('Digit') ;
      ELSE
            WriteLn('Bukan huruf ataupum digit')
      END;
END.

Contoh 4:

PROGRAM Case4;
{ -------------------------------------}
{ Contoh CASE tanpa ELSE.     }
{ -------------------------------------}
USES Crt;

CONST
       X : Integer = 40;    { --- Nilai awal untuk X --- }
       Y : Integer = 50;    { --- Nilai awal untuk Y --- }

VAR
      Tombol : Char;

BEGIN
      ClrScr;
      WriteLn('Nilai X dan Y semula = ', X, ':', Y) ;
      Write('Tekan tombol E, S, D, atau X dan tekan Enter: ') ;
      ReadLn('Tombol) ;

      CASE Tombol OF
            'E', 'a' :    y := Y - 1;
            'S', 's' :    X :=X - 1;
            'D', 'd' :   X := X + 1;
            'X'   'x' : Y   := Y + 1;
      END;

      WriteLn('Nilai X dan Y kini    = ', X, ':', Y) ;
END.

Contoh 5:

Program Garmen jaket;
uses crt;
var    Ukuran        : char;
    Banyak        : integer;
    Harga Jumlah    : real;
begin
    ClrScr ;
    write('Ukuran jaket (S/M/L) : ');readln(Ukuran);
    write('Banyak jaket        : ');readln(Banyak);
    case Ukuran of
    'S'    : Harga :=6500;
    'M'    : Harga :=7100;
    'L'    : Harga :=7400;
end;
   Jumlah := Banyak * Harga;
   Writeln ; writeln ;
   writeln('jumlah yang harus dibayar = Rp ',jumlah:8:0);
end.

Menggunakan IF

2009-04-18T16:04:00.001-07:00

Ada dua bentuk penggunaan IF,yang pertama

IF <kondisi> THEN <pernyataan>.

Artiya jika kondisi memenuhi syarat maka bagian pernyataan akan dieksekusi. Bagian pernyataan merupakan kumpulan dari script propram pascal.

Bentuk penggunaan IF yang kedua adalah

IF <kondisi> THEN <pernyataan ke-1>
ELSE <pernyataan ke-2>

Artinya jika kondisi memenuhi syarat maka bagian pernyataan ke-1 yang akan di eksekusi dan sebaliknya jika kondisi tidak memenuhi syarat maka pernyataan ke-2 yang akan dieksekusi. Untuk memudahkan saya selalu menganalogikan dengan bahasa keseharian.
JIKA (IF) kondisi benar MAKA (THEN) pernyataan ke-1 dieksekusi SEBALIKNYA (ELSE) pernyataan ke-2 yang dieksekusi.

Gimana... cukup mudah kan..??!! Supaya lebih memahami cara penggunaan IF pada pascal coba dan pelajari beberapa contoh source kode program yang menggunakan IF di bawah ini:

Contoh 1:

1 Program PenerimaanPegawai ;
2 Uses crt ;
3 Var umur : integer ;
4 Ket : string ;
5 begin
6     Clrscr;
7     Write('Umur calon pegawai : '); readln(umur);
8     if (umur >= 20) AND (umur <=30)
9         Then Ket := 'DITERIMA'
10       Else KET := 'DITOLAK'
11   Writeln ('status pegawai : ',ket) ;
12 end.

Pada contoh progam 1 diatas adalah seleksi pegawai berdasarkan usia, yaitu usia yang mememenuhi kriteria adalah 20 tahun sampai dengan 30 tahun. Jadi untuk membatasi usia menggunakan sintak AND seperti pada baris 8. Jika user mamasukkan akangka di bawah 20 dan atau diatas 30 maka nilai kondisi FALSE (tidak sesuai dengan syarat kondisi IF) maka baris 10 yang akan dieksekusi sedangan jika user memasukkan angka antara 20 dengan 30 makan nilai kondisi TRUE, artinya baris program 8 yang akan di eksekusi.

Contoh 2:

1   Program Bioskop1 ;
2   Uses crt ;
3   Var NoGed, Tiket : integer ;
4   begin
5     Clrscr;
6     Write('nomor gedung (1-3): '); readln(NoGed);
7     if (NoGed = 1) OR (NoGed =3)
8       Then Tiket := 4000
9       Else Tiket := 4500
10   Writeln ('Harga Tiket = Rp ',Tiket) ;
11 end.

Contoh 3:

1 Program Berlangganan ;
2 Uses crt ;
3 Var Langganan : char ;
4 Jumlah,Discount,bayar:real;
5 begin
6     Clrscr;
7     Writeln('Langganan (Y/T): '); readln(Langgnan);
8     Writeln('Jumlah pembelian:'); readln(Jumlah);
9     if Langganan ='Y' Then Discount:=0.1*Jumlah
10                                Else Discount := 0 ;
11   Bayar :=Jumlah-Discount;
12   Writeln('Harga YAng Harus Di Bayar Adalah Rp',Bayar:10:2);
13 end.

Perhatikan script program pada baris 7 dan 8! Pada baris tersebut terdapat dua sintak program dalam satu baris, yaitu menggunakan writeln dan readln

Contoh 4:

1   Program StrukturBlok;
2   Uses crt ;
3   Var jawab : Char ;
4   begin
5      Clrscr;
6      Write('Mau cetak (Y/T) ? '); readln(jawab);
7      if Upcase(jawab) ='Y'
8           Then Writeln ('penampilan baris pertama') ;
9      writeln ('Penampilan baris kedua') ;
10 end.

NB: Pengguanaan Upcase pada baris 7 digunakan supaya input yang dimasukan selalu terbaca sebagai huruf besar walaupun user memasukkan huruf kecil.

Contoh 5:

1   program GarmenJaket ;
2   uses crt ;
3   var ukuran : char ;
4   Banyak :integer ;
5   Harga, Jumlah : real ;
6   Begin
7      Clrscr ;
8      Write ('ukuran jaket (S/M/L): '); readln (ukuran) ;
9      Write ('Banyak jaket : '); redln (banyak);
10    if upcase(Ukuran) = 'S' Then Harga :=6500;
11    if upcase(Ukuran) = 'M' Then Harga :=7100;
12    if upcase(Ukuran) = 'L' Then Harga :=7400;
13    Jumlah := banyak * Harga ;
14    writeln;writeln;
15    writeln('Jumlah yang harus dibayar = Rp',Jumlah:8:2);
16 end.

Contoh 6:

PROGRAM Bonus;
{ --------------------------------------------}
{ Program untuk menentukan bonus}
       berdasarkan total pembelian.    }
{ --------------------------------------------}
USES Crt;

VAR
      TotalPembelian : LongInt;

BEGIN
      ClrScr;

      Write('Total Pembelian = ') ;
      ReadLn(TotalPembelian) ;

      IF Total Pembelian >= 100000 THEN
           WriteLn('Diskon sebesar 10%')
      ELSE
            IF TotalPembelian >= 50000 THEN
                 Writeln('Bonus: 1 Pirinng')
        ELSE
            IF TotalPembelian >= 10000 THEN
                 WriteLn('Bonus: 1 Gelas')
            ELSE
                 WriteLn('Tidak ada bonus') ;
END.

Contoh penggunaan Write dan Read

2009-04-18T14:01:00.001-07:00

Write digunakan untuk menampilkan data (numerik atau teks) pada layar. Sedangkan Read digunakan untuk membaca data yang di-input-kan melalui keyboard. Ada dua cara penulisan sintak read dan write, yaitu dengan menggunakan ln dan tidak.

Misalkan write artinya mencetak data pada layar dan writeln artinya mencetak data pada layar dan kursor berpindah satu baris ke bawah. Hal ini berlaku juga untuk penggunaan read dan readln.

Supaya lebih jelas silahkan coba script di bawah ini :

nb: tulis program pada compiler pascal tanpa no baris program seperti contoh dibawah, penomoran hanya untuk mempermudah dalam penjelasan program saja.

contoh 1:

1: Program coba_tulis_ke_layar;
2: Begin
3:      Writeln ('ini adalah program saya yang pertama');
4:      Writeln ('saya sedang belajar turbo pascal');
5:      Writeln;
6: End.

contoh 2:

1 : Program Variabel ;
2 : { ----------------------------------------------------------------------}
3 : { Contoh untuk menunjukan program yang mengandung }
4 : { variabel }
5 : { ----------------------------------------------------------------------}
6 : Uses Crt;
7 : Var
8 : Jumlah : Integer; { Deklarasi variabel Jumlah }
9 : Begin
10: Jumlah := 23; { Memberi nilai terhadap variabel }
11: WriteLn(Jumlah) ; { Menampilkan isi variabel }
12: End.

contoh 3:

1 : Program TesJum;
2 : { -------------------------------------------------------------------- }
3 : { Contoh untuk menunjukan hasil operasi penjumlahan }
4 : {        untuk berbagai kemungkinan tiga operand            }
5 : { -------------------------------------------------------------------- }
6 : Uses Crt;
7 :
8 : Begin
9 :   ClrScr;
10:   WriteLn('4 + 2 = ', 4 + 2) ;
11:   WriteLn('4.0 + 2 = ', 4.0 + 2) ;
12:   WriteLn('4 + 2.0 = ', 4 + 2.0) ;
13:   WriteLn('4.0 + 2.0 = ', 4.0 + 2.0) ;
14: End.

contoh 4:

1 :Program beli_alat_tulis;
2 :Var buku,pensil,map,pen,total:Integer;
3 :Begin
4 : {Bagian Inisialisasi}
5 :   buku:=7500;
6 :   pensil:=600;
7 :   map:=400;
8 :   pen:=1750;
9 :   total:=buku+pensil+map+pen;
10: {bagian penampilan}
11:   Writeln ('harga buku=Rp',buku);
12:   Writeln ('harga pensil=Rp',pensil);
13:   Writeln ('harga map=Rp',map);
14:   Writeln ('harga pen=Rp',pen);
15:   Writeln ('total=Rp',total);
16: End.

Pehatikan pada baris 4 dan 10. Bagian yang diapit oleh '{' dan '}' adalan baris program yang tidak akan dieksekusi. Fungsinya untuk memberikan keterangan saja, jadi kita dapat mengetikan apa saja pada tanda apit '{' dan '}'.

Kemudian pada baris ke 5 s.d 8 adalah bagian program untuk memasukkan nilai pada varibel buku, pensil, map, dll seperti terlihat pada contoh 4, sedangkan baris 9 adalah rumus untuk menjumlahkan semua isi varibel.

Yang perlu diamati adalah format penulisan write. Misalkan pada baris 11 tertulis
writeln('harga buku=Rp',buku); pada teks harga buku=Rp diberikan tanda kutip('), hal ini akan mengakibatkan teks dicetak pada layar sesuai dengan tulisan apa adanya dan pada buku tidak diberi tanda kutip, artinya bahwa buku adalah sebuah varibel jadi yang dicetak adalah isi bilangan yang tersimpan pada varibel buku (yaitu 7500).

Untuk peggunaan read, berikut adalah contoh-contohnya:

contoh 5:

1 Program lingkaran;
2 Uses Crt;
3 Var r,L,K:Real;
4 Begin
5 clrscr;
6 Write ('masukan jari-jari lingkaran(cm):');
7 Readln(r);
8 L:=pi*r*r;
9 K:=2*pi*r;
10 Writeln;
11 Writeln ('luas lingkaran:',L:10:2,'cm2');
12 Writeln ('keliling lingkaran:',K:10:2,'cm');
13 End.

Pada baris 7 terdapat penggunaan sintak Read(r), artinya pada baris tersebut program akan berhenti sejenak sampai user mengetikkan sebuah angka untuk nilai variabel 'r' dan menekan tombol ENTER.

contoh 6:

1 Program einstein;
2 Uses Crt;
3 Const C =300.000.000;
4 Var E,M:Real;
5 Begin
6 clrscr;
7 Write ('masukan masa benda(kg):');Readln(M);
8 E:=M*C*C;
9 Writeln ('energi yang terkandung di dalam',M:6:3,
10 'Kg benda adalah ',E:20:0,'J'),
11 End.

Contoh penggunaan Write dan Read

2009-04-18T08:24:00.001-07:00

nb: tulis program pada compiler pascal tanpa no baris program seperti contoh dibawah, penomoran hanya untuk mempermudah dalam penjelasan program saja.

contoh 1:

1: Program coba_tulis_ke_layar;
2: Begin
3:      Writeln ('ini adalah program saya yang pertama');
4:      Writeln ('saya sedang belajar turbo pascal');
5:      Writeln;
6: End.

contoh 2:

1 : Program Variabel ;
2 : { ----------------------------------------------------------------------}
3 : { Contoh untuk menunjukan program yang mengandung }
4 : { variabel }
5 : { ----------------------------------------------------------------------}
6 : Uses Crt;
7 : Var
8 : Jumlah : Integer; { Deklarasi variabel Jumlah }
9 : Begin
10: Jumlah := 23; { Memberi nilai terhadap variabel }
11: WriteLn(Jumlah) ; { Menampilkan isi variabel }
12: End.

contoh 3:

1 : Program TesJum;
2 : { -------------------------------------------------------------------- }
3 : { Contoh untuk menunjukan hasil operasi penjumlahan }
4 : {        untuk berbagai kemungkinan tiga operand            }
5 : { -------------------------------------------------------------------- }
6 : Uses Crt;
7 :
8 : Begin
9 :   ClrScr;
10:   WriteLn('4 + 2 = ', 4 + 2) ;
11:   WriteLn('4.0 + 2 = ', 4.0 + 2) ;
12:   WriteLn('4 + 2.0 = ', 4 + 2.0) ;
13:   WriteLn('4.0 + 2.0 = ', 4.0 + 2.0) ;
14: End.

contoh 4:

1 :Program beli_alat_tulis;
2 :Var buku,pensil,map,pen,total:Integer;
3 :Begin
4 : {Bagian Inisialisasi}
5 :   buku:=7500;
6 :   pensil:=600;
7 :   map:=400;
8 :   pen:=1750;
9 :   total:=buku+pensil+map+pen;
10: {bagian penampilan}
11:   Writeln ('harga buku=Rp',buku);
12:   Writeln ('harga pensil=Rp',pensil);
13:   Writeln ('harga map=Rp',map);
14:   Writeln ('harga pen=Rp',pen);
15:   Writeln ('total=Rp',total);
16: End.

Untuk peggunaan read, berikut adalah contoh-contohnya:

contoh 5:

1 Program lingkaran;
2 Uses Crt;
3 Var r,L,K:Real;
4 Begin
5 clrscr;
6 Write ('masukan jari-jari lingkaran(cm):');
7 Readln(r);
8 L:=pi*r*r;
9 K:=2*pi*r;
10 Writeln;
11 Writeln ('luas lingkaran:',L:10:2,'cm2');
12 Writeln ('keliling lingkaran:',K:10:2,'cm');
13 End.

Pada baris 7 terdapat penggunaan sintak Read(r), artinya pada baris tersebut program akan berhenti sejenak sampai user mengetikkan sebuah angka untuk nilai variabel 'r' dan menekan tombol ENTER.

contoh 6:

1 Program einstein;
2 Uses Crt;
3 Const C =300.000.000;
4 Var E,M:Real;
5 Begin
6 clrscr;
7 Write ('masukan masa benda(kg):');Readln(M);
8 E:=M*C*C;
9 Writeln ('energi yang terkandung di dalam',M:6:3,
10 'Kg benda adalah ',E:20:0,'J'),
11 End.

Lowongan Kerja

2009-04-16T07:14:00.001-07:00

Dibutuhkan segera !

1. Karyawan Laki-laki di LEN

2. Karyawan Laki-laki dan Perempuan di PT.LG

3. Karyawan Laki-laku dan Perempuan di PT. UNILEVER

Kirimkan surat lamaran ke HUBIN SMKN 1 Cimahi, paling lambat Sabtu, 18 April 2009. Informasi selengkapnya silahkan hubungi HUBIN SMKN 1 Cimahi.

Pascal

2009-04-15T02:09:00.001-07:00

Berdasarkan pada struktur algoritma, maka saya coba kelompokkan materi pemograman Turbo Pacal menjadi lima pokok bahasan dan dua konsep dasar tentang tipe data dan operator yang bisa download disini.

Dibawah ini adalah meteri pokok yang perlu dikuasai untuk memahami cara membuat program dengan Turbo Pasacal.

1. Input Output

read dan writeln [download]

2. Pilihan (Seleksi)

If Then Else

Case Of
Materi selengkapnya [download]

3. Pengulangan (Looping)

for ... to ... do

repeat ... until

while ... do
Materi selengkapnya download [disini] dan [disini]

4. Procedure

procedure [download]

5. Array

array [download]

Data Sheet TTL 74xx

2009-04-12T20:09:00.001-07:00

Index data sheet IC TTL 74xx

74LS00	4x Two input NAND
74LS01	4x Two input NAND, Open collector
74LS02	4x Two input NOR
74LS03	4x Two input NAND, Open collector
74LS04	6x Inverter (NOT)
74LS05	6x Inverter (NOT), Open collector
74LS06	6x Inverter (NOT), High voltage Open collector
74LS07	6x Buffer (NO-OP), High voltage Open collector
74LS08	4x Two input AND
74LS09	4x Two inout AND, Open collector
74LS10	3x Three input NAND
74LS11	3x Three inout AND
74LS12	3x Three input NAND, Open collector
74LS13	2x Four input, Schmitt Trigger NAND
74LS14	6x Inverter (NOT), Schmitt Trigger
74LS15	3x Three input AND, Open collector
74LS16	6x Inverter (NOT), High voltage Open collector
74LS17N	6x Buffer (NO-OP), High voltage Open collector
74LS19	6x Inverter (NOT), Schmitt Trigger
74LS20	2x Four input NAND
74LS21	2x Four input AND
74LS22	2x Four input NAND, Open collector
7423	2x Four input NOR with Strobe
7425	2x Four input NOR with Strobe
74LS26	4x Two input NAND, High voltage
74LS27	3x Three input NOR
74LS28	4x Two input NOR
74LS30	Eight input NAND
74LS31	6x DELAY (6nS to 48nS)
74LS32	4x Two input OR
74LS33	4x Two input NOR, Open collector
74LS37	4x Two inout NAND
74LS38	4x Two input NAND, Open collector
74LS39	4x Two input NAND, Open collector
74LS40	4x Two input NAND, Open collector
74LS42	Four-to-Ten (BCD to Decimal) DECODER
74LS45	Four-to-Ten (BCD to Decimal) DECODER, High current
74LS46	BCD to Seven-Segment DECODER, Open Collector, lamp test and leading zero handling
74LS47	BCD to Seven-Segment DECODER, Open Collector, lamp test and leading zero handling
74LS48	BCD to Seven-Segment DECODER, lamp test and leading zero handling
74LS49	BCD to Seven-Segment DECODER, Open collector
7450	2x (Two input AND) NOR (Two input AND), expandable
74LS51	(a AND b AND c) NOR (c AND e AND f) plus (g AND h) NOR (i AND j)
7453	NOR of Four Two input ANDs, expandable
74LS54	NOR of Four Two input ANDs
74LS55	NOR of Two Four input ANDs
74LS56P	3x Frequency divider, 5:1, 5:1, 10:1
74LS57P	3x Frequency divider, 5:1, 6:1, 10:1
74S64	4-3-2-2 AND-OR-INVERT
74S65	4-3-2-2 AND-OR-INVERT
74LS68	2x Four bit BCD decimal COUNTER
74LS69	2x Four bit binary COUNTER
7470	1x gated JK FLIPFLOP with preset and clear
7472	1x gated JK FLIPFLOP with preset and clear
74LS73	2x JK FLIPFLOP with clear
74LS74	2x D LATCH, edge triggered with clear
74LS75	4x D LATCH, gated
74LS76A	2x JK FLIPFLOP with preset and clear
74LS77	4x D LATCH, gated
74LS78A	2x JK FLIPFLOP with preset and clear
74LS83	Four bit binary ADDER
74LS85	Four bit binary COMPARATOR
74LS86	4x Two input XOR (exclusive or)
74LS90	Four bit BCD decimal COUNTER
74LS91	Eight bit SHIFT register
74LS92	Four bit divide-by-twelve COUNTER
74LS93	Four bit binary COUNTER
74LS94	Four bit SHIFT register
74LS95B	Four bit parallel access SHIFT register
74LS96	Five bit SHIFT register
74LS107A	2x JK FLIPFLOP with clear
74LS109A	2x JK FLIPFLOP, edge triggered, with preset and clear
74LS112A	2x JK FLIPFLOP, edge triggered, with preset and clear
74LS114A	2x JK FLIPFLOP, edge triggered, with preset
74LS116	2x Four bit LATCH with clear
74121	Monostable Multivibrator
74LS122	Retriggerable Monostable Multivibrator
74LS123	Retriggerable Monostable Multivibrator
74S124	2x Clock Generator or Voltage Controlled Oscillator
74LS125	4x Buffer (NO-OP), (low gate) Tri-state
74LS126	4x Buffer (NO-OP), (high gate) Tri-state
74LS130	Retriggerable Monostable Multivibrator
74128	4x Two input NOR, Line driver
74LS132	4x Two input NAND, Schmitt trigger
74S133	Thirteen input NAND
74S134	Twelve input NAND, Tri-state
74S135	4x Two input XOR (exclusive or)
74LS136	4x Two input XOR (exclusive or), Open collector
74LS137	3-8 DECODER (demultiplexer)
74LS138	3-8 DECODER (demultiplexer)
74LS139A	2x 2-4 DECODER (demultiplexer)
74S140	2x Four input NAND, 50 ohm Line Driver
74143	Four bit counter and latch with 7-segment LED driver
74LS145	BCD to Decimal decoder and LED driver
74LS147	10-4 priority ENCODER
74LS148	8-3 gated priority ENCODER
74LS150	16-1 SELECTOR (multiplexer)
74LS151	8-1 SELECTOR (multiplexer)
74LS153	2x 4-1 SELECTOR (multiplexer)
74LS154	4-16 DECODER (demultiplexer)
74LS155A	2x 2-4 DECODER (demultiplexer)
74LS156	2x 2-4 DECODER (demultiplexer)
74LS157	4x 2-1 SELECTOR (multiplexer)
74LS158	4x 2-1 SELECTOR (multiplexer)
74159	4-16 DECODER (demultiplexer), Open collector
74LS160A	Four bit synchronous BCD COUNTER with load and asynchronous clear
74LS161A	Four bit synchronous binary COUNTER with load and asynchronous clear
74LS162A	Four bit synchronous BCD COUNTER with load and synchronous clear
74LS163A	Four bit synchronous binary COUNTER with load and synchronous clear
74LS164	Eight bit parallel out SHIFT register
74LS165	Eight bit parallel in SHIFT register
74LS166A	Eight bit parallel in SHIFT register
74LS169A	Four bit synchronous binary up+down COUNTER
74LS170	4x4 Register file, Open collector
74LS174	6x D LATCH with clear
74LS175	4x D LATCH with clear and dual outputs
74LS170	Four bit parallel in and out SHIFT register
74LS180	Four bit parity checker
74LS181	Four bit ALU
74LS182	Look-ahead carry generator
74LS183	2x One bit full ADDER
74LS190	Four bit Synchronous up and down COUNTER
74LS191	Four bit Synchronous up and down COUNTER
74LS192	Four bit Synchronous up and down COUNTER
74LS193	Four bit Synchronous up and down COUNTER
74LS194	Four bit parallel in and out bidirectional SHIFT register
74LS195	Four bit parallel in and out SHIFT register
74LS198	Eight bit parallel in and out bidirectional SHIFT register
74LS199	Eight bit parallel in and out bidirectional SHIFT register, JK serial input
74LS221	2x Monostable multivibrator
74LS240	8x Inverter (NOT), Tri-state
74LS241	8x Buffer (NO-OP), Tri-state
74LS244	8x Buffer (NO-OP), Tri-state Line driver
74LS245	8x Bidirectional Tri-state BUFFER
74LS259	Eight bit addressable LATCH
74LS260	2x Five input NOR
74LS273	8x D FLIPFLOP with clear
74LS279	4x SR LATCH
74LS283	Four bit binary full ADDER
74LS373	8x Transparent (gated) LATCH, Tri-state
74LS374	8x Edge-triggered LATCH, Tri-state
74LS629	Volatge controlled OSCILLATOR
74LS688	Eight bit binary COMPARATOR

Jadwal Ujian Sidang

2009-03-30T15:26:00.000-07:00

JADWAL UJIAN LISAN ( LAPORAN PKP )Jurusan teknik TransmisiTahun Pelajaran 2008-2009

Hari / Tanggal	No	Nama Peserta	Ruang
	1	Cyndi Marciana	A
	2	Ari Mardianto	B
	3	Samsu Rizal	A
Kamis,	4	Dhea	B
2 April 2009	5	Dicky Mulyana	A
08.00-selesai	6	Muhamad Ahdani	B
	7	Muhamad Irpan H	A
	8	Beni Setiawan	B
	9	Riandy A	A
	10	Indria Dwi Irawan	B
-------------------	--------	-----------------------------------------	--------------
	1	Aloysius Langgeng	A
	2	Resal Suwandani	B
	3	Roni sukmana	A
Jum'at	4	Agustine C	B
3 April 2009	5	Gungun Faturokhman	A
08.00-selesai	6	Hani Siti H	B
	7	Reza Agung S	A
	8	Erwin Garnida	B
	9	Gilang A Herlambang	A
	10	Siti Maesaroh	B
-------------------	--------	-----------------------------------------	--------------
	1	Irvan Najmudin	A
	2	Ibrahim	B
	3	Rahmat Rohimat	A
Sabtu	4	Inggit	B
4 April 2009	5	Dudin Wahyudin	A
08.00-selesai	6	Dhika Pebriana	B
	7	Gili Gretary	A
	8	Sylvia Anggun	B
	9	Martha P	A
	10	Hilman Maulana	B
-------------------	--------	-----------------------------------------	--------------
	1	Hadiyan	A
	2	Ahmad kurniawan	B
	3	Berlin Baehaqi	A
Senin	4	Dony Herdin	B
6 April 2009	5	Budi Santosa	A
08.00-selesai	6	Deni Hidayat	B
	7	Gungun Gunawan	A
	8	Novan Sukma Nurcahyo	B
	9	Permana Sidik	A
	10	Jalaludin	B
-------------------	--------	-----------------------------------------	--------------
	1	Desi Prianti	A
	2	Taufik Hidayat	B
	3	Fauzi	A
Selasa	4	Rizal Fauzan	B
7 April 2009	5	Ryan	A
08.00-selesai	6	Ali	B
	7	Rizki Apri Ramdani	A
	8	Yana Priyana	B
	9	Yesi	A
	10	Deni Rokhmansyah	B
-------------------	--------	-----------------------------------------	--------------
	1	Ilfan Ari Faisal	A
	2	Irvan Yogaswara	B
	3	Agung Rinaldy	A
Rabu	4	Wulan Kurnia Sari	B
8 April 2009	5	Yayan Mulyana	A
08.00-selesai	6	Irwan Syahid	B
	7	Dicky Jaka Maulana	A
	8	Eka Yuliawati	B
	9	Tisa Ayu	A
	10	Randy Soesvianto	B
-------------------	--------	-----------------------------------------	--------------

Catatan:
- Membawa kartu peserta
- Mentaati tata tertib sekolah
- Menggunakan pakaian atas putih celana hitam
- Laki laki berdasi
- Membawa laporan PKL 2 exp untuk penyidang

Teknik Radio

2009-02-20T00:55:00.000-08:00

Akan banyak membahas mengenai konsep dasar komunikasi radio. Jadi bersiaplah dengan petualangan kita di dunia transmisi. Secara umum pokok bahasan yang akan dipelajari terbagi menjadi dua, yaitu "Konsep penerima dan pemancar radio AM" dan Konsep penerima dan pemancar radio FM".

Dibawah ini bahan bacaan yang bisa menjadi referensi. Silahkan di download.
Abbreviation Q Code
Glossary
TABLE ALLOCATION INTERNATIONAL CALL SIGN SERIES
DXCC COUTRIES LIST
Antena

Band Plan Amateur Radio
Propagasi
Propagasi dan Kelas Emisi
QSL Card

Aplikasi Program

2009-02-19T20:13:00.000-08:00

Secara umum mata diklat ini mempelajari mengenai "Dasar Pemograman", "Pemograman Visual", "Interfacing", "Implementasi Mobile Phone".

Dasar Pemograman
Tipe Data [view]
Operator [view]
I/O Program [view]
IF Condotions [view]
Case Conditions [view]
Pengulangan For To Do [view]
Pengulangan While dan Repeat [view]
Procedure [view]
Array[view]

Contact

2009-02-19T19:51:00.000-08:00

"Contact us" jika ada kendala atau kesulitan.
mail: u2s_1979 @yahoo.com

Informations

2009-02-19T19:29:00.000-08:00

Informations atau ruang informasi.

Sarana komunikasi sangat penting supaya informasi dapat segera di akses. Melalui ruangan ini beberapa informasi akan disampaikan seemuanya... tentu yang layak di sampaikan. Kalau bocoran soal atau ujian.... gak lah....
Tapi informasi perihal tentang pelajaran dan yang lain-lainnya akan disampaikan. Informasi teratas adalah informasi yang terbaru, kecuali ada update, saya akan berikan tanggal update untuk informasi yang sudah pernah ada. Jadi harap disimak sebaik-baikknya ketika membaca informasi.
Semoga bisa bermanfaat.

Informasi Siswa
[25-Feb-2009]
Persyaratan Mengikuti Ujian
1. Mendaftarkan Judul Ujian Praktek
2. Menyelesaikan administrasi sekolah *)
*) SPP+DSP+PRAKERIN

Informasi Siswa
[20-Feb-2009]
Perihal :Harap mengghubungi wali kelas

Nama siswa 4TTB:
1. Ari M
2. Deni R
3. Gili
4. Gungun F
5. Hani
6. Inggit
Nama - nama siswa di atas harap segera menghubungi wali kelas Bpk. Yuyus
Phone/SMS : 02270081843 / 08170235233
e-mail: u2s_1979 @yahoo.com
YM : u2s_1979
dikarenakan ada beberapa informasi yang perlu disampaikan.

Informasi Ujian
[12-Jan-2009]
Perihal : Kegiatan Ujian dan Kisi-kisi

Kegiatan Ujian:

1. Uji Kopetensi

Dalam uji kopetensi ada dua berkas yang harus di buat, yaitu proposal dan laporan. <Ralat: tidak perlu buat Proposal dan Laporan >

2. Uji Sidang

Ujian sidang adalah ujian pelaporan kegiatan PRAKERIN.

Silahkan posting disini untuk mebahas persoalan seputar perisapan Uji Kompetensi, Pembuatan Laporan dan Sidang. Read more...

Classrooms

2009-02-19T18:49:00.000-08:00

Classrooms atau ruang kelas, tempat kita berkumpul untuk mengkaji berbagai materi pelajaran. Yuk... kita berdo'a dulu sebelum belajar, supaya ilmunya bermanfaat.
"Bissmilahirrohmanirrohim"

Aplilkasi Program
Secara umum mata diklat ini mempelajari mengenai "Dasar Pemograman", "Pemograman Visual", "Interfacing", "Implementasi Mobile Phone". Read more...

Teknik Radio
Akan banyak membahas mengenai konsep dasar komunikasi radio. Jadi bersiaplah dengan petualangan kita di dunia transmisi. Secara umum pokok bahasan yang akan dipelajari terbagi menjadi dua, yaitu "Konsep penerima dan pemancar radio AM" dan KOnsep penerima dan pemancar radio FM". Read more...

Teknik Digital
"under construaction"

2nd Program's Application

2008-12-24T06:04:00.000-08:00

After all kopetensi on learning activities in the previous semester competent, then the following events for semester 2. At this time is to be learned about pemograman based grapich and will be introduced next harware on the computer and mobile phone technology.

Session 1:
Introduction to the installation of mobile phone applications:
Nokia PC Switch
MotoMidLet

Sms management on the introduction of mobile phones:
Simoco
Nokia PC Switch

Session 2:
Introduction to objects on Delphi:
Showmessage
RadioButton
CheckBox

Session 3:
ScrollBar
MainMenu
Timer

Session 4:
Simple Calculator
Edit Mask

Session 5:
Using Database Desktop
Database Link To Form
Viewing Table

Aplikasi Program 1

2008-12-24T05:14:00.002-08:00

Aplikasi program adalah pelajaran yang membahas mengenai pemograman dan aplikasinya pada teknik interfacing. Selain dari pada itu diperkenalkan juga mengenai hardware komputer dan teknologi handphone. Jadi secara umum materi yang akan dipelajari pada Mata Diklat "Aplikasi Program" meliputi basic pemogran (console dan GUI), interfacing, dan pengenalan teknologi komputer dan handphone.
Berikut adalah agenda kegiatan yang direncanakan dalam Semester Ganjil:

Pertemuan 1:
Algoritma

Pertemuan 2:
Tipe Data
Operator
QUIZ 1

Pertemuan 3:
Penggunaan sintak output output

Pertemuan 4:
QUIZ 2
Tes Kopetensi

Pertemuan 5:
Pernyataan pilihan IF
Pernyataan pilihan Case

Pertemuan 6:
QUIZ 3
Tes Kopetensi

Pertemuan 7:
Pernyataan pengulangan For

Pertemuan 8:
Pernyataan pengulangan While dan Repeat

Pertemuan 9:
QUIZ 4
Tes Kopetensi

Pertemuan 10:
Procedure
Array

Pertemuan 11:
QUIZ 5
Tes Kopetensi
Function

Pertemuan 12:
QUIZ 6
Tes Kopetensi

Pertemuan 13-15:
Pembuatan Individual project
Pengenalan sintak input output C/C++

Pertemuan 16-17:
Pengenalan sintak if dan switch case

Pertemuan 18:
Pengenalan sintak for dan while
Remedial Tes Kopetensi

Petemuan 19-20:
Presentasi Individual Priject
Remedial Tes Kopetensi

Forum Bimbingan

2008-12-10T07:00:00.000-08:00

Kegiatan Ujian:

1. Uji Kopetensi

Dalam uji kopetensi ada dua berkas yang harus di buat, yaitu proposal dan laporan. <Ralat: tidak perlu buat Proposal dan Laporan >

2. Uji Sidang

Ujian sidang adalah ujian pelaporan kegiatan PRAKERIN.

Silahkan posting disini untuk mebahas persoalan seputar perisapan Uji Kompetensi, Pembuatan Laporan dan Sidang.

Update On 12 Februari 2009

Jadwal kegiatan Ujian Sekolah 2009:

1. a. Ujian Teori Kejuruan Utama --> (Selasa, 24 Maret 2009 | Pukul 08.00 s.d 10.00)
1. b. Ujian Teori Kejuruan Susulan --> (Senin , 4 April 2009 | Pukul 08.00 s.d 10.00)

2. a. Ujian Praktek Kejuruan Utama --> (Rabu , 3 Maret 2009 s.d Sabtu 21 Maret 2009)
1. b. Ujian Praktek Kejuruan Susulan --> (Rabu , 1 April 2009 s.d Kamis 2 April 2009)

3. Sidang Prakerin --> (Senin , 23 Maret 2009 s.d Selasa 31 Maret 2009)

Untuk kls 4 TeTrans:
Harap segera menentukan judul Ujian Praktek Kejuruan berikut adalah pilihan soalnya:
1. Modulator TV VHF

2. Modulator PAM

3. Pemancar FM Stereo

Penentuan judul disampaikan kpd jurusan Teknik Transmis SMKN 1 Cimahi.
Atau via e-mail:
Drs. Sutoyo Indarjito, MT (toyoind@yahoo.com)
Yuyus Wisnurat,S.Pd (u2s_1979@yahoo.com)
Agus Nugroho, S.Pd,MT (starnoegh@yahoo.com)

dengan format pesan:

Nama:
Kelas:
Judul:

NB: kisi-kisi ujian download disini

Download Compiler C

2008-11-24T06:15:00.000-08:00

Bahasa C sangat menarik untuk dipelajari, pokoknya seru abizz deh. Disini saya ingin sekali berbagi mengenai bagaimana cara menggunaankan bahasa C. Lumayan lah ...buat pemula. Tapi sebelumnnya, kamu bisa download dulu compiler untuk latihannya.

Kebetulan yang saya miliki saat ini yang versi Windows, kalau mau download DISNIS. Untuk fitur dan penggunaanya bisa download DISINI.
Selamat mencoba

Procedure

2008-11-19T21:30:00.000-08:00

Dengan penggunaan procedure pembuatan program akan lebih efektif dan sederhana, karena cukup dengan memanggil nama procedure saja maka program yang ada di dalamnya akan dieksekusi. Selain itu jadi lebih mudah dalam melacak kesalahan program.
Bagaimana cara kerja procedure...?
Dimana letak penulisan procedure...?
Dan seperti apa list program yang menggunakan procedure...?
Jawabannya ada DISINI.

Penggunaan Array

2008-11-19T21:26:00.000-08:00

Array adalah variabel yang beindeks. Hmm... maksudnya tau gak. Variabel biasanya hanya bisa diisi dengan satu data saja. Nah lain halnya dengan array, satu varibel dapat diisi dengan beberapa cara. Masih bingung...
Begini ilustrasinya...

Misalkan varibel 'nama' dideklarasikan sebagai variabel array dengan banyak indeknya 5, maka variabel nama memungkin berisi data
nama[1]:='Ajun';
nama[2]:='Bahrud';
nama[3]:='Dadang';
nama[4]:='Joe';
nama[5]:='Tommy;'

Angka yang berada didalam kurung siku [] adalah nomor indek. Okelah supaya lebih jelas download contoh programnya DISINI.

Pengulangan program

2008-11-19T21:22:00.001-08:00

Pengulangan program dirancang untuk mengulang - ulang suatu sintak atau kumpulan program yang akan dieksekusi. for..to..do, while..do, dan repeat..until adalah sintak pengulangan yang digunakan dalam bahasa pemograman pascal. Cara penggunaan ketiga sintak tersebut sangat sederhana. Pada prinsipnya cara kerja dan fungsinya tidak jauh berbeda.
Contoh penggunaan for..to..do bisa di download DISINI.
Sedangkan untuk contoh while..do dan repeat..until download DISINI.

Pernyataan Pilihan

2008-11-19T21:22:00.000-08:00

Pernyataan pilihan merupakan program yang digunakan untuk memilih salah satu kondisi dengan berpatokan pada kondisi seleksi. Dua sintak yang akan digunakan yaitu if..then..else dan case..of.

Format penulisan if..then..else adalah seperti berikut:

if then
else

Dan format penulisan case..of adalah seperti berikut:
case of
label:;
labe2:;
else ;
end;

Terlihat jelas perbedaannya antara penggunaan if..then..else dan case..of. Pada if hanya bisa menggunakan dua pernyataan dan pada case..of bisa digunakan lebih dari dua pernyataan.
Supaya lebih jelas, coba contoh programnya DISINI.

Input Output

2008-11-19T21:21:00.000-08:00

Ada 2 sintak yang digunakan sebagai input dan output pada pemograman Pascal. WRITE digunakan untuk menampilkan data output program dan READ digunakan untuk membaca data input program.

Ada dua fungsi cara menampilkan data, yaitu dengan sintak WRITE dan WRITELN. Perbedaan keduanya hanya akan berpengaruh pada posisi kursor sesaat setelah sintak dieksekusi. Begitu pula dengan sintak untuk membaca data. Bisa menggunakan READ atau READLN. Supaya lebih jelas, coba beberapa contoh list program yang bisa di download DISINI.
Selamat mencoba ;)

Tipe Data

2008-11-19T20:53:00.000-08:00

Pembuatan sebuah program tidak akan terlepas dengan masalah pengolahan data. Secara umum data dapat dikelompkkan menjadi dua, yaitu data angka (numeric) dan data huruf (string). Sehingga , sebelum melakukan praktikum pembuatan program sebaiknya pelajari dulu macam-macam tipe data yang digunakan dalam pembuaatan program.
Selengkapnya tentang tipe data dapat di download DISINI.