STMIK YADIKA BANGIL
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
STMIK YADIKA BANGIL
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
STMIK YADIKA BANGIL
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
STMIK YADIKA BANGIL
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
STMIK YADIKA BANGIL
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
Jumat, 08 April 2011
Selasa, 29 Maret 2011
kecerdasan buatan
http://www.ziddu.com/download/14392663/Copyoflogika.pdf.html
http://www.ziddu.com/download/14392697/CopyofKecerdasanbuatan.pdf.html
http://www.ziddu.com/download/14392728/Copyofkecerdasanbuatanv2bab1-4.pdf.html
http://www.ziddu.com/download/14392748/Copyofkecerdasan-buatan-v-2-0-bab-5-8.pdf.html
http://www.ziddu.com/download/14392790/CopyofDiktatKecerdasanBuatan.pdf.html
Kamis, 24 Maret 2011
scripe pascal
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
var angka:string;
begin
angka:= edit1.text;
if (length(angka)>3) and (length(angka)<7) then
insert('.',angka,length(angka)-2) else
if (length(angka)>6) and (length(angka)<10) then
begin
insert('.',angka,length(angka)-2);
insert('.',angka,length(angka)-6);
end else
if (length(angka)>9) and (length(angka)<13) then
begin
insert('.',angka,length(angka)-2);
insert('.',angka,length(angka)-6);
insert('.',angka,length(angka)-10);
end;
edit2.text:=angka;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
{
=
}
type
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Konversi Nilai Mata Uang ke dalam bahasa Indonesia
Function Terbilang(Uang:Int64):String;
Begin
If (Uang = 1) Then Terbilang:='Satu '
Else If (Uang = 2) Then Terbilang:='Dua '
Else If (Uang = 3) Then Terbilang:='Tiga '
Else If (Uang = 4) Then Terbilang:='Empat '
Else If (Uang = 5) Then Terbilang:='Lima '
Else If (Uang = 6) Then Terbilang:='Enam '
Else If (Uang = 7) Then Terbilang:='Tujuh '
Else If (Uang = 8) Then Terbilang:='Delapan '
Else If (Uang = 9) Then Terbilang:='Sembilan '
Else If (Uang = 0) Then Terbilang := ' '
Else If (Uang = 10) Then Terbilang := 'Sepuluh '
Else If (Uang = 11) Then Terbilang := 'Sebelas '
Else If (Uang >= 12) And (Uang <= 19) Then Terbilang:=Terbilang(Uang Mod 10) + 'Belas '
Else If (Uang >=20) And (Uang <=99) Then Terbilang := Terbilang(Uang div 10) + 'Puluh ' + Terbilang(Uang Mod 10)
Else If (Uang >=100) And (Uang <=199) Then Terbilang := 'Seratus ' + Terbilang(Uang - 100)
Else If (Uang >= 200) And (Uang <=999) Then Terbilang := Terbilang(Uang div 100) + 'Ratus ' + Terbilang(Uang Mod 100)
Else If (Uang >=1000) And (Uang <=1999) Then Terbilang := 'Seribu ' + Terbilang(Uang - 1000)
Else If (Uang >=2000) And (Uang <=999999) Then Terbilang := Terbilang(Uang div 1000) + 'Ribu ' + Terbilang(Uang Mod 1000)
Else If (Uang >=1000000) And (Uang <=999999999) Then Terbilang := Terbilang(Uang div 1000000) + 'Juta ' + Terbilang(Uang Mod 1000000)
Else If (Uang >=1000000000) And (Uang <=999999999999) Then Terbilang :=Terbilang(Uang div 1000000000) + 'Milyar ' + Terbilang(Uang Mod 1000000000)
Else If (Uang >=1000000000000) Then Terbilang :=Terbilang(Uang div 1000000000000) + 'Triliun ' + Terbilang(Uang Mod 1000000000000);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := Terbilang(StrToInt64(Edit1.Text));
end;
end.
Minggu, 20 Maret 2011
Cara Buat Antena WajanBolic
1.Siapkan material yang dibutuhkan USB WLAN, wajan / penggorengan, pipa pralon 3″, pipa pralon 1.25″ dan dop pralon, kabel USB yang di perpanjang dan USB Extender jika di perlukan
2. Lubangi wajan, siapkan dop pralon 3″ dan dop pralon 1.25″ yang di bor di tengahkan. Kemudian baut dop pralon 3″ ke dasar wajan
USB WLAN dalam pralon 1.25"
8. Dop untuk di letakan di ujung pralon 3″. Semua dinding dop pralon ditutup dengan lakban aluminium. Kombinasi dop pralon yang di lapisi lakban alumunium dan pralon yang ditutupi kalban aluminium sebetulnya menjadi konstruksi antenna kaleng. Di ambil foto dari muka.
dop pralon 3″
9. Tutup pralon untuk diletakan di ujung pralon. Di ambil foto dari belakang.
Dop pralon 3″ dari belakang
10. Pralon 3″ dilapis lakban aluminium sepanjang 20cm, tidak sampai ujung. Sisakan beberapa sentimeter yang dihitung dari fokus wajan. Lubangi wajan sekitar 5.3 cm dari ujung, untuk connector USB WLAN.
Pralon 3″
11. USB WLAN sudah dimasukan ke pralon. USB WLAN keluar pada jarak sekitar 5.3 cm dari ujung pralonjavascript:void(0).
USB dalam pralon 3″
pralon 3″ dari sudut 2
12. Masukan dop pralon 3″.
pralon 3″ ditutup tampak samping
Pralon 3″ ditutup tampak muka
13. Masukan pralon 3″ ke tutup pralon 3″ yang sudah di baut ke wajan.
Pralon 3″ di Wajanbolic
14. WajanBolic dah selesai. Sambungkan kabel USB yang sudah di perpanjang dengan kabel UTP. Wajanbolic siap digunakan.
Wajanbolic
http://septydhandayani.blogspot.com/
Sabtu, 19 Maret 2011
membuat data base dengan XAMPP
download 1
download 2
download 3
Rabu, 16 Maret 2011
MEMBUAT APLIKASI ACAK ANGKA DENGAN VISUAL BASIC | MEMBUAT PROGRAM RANDOM ANGKA DENGAN VB
Kontrol | Properti | Setting |
Label1, Label2, Label3, Label4, Label5 | Caption Border Style Font | Semua dikosongkan 1-FixedSingle Bold dan ukuran 28 |
Timer1 | Enabled Interval | False 100 |
Command1 | Caption | Start |
Command2 | Caption | Stop |
Command3 | Caption | Keluar |
mereka yang mau berusaha dan bertawakal !