Sub Menu1 Sub Menu2 Sub Menu3
Sub Menu1 Sub Menu2 Sub Menu3

CONTOH PROGRAM TUGAS PEMDAS II

Rabu, 21 Maret 2012

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Edit3: TEdit;
Edit4: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Timer1: TTimer;
Label9: TLabel;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var nama:string;
nim,angkatan,nilai:real;
begin
nilai:=StrToInt(Edit4.Text);
Memo1.Clear;
Memo1.Lines.Add('===========SELAMAT DATANG===========');
Memo1.Lines.Add(' NAMA = '+Edit1.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' NIM = '+Edit2.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' PRODI = '+ComboBox1.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' ANGKATAN = '+Edit3.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' NILAI = '+Edit4.Text);
Memo1.Lines.Add(' ');
if (nilai<0) then
Memo1.Lines.Add('MAAF NILAI YANG ANDA MASUKKAN SALAH')
else
if (nilai<20) then
Memo1.Lines.Add(' NILAI IPK ='+'E')
else
if (nilai<40) then
Memo1.Lines.Add(' NILAI IPK ='+'D')
else
if (nilai<60) then
Memo1.Lines.Add(' NILAI IPK ='+'C')
else
if (nilai<80) then
Memo1.Lines.Add(' NILAI IPK ='+'B')
else
if (nilai<=100) then
Memo1.Lines.Add(' NILAI IPK ='+'A');
Memo1.Lines.Add(' ');
if (nilai>100) then
Memo1.Lines.Add('MAAF NILAI YANG ANDA MASUKKAN SALAH');

Memo1.Lines.Add('========SEMOGA SUKSES SELALU========');


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Clear;Edit2.Clear;Edit3.Clear;Edit4.Clear;Memo1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('apakah anda benar-benar ingin keluar');
Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:DWORD;
begin
i:=GetWindowLong(self.Handle,GWL_STYLE);
i:=i and not (WS_MINIMIZEBOX);
i:=i and not (WS_MAXIMIZEBOX);
i:=SetWindowLong(Self.Handle,GWL_STYLE,i);
end;



procedure TForm1.Timer1Timer(Sender: TObject);
Var a,b:real;
begin
Label10.Caption:=TimeToStr(time);
Label9.Caption:=DateToStr(date);
end;

end.

Diposting oleh Allieef Mukti Chie Bonchell di 11.38 1 komentar

Label:

PROGRAM KUADRAN

Jumat, 16 Maret 2012


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
if (a>0) and (b>0) then Memo1.Lines.Add('KUADRAN I');
if (a<0) and (b>0) then Memo1.Lines.Add('KUADRAN II') ;
if (a<0) and (b<0) then Memo1.Lines.Add('KUADRAN III') ;
if (a>0) and (b<0) then Memo1.Lines.Add('KUADRAN IV')    ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;Edit2.Clear;
Memo1.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('apakan anda benar-benar ingin keluar');
Application.Terminate;
end;

end.


Diposting oleh Allieef Mukti Chie Bonchell di 18.10 0 komentar

Label:

MEMBUAT MENU TAB VIEW

Menu tabview adalah menu yang berbentuk tabel dengan pengelompokan halaman sesuai dengan tabel menu diatasnya. Menu ini banyak diapakai untuk menghemat tempat pada blog dengan sistem menampilkan atau menutupi halaman tabel sesuai dengan tabel menu diatasnya. Jadi jika kita mengklik menu diatasnya maka halaman tabel yang muncul adalah halaman tabel yang dibuat sesuai dengan menu tabel diatasnya, dan jika kita mengklik menu tabel lain maka yang muncul adalah halaman tabel yang bersesuain namun tetap pada satu tempat itu.

Coba perhatikan dibawah ini :


Gimana sudah paham belum? mau cara buatnya?

Oke kita pakai teori dari Mas Kendhin saja karena mudah dipahami.

Pertama yang harus kamu lakukan adalah Log In dan masuk menu Layoutkemudian masuk bagian Edit HTML

Selanjutnya taruh code CSS dibawah ini diatas code ]]></b:skin>


