Program Pengolahan Citra Dengan VB.Net


Grayscale

Grayscale

Pada artikel kali saya akan membuat program pengolahan citra RGB menjadi Grayscale. AdapunΒ  program yang akan dirancang yaitu menggunakan Visual Basic.Net 2008.

Untuk memulai mengolah gambar atau disebut dengan citra, lakukan langkah dibawah ini:

1. Jalankan Aplikasi Visual Basic.Net 2008
2. Setelah Buat Nama program yang akan dibuat (contoh yang saya buat yaitu : Pengolahan Citra Dengan VB.NET)
3. Klik OK
untuk coding lengkapnya klikMengolah Format RGB Menjadi Grayscale Pada Citra
4. Silahkan design form program vb untuk mengolah citra seperti bentuk di bawah ini.
1
2
5. Untuk properti SizeMode : Normal pada PictureBox1 dan Picturebox2 diganti menjadi StretchImage, sehingga gambar akan menjadi full saat di buka / dijalankan
6. Setelah selesai meancang formnya ketikkah coding dibawah ini

Public Class Form1
Dim gambar As Bitmap
Dim Rt, vM, vH, vB As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Sub Bersih_Gambar()
'untuk gambar 1
PictureBox1.Image = Nothing
PictureBox1.BackColor = Color.Empty
PictureBox1.Invalidate()
'untuk gambar 2
PictureBox2.Image = Nothing
PictureBox2.BackColor = Color.Empty
PictureBox2.Invalidate()
'untuk gambar 2
PictureBox3.Image = Nothing
PictureBox3.BackColor = Color.Empty
PictureBox3.Invalidate()
'untuk gambar 3
PictureBox3.Image = Nothing
PictureBox3.BackColor = Color.Empty
PictureBox3.Invalidate()
'untuk gambar 4
PictureBox4.Image = Nothing
PictureBox4.BackColor = Color.Empty
PictureBox4.Invalidate()
'untuk gambar 5
PictureBox5.Image = Nothing
PictureBox5.BackColor = Color.Empty
PictureBox5.Invalidate()
'untuk gambar 6
PictureBox6.Image = Nothing
PictureBox6.BackColor = Color.Empty
PictureBox6.Invalidate()
End Sub
Sub open_gambar()
OpenFileDialog1.Filter = "BMP|*.bmp|JPG|*.Jpg"
OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName = "" Then Exit Sub
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
gambar = New Bitmap(PictureBox1.Image)
Me.Text = "Citra : " & gambar.Height & " x " & gambar.Width & " pixel"
End Sub Continue reading

Advertisements

Faktorial Dan Segitiga Dengan C++


Faktorial

Faktorial


Dalam postingan saya kali ini, yaitu membuat segitiga dengan faktorial. Mungkin sahabat kesulitan gimana caranya dalam membuat segitiga yang saya maksud. Program ini saya dapatkan ketika proses belajar di Kampus. Untuk lebih jelasnya silahkan coba coding program berikut ini…..

#include <iostream.h>
#include <conio.h>

void main()
{
int i,j,n,k;
cout<<"Masukkan Bilangan : ";
cin>>n;
cout<<endl;
i=n;
while(i>=1)
{
j=1;
while(j<=i)
{
k=i;
k=k*j;
cout<<k<<" ";
j++;

}
i--;
cout<<endl;
}
}

Semoga bermanfaat buat sahabat semua. GOOD LUCK. πŸ˜€

Membuat Jajar Genjang dengan Turbo C++


Jajar Genjang

Jajar Genjang

Pada postingan kali ini saya akan membuat program menampilkan suatu bangun ruang yaitu membuat jajar genjang dengan menggunakan C++. Berikut source kode yang dapat dicoba.

