Latest Entries »

Kawan-Kawanku ini modul Interpersonal Skill dari Kelas Eksekutif..

Semoga Bermanfaat..

Klik dibawah ->

[Download]

Carol Baines telah menikah selama 20 tahun dengan pemilik Baines Company hingga suaminya meninggal dalam kecelakaan mobil. Setelah kematiannya, Carol memutuskan untuk tidak menjual bisnis suaminya itu. Dia mencoba untuk menjalankannya sendiri. Sebelum kecelakaan, keterlibatan dia dalam bisnis hanya bentuk diskusi tidak resmi dengan suaminya saat makan malam, walaupun dia memiliki gelar sarjana dalam bidang bisnis, dengan peminatan dalam bidang manajemen.

Perusahaan Baines adalah salah satu dari tiga toko pemasok alat kantor di kota dengan populasi 200.000 orang. Dua toko lainnya dimiliki oleh jaringan bisnis nasional. Baines bukan perusahaan besar, dan hanya memperkerjakan lima karyawan. Baines memiliki tingkat penjualan yang stabil, yaitu sekitar $200.000 per tahun,  melayani teutama perusahaan kecil dikota. Perusahaan itu tidak berkembang selama bertahun-tahun dan mulai merasakan tekanan dari iklan dan harga murah toko jaringan nasional.

Untuk enam bulan pertama, Carol menghabiskan waktunya untuk membiasakn dirinya  dengan karyawan dan kegiatan operasional perusahaan. Lalu, dia melakukan analisis tentang perusahaan di kota itu yang memiliki alas an untuk membeli peralatan kantor. Berdasarkan pemahamannya tentang kemampuan perusahaan dan penilaian dia tentang pasar potensial untuk produk dan layana mereka, Carol mengembangkan sejumlah tujuan jangka panjang dan pendek untuk perusahaan. Dia balik semua perencanaannya, Carol memiliki visi bahwa Baines mampu bertahan hidup, sehat, kompetitif. Dia ingin meneruskan bisnis yang telah dimulai mendiang suaminya, tetapi lebih dari itu, dia menginginkan perusahaan itu maju.

Selama lebih dari 5 tahun pertama, Carol melakukan banyak investasi dalam periklanan, penjualan, dan layanan. Upaya ini memberi hasil karena perusahaan mulai menunjukan pertumbuhan yang cepat. Karena pertumbuhan itu, perusahaan harus memperkejakan 20 orang lagi.

Ekspansi di Baines itu sangat luar biasa karena ada masalah besar lain yang harus dihadapi Carol. Carol didiagnosis menderita kanker payudara setahun setelah suaminya meninggal. Perawatan untuk kankernya termasuk dua bulan terapi radiasi dan 6 bulan kemoterapi yang sangat kuat. Walaupun dia kehilangan rambut dan merasa sangat lelah sebagai dampak lain dari perawatan itu, Carol terus mengelola perusahaan. Terlepas dari kesulitan yang dia alami, Carol itu sukses. Di bawah kekuatan kepemimpinannya, pertumbuhan Baines berlanjut selama 10 tahun berikutnya.

Wawancara dengan karyawan baru dan lama di Baines mengungkapkan banyak hal tentang kepemimpinan Carol. Karyawan berkata, Carol adalah orang yang sangat tegas. Dia sangat peduli dengan orang lain dan adil serta baik hati. Mereka mengatakan, dia menciptakan suasana kekeluargaan di Baines. Sedikit karyawan yang keluar dari Baines sejak carol mengambil ali, Carol setia kepada semua karyawannya, dan dia mendukung kepentingan mereka. Contoh, perusahaan mensponsori tim softball di musim panas dan tim basket di musim dingin. Yang lain menggambarkan Carol sebagai orang yang kuat. Walaupun dia menderita kanker, di terus bersikappositif dan tertarik dalam bisnis. Dia tidak menjadi tertekan karena kanker dan dampak sampingnya, walaupun menghadapi penyakit kanker itu sangat sulit. Karyawan berkata, dia adalah model kekuatan,kebaikan, dan kualitas.

