program menentukan_jumlah_kebutuhan_lampu_pada_instalasi_gedung;
uses crt;
var
E,P,L,Q,LLF,CU,N : real;
pilihan, pilihan2 : string ;
clrscr;
writeln('program menentukan jumlah kebutuhan lampu pada instalasi gedung');
writeln(' ');
writeln(' ');
write('masukkan nilai E (kuat penerangan) : ' );
readln(E);
write('masukkan nilai P (panjang gedung) : ' );
readln(P);
write('masukkan nilai L (lebar gedung) : ' );
readln(L);
write('masukkan nilai LLF (faktor cahaya rugi(0.7-0.8)) : ' );
readln(LLF);
write('masukkan nilai CU (faktor pemanfaatan (50%-65%)) : ' );
readln(CU);
write(' apakah anda ingin menghitung jumlah kebutuhan lampu? (y atau t);
readln(pilihan);
if(pilihan = 'y' ) then
begin
write (' masukkan nilai Q ( lamp luminous flux : ' );
readln(Q);
N := (E*P*L) / (Q*LLF*CU);
write('nilai N=', N : 2: 3, ' titik ' );
end
else if (pilihan = 't') then
write ('tidak dapat menghitung');
end
else
begin
write('salah input');
end;
readln;
end.
 | |
| HASIL PROGRAM |
 |
| FLOWCHART |
SUMBER PUIL 2000
Private Sub Command1_Click()
Text7.Text = (Text1.Text * Text2.Text * Text3.Text) / (Text4.Text * Text5.Text * Text6.Text)
End Sub
Private Sub Command2_Click()
Text10.Text = Text8.Text * Text9.Text
End Sub
Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Terima Kasih", vbInformation, "Informasi"
End Sub
SUMBER: PUIL2000
Text7.Text = (Text1.Text * Text2.Text * Text3.Text) / (Text4.Text * Text5.Text * Text6.Text)
End Sub
Private Sub Command2_Click()
Text10.Text = Text8.Text * Text9.Text
End Sub
Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Terima Kasih", vbInformation, "Informasi"
End Sub
SUMBER: PUIL2000