#include <iostream.h>
#include <conio.h>
void main()
{
int n=5;
int i,j,k;
for(i=1;i<=n;i++)
{
for(j=n;j>=i;j--)
{
cout<<" ";
}
for(k=1;k<=i+(i-1);k++)
{
cout<<"*";
}
cout<<endl;
}
for(i=2;i<=n;i++)
{
for(int j=1;j<=i;j++)
{
cout<<" ";
}
for(int k=n+(n-1);k>=i+(i-1);k--)
{
cout<<"*";

}
cout<<endl;
}
cout<<" --------------------------------------"<<endl;
cout<<"By :"<<endl;
cout<<"https://lesmardin1988.wordpress.com"<<endl;
cout<<" "<<endl;
cout<<"---------------------------------------"<<endl;
getch();
}

Bagi yang suka copas silahkan berikan komentar anda. Semoga ber manfaat buat kita semua. Good Luck. πŸ˜€

Menampilkan Gambar dengan Sun Java Wireless Toolkit 2.5.2


Output

Output


Langkah pertama yang dilakukan yaitu membuat Name Project =”Project Gambar” dan class MIDlet =”gambar”
kemudian create Project dan OK
setelah itu ambil gambar yang berekstensi PNG(.png) Contoh yang saya buat yaitu edit.png
edit.png

edit.png


