RECTIFIER AC TO DC (PENYEARAH AC KE DC)

PENYEARAH SETENGAH GELOMBANG (HALF WAVE)

gambar 1 : rangkaian penyearah setengah gelombang

Analisa Rangkaian

Input pada rangkaian tersebut adalah arus bolak balik (Alternating Current). Dan dihasilkan output arus searah (Direct Current), karena hanya menggunakan 1 buah dioda. Dioda tersebut berfungsi sebagai penyearah. Saat siklus positif (aliran tegangan positif) arus dapat melewati dioda (diteruskan ke R1), sehingga gelombang pada siklus positif keluar sebagai output. Namun saat siklus negatif, arus tidak mengalir, karena terhalang dioda. Oleh karena itu outputnya bernilai nol. Siklus positif dan negatif berlangsung secara terus menerus, sehingga didapat bentuk gelombang keluaran berupa bukit tanpa lembah. Selang antar bukit itulah jeda yang disebabkan siklus negatif tidak dapat mengalir karena adanya dioda, sehingga gelombang keluaran hanya setengah gelombang. Oleh karena itulah, rangkaian di atas disebut rangkaian penyearah setengah gelombang. (frekwensi input = 2 x frekwensi output)

PENYEARAH GELOMBANG PENUH (FULL WAVE) DENGAN TRANSFORMATOR CENTRE TAP (CT)

gambar 2 : rangkaian penyearah gelombang penuh

Analisa Rangkaian

Adanya 2 dioda menyebabkan CT menjadi common ground. Siklus dari CT tidak mengalir karena terhalang oleh kedua dioda. Sedangkan dua siklus yang lainnya diteruskan ke Resistor 1 dengan arah yang sama. Sehingga, gelombang keluaran semuanya berupa bukit (input berupa gelombang sinusoidal / AC). Oleh karena itu, rangkaian diatas dinamakan penyearah gelombang penuh dengan Transformator Centre Tap. Karena, rangkaian pertama di atas pun dapat menjadi penyearah gelombang penuh, dengan menggunakan 4 buah dioda.

Walaupun aotputnya sudah berupa DC, namun keluarannya belum efektif, karena tegangan ripplenya masih cukup besar. (pada gambar 4 di bawah dapat dilihat Vr/tegangan ripple yang lebih efektif dari tegangan di atas.)

PENYEARAH SETENGAH GELOMBANG DENGAN FILTER KAPASITOR

gambar 3 : rangkaian penyearah setengah gelombang dengah filter C

Analisis Rangkaian

Yang membedakan rangkaian gambar 3 dengan gambar 1 adalah adanya capasitor sebagai filter. Saat siklus positif, capasitor melakukan pengisian bersamaan dengan terjadinya output siklus positif. Dan saat siklus negatif kapasitor melakukan pembuangan karena siklus negatif tidak mengalir. Sehingga jarak antar bukit pada rangkaian ini dihubungkan oleh garis miring/ kurva b-c yang merupakan hasil pembuangan kapasitor (tegangan capasitor). Adanya filter inilah yang membuat tegangan keluaran lebih efektif karena tegangan ripple yang kecil. Tegangan ripple secara matematis dapat dihitung dengan rumus :

V_r = V_M -V_L …....... (1)

gambar 4 : bentuk gelombang dengan filter kapasitor

PENYEARAH GELOMBANG PENUH DENGAN FILTER C

gambar 5 : rangkaian penyearah gelombang penuh dengan filter C

Analisis Rangkaian

Berbeda dengan penyearah gelombang penuh dengan menggunakan Transformator CT. Pada rangkaian kali ini menggunakan transformator tanpa CT, dengan penyearah 4 buah dioda. Silahkan ikuti alur dari masing-masing siklus. Keduanya akan masuk keluar dengan arah yang sama dan berakhir di lawan potensialnya. Sehingga bentuk gelombang keluaran semuanya berupa bukit (tegangan positif). Dan adanya kapasitor membuat tegangan ripple kecil. Kapasitor melakukan pembuangan saat terjadi pergantian siklus. Dan melakukan pengisian saat arus dari kedua potensial yang disearahkan tersebut mengalirinya. Untuk mendapatkan tegangan output yang lebih efektip anda dapat menggunakan filter phi. Yaitu dengan menambah satu kapasitor lagi (dipasang paralel, agar nilai kapasitansi bertambah, sehingga waktu buang semakin lama dan gelombang pun akan nyaris lurus), dan satu induktor. Dari hasil percobaan yang saya lakukan. Nilai R1 pun mempengaruhi keefektifan tegangan output. Dari percobaan, R1 yang bernilai 1,5 KOhm menghasilkan gelombang keluaran yang lebih efektif (gelombang nyaris lurus) , dibandingkan dengan menggunakan R1 yang bernilai 100 Ohm.