div.TabView div.Tabs
{
height: 24px;
overflow: hidden;
}
div.TabView div.Tabs a
{
float: left;
display: block;
width: 90px; /* Lebar Menu Utama Atas */ text-align: center;
height: 24px; /* Tinggi Menu Utama Atas */
padding-top: 3px;
vertical-align: middle;
border: 1px solid #000; /* Warna border Menu Atas */
border-bottom-width: 0;
text-decoration: none;
font-family: "Times New Roman", Serif; /* Font Menu Utama Atas */
font-weight: 900;
color: #000; /* Warna Font Menu Utama Atas */
}
div.TabView div.Tabs a:hover, div.TabView div.Tabs a.Active
{
background-color: #FF9900; /* Warna background Menu Utama Atas */
}
div.TabView div.Pages
{
clear: both;
border: 1px solid #6E6E6E; /* Warna border Kotak Utama */
overflow: hidden;
background-color: #FF9900; /* Warna background Kotak Utama */
}
div.TabView div.Pages div.Page
{
height: 100%;
padding: 0px;
overflow: hidden;
}
div.TabView div.Pages div.Page div.Pad
{
padding: 3px 5px;
}
Perhatikan text yang berwarna merah itu keterangan dari menu tab view yang bisa kamu edit sesuai keinginan kamu, untuk code warna bisa dilihat disini.

kalau sudah pasang script dibawah ini diatas code </head>






<script src='http://sites.google.com/site/anasku2000/tabview.js' type='text/javascript'/>


kalu sudah silahkan "Save Template" Anda.

kemudian masuk bagian "Layout -> Page Elements, lalu cari tempat gadgetnya kemudian klik Add new gadget kemudian pilihHTML/JavaScript dan taruh Code dibawah ini :






<form action="tabview.html" method="get">
<div class="TabView" id="TabView">
<div class="Tabs" style="width: 350px;">
<a>Tab 1</a>
<a>Tab 2</a>
<a>Tab 3</a>
</div>
<div class="Pages" style="width: 350px; height: 250px;">


<div class="Page">
<div class="Pad">
Tab 1.1 <br />
Tab 1.2 <br />
Tab 1.3 <br />
</div>
</div>


<div class="Page">
<div class="Pad">
Tab 2.1 <br />
Tab 2.2 <br />
Tab 2.3 <br />
</div>
</div>


<div class="Page">
<div class="Pad">
Tab 3.1 <br />
Tab 3.2 <br />
Tab 3.3 <br />
</div>
</div>


</div>
</div>
</form>


<script type="text/javascript">
tabview_initialize('TabView');
</script>

Keterangan :

  1. Code yang berwarna biru diatas adalah lebar dan tinggi tabview yang bisa kamu sesuaikan.
  2. Code yang berwarna hijau adalah text judul dari menu tabel (tab 1, tab 2, tab 3 ....)
  3. Code yang berwarna merah diatas adalah halaman dari tabel yang bisa kamu pasangi code-code gagdet, gambar atau link.
  4. Dan jika ingin menambah halaman tabel perhatikan code yang berkedip, dan tambah seperti itu dibawahnya.

Diposting oleh Allieef Mukti Chie Bonchell di 16.21 0 komentar

Label:

JQUERY MULTI LEVEL MENU HORISONTAL


 Masih membahas tentang cara membuat menu horizontal atau menu navigasi di blog kita, dan dulu sudah pernah saya memposting tentang cara membuat menu horizontal dan menu vertical di blog ini, namun kali ini saya akan menulis tutorial bagaimana membuat menu horizontal yang lebih canggih dibandingkan yang kemaren yaitu membuat multi level menu atau menu bertingkat.



Okkey langsung saja ke cara pembuatanya ya


langkah pertama yaitu masuk pada bagian Design lalu Edit HTML

Masukkan code dibawah ini dibawah code <head>

<!--[if lte IE 7]>
<style type="text/css">
html .jqueryslidemenu{height: 1%;} /*Holly Hack for IE7 and below*/
</style>
<![endif]-->

<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.2.6/jquery.min.js' type='text/javascript'/>
<script src='http://sites.google.com/site/anasprod/jqueryslidemenu.js' type='text/javascript'/>

Lalu masukkan CSS dibawah ini diatas code ]]></b:skin>

Baca Selengkapnya.....

Diposting oleh Allieef Mukti Chie Bonchell di 16.11 0 komentar

Label:

PENGENALAN DAN ISTILAH-ISTILAH DALAM DELPHI 7

Minggu, 04 Maret 2012





Menjalankan Program  Borland Delphi  

Langkah  pertama  adalah:
1.   Klik tombol Start yang terletak pada bagian  Taskbar
2.   Pilih menu  Programs
3.   Pilih Borlan d Delphi 7, kemudian klik Delphi 7
4.   Sesaat k emudian akan  muncul tampilan lembar kerja Borland


