kecerdasan buatan

materi kecerdasan buatan mata kuliah pak pandri bisa kalian download disini

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

Read More

scripe pascal

unit Unit1;

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.

Read More

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

Material Wajanbolic

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

Wajan untuk wajanbolic

3. Wajan tampak belakang sesudah di bautkan dop pralon di muka wajan.

Wajan tampak belakang

4. Siapkan USB WLAN. Tutup USB WLAN dengan karet untuk melindungi USB WLAN dari hujan.

USB WLAN

5. Masukan karet pelindung ke USB WLAN.

USB WLAN dalam lindungan karet

6. masukan USB WLAN yang dilindungi karet ke pralon 1.25″ sebagai dudukan. Posisikan USB WLAN sekitar 5.3 cm dari ujung pralon yang paling jauh dari wajan.

USB WLAN pada pralon 1.25″

7. USB WLAN pada pralon, tampak dari sudut lain.

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/

Read More

membuat data base dengan XAMPP

teman - teman yang ingin menggunakan database dengan XAMPP bisa download disini

download 1
download 2
download 3

Read More

MEMBUAT APLIKASI ACAK ANGKA DENGAN VISUAL BASIC | MEMBUAT PROGRAM RANDOM ANGKA DENGAN VB

1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut : 

 Gambar Aplikasi Acak angka 

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

 

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

  

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()

'label akan menampilkan bilangan acak 0-9'

Label1.Caption = Int(Rnd * 10)

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

End Sub

Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara

0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan

bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan

adalah bilangan bulat antara 0-9.

Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada

label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()

'time diaktifkan'

Timer1.Enabled = True

'mengosongkan masing-masing label'

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()

'time tidak diaktifkan'

Timer1.Enabled = False

'label 5 akan menampilkan hasil bilangan acak'

Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption

End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3(tombol Keluar),kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()

End

End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.

8.  Hasilnya seperti gambar berikut :

 Gambar Hasil Aplikasi Acak Angka  

9.  Selamat mencoba kawan,,,Sesungguhnya kesuksesan itu hanya untuk
     mereka yang mau berusaha dan bertawakal !

http://meriwardana.blogspot.com

Read More

Membuat Mesin Kasir Sederhana Menggunakan Vb6.0

Aplikasi mesin kasir sederhana ini untuk mempermudahkan kita melakukan kegiatan jual dan beli.. pasti kalu tidak ada alat seperti ini ( Mesin Kasir ) kita pasti repot. Untuk membuat aplikasi yang kita butuhkan adalah Microsoft Visual Basic 6.0. langsung aja ya ke tahap pembuatan..Pertama anda harus membuka aplikasi Visual Basic 6.0. Setelah itu Buat Rancangan Form dengan komponen & property seprti yang di bwah ini

Semua rincian itu bisa anda ubah sesuka hati anda ..

Bila anda sudah membuat Form dan Rancangan seperti di atas , sekarang Tinggal memasukan kode ke dalam lembar kerja kode , berikut kodenya !

Private Sub Command1_Click()
If Text1.Text = "" Then
pesan = MsgBox("Nama Barang masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")
End If
If Text2.Text = "" Then
pesan = MsgBox("Harga masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")
End If
If Text3.Text = "" Then
pesan = MsgBox("Jumlah masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")

Else
a = Int(Text2.Text)
b = Int(Text3.Text)


Text4.Text = a * b
Label6.Visible = True
Label9.Visible = True
Label9.Caption = a * b
Label8.Visible = True
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub

Private Sub Command3_Click()
d = Int(Text4.Text)
e = Int(Text5.Text)
f = e - d

Label9.Visible = True
Label9.Caption = f
Label7.Visible = True
Label8.Visible = True
End Sub

Private Sub Command4_Click()
Text5.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub

Private Sub Form_Load()
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
End Sub

 http://sembeling.blogspot.com

Read More

realvnc

sebuah software untuk meremot sebuah PC bisa anda download disini

Read More