Bandung, 25 Februari 2008
Ajie Jamaludin
Mechatronics Engineering

Read more

PROGRAM DATA NILAI MAHASISWA

{****************************************************************************
PROGRAM DAFTAR NILAI MAHASISWA
LATIHAN MENGGUNAKAN ARRAY
*****************************************************************************}
PROGRAM DAFTAR_NILAI_MAHASISWA;
USES CRT;

CONST GRS='------------------------------------------------------------------------------';

TYPE TABEL=ARRAY[1..24]OF REAL;
TABLE=ARRAY[1..24]OF STRING;
TAB=ARRAY[1..24]OF LONGINT;
VAR CON:STRING[1];
NM,KET:TABLE;
NIM:TAB;
UTS,UAS,HSL:TABEL;
Z: INTEGER;
JML: INTEGER;

{*****************************************************************************
PROCEDURE UNTUK TAMPILAN HEADER. BERUPA INFORMASI TENTANG NAMA PROGRAM DAN
INFORMASI LAINNYA
*****************************************************************************}
PROCEDURE HEADER;
BEGIN
CLRSCR;
TEXTCOLOR(GREEN);
GOTOXY(26,2);WRITELN('PROGRAM DATA NILAI MAHASISWA');
GOTOXY(29,3);WRITELN('MADE BY AJIE JAMALUDIN');
GOTOXY(19,4);WRITELN('TEKNIK OTOMASI MANUFAKTUR DAN MEKATRONIKA');
GOTOXY(22,5);WRITELN('POLITEKNIK MANUFAKTUR NEGERI BANDUNG');
WRITELN('================================================================================');
TEXTCOLOR(18);GOTOXY(29,23);WRITELN('FULL SCREEN : ALT+ENTER'); TEXTCOLOR(GREEN);
END;
{*****************************************************************************
PROCEDURE UNTUK MENAMPILKAN FIELD-FIELD UNTUK MEMASUKKAN DATA
*****************************************************************************}
PROCEDURE INPUT_DATA;
BEGIN
CLRSCR;
HEADER;
GOTOXY(15,10);WRITELN('NO : ', Z);
GOTOXY(15,11);WRITELN('NAMA : ');GOTOXY(30,11);READLN(NM[Z]);
GOTOXY(15,12);WRITELN('NIM : ');GOTOXY(30,12);READLN(NIM[Z]);
GOTOXY(15,13);WRITELN('NILAI UTS : ');GOTOXY(30,13);READLN(UTS[Z]);
GOTOXY(15,14);WRITELN('NILAI UAS : ');GOTOXY(30,14);READLN(UAS[Z]);
END;