Mengenal IDE Delphi 

 IDE (Integrated Development Enviro nment) atau lingkungan
pengembangan terpadu pada program Delphi terbagi menjadi
delapan bagian utama, yaitu:
1.  Main Window
2.  ToolBar
3.  Component Palette
4.  Form Designer
5.  Code Editor
6.  Object Inspector
7.  Code Explorer
8.  Object TreeView
Lebih lengkapnya silahkan dwonload disini....

Diposting oleh Allieef Mukti Chie Bonchell di 09.55 1 komentar

Label:

PERKEMBANGAN ALAT HITUNG


Perhitungan :  Era Primitif ( d hk) (Tradisi S hamanistik)
  • Awalnya , manusia menghitung sesuatu dengan jarinya
  • Dalam kehidupannya berkelompok (suku) ada yang  bertanggung jawab  dalam menentukan perhitungan‐ hit tkftil/itlk perhitungan un t uk fes ti va l/ rit ual keagamaan; masa panen;    berburu;  dll. Æ Dukun (Shaman)
  • Shaman harusmampu“menghitung hari ” dan Shaman harus  mampu  menghitung  hari dan memprediksi musim.
  • Dari  tradisi  perdukunan, berkembangmekanisme  penghitungan  primiti f– diantaranya perhitungan menggunakan takik pada tongkat kayu atau   tanda /coretandi dinding gua. dwonload disini

Diposting oleh Allieef Mukti Chie Bonchell di 09.44 0 komentar

Label:

PENGERTIAN FORMAT AUDIO , AUDIO + VIDEO DAN GAMBAR

Sabtu, 03 Maret 2012



Jenis-jenis Format File Audio:
Secara umum, ada 3 kelompok utama format file audio, yaitu:
  1. Format file audio tanpa kompresi, seperti file WAV, AIFF, AU dan raw header-less PCM.
  2. Format file audio dengan kompresi lossy, seperti MP3, Vorbis, Mousepack, AAC, ATRAC, dan lossy Windows Media Audio (WMA).
  3. Format file audio dengan kompresi lossless, seperti FLAC, Monkey’s Audio (filename extension APE), WavPack (filename extension WV), Shorten, Tom’s lossless Audio Kompressor (TAK), TTA, ATRAC Advanced Lossless, Apple Lossless, MPEG-4 SLS, MPEG-4 ALS, MPEG-4 DST, Windows Media Audio Lossless (WMA Lossless).
Dari format-format tersebut, terbagi menjadi 3 bagian, yaitu format yang free dan open (seperti wav, ogg, mpc, flac, aiff, raw, au, dan midi), free (gsm, dct, vox, aac, mp4, dan mmf), serta proprietary (mp3, wma, atrac, ra, ram, dss, msv, dvf, m4p, 3gp, amr, dan awb).

Baca Selengkapnya.....

Diposting oleh Allieef Mukti Chie Bonchell di 22.42 4 komentar

Label:

CARA MEMASANG GAMBAR ANIMASI DI DALAM BLOGGER


Cara menampilkan gambar animasi di pojok blog. Terkadang untuk menghias blog agar tampak lebih menarik maka bisa memasang gambar animasi di blog.Bisa ditempatkan di pojok atas (kiri dan kanan), pojok bawah kiri dan kanan, atau semua pojok diisi gambar lucu-lucu.

Untuk menampilkan gambar lucu, cukup copy salah satu script html di bawah ini kemudian masukkan ke dalam gadget html. Script ini saya buat menggunakan kode html ditambah gambar dari situs sweetim.
Read more....

Contoh dan scriptnya bisa dilihat di bawah ini :
1.Gajah loncat


Script:
<div style="position: fixed; bottom: 0px; left: 20px;width:120px;height:160px;"><a href="http://www.sweetim.com/s.asp?im=gen&lpver=3&ref=10" target="_blank"><img border="0" src="http://content.sweetim.com/sim/cpie/emoticons/000203BC.gif" title="Click to get more." /></a><small><center><a href="http://www.komputerseo.com" target="_blank">Widget-Animasi</a></center></small></div>

Baca Selengkapnya.....

Diposting oleh Allieef Mukti Chie Bonchell di 21.38 0 komentar

Label:

Langganan: Postingan (Atom)

Pages - Menu