program Java/mengetahui alamat IP dari Host

sorry brother..dah lama ga ngeblog, sampe lupa password, untung inget lagi..he he he ga penting. ok... langsung saja, tanpa banyak cincong, segera siapkan camilan dan bantal karena kita akan membahas program java, lagi lagi tugas kampus yang aku upload di sini. Kali ini adalah program dari java, setelah lama menggeluti dhelpi, mau tak mau harus memakai java juga. tapi saya tetap setia dengan dhelpi, ini hanya sekedar sharing aja bro. ok

ulasan

program ini adalah program untuk mengetahui alamat IP sebuah HOST, misalnya kalian ingin mengetahui alamat IP www.google.com, maka nantinya akan keluar alamat IPnya, seperti jika kalian ingin mengetahui alamat localhost, ya yang keluar nanti 127.0.0.1
betul ga?!

langsung aja deh bro...cekibrot ke TKP

ni listing programya

Program host2ip



import java.net.*;

import java.util.*;



public class host2ip {

public static void main(String[]args){

String host;



Scanner input = newScanner(System.in);

System.out.print("\n\n MasukanHost Name: ");

host = input.next();



try{

InetAddress alamat =InetAddress.getByName(host);

System.out.println("Alamat IP :" + alamat.toString());

}

catch (UnknownHostException){

System.out.println("Host tidakbisa ditemukan " + host);

}

}

}

ni contoh hasil jadinya
eh..kok ada ya alamat host daniyar, wakakakakakak

"VACUM CLEANER OTOMATIS" PAKE DHELPI

Program vacum cleaner ini ku buat ketika ada tugas AI(Artificial Intelegence).tugas yang bertemakan tentang vacum cleaner yang bisa mendeteksi kotor itu hampir membuat satu kelompokku kebingungan. Alhamdulillah berkat jalan yang terang..program ini berhasil ku buat dengan bantuan temen temen juga.

Programnya Seperti Ini

unit Unit1;

interface

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

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Timer1: TTimer;
Button3: TButton;
Label1: TLabel;
Button4: TButton;
Label2: TLabel;
Label3: TLabel;
Label8: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
gambar:integer;
dirty:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
dirty:='***********************************************************************************';
memo1.Text:=string(dirty);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
dirty:='***********************************************************************************';
memo2.Text:=string(dirty);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if button3.Caption='On' then
begin
timer1.Enabled:=true;
button3.Caption:='Off';
end
else
begin
timer1.Enabled:=false;
button3.Caption:='On';
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if memo1.Text=dirty then
begin
if gambar=1 then
begin
image3.Stretch:=false;
image1.Stretch:=true;
image1.Picture.LoadFromFile('D:\kuliah\AI\percobaan2\gambar2.bmp');
end
else if gambar=2 then
begin
image1.Stretch:=false;
image2.Stretch:=true;
image2.Picture.LoadFromFile('D:\kuliah\AI\percobaan2\gambar2.bmp');
memo1.Clear;
end;
if gambar=3 then
gambar:=1
else
inc(gambar);
end
else if memo2.Text=dirty then
begin
if gambar=1 then
begin
image1.Stretch:=true;
image2.Stretch:=false;
image1.Picture.LoadFromFile('D:\kuliah\AI\percobaan2\gambar1.bmp');
end
else if gambar=2 then
begin
image1.Stretch:=false;
image3.Stretch:=true;
image3.Picture.LoadFromFile('D:\kuliah\AI\percobaan2\gambar1.bmp');
memo2.Clear;
end;
if gambar=3 then
gambar:=1
else
inc(gambar);
end
else
begin
image1.Picture.LoadFromFile('D:\kuliah\AI\percobaan2\gambar1.bmp');
image2.Stretch:=false;
image3.Stretch:=false;
image1.Stretch:=true;
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
gambar:=1;
end;

end.

kalau bingung ma programnya..download video tutorial pembuatannya tapi ga ada audionya, download disini ya...mudah mudahan bermanfaat...

Seee You Again...

"Belajar Microsoft Word" Lanjuuuut

PERINTAH PINDAH HALAMAN PAKSA PADA M.WORD

Perintah pindah halamana paksa disini maksudnya adalah untuk berganti halaman dari sebelumnya ke halaman berikutnya. Adapun urutan perintahnya adalah sebagai berikut :
a. klik Insert - Break
b. klik lingkaran page Break kemudian klik OK

FASILITAS HEADER DAN FOOTER

Header dan footer adalah sebuah catatan akan dicetak ditiap-tiap lembar kertas. untuk membuat header dan footer ini langkahnya sebagai berikut.
1). klik View - Header Footer maka dilayar anda akan keluar kotak header dan footer
2). ketiklah catatan header dan footer yang anda inginkan
3). jika sudah klik OK

maaf sebelumnya kawan..karena belum sempat memberikan gambar.

Belajar Microsoft Word

Microsof Office adalah sebuah software komputer terpopuler saat ini, baik instansi manapun lebih memilih Microsoft Office ini untuk menyelesaikan semua permasalahan yang terdapat dalam instansinya. Dimana didalam microsoft office itu sendiri terdapat beberapa aplikasi yang dapat disesuaikan untuk menyelesaikan masalah - masalah tertentu. Adapun aplikasi aplikasi itu antara lain :
> Microsoft Word
> Microsoft Excel
> Microsoft Power Point
> Microsoft Access

dalam hal ini yang akan saya bahas adalah cara menggunakan Microsoft Word yang ternyata banyak dari kalangan pelajar kurang memahaminya,termasuk dari kalangan mahasiswa.


untuk Microsoft Word,membuka dan men-save data adalah hal yang sudah umum dilakukan.disini saya akan mencoba berbagi ilmu saya tentang M.Word ini hal yang dirasa kurang umum.

Mengganti/mencari kata & memindahkan kursor ke hal tertentu

A) Memindah kursor ke halaman tertentu

1) tekan CTRL G pada keyboard atau (KLIK edit - Go To) maka dilayar anda akan muncul kotak FIND and REplace

di kolom sebelah kanan ada kotak "Enter page Number" nah..masukan no hal yang akan di tuju di situ.

2) Tekan Enter

mudahkan kan?

B Mencari Kata

1) arahkan kursor di awal Naskah (Tekan CTRL HOME pada keyboard)
2) Tekan CTRL F atau (Klik Edit - Find), maka dilayar anda akan muncul find and replace tetapi dengan kotak berbeda.
di kotak find what ketik kata yang akan dicari
3) Tekan Find Next
4) jika sudah ditemukan klik kotak CANCEL

ok..tunggu kelanjutannya...see you brother