Di usia 55 tahun, Carol mengalihkan bisnis ke dua putranya. Dia tetap bertindak sebagai presiden tetapi tidak mengawasi kegiatan operasional harian. Perusahaan mendapatkan lebih dari $3,1 miliar penjualan, dan memperlebar tokonya hingga melebihi dua toko saluran nasional lain yang ada di kota itu.

Terima Kasih sudah Mengunjungi Blog saya…

Klik link dibawah ini..!!

[ Buku Tamu ]

Selamat Berkunjung dan Bergabung ……

Frame.html

<html>
<head>
<title> Frame Set Created By Rony </title>

</head>

<frameset rows = “23%,7%,*,5%”>
<frame src = “judul.html”>
<frame src = “menu datar.html”>
<frameset border = “1” cols = “10%,90%”>
<frame src = “daftar.html”>
<frame src = “home.html” name=”dinamis”>
</frameset>
<frame src = “footer.html”>
</body>
</html>

Judul.html

<html>
<head>
<title> J-Fleece Colection </title>
</head>
<body background=”FOOTER.JPG” TEXT=”BLUE”>
<center> <H2><BLINK><Font face=”broadway”>UJIAN AKHIR SEMESTER</BLINK> </font></H2>
TAHUN AJARAN 2012-2013<br>
STMIK BANJARBARU

</b>
</html>

Menu Datar.html

<html>
<title>Menu Datar</title>
<body valign=”center” >

