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

formulir pendaftaran stmik yadika bangil

Jadwal Uts

Selasa, 29 Maret 2011

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

Kamis, 24 Maret 2011

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.

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


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/

Sabtu, 19 Maret 2011

membuat data base dengan XAMPP

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

download 1
download 2
download 3

Rabu, 16 Maret 2011

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 : 


program acak angka dengan vb

 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 :

program angka random dengan VB 6.0
 Gambar Hasil Aplikasi Acak Angka  
9.  Selamat mencoba kawan,,,Sesungguhnya kesuksesan itu hanya untuk
     mereka yang mau berusaha dan bertawakal !
http://meriwardana.blogspot.com

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites