About

Thank you for your visited

This is featured post 1 title

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.

This is featured post 2 title

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.

This is featured post 3 title

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.

This is featured post 4 title

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.

This is featured post 5 title

Replace these every slider sentences with your featured post descriptions.Go to Blogger edit html and find these sentences.Now replace these with your own descriptions.

Minggu, 18 November 2012

Contoh Program php menggunakan Array dan Indeks tak berurut

18.48 t-yeo 6 comments

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
 <head>
  <title> Tugas Web II </title>
  <meta name="Generator" content="EditPlus">
  <meta name="Author" content="">
  <meta name="Keywords" content="">
  <meta name="Description" content="">
 </head>
 <body>
  <?php
  $hewan= array ("3"=> "Paus",
  "87"=> "Hiu",
  "3435"=> "Ikan Pari",
  "95959"=> "Kepiting",
  "1"=> "Kura-kura",
  "34"=> "Penyu",
  "4444"=> "Bintang Laut",
  "877"=> "Ikan Badut",
  "1332"=> "Anjing Laut",
  "18789"=> "Gajah Laut");


  print_r ($hewan);
?>
 </body>
</html>
hasil layoutnya ->
*.Atau mau listing yang lain juga ada, lihat dibawah, w bukan dibawah celanamu!!!

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
 <head>
  <title> Tugas Web II </title>
  <meta name="Generator" content="EditPlus">
  <meta name="Author" content="">
  <meta name="Keywords" content="">
  <meta name="Description" content="">
 </head>
 <body>
<?php
    $hewan = array (
    "2" => "paus",
    "29" => "hiu",
    "92" => "ikan pari",
    "1992" => "kepiting ",
    "34353" => "Kura-kura",
    "454555" => "penyu",
    "7574883" => "bintang laut",
    "3" => "ikan badut",
    "73279392"=> "anjing laut",
    "433" => "gajah laut"
    );
    while ( list($indeks, $nilai) = each($hewan) )

      print("Indeks: </b>$indeks</b> = Nama_hewan: <b>$nilai </b><BR>");
    }

?>
 *.Jangan lupa ganti nama hewan dan juga indexnya entar ketahuan! ok!!!, silahkan pilih mana suka.
 layoutnya ->

Read more »

Selasa, 13 November 2012

Tugas pemrograman berbasis orientasi (java)

06.54 t-yeo 1 comment

Para friends sekalian silahkan download aja di link yang telah di sediahkan dibawah ini:

dibawah ini

Read more »

Selasa, 03 Juli 2012

kisi-kisi pdt

06.25 t-yeo No comments

silahkan download aja link dibawah ini...............
http://www.4shared.com/office/yPEBFL3a/KISI_PDT.html


Read more »

Selasa, 19 Juni 2012

Cari nilai huruf (menggunakan edit plus)

09.13 t-yeo No comments




<html>
<head><title>JAVASCRIPT</title></head>
<body>
<form name='frm1' method='post'>
<table border=0 align=center>
<tr>
<td>Input Nilai Angka[0..100]</td>
<td> :</td>
<td><input type='text' name='nilai'></td>
</tr>
<tr>
<td colspan=3 align='center'><input type='button' value='Hitung' onclick='hitung();'><input type='reset' value='Baru'>
</td>
</tr>
<tr>
<td>Nilai Huruf</td>
<td> :</td>
<td> <input type='text' name='nhuruf' readonly></td>
</tr>
<tr>
<td>Predikat</td>
<td> :</td>
<td><input type='text' name='predikat' readonly></td>
</tr>
</table>
</form>
<script>
function hitung()
{
var na=document.frm1.nilai.value;
var nh='';
var pt='';
if(na<0)
{
alert('Tidak boleh negatif..!');
document.frm1.na.value=""
document.frm1.na.focus();
return false;
}
if(na>=85 && na<=100)
{ nh='A';
pt='Sangat Memuaskan';
}else if(na>=75 && na<85)
{ nh='B';
pt='Memuaskan';
}else if(na>=60 && na<75)
{ nh='C';
pt='Cukup';
}else if(na>=45 && na<60)
{ nh='D';
pt='Kurang';
}else
{ nh='E';
pt='Buruk';
}
document.frm1.nhuruf.value=nh;
document.frm1.predikat.value=pt;
return;
}
</script>
</body>
</html>

Read more »

Minggu, 17 Juni 2012

Tugas Besar Praktikum.Visual II (Delphi)

05.02 t-yeo No comments

From 1






procedure TForm1.Button1Click(Sender: TObject);
begin
if(Edit1.Text = 'teo') and
(Edit2.Text = '102325') then
form2.show
else
Application.MessageBox('Maaf user name dan password salah. . .!!','warning',0);
exit;
end;
end.
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.


Form 2





procedure TForm2.Exit1Click(Sender: TObject);
begin
close;
Application.MessageBox('Jangan lupa keluar','Warning',0);
exit;
end;
end.
procedure TForm2.ProgramPenjualanBarang1Click(Sender: TObject);
begin
form3.Show
end;
end.
procedure TForm2.Pencarian1Click(Sender: TObject);
begin
form4.show
end;
end.


Form 3







procedure TForm3.Button1Click(Sender: TObject);
begin
  adotable1.Post;
  messagedlg('Data telah tersimpan',mtinformation,[mbok],0);
  dbedit1.Text:='';
  dbedit1.Text:='';
  dbedit1.Text:='';
  dbedit1.Text:='';
  dbedit1.Text:='';
  dbedit1.Text:='';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
adotable1.Append;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
dbcombobox1.Items.Add('001');
dbcombobox1.Items.Add('002');
dbcombobox1.Items.Add('003');
dbcombobox1.Items.Add('004');
dbcombobox1.Items.Add('005');
end;

procedure TForm3.DBComboBox1Change(Sender: TObject);
begin
if dbcombobox1.ItemIndex=0 then
  begin
dbEdit1.Text:='notebook';
dbedit2.Text:='2000000';
  end
else if dbcombobox1.ItemIndex=1 then
  begin
dbEdit1.Text:='monitor';
dbedit2.Text:='800000';
  end
else if dbcombobox1.ItemIndex=2 then
  begin
dbEdit1.Text:='hardisk';
dbedit2.Text:='200000';
  end
else if dbcombobox1.ItemIndex=3 then
 begin
dbEdit1.Text:='cd-room';
dbedit2.Text:='20000';
  end
else if dbcombobox1.ItemIndex=4 then
  begin
dbEdit1.Text:='Keyboard';
dbedit2.Text:='50000';
  end;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
if dbEdit1.Text= '' then
  begin
  ShowMessage('Pilih dahulu barang yang ingin Anda hapus!');
  Exit;
  end;
  ADOTable1.Delete;
  ADOTable1.refresh;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
adoTable1.Edit;
AdoTable1.Refresh;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Button6Click(Sender: TObject);
var
  i,j,total : integer;
  totbayar,diskon : real;
begin
  i:=strtoint(dbedit2.Text);
  j:=strtoint(dbedit3.Text);
  total:=i * j;
  dbedit4.Text:=IntToStr(total);
  if (total > 100000) and (total < 250000) then
  begin
    diskon:=0.5*total;
    dbedit5.Text:=FloatToStr(diskon);
  end
  else if (total > 250000) and (total < 500000) then
  begin
    diskon:=0.1*total;
    dbedit5.Text:=FloatToStr(diskon);
  end
else if (total > 500000) and (total <1000000) then
  begin
    diskon:=0.15*total;
    dbedit5.Text:=FloatToStr(diskon);
  end
else if (total > 1000000) then
begin
   diskon:=0.2*total;
    dbedit5.Text:=FloatToStr(diskon);