<head>
<style>
a.one:link{color:#ff0000;}
a.one:visited{color:#0000ff;}
a.one:hover{color:#ff0000;}

a.two:link{color:#ff0000;}
a.two:visited{color:#0000ff;}
a.two:hover{font-size:150%;}

a.three:link{color:#ff0000;}
a.three:visited{color:#0000ff;}
a.three:hover{background:#66ff66;}

a.four:link{color:#ff0000;}
a.four:visited{color:#0000ff;}
a.four:hover{font-family:chiller;}

</style>
</head>

<table>
<tr>
<center>
<td width=”5%” bgcolor=”white”>
<a href=”Home.html” target = “dinamis”>Home</a>
</td>
<td width=”5%” bgcolor=”white”>
<a href=”profile.html” target = “dinamis”>Profile</a>
</td>
<td width=”5%” bgcolor=”white”>
<a href=”gallery.html” target = “dinamis”>Gallery</a>
</td>
<td width=”5%” bgcolor=”white”/>
<a href=”register.html” target = “dinamis”>Register</a>
</td>
<td width=””></center>
</td>
</tr>
</table>
</body>
</html>

Home.html

<head>
<title>Home</title>
</head>
<BODY BACKGROUND=”HOME.JPG” VALIGN=”top” TEXT=”RED”>
<TD ALign=”Center”>
<br>
<Center>

<b>
<h2> PEMROGRAMAN WEB 1</h2>
<h3> DOSEN PENGAMPU        : </h3>
<h3> KHAIRULLAH, S.KOM</h3>
<h3> CREATED BY </h3>
<center>
<a href=”MEE.jpg” target=”_blank”>
<IMG SRC=”MEE.jpg” WIDTH=”150″ HEIGHT=”160″ ALT=”Tanam Van the Viel”></TD> <center>
<H3> 3101-1101-1853</H3>
<H3> RONI</H3>
</body>
</html>

Profile.html

<head>
<title>Home</title>
</head>
<TR BGCOLOR=”#880000″ VALIGN=”top”>
<TD ALign=”Left”>
<br>
<body text=”#0000ff” >
<IMG SRC=”mee.jpg” WIDTH=”100″ HEIGHT=”110″ ALT=”Ini hyperlink” align = “left”><center>www.ronyld72.wordpress.com
<IMG SRC=”3.jpg” WIDTH=”100″ HEIGHT=”110″ ALT=”Ini hyperlink” align = “right”>
<br>
<br>
<b>
<p align=”center”><font color =”blue”><font face =”Broadway”> BIODATA </font></font></p></b>
<hr size=”10″>
<center>
<DL>
<b>
<font color=”Blue”>
<DT> Data Akademi
</font></b>
<font color=”Blue”>
<DD> NIM    : 3101-1101-1854</DD>
<DD> Nama    : Roni </DD>
<DD> TTL     : Tasikmalaya, 02 Agustus 1993</DD>
<DD> Alamat : Jl. Tanjung Rema RT. 04/01 No. 19D Martapura </DD>
<DD> Jenis Kelamin : Laki-Laki </DD>
<DD> E-Mail : ronyld72@yahoo.com</DD>
<DD> ym     : – </DD>
<DD> Facebook     : Rony Dnr </DD>
<DD> No Telp/HP : 0857-5403-4764</DD></font>
</DT>
</DL>

<DL><b>
<font color=”Blue”>
<DT>Data Pekerjaan
</font></b>
<font color=”Blue”>
<ol type=”a” start=”1″>
<li> Pekerjaan    : Mahasiswa </li>
<li> Institusi &nbsp;&nbsp;&nbsp;    : STMIK Banjarbaru </li>
<li> Jurusan     &nbsp;&nbsp;&nbsp;&nbsp;: Sistem Informasi </li></font>
</ol>
</DT>
</DL>

<DL>
<b>
<font color=”Blue”>
<DT> Data Pendidikan
</font></b>
<font color=”Blue”>
<ol type=”1″ start=”1″>
<li> – SD &nbsp;&nbsp;&nbsp;    : SDN Tanjung Rema </li>
<li> – SMP &nbsp;: SMPN 1 Gunungtanjung</li>
<li> – SMA     &nbsp;: SMK Darussalam Martapura </li></font>
</ol>
</DT>
</DL>

<DL>
<b>
<font color=”Blue”>
<DT> Data Hoby
</font></b>
<font color=”Blue”>
<ol type=”a” start=”1″>
<li> Hobby : Futsal & Football</li></font>
</ol>
</DT>
</DL>

<DL>
<b>
<font color=”Blue”>
<DT> Data Cita-Cita
</font></b>
<font color=”Blue”>
<ol type =”a” start=”26″>
<li> Cita-Cita : Analis</li></font>
</ol>
</DT>
</DL>

<DL>
<b>
<font color=”Blue”>
<DT> Data Orang Tua
</font></b>
</DT>
</DL>

<DL>
<b>
<font color=”Blue”>
<ol type=”a” start =”1″>
<li> Ayah</li>
</font></b>
<font color=”Blue”>
<ol type=”square” start=”1″>
<li> Nama : A. Suherman </li>
<li> TTL : Tasikmalaya, 07 April 1967 </li>
<li> Pekerjaan : Wira Swasta</li>
<li> Alamat : Jl. Tanjung Rema RT. 04/01 No. 19D Martapura </li></font>
</ol>

<b>
<font color=”Blue”>
<li> Ibu</li>
</font></b>
<font color=”Blue”>
<ol type=”square” start=”1″>
<li> Nama : Iyam</li>
<li> TTL : Tasikmalaya, 20 Agustus 1975 </li>
<li> Pekerjaan : Ibu Rumah Tangga</li>
<li> Alamat : Jl. Tanjung Rema RT. 04/01 No. 19D Martapura </li></font>
</ol>

<DL>
<b>
<font color=”Blue”>
<li> Jml Saudara (i)  </li>
</font></b>
<font color=”Blue”>
<ol type=”square” start=”1″>
<li> Kakak : -</li>
<li> Adik : 1 (Satu) </li></font>
</ol>
</DT>
</DL>
</ol>
<hr size=”10″>
<b>
<p align = “center”><font color =” Blue”><font face=”Chiller”> Copyright By : Rony 3101-1101-1854</font></font></marquee>
</b>
</body>
</html>

Gallery.html

<HTML>
<HEAD><TITLE>Gallery</TITLE></HEAD>
<BODY Background=”galery.jpg”>
<H1 align=”center”><font face=”broadway”> DAFTAR GAMBAR </h1>
<h3 align=”center” <blink>JAKET J-FLEECE</blink></font> </h3>
<TABLE BORDER=”1″ CELLSPACING=”2″ CELLPADDING=”5″ WIDTH=”600″ HEIGHT=”300″
ALIGN=”CENTER”><font color=”red”>
<TR ALIGN=”center” height=”30%”>
<TD WIDTH=”35%”>
<a href=”1.jpg” target=”_blank”>
<IMG SRC=”1.jpg” WIDTH=”150″ HEIGHT=”160″ ALT=”Taman Sukalawara”> </a><br>
<a href=”1.html” target=”_blank”><font color=”red”>Travagar</font></a>
</TD>
<TD WIDTH=”35%”>
<a href=”2.jpg” TARGET=”_blank”>
<IMG SRC=”2.jpg” WIDTH=”150″ HEIGHT=”160″ ALT=”Taman Extrania”></a> <br>
<a href=”2.html”><font color=”red”>Ratghar</font></a>
</TD>
<TD WIDTH=”35%”>
<a href=”3.jpg” TARGET=”_blank”>
<IMG SRC=”3.jpg” WIDTH=”150″ HEIGHT=”160″ ALT=”Taman Extrania”></a> <br>
<a href=”3.html”><font color=”red”>Hypshion</font></a>
</TD>
</TR>
<TR ALIGN=”center” height=”30%”>
<TD WIDTH=”35%”>
<a href=”4.jpg” target=”_blank”>
<IMG SRC=”4.jpg” WIDTH=”150″ HEIGHT=”160″ ALT=”Tanam Van the Viel”> <br>
<a href=”4.html” TARGET=”_blank”><font color=”red”>Himzy-on</font></a>
</TD>
<TD WIDTH=”35%”>
<a href=”5.jpg” TARGET=”_blank”>
<IMG SRC=”5.jpg” WIDTH=”150″ HEIGHT=”160″ ALT=”Taman Extrania”></a> <br>
<a href=”5.html”><font color=”red”>Travel-Xion</font></a>
</TD>
<TD ALIGN=”center”>
<a href=”email.jpg” target=”_blank”>
<IMG SRC=”email.jpg”
ALT=”Ini hyperlink ke E-mail” WIDTH=”50%”><br>
<A HREF=”ronyld72@yahoo.com” ><font color=”red”>Pemesanan<br>Hyperlink ke E-mail</font></a>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

Register.html

<html>
<head>
<title>Form Biodata</title>
</head>
<body bgcolor=White >

<hr size=”10″ >
<center> <blink> <font size=”+2″ color=”#0000FF” > <B> Biodata Pengunjung </B> </font> </center> </blink>
<hr size=”10″ >
<table border=0>
<form action=”output.php” method=”post”>
<br>
<br>
<left>
<tr>I. Data Akademik</tr>
<tr>
<td width=”170″>Nim</td>
<td width=”3″>:</td>
<td width=”409″><input type=text name=Nim></td>
</tr>
<tr>
<td>Nama Lengkap</td>
<td>:</td>
<td><input type=text Size=30 name=Nama></td>
</tr>
<tr>
<td>Tempat dan Tanggal Lahir</td>
<td>:</td>
<td><input type=text name=Tempat size=23>
<select name=Tgl>
<option name=Tgl>Tgl
<option name=Tgl>1
<option name=Tgl>2
<option name=Tgl>3
<option name=Tgl>4
<option name=Tgl>5
<option name=Tgl>6
<option name=Tgl>7
<option name=Tgl>8
<option name=Tgl>9
<option name=Tgl>10
<option name=Tgl>11
<option name=Tgl>12
<option name=Tgl>13
<option name=Tgl>14
<option name=Tgl>15
<option name=Tgl>16
<option name=Tgl>17
<option name=Tgl>18
<option name=Tgl>19
<option name=Tgl>20
<option name=Tgl>21
<option name=Tgl>22
<option name=Tgl>23
<option name=Tgl>24
<option name=Tgl>26
<option name=Tgl>27
<option name=Tgl>28
<option name=Tgl>29
<option name=Tgl>30
<option name=Tgl>31
</select>
<select name=Bln>
<option name=Bln>Bln
<option name=Bln>Januari
<option name=Bln>Februari
<option name=Bln>Maret
<option name=Bln>April
<option name=Bln>Mei
<option name=Bln>Juni
<option name=Bln>Juli
<option name=Bln>Agustus
<option name=Bln>September
<option name=Bln>Oktober
<option name=Bln>November
<option name=Bln>Desember
</select>
<select name=Thn>
<option name=Thn>Thn
<option name=Thn>2000
<option name=Thn>1999
<option name=Thn>1998
<option name=Thn>1997
<option name=Thn>1996
<option name=Thn>1995
<option name=Thn>1994
<option name=Thn>1993
<option name=Thn>1992
<option name=Thn>1991
<option name=Thn>1990
<option name=Thn>1989
<option name=Thn>1988
<option name=Thn>1987
<option name=Thn>1986
<option name=Thn>1985
<option name=Thn>1984
</select>
</td>
</tr>
<tr>
<td>Email</td>
<td>:</td>
<td><input type=text name=Email size=25></td>
</tr>
<tr>
</tr>
<tr>
<td>Ymail</td>
<td>:</td>
<td><input type=text name=Ym size=25></td>
</tr>
</tr>
<tr>
<td>Facebook</td>
<td>:</td>
<td><input type=text name=FB size=25></td>
</tr>
<tr>
<td>No Hp</td>
<td>:</td>
<td><input type=text name=No size=20></td>
</tr>
<tr>
<td>Jenis Kelamin</td>
<td>:</td>
<td><input type=radio name=JK value=Laki-laki>Laki-laki<input type=radio name=JK value=Perempuan>Perempuan</td>
</tr>
<tr>
<td valign=”top”>Alamat</td>
<td valign=”top”>:</td>
<td valign=”top”><textarea cols=”20″ rows=”5″></textarea></td>
</tr>

<tr></tr>
<tr><td>II. Data Pekerjaan</td></tr>
<tr>
<td>Pekerjaan</td>
<td>:</td>
<td><input type=text name=No size=20></td>
</tr>

<tr></tr>
<tr><td>III. Data Pendidikan</td></tr>
<tr>
<td>Sekolah Dasar</td>
<td>:</td>
<td><input type=text name=No size=25></td>
</tr>
<tr>
<td>Sekolah Menengah Pertama</td>
<td>:</td>
<td><input type=text name=No size=25></td>
</tr>
<tr>
<td>Sekolah Menengah Atas</td>
<td>:</td>
<td><input type=text name=No size=25></td>
</tr>

<tr></tr>
<tr><td>IV. Data Hobby</td></tr>
<tr>
<td>Hobi</td>
<td>:</td>
<td><input type=”checkbox” name=”Olahraga” value=”olahraga” />
olahraga
<input type=”checkbox” name=”Membaca” value=”Membaca” />
Membaca
<input type=”checkbox” name=”komputer” value=”Komputer” />
Komputer
<input type=”checkbox” name=”Musik” value=”Musik” />
Musik
<input type=”checkbox” name=”Lain-lain” value=”Lain-Lain” />
Lain-Lain</td>
</tr>

<tr><td>V. Data Keluarga</td></tr>
<tr>
<td>Nama Ayah</td>
<td>:</td>
<td><input type=text name=No size=30></td>
</tr>
<tr>
<td>Nama Ibu</td>
<td>:</td>
<td><input type=text name=No size=30></td>
</tr>
<tr>
<td>Nama Saudara(i)</td>
<td>:</td>
<td><input type=text name=No size=30></td>
</tr>

<tr>
<td> </td>
<td> </td>
<td><input type=”reset” name=Hapus value=Hapus>
<input type=”submit” name=tambah value=Tambah_Data></td>
</tr>
</form>
</table>
</body>
</html>

Daftar.html

<head>
<title>Urutan Daftar</title>
</head>
<body valign=”center”>
<center><font face=”modern 2.0″ size=”4″>
<a href = “Home.html”
target = “dinamis”>Home</a><br>
<a href = “Profil.html”
target = “dinamis”>Profile</a><br>
<a href = “Gallery.html”
target = “dinamis”>Gallery</a><br>
<a href = “Register.html”
target = “dinamis”>Register</a></font>
</center>
</body>
</html>

Footer.html

<html>
<title>Footer</title>
<style>
{
margin: 2px;
border: 1px solid #0000ff;
height: auto;
width: auto;
float: left;
text-align: center;
}
</style>
<head>
</head>
<body background=”footer.jpg” text=”blue”>
<marquee behavior=”alternate” direction=”right”><font color=”blue”> Copyright&copy;Rony 3101 1101 1854<br></font> </marquee>
</body>
</html>

keterangan ->

Untuk nama gambarnya 1,2,3,4,5 (jpg) untuk gambar jaket

Untuk profile namanya mee.jpg

Bisa diubah sesuai keinginan, sesuaikan dengan coding

Gambar bisa lihat dimenu “IMAGE” pada blog ini

Enterprise Architect

Use Case Diagram

Image

Sequence Diagram Parameter

Image

Sequence Diagran Clustering K-Means

Image

Activity Diagram Parameter

Image

Activity Diagram Clustering K-Means

Image

Ini ModulMs. Visual Foxpro 9.0..

Microsoft Visual FoxPro atau sering disebut Visual FoxPro adalah salah satu
aplikasi pengolah database yang menerapkan manajemen database relasional yang biasa disebut dengan RDBMS (Relational Databse Management System) yang berorientasi objek….

References : STMIK Palangkaraya

[Download]

NIM                : 3101-1101-1854

Nama              : Roni

Jurusan          : Sistem Informasi

Dosen Pembimbing : H. Fitriyadi, S.Pi, M.Kom

Study Kasus Program Linear

Produksi

Sepatu

Sendal

Kapasitas Kebutuhan

Waktu

2 1 40
Bahan Baku 3 4 120

Keuntungan : $ 40(A)

$ 50(B)

Penyelesaian Manual:

1. Tentukan variable

x1 = Jumlah waktu dan bahan baku Sepatu (A) yang diproduksi

x2  = Jumlah waktu dan bahan baku Sendal (B) yang diproduksi

2. Fungsi Tujuan

Z Max = 40x1 + 50x2

3. Batasan atau Kendala

1. 2x1 + x2 ≤ 40

2. 3x1 +4 x2 ≤ 120

4. Solusi Grafik

1. 2x1 + x2 ≤ 40

x1 = 0,   x2 = 40/1 = 40

x2 = 0,   x1 = 40/2 = 20

2. 3x1 + 4x2 ≤ 120

x1 = 0,   x2 = 120/4 = 30

x2 = 0,   x1 = 120/3 = 40

Image

1.   Titik A

X1 = 0, x2 = 0

Masukan nilai x1 dan x2 ke Z

Z = 40x1 + 50x2 = 40.0 + 50.0 = 0

2.   Titik B

X1 = 20,    x2 = 0

Masukkan nilai x1 dan x2 ke Z

Z = 40.20 + 50.0 = 800

3. Titik C

Mencari titik potong

2x1 + x2 ≤ 40        x3    6x1 + 3x2 = 120

3x1 + 4x2 ≤ 20      x2    6x1 + 8x2 = 240

-5x2 = -120

x2 =  24

Masukkan X2 ke kendala 1

2x1 + x2   = 40

2x1 + 24  = 40

2x1          = 40 – 24

2x1         = 16

x1           = 16/2 = 8

Masukkan x1 dan x2 ke Z

40×1 + 50×2 = 40.8 + 50.24

= 320 + 1200

= 1520

4. Titik D

X1 = 0 , x2 = 30

Masukkan nilai x1 dan x2 ke Z

Z = 40.0 + 50.30

= 1500

Kesimpulan

Untuk memperoleh ke untungan optimal, maka x1 = 8 dan x2 = 24 dengan keuntungan sebesar $1520.

Penyelesaian dengan POM for Window :

Image

Image

Image

Image

Image

Image

By : STMIK Banjarbaru

IF…THEN…ELSEIF…THEN…END IF

CLS

?”QUIS-1 Roni”
? “MENGHITUNG GAJI”
INPUT “NIK      : “;NIK$
INPUT “NAMA KARY: “;NAMA$

INPUT “GOLONGAN (3A/3B/3C) :”,GOL$
IF GOL$=”3A” THEN
NAMA$=”ANDI”
GAJI=1000000
ELSEIF GOL$=”3B” THEN
NAMA$=”REZA”
GAJI=1500000
ELSEIF GOL$=”3C” THEN
NAMA$=”DANI”
GAJI=1250000
END IF

INPUT “STATUS (KAWIN/TIDAK) : “;STATUS$

TJ = GAJI* 0.1
? “TUNJANGAN   : “;TJ

TG = GAJI + TJ
? “TOTAL GAJI : “;TG
END

Hello User Blog WordPress !

Selamat Datang di Blog
Ronyld72.Wordpress.Com

Hy Guys…

Terima kasih telah mengunjungi Blog saya..

Semoga mendapatkan wawasan dan pengetahuan baru setelah berkunjung di Blog saya!!

Jika kita hanya melakukan yang biasa saja, maka kita hanya melakukan yang biasa saja, dan kita akan mendapatkan yang biasa saja. Cobalah melakukan sesuatu yang diluar “Zona Nyaman” Anda, maka Anda akan mendapatkan hasil yang berbeda. Jangan katakan “Tidak Bisa” , lebih baik belajar cara melakukannya dan lakukan. Maka Anda akan “Bisa”…

 

Jangan Lupa Sharingnya…

SET TALK OFF
SET SCORE OFF
SET CENT ON
SET DATE ITALIAN
SET STAT OFF
SET DELI TO ‘<>’
SET DELI ON

*** Memanggil procedure *******
SET PROCE TO GABUNG.PRG
****===================********
DO WHILE .T.

L=0
DO WHILE L<40
SET COLO TO BG+
X=0
DO WHILE X<150
X=X+1
ENDDO
@01,40-L TO 24,40+L
L=L+1
ENDDO

CLEAR

SET COLO TO W/B
@ 00,00 CLEAR TO 03,79
@ 00,00 SAY REPL(CHR(205),80)
@01,25 SAY ‘PROGRAM DATABASE PERPUTAKAAN’
@02,25 SAY ‘   <=STMIK BANJARBARU=>’
@03,0  SAY REPL(CHR(205),80)

SET COLO TO GR+*/B
@01,02 SAY “WAKTU : “+TIME()
@01,60 SAY ‘TANGGAL :’+DTOC(DATE())

*LATAR BELAKANG
SET COLO TO
MISI=REPL(CHR(178),80)
I=4
DO WHILE I<=24
@I,00 SAY MISI
I=I+1
ENDDO

*MEMBUAT KOTAK BIRU
SET COLO TO W/B
@ 5,20 CLEAR TO 19,55
@ 5,20 TO 20,55 DOUB

SET COLO TO W/B
@ 06,30 SAY ‘ =>MENU UTAMA<= ‘
SET COLO TO W/R
@08,30 SAY ‘1. INPUT DATA ‘
@10,30 SAY ‘2. EDIT DATA ‘
@12,30 SAY ‘3. LIHAT DATA ‘
@14,30 SAY ‘4. HAPUS DATA’
@16,30 SAY ‘5. LAPORAN’
@18,30 SAY ‘6. SELESAI’
@22,20 TO 24,55

SET COLO TO BG+/B+
@ 08,45 SAY CHR(220)
@ 09,31 SAY REPL(CHR(223),15)
@ 10,45 SAY CHR(220)
@ 11,31 SAY REPL(CHR(223),15)
@ 12,45 SAY CHR(220)
@ 13,31 SAY REPL(CHR(223),15)
@ 14,45 SAY CHR(220)
@ 15,31 SAY REPL(CHR(223),15)
@ 16,45 SAY CHR(220)
@ 17,31 SAY REPL(CHR(223),15)
@ 18,45 SAY CHR(220)
@ 19,31 SAY REPL(CHR(223),15)

SET COLO TO W+/R+
PIL=SPACE(1)
@23,21 SAY ‘MASUKKAN PILIHAN ANDA [1..6] :’GET PIL

* Kotak
SET COLO TO W/B
@ 05,60 CLEAR TO 07,77
@ 05,60 TO 07,77 DOUB
SET COLO TO W/B
@ 06,63 SAY ‘CREATED BY :’

SET COLO TO W/B
@ 12,60 CLEAR TO 14,77
@ 12,60 TO 14,77 DOUB
SET COLO TO W/B
@ 13,67 SAY ‘RONI’

SET COLO TO W/B
@ 18,60 CLEAR TO 20,77
@ 18,60 TO 20,77 DOUB
SET COLO TO W/B
@ 19,62 SAY ‘3101-1101-1854’

SET COLO TO W/B
@ 05,01 CLEAR TO 07,18
@ 05,01 TO 07,18 DOUB
SET COLO TO W/B
@ 06,02 SAY ‘SISTEM INFORMASI’

SET COLO TO W/B
@ 18,01 CLEAR TO 20,18
@ 18,01 TO 20,18 DOUB
SET COLO TO W/B
@ 19,06 SAY ‘2011/2012’

SET COLO TO W/B
@ 12,01 CLEAR TO 14,18
@ 12,01 TO 14,18 DOUB
SET COLO TO W/B
@ 13,06 SAY ‘KELAS IV’
READ

SET COLOR TO
DO CASE
CASE PIL=’1′
DO I_PJM
CASE PIL=’2′
DO E_PJM
CASE PIL=’3′
DO L_PJM
CASE PIL=’4′
DO H_PJM
CASE PIL=’5′
DO LAP_PJM
CASE PIL=’6′
SET COLO TO
B=0
A=79
R=CHR(206)
DO WHILE B<=40 .AND. A>=40
SET COLO TO W/B
@0,A SAY R
@01,A SAY R
@02,A SAY R
@03,A SAY R
@04,A SAY R
@05,A SAY R
@06,A SAY R
@07,A SAY R
@08,A SAY R
@09,A SAY R
@10,A SAY R
@11,A SAY R
@12,A SAY R
@0,B SAY R
@01,B SAY R
@02,B SAY R
@03,B SAY R
@04,B SAY R
@05,B SAY R
@06,B SAY R
@07,B SAY R
@08,B SAY R
@09,B SAY R
@10,B SAY R
@11,B SAY R
@12,B SAY R

SET COLO TO W/B
@13,B SAY R
@14,B SAY R
@15,B SAY R
@16,B SAY R
@17,B SAY R
@18,B SAY R
@19,B SAY R
@20,B SAY R
@21,B SAY R
@22,B SAY R
@23,B SAY R
@24,B SAY R
@13,A SAY R
@14,A SAY R
@15,A SAY R
@16,A SAY R
@17,A SAY R
@18,A SAY R
@19,A SAY R
@20,A SAY R
@21,A SAY R
@22,A SAY R
@23,A SAY R
@24,A SAY R
@13,B SAY R
@14,B SAY R
@15,B SAY R
@16,B SAY R
@17,B SAY R
@18,B SAY R
@19,B SAY R
@20,B SAY R
@21,B SAY R
@22,B SAY R
@23,B SAY R
@24,B SAY R

A=A-1
B=B+1
LOOP
ENDDO
SET COLO TO

CLEAR
EXIT
SET COLO TO
RETURN
ENDCASE
ENDDO

SET COLO TO g+/N
@6,29 SAY ‘  KELUAR DARI MENU UTAMA’
@8,29 SAY ‘<== PROGRAM  DATABASE1 ==>’
SET COLO TO w+/g+
@10,15 TO 12,67 doub
SET COLO TO R+*
B=CHR(219)
A=16
I=0
@16,30 SAY ‘LOADING…Please Wait!’
set colo to b+
DO WHILE A<100 .AND. I<=100
TUNGGU=1
DO WHILE TUNGGU<1000
TUNGGU=TUNGGU+1
ENDDO
@11,A SAY b
@11,70 SAY I  PICT ‘999 %’
I=I+2
A=A+1
LOOP
ENDDO
clear

SET STAT ON
CLEAR
SET TALK ON
SET SCORE ON
SET DATE AMER
SET STAT ON
SET COLOR TO
SET SAFETY ON
SET COLOR TO W+/N+
SET COLOR TO
CLEAR