{*****************************************************************************
PERHITUNGAN
*****************************************************************************}
PROCEDURE PERHITUNGAN;
BEGIN
FOR Z:=1 TO JML DO
BEGIN
HSL[Z]:=(UTS[Z]+UAS[Z])*0.5;
IF (HSL[Z]>=85) AND (HSL[Z]<100)THEN KET[Z]:='A' ELSE
IF (HSL[Z]>=75) AND (HSL[Z]<85)THEN KET[Z]:='B' ELSE
IF (HSL[Z]>=60) AND (HSL[Z]<75)THEN KET[Z]:='C' ELSE
IF (HSL[Z]<60)>=0) THEN KET[Z]:='E' ELSE
IF (HSL[Z]>100) OR (HSL[Z]<0) THEN KET[Z]:='WRONG';
END;
END;
{*****************************************************************************
PROGRAM UTAMA
*****************************************************************************}
BEGIN
REPEAT
CLRSCR;
HEADER; GOTOXY(20,10);WRITELN('MASUKKAN JUMLAH MAHASISWA :');GOTOXY(48,10);READLN(JML);
CLRSCR;
BEGIN
FOR Z:=1 TO JML DO
INPUT_DATA;
END;
PERHITUNGAN;
CLRSCR;HEADER;
TEXTCOLOR(RED);
GOTOXY(2,8);WRITELN(GRS);
GOTOXY(2,9);WRITE('NO');
GOTOXY(10,9);WRITE('NAMA');
GOTOXY(27,9);WRITE('NIM');
GOTOXY(37,9);WRITE('UTS');
GOTOXY(45,9);WRITE('UAS');
GOTOXY(52,9);WRITE('NILAI AKHIR');
GOTOXY(69,9); WRITE('NILAI MUTU');
GOTOXY(2,10); WRITELN(GRS);
FOR Z:=1 TO JML DO
BEGIN
TEXTCOLOR(GREEN);
GOTOXY(3,Z+10); WRITE(Z);
GOTOXY(6,Z+10); WRITE(NM[Z]);
GOTOXY(24,Z+10); WRITE(NIM[Z]);
GOTOXY(36,Z+10); WRITE(UTS[Z]:0:2);
GOTOXY(44,Z+10); WRITE(UAS[Z]:0:2);
GOTOXY(55,Z+10); WRITE(HSL[Z]:0:2);
GOTOXY(74,Z+10); WRITE(KET[Z]);
END;
TEXTCOLOR(RED);GOTOXY(2,JML+11);WRITELN(GRS);
READLN;
GOTOXY(41,24);READLN;
CLRSCR; TEXTCOLOR(GREEN);GOTOXY(30,17);WRITELN('MENGULANG ? (y,t)');GOTOXY(48,17); READLN(CON);
UNTIL (CON='t') or (CON='T');

END.

Read more

LAT PASCAL, TES BERAT BADAN IDEAL

program penguji_berat_badan_ideal;

uses crt;

var bb,tb:integer;

min,max:real;

nm,pil:string;

begin

repeat

begin

repeat

begin

clrscr;

textcolor(GREEN);

gotoxy(27,3); writeln('PENGUJI BERAT BADAN IDEAL');

gotoxy(28,4); writeln('MADE BY: AJIE JAMALUDIN');

gotoxy(20,5); writeln('TEKNIK OTOMASI MANUFAKTUR DAN MEKATRONIKA');

gotoxy(23,6); writeln('POLITEKNIK MANUFAKTUR NEGERI BANDUNG');

writeln('================================================================================');

gotoxy(7,9); textcolor(18);writeln('PROGRAM AKAN TERULANG JIKA DATA YANG DIMASUKKAN TIDAK MEMUNGKINKAN');

gotoxy(15,8); writeln('HANYA UNTUK YANG MEMILIKI TINGGI BADAN >= 110 CM');

gotoxy(29,25);textcolor(18); writeln('FULLSCREEN : Alt+Enter');

gotoxy(15,11);textcolor(green); writeln('MASUKKAN NAMA ANDA : ');

gotoxy(44,11); readln(nm);

gotoxy(15,12); writeln('MASUKKAN BERAT BADAN ANDA : ');

gotoxy(48,12); writeln('Kg');

gotoxy(44,12); readln(bb);

gotoxy(15,13); writeln('MASUKKAN TINGGI BADAN ANDA :');

gotoxy(48,13); writeln('cm');

gotoxy(24,25); writeln('TEKAN ENTER JIKA ENTRI DATA SELESAI');

gotoxy(44,12); readln(tb);

CLRSCR;

gotoxy(27,3); writeln('PENGUJI BERAT BADAN IDEAL');

gotoxy(28,4); writeln('MADE BY: AJIE JAMALUDIN');

gotoxy(20,5); writeln('TEKNIK OTOMASI MANUFAKTUR DAN MEKATRONIKA');

gotoxy(23,6); writeln('POLITEKNIK MANUFAKTUR NEGERI BANDUNG');

writeln('================================================================================');

gotoxy(25,9); writeln('NAMA ANDA : ',nm);

gotoxy(25,10); writeln('BERAT BADAN ANDA : ',bb); gotoxy(49,10); write('Kg');

gotoxy(25,11); writeln('TINGGI BADAN ANDA : ',tb); gotoxy(49,11); write('cm');

end;

until ((tb-100)-(0.1*(tb-100))>=0) and (tb>=110);

begin

max:=(tb-100)+0.1*(tb-100);

min:=(tb-100)-0.1*(tb-100);