end;
    totbayar:=total-diskon;
    dbedit6.Text:=FloatToStr(totbayar);
end;



Form 4




procedure TForm5.Button1Click(Sender: TObject);
var
  kunci : string;
begin
  kunci := edit1.Text;
  if radiogroup1.ItemIndex = 0 then
  adotable1.IndexName:=''
  else if radiogroup1.ItemIndex=1 then
  adotable1.IndexName:= 'Nama barang';
if not adotable1.FindKey([kunci]) then
begin
MessageDlg(‘yang anda cari tidak ada’,mtinformation,[mbOK],0);
End;
adotable1.Refresh;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
close;
end;
end.

silahkan click gambar di bawah untuk download programnya





Read more »

Sabtu, 09 Juni 2012

Tugas struktur data (Makalah)

20.25 t-yeo No comments

ayo klik aja gambar dibawah ini:
Read more »

Sabtu, 02 Juni 2012

menghubungkan 2 buah jaringan dengan menggunakan Cisco Packet Tracer

20.56 t-yeo No comments

Hasil Peghubungan Dua Buah Jaringan



Ip Address Kelas C

Read more »

Baca selengkapnya »

Tugas mikrokontroller (Interrupt ^_^)

04.53 t-yeo No comments


#include <mega8535.h>
#incude <delay.h>
Insigned char led
Void led_walk()
{
PortA = 0b1010;
Delay_ms (3000);
PortA = 0b0101;
Delay_ms (3000);
Read more »

Baca selengkapnya »

Kamis, 24 Mei 2012

contoh function key

04.58 t-yeo No comments


* F1   –  Fasilitas Bantuan
* F2   –  Mengganti nama file yang dipilih
* F3   –  Membuka kotak pencarian file
* F4   –  Membuka address bar pada Windows Explorer
* F5   –  Refresh tampilan pada Windows Explorer
* F6   –  Menavigasi antara bagian yang berbeda dari jendela Windows Explorer
* F8   –  Membuka menu pembuka saat booting Windows
* F10 –  Mengarahkan fokus ke menu bar.
* F11 –  Membuka modus layar penuh pada Windows Explorer


Read more »

contoh shortcut yang ada di komputer

04.51 t-yeo No comments


  • [windows] + [E] : Membuka Windows Explorer
  • [windows] + [U] : Membuka atau menampilkan Utility Manager
  • [windows] + [L] : Mengunci komputer (Lock)
  • [windows] + [R] : Membuka RUN
  • [windows] + [D] : Mengaktifkan dan mematikan toogle Desktop
  • [windows] + [M] : Minimize semua windows yang terbuka
  • [windows] + [Shift] + [M] : Restore semua window yang di minimize
  • [windows] + [F1] : Membuka Help
  • [windows] + [Tab] : Scroll tombol di taskbar
  • [windows] + [Break] : Membuka window system properties
  • [windows] + [F] : Membuka fungsi Search
  • [windows] + [Ctrl] + [F] : Mencari komputer dalam jaringan yang aktif

* CTRL + C (Copy)
* CTRL+X (Cut) CTRL
* CTRL+V (Paste)
* CTRL+Z (Undo)
* DELETE (Hapus)
* SHIFT+DELETE (Menghapus item yang dipilih secara permanen tanpa menempatkan item dalam Recycle Bin)
* CTRL sambil menyeret (men-drag) sebuah item (Menyalin item yang dipilih)
* CTRL + SHIFT sambil menyeret item (Buat cara pintas ke item yang dipilih)
* Tombol F2 (Ubah nama item yang dipilih)
* CTRL + RIGHT ARROW (Memindahkan titik penyisipan (kursor) ke awal kata berikutnya)
* CTRL + LEFT ARROW (Memindahkan titik penyisipan (kursor) ke awal kata sebelumnya)
* CTRL + DOWN ARROW (Memindahkan titik penyisipan (kursor) ke awal paragraf berikutnya)
* CTRL + UP ARROW (Memindahkan titik penyisipan (kursor) ke awal paragraf sebelumnya)
* CTRL + SHIFT dengan salah satu ARROW KEY (Sorot blok teks)
* SHIFT dengan salah satu ARROW KEY (Pilih lebih dari satu item dalam sebuah jendela atau pada desktop, atau pilih teks dalam dokumen) * CTRL + A (Pilih semua)
* Tombol F3 (Mencari sebuah file atau folder)
* ALT + ENTER (Melihat properti untuk item yang dipilih)
* ALT + F4 (Menutup item aktif, atau keluar dari program aktif)
* ALT + ENTER (Menampilkan properti dari objek yang dipilih)
* ALT + SPACEBAR (Buka menu shortcut untuk jendela aktif)
* CTRL + F4 (Menutup dokumen aktif dalam program-program yang memungkinkan Anda untuk memiliki beberapa dokumen yang terbuka secara bersamaan)
* ALT + TAB (Beralih antara item yang terbuka)
* ALT + ESC (Cycle melalui item dalam urutan yang mereka telah dibuka)
* Tombol F6 (Siklus melalui elemen-elemen layar dalam jendela atau pada desktop)
* Tombol F4 (Menampilkan Address bar list di My Computer atau Windows Explorer)
* SHIFT + F10 (Menampilkan menu shortcut untuk item yang dipilih)
* ALT + SPACEBAR (Tampilan menu Sistem untuk jendela aktif)
* CTRL + ESC (Menampilkan menu Start)
* ALT + huruf digarisbawahi dalam nama menu (Menampilkan menu yang sesuai)
* Surat digarisbawahi dalam nama perintah pada menu yang terbuka (Lakukan perintah yang sesuai)
* Tombol F10 (Aktifkan menu bar dalam program aktif)
* ARROW (Buka menu berikutnya ke kanan, atau membuka submenu)
* LEFT ARROW (Buka menu sebelah kiri, atau menutup submenu)
* Tombol F5 (Memperbarui jendela aktif atau merefresh)
* BACKSPACE (Melihat folder satu level ke atas di My Computer atau Windows Explorer)
* ESC (Membatalkan tugas sekarang)
* SHIFT ketika Anda memasukkan CD-ROM ke dalam CD-ROM (Mencegah CD-ROM secara otomatis bermain/autoplay)

Keyboard Shortcuts Dialog Box
* CTRL + TAB (Move forward melalui tab)
* CTRL + SHIFT + TAB (Bergerak mundur melalui tab)
* TAB (Move forward melalui pilihan)
* SHIFT + TAB (Bergerak mundur melalui pilihan)
* ALT + huruf yang digarisbawahi (Lakukan perintah yang sesuai atau pilih opsi yang sesuai)
* ENTER (Lakukan perintah untuk opsi atau tombol aktif)
* SPACEBAR (Pilih atau menghapus kotak centang jika pilihan yang aktif adalah check box)
* Arrow tombols Panah (Pilih sebuah tombol jika pilihan aktif adalah group tombol pilihan)
* Tombol F1 (Menampilkan Help)
* Tombol F4 (Menampilkan item dalam daftar aktif)
* BACKSPACE (Membuka folder satu tingkat ke atas jika folder dipilih dalam Simpan Sebagai atau Buka kotak dialog)

Microsoft Natural Tombolboard Shortcuts Microsoft Natural Tombolboard Shortcuts
* Windows Logo (Menampilkan atau menyembunyikan menu Start)
* Logo Windows + BREAK (Menampilkan System Properties dialog box)
* Logo Windows + D (Menampilkan the desktop)
* Logo Windows + M (Meminimalkan semua jendela)
* Logo Windows + SHIFT + M (Memulihkan jendela yang diminimalkan)
* Logo Windows + E (Membuka My Computer)
* Logo Windows + F (Mencari for a file atau folder)
* CTRL + Windows Logo + F (Mencari for komputer)
* Logo Windows + F1 (Menampilkan Windows Help)
* Logo Windows + L (Mengunci keyboard)
* Logo Windows + R (Membuka kotak dialog Run)
* Logo Windows + U (Membuka Utility Manager)

Accessibility Tombolboard Shortcuts
* Right SHIFT selama delapan detik (Beralih FilterTombols on atau off)
* LEFT ALT + LEFT SHIFT + PRINT SCREEN (Beralih High Contrast on atau off)
* LEFT ALT + LEFT SHIFT + NUM LOCK (Mengaktifkan MouseTombols on atau off)
* SHIFT lima kali (Mengaktifkan StickyTombols on atau off)
* NUM LOCK selama lima detik (Mengaktifkan ToggleTombols on atau off) * Logo Windows + U (Membuka Utility Manager)

Windows Explorer Tombolboard Shortcuts Windows Explorer Tombolboard Shortcuts
* END (Menampilkan bagian bawah jendela aktif)
* HOME (Menampilkan bagian atas jendela aktif)
* NUM LOCK + Asterisk sign (*) (Tampilkan semua subfolder yang berada di bawah folder yang dipilih)
* NUM LOCK + Plus sign (+) (Menampilkan isi dari folder yang dipilih)
* NUM LOCK + Minus sign (-) (Collapse folder yang dipilih)
* LEFT ARROW (Collapse pilihan saat ini jika diperluas, atau pilih folder utama) * RIGHT ARROW (Menampilkan pilihan saat ini, atau pilih subfolder pertama)

Shortcut Tombols for Character Map Tombol pintas untuk Peta Karakter
* Setelah Anda klik dua kali pada grid karakter karakter, Anda dapat bergerak melalui grid dengan menggunakan cara pintas tombolboard:
* RIGHT ARROW (Pindah ke kanan atau ke awal baris berikutnya)
* LEFT ARROW (Pindah ke kiri atau ke akhir baris sebelumnya)
* UP ARROW (Pindah ke atas satu baris)
* DOWN ARROW (Pindah ke bawah satu baris)
* PAGE UP (Pindah ke atas satu layar pada satu waktu)
* DOWN (Pindah ke bawah satu layar pada satu waktu)
* HOME (Pindah ke awal baris) * END (Pindah ke akhir baris)
* CTRL + HOME (Pindah ke karakter pertama)
* CTRL + END (Pindah ke karakter terakhir)
* SPACEBAR (Beralih antara yang lebih besar dan Normal ketika seorang karakter yang dipilih)

Microsoft Management Console (MMC) Main Window Tombolboard Shortcuts:
* CTRL + O (Open yang disimpan konsol)
* CTRL + N (Buka konsol baru)
* CTRL + S (Save the open console)
* CTRL + M (Menambah atau menghapus item konsol)
* CTRL + W (Buka jendela baru)
* F5 tombol (Update konten dari semua jendela konsol)
* ALT + SPACEBAR (Menampilkan menu jendela MMC)
* ALT + F4 (Close the console)
* ALT + A (Menampilkan the Action menu)
* ALT + V (Menampilkan the View menu)
* ALT + F (Menampilkan the File menu)
* ALT + O (Menampilkan the Favorites menu)

Konsol MMC Window Tombolboard Shortcuts
* CTRL + P (Mencetak halaman aktif atau aktif pane)
* ALT + tanda Minus (-) (Menampilkan menu jendela jendela konsol yang aktif)
* SHIFT + F10 (Menampilkan the Action menu shortcut untuk item yang dipilih)
* Tombol F1 (Membuka topik Bantuan, jika ada, untuk item yang dipilih)
* Tombol F5 (Update konten dari semua jendela konsol)
* CTRL + F10 (Memaksimalkan jendela konsol yang aktif)
* CTRL + F5 (Memulihkan jendela konsol yang aktif)
* ALT + ENTER (Menampilkan kotak dialog Properties, jika ada, untuk item yang dipilih)
* Tombol F2 (Ubah nama item yang dipilih)
* CTRL + F4 (Close jendela konsol yang aktif. Ketika sebuah konsol hanya memiliki satu jendela konsol, jalan pintas ini akan menutup konsol)

Remote Desktop Connection Navigation
* CTRL+ALT+END (Open the m*cro$oft Windows NT Security dialog box * ALT + PAGE UP (Beralih antara program dari kiri ke kanan)
* ALT + PAGE DOWN (Beralih antara program dari kanan ke kiri)
* ALT + INSERT (Cycle melalui program-program yang terakhir digunakan)
* ALT + HOME (Menampilkan menu Start)
* CTRL + ALT + BREAK (Beralih komputer klien antara jendela dan layar penuh)
* ALT+DELETE (Menampilkan the Windows menu) ALT + DELETE (Menampilkan the Windows menu)
* CTRL + ALT + Minus sign (-) (Membuat snapshot dari jendela aktif klien pada clipboard server Terminal dan menyediakan fungsi yang sama dengan menekan PRINT SCREEN pada komputer lokal.)
* CTRL + ALT + Plus sign (+) (Membuat snapshot dari seluruh area jendela klien pada clipboard server Terminal dan menyediakan fungsi yang sama dengan menekan ALT + PRINT SCREEN pada komputer lokal.)

Internet Explorer navigation Internet Explorer navigasi
* CTRL + B (Membuka kotak dialog Atur Favorit)
* CTRL + E (Open the Mencari bar)
* CTRL + F (Start the Find utility)
* CTRL + H (Open the History bar)
* CTRL + I (Open the Favorites bar)
* CTRL + L (Buka kotak dialog Open)
* CTRL + N (Start contoh lain dari browser dengan alamat Web yang sama)
* CTRL + O (Membuka kotak dialog Buka, sama seperti CTRL + L)
* CTRL + P (Membuka kotak dialog Print)
* CTRL + R (Memperbarui halaman Web ini)
* CTRL + W (Close jendela aktif)
Read more »

Selasa, 15 Mei 2012

Stack Ascending bilangan genap dengan menggunakan Pascal

06.05 t-yeo 1 comment


program stackk;
uses crt;
type stack = record
top : 0..100;
isi : array [0..100] of integer;
end;
var s1, s2 : stack;
n1, n2, i, hasil : integer;
procedure inisialisasi (var s:stack);
begin
s.top := 0;
end;
procedure push (var s:stack; x:integer);
begin
s.top := s.top + 1;
s.isi[s.top] := x;
end;
procedure pop(var s:stack; var x:integer);
begin
x := s.isi[s.top];
s.top := s.top - 1;
end;
function cekosong(var s:stack) : boolean;
begin
cekosong := false;
if s.top = 0 then
cekosong := true;
end;
procedure tukar(var p, q : integer);
var r : integer;
begin
r := p;
p := q;
q := r;
end;

begin
inisialisasi(s1); inisialisasi(s2);
write('Masukkan Nilai Pertama : '); readln(n1);
write('Masukkan Nilai Kedua : '); readln(n2);
if n1 > n2 then tukar (n1, n2);
for i := n1 to n2 do
push(s1, i);
repeat
pop(s1,hasil);
if (hasil mod 2 = 0) then
push (s2, hasil);
until cekosong(s1);
write('Urutan Bilangan Genap <Ascending> : ');
repeat
pop (s2, hasil);
write(hasil : 4);
until cekosong(s2);
readln;
end.

silahkan download disini programnya: http://www.4shared.com/file/-vdWtIOp/STACK_Genap_Ascending.html
Read more »

Senin, 14 Mei 2012

pengolahan citra warna ke kontraks

01.43 t-yeo No comments

Dim DataR() As Integer, DataB() As Integer, DataG() As Integer
Dim KP As Integer
----------------------------------------------------------------------------------------------------
Sub Contrast()
Dim Tinggi As Integer, Lebar As Integer
Dim Red As Integer, Green As Integer, Blue As Integer
Dim X As Integer, Y As Integer, grey As Integer
Dim Tot_Pix As Long

    '========= Mendapatkan Tinggi dan Lebar Citra =====
        Tinggi = Picture1.ScaleHeight
        Lebar = Picture1.ScaleWidth
    '==================================================

    '=== PEMESANAN Array Pada Data R,G,B ====
    ReDim DataR(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataG(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataB(Lebar, Tinggi) As Integer '(baris,kolom)
    '========================================
   
    '====Agar Picture 2 Lebar dan tingginya sama dengan Picture 1====
        With Picture2
            .Cls
            .Height = Tinggi
            .Width = Lebar
        End With
    '================================================================
   
    '==== PROSES PENGAMBILAN CITRA ====================
        For X = 0 To Lebar - 1  'kolom
            For Y = 0 To Tinggi - 1  'Baris
                '===== Get Total Pixel =======
                Tot_Pix = Picture1.Point(X, Y)
                '=============================
               
                '===== Get Red, Green, Blue ==
                Red = Tot_Pix And 255
                   'Rekam red
                   DataR(X, Y) = Red
                Tot_Pix = Tot_Pix / 256
                Green = Tot_Pix And 255
                    'Rekam green
                   DataG(X, Y) = Green
                Tot_Pix = Tot_Pix / 256
                Blue = Tot_Pix And 255
                    'Rekam Blue
                   DataB(X, Y) = Blue
                '=============================
           
                '==========Proses Contrast=================
                grey = Int((Red + Green + Blue) / 3)
                Redbaru = KP * (Red - grey) + grey
                Greenbaru = KP * (Green - grey) + grey
                Bluebaru = KP * (Blue - grey) + grey
                If (Redbaru > 255) Then Redbaru = 255
                If (Redbaru < 0) Then Redbaru = 0
                If (Greenbaru > 255) Then Greenbaru = 255
                If (Greenbaru < 0) Then Greenbaru = 0
                If (Bluebaru > 255) Then Bluebaru = 255
                If (Bluebaru < 0) Then Bluebaru = 0
                '===========================================
               
                '====Menampilkan citra=================================
                Picture2.PSet (X, Y), RGB(Redbaru, Greenbaru, Bluebaru)
                '======================================================
            Next
        Next
End Sub

---------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
End
End Sub
--------------------------------------------------------------------------------------------------
Private Sub HScroll1_Change()
KP = HScroll1.Value
Label1.Caption = KP
Contrast
End Sub

silahkan download disini:http://www.4shared.com/rar/a3JzMRvK/Contrast.html
Read more »

pengolahan citra warna merubah menjadi kecerahan

01.40 t-yeo No comments

Dim DataR() As Integer, DataB() As Integer, DataG() As Integer
Dim tambah As Integer
----------------------------------------------------------------------------------------------------
Sub Brightness()
Dim Tinggi As Integer, Lebar As Integer
Dim Red As Integer, Green As Integer, Blue As Integer
Dim X As Integer, Y As Integer
Dim Tot_Pix As Long

    '========= Mendapatkan Tinggi dan Lebar Citra =====
        Tinggi = Picture1.ScaleHeight
        Lebar = Picture1.ScaleWidth
    '==================================================

    '=== PEMESANAN Array Pada Data R,G,B ====
    ReDim DataR(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataG(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataB(Lebar, Tinggi) As Integer '(baris,kolom)
    '========================================
  
    '====Agar Picture 2 Lebar dan tingginya sama dengan Picture 1====
        With Picture2
            .Cls
            .Height = Tinggi
            .Width = Lebar
        End With
    '================================================================
  
    '==== PROSES PENGAMBILAN CITRA ====================
        For X = 0 To Lebar - 1  'kolom
            For Y = 0 To Tinggi - 1  'Baris
                '===== Get Total Pixel =======
                Tot_Pix = Picture1.Point(X, Y)
                '=============================
              
                '===== Get Red, Green, Blue ==
                Red = Tot_Pix And 255
                   'Rekam red
                   DataR(X, Y) = Red
                Tot_Pix = Tot_Pix / 256
                Green = Tot_Pix And 255
                    'Rekam green
                   DataG(X, Y) = Green
                Tot_Pix = Tot_Pix / 256
                Blue = Tot_Pix And 255
                    'Rekam Blue
                   DataB(X, Y) = Blue
                '=============================
              
              
                '==========Proses Brightness=================
                    Rednew = Red + tambah
                    Greennew = Green + tambah
                    Bluenew = Blue + tambah
                  
                    If Rednew >= 255 Then Rednew = 255
                    If Rednew <= 0 Then Rednew = 0
                    If Greennew >= 255 Then Greennew = 255
                    If Greennew <= 0 Then Greennew = 0
                    If Bluenew >= 255 Then Bluenew = 255
                    If Bluenew <= 0 Then Bluenew = 0
                '===========================================
              
                '=====Menampilkan Citra====================================
                Picture2.PSet (X, Y), RGB(Rednew, Greennew, Bluenew)
                '==========================================================
              
            Next
        Next
End Sub

-----------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
End
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub HScroll1_Change()
tambah = HScroll1.Value
Label1.Caption = tambah
Brightness
End Sub

silahkan download filenya disni:http://www.4shared.com/rar/e_PlmjY9/Brightness.html

Read more »

pengolahan citra warna ke skala keabuan

01.35 t-yeo No comments

Dim DataR() As Integer, DataB() As Integer, DataG() As Integer
----------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim Tinggi As Integer, Lebar As Integer
Dim Red As Integer, Green As Integer, Blue As Integer
Dim X As Integer, Y As Integer
Dim Tot_Pix As Long

    '========= Mendapatkan Tinggi dan Lebar Citra =====
        Tinggi = Picture1.ScaleHeight
        Lebar = Picture1.ScaleWidth
    '==================================================

    '=== PEMESANAN Array Pada Data R,G,B ====
    ReDim DataR(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataG(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataB(Lebar, Tinggi) As Integer '(baris,kolom)
    '========================================
  
    '====Agar Picture 2 Lebar dan tingginya sama dengan Picture 1====
        With Picture2
            .Cls
            .Height = Tinggi
            .Width = Lebar
        End With
    '================================================================
  
    '==== PROSES PENGAMBILAN CITRA ====================
        For X = 0 To Lebar - 1  'kolom
            For Y = 0 To Tinggi - 1  'Baris
                '===== Get Total Pixel =======
                Tot_Pix = Picture1.Point(X, Y)
                '=============================
              
                '===== Get Red, Green, Blue ==
                Red = Tot_Pix And 255
                   'Rekam red
                   DataR(X, Y) = Red
                Tot_Pix = Tot_Pix / 256
                Green = Tot_Pix And 255
                    'Rekam green
                   DataG(X, Y) = Green
                Tot_Pix = Tot_Pix / 256
                Blue = Tot_Pix And 255
                    'Rekam Blue
                   DataB(X, Y) = Blue
                '=============================
              
                '===== Mendapatkan grey level =============
                Grey = Int((Red + Green + Blue) / 3)
                '==========================================
              
                '==============Menampilkan citra===========
                Picture2.PSet (X, Y), RGB(Grey, Grey, Grey)
                '==========================================
            Next
        Next
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
End
End Sub

silahkan download filenya disini:http://www.4shared.com/rar/ldSvMPue/greyscale.html

Read more »

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Enterprise Project Management