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.
CONTOH PROGRAM TUGAS PEMDAS II
PROGRAM KUADRAN
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.
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>
</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>
</div>
</form>
<script type="text/javascript">
tabview_initialize('TabView');
</script>
Keterangan :
- Code yang berwarna biru diatas adalah lebar dan tinggi tabview yang bisa kamu sesuaikan.
- Code yang berwarna hijau adalah text judul dari menu tabel (tab 1, tab 2, tab 3 ....)
- Code yang berwarna merah diatas adalah halaman dari tabel yang bisa kamu pasangi code-code gagdet, gambar atau link.
- Dan jika ingin menambah halaman tabel perhatikan code yang berkedip, dan tambah seperti itu dibawahnya.
JQUERY MULTI LEVEL MENU HORISONTAL
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>
PENGENALAN DAN ISTILAH-ISTILAH DALAM DELPHI 7
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....
PERKEMBANGAN ALAT HITUNG
- 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
PENGERTIAN FORMAT AUDIO , AUDIO + VIDEO DAN GAMBAR
- Format file audio tanpa kompresi, seperti file WAV, AIFF, AU dan raw header-less PCM.
- Format file audio dengan kompresi lossy, seperti MP3, Vorbis, Mousepack, AAC, ATRAC, dan lossy Windows Media Audio (WMA).
- 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).
