Universitas Gunadarma
Archive for Juni 2016
Program Hitungan Motor AC Procedure Menggunakan Pascal
program hitungan_mesin_induksi;
uses crt;
var
menu : integer;
ulang : char;
I1,V1,ztot : real;
Pcus,I,R1:real;
Pcs,I0,R0:real;
Efs,P0,PIN:real;
procedure Arus_stator;
begin
repeat
clrscr;
writeln ('Menghitung Arus stator');
write ('Masukan Nilai tegangan :');readln(V1);
write ('Masukan Nilai Impedansi Total :');readln(Ztot);
writeln ('Rumus : V1/Ztot');
I1:=V1/Ztot;
writeln ('Arus Stator Adalah :',I1:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure Rugi_tembaga_stator;
begin
repeat
clrscr;
writeln ('Menghitung rugi tembaga stator');
write ('Masukan Nilai arus:');readln (I1);
write ('Masukan Nilai hambatan :');readln(R1);
writeln ('Rumus : I1^2*R1');
Pcus:=I1*I1*R1;
writeln ('rugi tembaga stator adalah :',Pcus:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure rugi_inti_stator;
begin
repeat
clrscr;
writeln ('Menghitung rugi inti stator');
write ('Masukan Nilai arus :');readln (I0);
Write ('Masukkan Nilai hambatan:');readln(R0);
writeln ('Rumus : I0^2*R0');
Pcs:=I0*I0*R0;
writeln ('rugi inti stator adalah :',Pcs:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure Efisiensi;
begin
repeat
clrscr;
writeln ('Menghitung nilai efisiensi ');
write ('Masukan Nilai daya output:');readln (P0);
write ('Masukan Nilai daya input:');readln(Pin);
writeln ('Rumus : P0*100%/Pin');
efs:=P0*100/Pin;
writeln ('jadi nilai efisiensi adalah :',efs:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure menu_utama;
begin
clrscr;
writeln ('Menu Utama');
writeln ('1. Arus Stator');
writeln ('2. Rugi tembaga stator');
writeln ('3. Rugi inti stator');
writeln ('4. Efisiensi');
writeln ('5. keluar');
writeln;
write ('Pilih Menu :');readln(menu);
case menu of
1: begin
Arus_stator;
menu_utama;
end;
2:begin
Rugi_tembaga_stator;
menu_utama;
end;
3:begin
Rugi_inti_stator;
menu_utama;
end;
4: begin
Efisiensi;
menu_utama;
end;
5:end;
end;
begin
clrscr;
menu_utama;
end
Menu
uses crt;
var
menu : integer;
ulang : char;
I1,V1,ztot : real;
Pcus,I,R1:real;
Pcs,I0,R0:real;
Efs,P0,PIN:real;
procedure Arus_stator;
begin
repeat
clrscr;
writeln ('Menghitung Arus stator');
write ('Masukan Nilai tegangan :');readln(V1);
write ('Masukan Nilai Impedansi Total :');readln(Ztot);
writeln ('Rumus : V1/Ztot');
I1:=V1/Ztot;
writeln ('Arus Stator Adalah :',I1:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure Rugi_tembaga_stator;
begin
repeat
clrscr;
writeln ('Menghitung rugi tembaga stator');
write ('Masukan Nilai arus:');readln (I1);
write ('Masukan Nilai hambatan :');readln(R1);
writeln ('Rumus : I1^2*R1');
Pcus:=I1*I1*R1;
writeln ('rugi tembaga stator adalah :',Pcus:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure rugi_inti_stator;
begin
repeat
clrscr;
writeln ('Menghitung rugi inti stator');
write ('Masukan Nilai arus :');readln (I0);
Write ('Masukkan Nilai hambatan:');readln(R0);
writeln ('Rumus : I0^2*R0');
Pcs:=I0*I0*R0;
writeln ('rugi inti stator adalah :',Pcs:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure Efisiensi;
begin
repeat
clrscr;
writeln ('Menghitung nilai efisiensi ');
write ('Masukan Nilai daya output:');readln (P0);
write ('Masukan Nilai daya input:');readln(Pin);
writeln ('Rumus : P0*100%/Pin');
efs:=P0*100/Pin;
writeln ('jadi nilai efisiensi adalah :',efs:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;
procedure menu_utama;
begin
clrscr;
writeln ('Menu Utama');
writeln ('1. Arus Stator');
writeln ('2. Rugi tembaga stator');
writeln ('3. Rugi inti stator');
writeln ('4. Efisiensi');
writeln ('5. keluar');
writeln;
write ('Pilih Menu :');readln(menu);
case menu of
1: begin
Arus_stator;
menu_utama;
end;
2:begin
Rugi_tembaga_stator;
menu_utama;
end;
3:begin
Rugi_inti_stator;
menu_utama;
end;
4: begin
Efisiensi;
menu_utama;
end;
5:end;
end;
begin
clrscr;
menu_utama;
end
Menu
FLOWCHART PROGRAM HITUNGAN MESIN INDUKSI
Penjelasan
Flowchart
Pada program procedure
ini, saya mencoba untuk membuat perhitungan motor induksi .Program Procedure berada
di atas dari menu,yang memiliki empat menu yaitu kecepatan stator,slip,frekuensi
rotor dan Torsi Beban penuh. Ketika program di jalankan pengguna akan di suruh
untuk memasukan nilai pole,frekuensi,slip dan kecepatan rotor yang sudah di
ketahui sesuai dengan rumus. dan
selanjutnya program di jalankan mulai dengan memasukkan rumus masing-masing
program yang sudah ada dimenu pilihan kemudian kita dilanjutkan dengan memilih
menu apa yang kita mau pilih.Jika kita sudah memilih menu akan dilanjutakn
dengan pemnrosesan rumus yang sudah di masukkan pada awal program.kemudian kita
tinggal memasukkan nilai yang kita inginkan dengan rumus yang sudah tersedia.Sehingga
kita akan mendapatkan hasilnya.
Program Pascal Tingkatan Daya motor Induksi Menggunakan Function
Uses Crt;
Function Daya motor induksi
(arus:integer;hambatan:integer;slip:integer):real;
Function Tingkatan motor induksi
(Daya):real;
Var
Nilai R, Nilai I, Nilai slip:
integer;
Nilai Daya:Real
Begin
Clrscr;
Write (‘Masukkan Nilai R.I:’);
Readln (Nilai R.I);
Write (‘Masukkan Nilai S;’);
Readln(‘Nilai S);
Nilai Daya :=(I^2.R);
Writeln(‘Nilai Rugi-rugi =’,Nilai
Daya);
IF Nilai daya =Pcur Rugi
tembaga rotor
Writeln(’Hasil=lanjut’)
IF Nilai Daya = P2 Daya yang masuk
rotor
Writeln (‘Hasilnya=Lanjut’)
IF Nilai P2 = Pin Daya Input
Writeln (‘Hasilnya = Berhenti’)
Else
Writeln (’Hasilnya=Berhenti’);
Readln;
End.
Logika Program Tingkatan daya Motor Induksi
Pada program function ini, saya
mencoba untuk membuat perhitungan tingkatan daya motor induksi .Program
function berada di atas dari program utama,yang memiliki dua fungsi yaitu
fungsi daya dan fungsi penyusun daya. Ketika program di jalankan pengguna akan
di suruh untuk memasukan nilai hambatan,arus,slip dan daya-daya yang sudah di
ketahui nilainya. dan selanjutnya
program di jalankan mulai daya output dan rugi-rugi angin dan gesekan yang
kemudian program akan lanjut ke dalam daya roto,kemudian dari daya rotor ini
akan di lanjutkan ke dalam P2 daya yang masuk ke rotor dengan penambahan dengan
nilai rugi tembaga rotor yang sudah di ketahui nilainya sehingga akan di
dapatkan nilai daya yang masuk ke rotor,kemudian di tambahkan dengan dengan
inti stator tembaga stator dan pada akhirnya di dapatkan Daya input.dan pada
kahirnya proses pencarian Tingkatan Daya motor Induksi tersebut akan di
tampilkan ke dalam layar output.