Kemudian simpan pada C:\Users\LES_HAS\j2mewtk\2.5.2\apps\Project Gambar\res (ini address yang ada pada komputer saya)
Selanjutnya ketikkan code dibawa ini

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class gambar extends MIDlet implements CommandListener
{
Display display;
Form imageForm;
Command exitCommand = new Command("Exit", Command.EXIT,1);

public gambar(){
imageForm = new Form("ImageItem");
imageForm.addCommand(exitCommand);
imageForm.setCommandListener(this);

try{
Continue reading

Program Animasi Stack Push – Pop Pada Turbo C++


Stack Push-Pop

Stack Push-Pop

Pada Postingan ini saya akan membuat program animasi stack push-pop pada Turbo C++ untuk melengkapi program yang telah diberikan oleh dosen saya pada mata kuliah Pemograman Berorientasi Objek. Nah untuk source codenya silahkan langsung anda coba di Laptop atau komputer anda

#include <iostream.h>
#include <conio.h>
#include <stdlib.h>

int top,i;
char key,temp,e;
char stack[10];
void delay();

void pushmardin()
{
for(i=0;i<=17; i++)
{
gotoxy(22+i,7);cout<<" ";
gotoxy(23+i,7); cout<<temp; delay();
}
for(i=1;i<=(14-top);i++)
{
delay();
gotoxy(40,6+i); cout<<" ";
gotoxy(40,7+i); cout<<temp;
}
}
void popmardin(char temp)
{
for(i=1;i<=(14-top);i++)
{
delay();
gotoxy(40,22-i-top);cout<<"";
gotoxy(40,21-i-top);cout<<temp;
}
for(i=1;i<=19;i++)
{
delay();
gotoxy(38+i,7);cout<<"";
gotoxy(39+i,7);cout<<temp;delay();
}
gotoxy(58,7);cout<<"";
}
void push(char e)
{
top=top+1;
stack[top]=e;
pushmardin();
}
void pop(char e)
{
if(top!=0)
{
e=stack[top];popmardin(e);
top=top-1;
}
else
{
gotoxy(1,7);cout<<"Stack Telah Kosong"<<endl;
Continue reading

10 JENIS VIRUS KOMPUTER


Virus Komputer

Virus Komputer

Serangan virus merupakan salah satu hal yang sangat tidak diinginkan dalam komputer, selain dapat menghilangkan file maupun aplikasi pada komputer, virus juga dapat membuat komputer tidak bisa bertahan lama (rusak). Berikut ini adalah daftar sepuluh jenis virus komputer yang paling berbahaya.

  1. Discusx.vbs
    Virus VBScript yang satu ini, memiliki ukuran sekitar 4.800 bytes. Dia akan mencoba menginfeksi di beberapa drive di komputer Anda, termasuk drive flash disk, yang jika terinfeksi akan membuat file autorun.inf dan System32.sys.vbs pada root drive tersebut. Selain itu, ia pun akan mengubah caption dari Internet Explorer menjadi β€œ.::Discus-X SAY MET LEBARAN! [HAPPY LEBARAN ?!]::.”.
  2. Reva.vbs
    Lagi, virus jenis VBScript yang lumayan banyak dikeluhkan oleh beberapa pembaca. Ia akan mencoba menyebarkan dirinya ke setiap drive di komputer Anda termasuk drive flash disk. Pada drive terinfeksi akan terdapat file reva.vbs, autorun.inf, dan shaheedan.jpg. Selain itu, ia pun akan mengubah halaman default dari Internet Explorer agar mengarah ke situs http://www.arrahmah.com.
  3. XFly
    PC Media Antivirus mengenali dua varian dari virus ini, yakni XFly.A dan XFly.B. Sama seperti kebanyakan virus lokal lainnya, ia dibuat menggunakan Visual Basic. Memiliki ukuran tubuh sebesar 143.360 bytes tanpa di-compress. Dan ia dapat menyamar sebagai folder, file MP3 WinAmp atau yang lainnya dengan cara mengubah secara langsung resource icon yang ada pada tubuhnya. Ini akan lebih mempersulit user awam dalam mengenalinya. Pada komputer terinfeksi, saat menjalankan Internet Explorer, caption-nya akan Continue reading

Hukum Kirchhoff I dan II


Pada peralatan listrik, kita dapat menemukan rangkaian listrik yang bercabang – cabang.
Untuk menghitung besarnya arus listrik yang mengalir pada setiap cabang yang dihasilkan oleh
sumber arus listrik Gustav Kirchhoff (1824–4887) mengemukakan dua aturan (hukum) yang dapat
digunakan untuk membantu perhitungan tersebut. Hukum Kirchhoff pertama disebut hukum titik
cabang dan Hukum Kirchhoff kedua disebut hukum loop. Suatu titik cabang dalam suatu rangkaian
adalah tempal benemunya beberapa buah konduktor. Sebuah loop adalah suatu jalan konduksi yang
lertutup.

  • Hukum I Kirchhoff
  • Hukum ini merupakan hukum kekekalan muatan listrik yang mengatakan bahwa jumlah
    muatan listrik yang ada pada sebuah sistem tertutup adalah tetap. Secara sederhana, Hukum
    Kirchhoff I menyatakan bahwa:

    “Jumlah Arus yang masuk pada sebuah titik cabang sama dengan arus yang keluar
    dari titik cabang tersebut.”

  • Hukum II Kirchhoff
  • Continue reading

Membuat Drop Down Menu (Sub Menu)


dropdown

dropdown

Dalam beberapa kasus akan dijumpai menu yang masih mempunyai menu-menu lagi (sub menu), maka ketika menu tersebut disorot akan tampil menu-menu lagi dibawahnya atau sering dikenal dengan drop down menu.
Pada tulisan saya kali ini, kita akan coba membuat sub menu pada web yang akan dirancang. Silahkan ketikkan skrip dibawah dengan nama dropdown.html

<html>
<head>
<title>Latihan</title>
</head>

<body>
<div id=”menu”>
<ul>
<li><a href=”#”>Home</a></li>
<li><a href=”#”>Profil</a>
<ul>
<li><a href=”#”>Tentang Kami</a></li>
<li><a href=”#”>Sejarah</a></li>
<li><a href=”#”>Visi dan Misi</a></li>
<li><a href=”#”>Struktur Organisasi</a></li>
</ul>
</li>
<li><a href=”#”>Agenda</a></li>
<li><a href=”#”>Berita</a></li>
<li><a href=”#”>Download</a></li>
<li><a href=”#”>Hubungi Kami </a></li>
</ul>
</div>
</body>
</html>

Kalau skrip dropdown.html dijalankan di browser, maka akan terlihat seperti gambar dibawah.
2

Pada menu profil belum dapat muncul sub menunya. Untuk membuat sub menu dibawahnya ketika disorot, coba ketikkan skrip dibawah ini dengan nama styledropdown.css Continue reading

Algoritma Garis


Garis

Garis

Apa itu Algoritma DDA (Digital Differential Analyzer)?
Algoritma DDA adalah algoritma pembentukan garis berdasarkan perhitungan dx maupun dy, menggunakan rumus dy=m.dx
Semua koordinat titik yang membentuk garis diperoleh dari perhitungan kemudian dikonversikan menjadi nilai integer.

Apa itu Algoritma Bressenham?
Algoritma Bressenham merupakan algoritma pembenrukan garis berdasarkan selisih antara gratis yang diinginkan terhadap setengah ukuran dari pixel yang sedang digunakan.

Bresenham pada tahun 1965, melakukan perbaikan dari algoritma perhitungan koordinat piksel yang menggunakan persamaan (1), dengan cara menggantikan operasi bilangan rii perkalian dengan operasi penjumlahan, yang kemudian dikenal dengan Algoritma Bresenham. Pada algoritma bresenham, nilai y kedua dan seterusnya, dihitung dari nilai y sebelumnya, sehingga hanya titik y pertama yang perlu dilakukan operasi secara lengkap. Perbaikan algoritma ini ternyata tidak menghasilkan perbaikan yang cukup siginifikan. Perbaikan berikutnya dilakukan dengan cara menghilangkan operasi bilangan riel dengan operasi bilangan integer. Continue reading

Tutorial dari My Friend


Tutorial VB.Net 2008 By Octavia Situmeang

Belajar Visual Basic.Net


vb.net
Visual Studio .NET 2008 merupakan salah satu produk pengembangan aplikasi yang diproduksi oleh Microsoft. Visual Studio .NET 2008 dapat digunakan untuk pengembangan aplikasi web ASP .NET, XML Web Service, aplikasi desktop dan juga aplikasi mobile. Dalam Visual Studio .NET 2008 terdapat beberapa tool yang dapat dipilih untuk pengembangan aplikasi. Tool-tool tersebuat antara lain adalah Visual Basic, Visual C# dan Visual C++. Tool-tool pada Visual Studio .NET 2008 tersebut menggunakan IDE (Integrated Development Environment) yang sama sehingga dapat saling berbagi pakai fasilitas dalam pengembangan aplikasi.
Pada Visual Basic .NET 2008 banyak sekali fasilitas wizard yang disediakan untuk memudahkan para pengembang aplikasi. Dengan fasilitas ini, pengembangan aplikasi dapat dilakukan dengan cepat. Ini memungkinkan para pemula untuk belajar lebih cepat dalam pengembangan aplikasi. Pada buku ini akan dibahas pembuatan atau pengembangan aplikasi sistem inventory dengan menggunakan Visual Basic .NET 2008. Visual Studio .NET 2008 juag terdapat alat atau tool untuk membuat report atau laporan.

download modulnya pada link dibawah ini
Bab 1 Download
Bab 2 Download
Bab 3 Download
Bab 4 Download
Bab 5 Download
Bab 6 Download
Bab 7 Download
Bab 8 Download

semoga bermanfaat buat kita πŸ˜€

Perulangan Pada Abjad dengan C++


Untuk kali ini saya akan mengajak para pemula untuk mencoba perlungan abjad dengan menggunakan C++
berikut kodenya yang dapat tampung ……

#include
#include

void main()
{
char abjad;
clrscr();
cout << "Perulangan abjad" << endl;
abjad = 'A';
do
{
cout << abjad << ' ';
abjad +=1;
} while (abjad <= 'Z');
}

Semoga bermanfaat buat kita semua πŸ˜€