if bb>max

then

begin textcolor(red); gotoxy(20,18); writeln('Anda Kelebihan Berat Badan. Diet Donkk..');end

else

if bb

else

begin textcolor(blue); gotoxy(25,16); writeln('Selamat. Berat Badan Anda Ideal');end

end;

textcolor(green); gotoxy(17,19); writeln('RENTANG BERAT BADAN IDEAL ANDA ANTARA ',min:0:1);

gotoxy(59,19); writeln(' sd ',max:0:1);

repeat gotoxy(30,21); writeln('MENGULANG? (y,t) :');

gotoxy(50,21); readln(pil); until (pil='t') or (pil='y');

end;

until (pil='t') or (pil='T');

end.

Read more

LATIHAN PASCAL, MENGURUTKAN ANGKA

PROGRAM MENGURUTKAN_ANGKA;

USES CRT;

VAR PIL:SHORTINT;

Z,A,B,C,D,E,F:LONGINT;

CON,PLH:STRING[1];

BEGIN

REPEAT

CLRSCR;TEXTCOLOR(GREEN);

GOTOXY(27,2);WRITELN('PROGRAM MENGURUTKAN ANGKA');

GOTOXY(29,3);WRITELN('MADE BY AJIE JAMALUDIN');

GOTOXY(19,4);WRITELN('TEKNIK OTOMASI MANUFAKTUR DAN MEKATRONIKA');

GOTOXY(22,5);WRITELN('POLITEKNIK MANUFAKTUR NEGERI BANDUNG');

WRITELN('================================================================================');

TEXTCOLOR(18);GOTOXY(29,23);WRITELN('FULL SCREEN : ALT+ENTER');

TEXTCOLOR(GREEN);

GOTOXY(18,9); WRITELN('MASUKKAN ANGKA PERTAMA : ');GOTOXY(43,9);READLN(A);

GOTOXY(18,10);WRITELN('MASUKKAN ANGKA KEDUA : ');GOTOXY(43,10);READLN(B);

GOTOXY(18,11);WRITELN('MASUKKAN ANGKA KETIGA : ');GOTOXY(43,11);READLN(C);

GOTOXY(18,12);WRITELN('MASUKKAN ANGKA KEEMPAT : ');GOTOXY(43,12);READLN(D);

GOTOXY(18,13);WRITELN('MASUKKAN ANGKA KELIMA : ');GOTOXY(43,13);READLN(E);

BEGIN

IF A>B THEN

BEGIN

Z:=A;A:=B;B:=Z;

END;

IF A>C THEN

BEGIN

Z:=A;A:=C;C:=Z;

END;

IF A>D THEN

BEGIN

Z:=A;A:=D;D:=Z;

END;

IF A>E THEN

BEGIN

Z:=A;A:=E;E:=Z;

END;

IF B>C THEN

BEGIN

Z:=B;B:=C;C:=Z;

END;

IF B>D THEN

BEGIN

Z:=B;B:=D;D:=Z;

END;

IF B>E THEN

BEGIN

Z:=B;B:=E;E:=Z;

END;

IF C>D THEN

BEGIN

Z:=C;C:=D;D:=Z;

END;

IF C>E THEN

BEGIN

Z:=C;C:=E;E:=Z;

END;

IF D>E THEN

BEGIN

Z:=D;D:=E;E:=Z;

END;

END;

GOTOXY(18,15);WRITELN('KETIK 1 UNTUK URUTAN DARI KECIL KE BESAR');

GOTOXY(18,16);WRITELN('KETIK 2 UNTUK URUTAN DARI BESAR KE KECIL');

GOTOXY(36,17);WRITELN('( )');GOTOXY(38,17);READLN(PIL);

BEGIN

GOTOXY(18,15);CLREOL;GOTOXY(18,16);CLREOL;

GOTOXY(32,17);WRITELN('URUTANNYA ADALAH');

CASE PIL OF

1:WRITELN(A:10,B:10,C:10,D:10,E:10);

2:WRITELN(E:10,D:10,C:10,B:10,A:10);

END;

GOTOXY(41,24);READLN;

CLRSCR; GOTOXY(30,17);WRITELN('MENGULANG ? (y,t)');GOTOXY(48,17); READLN(CON);

END;

UNTIL (CON='t') or (CON='T');

END.

Read more