Visual Basic dan C#

Bagaimana membina Jam Analog dan Jam Digital vb.net

2012-10-19T19:41:00.000-07:00

Pernahkah Anda melihat jam analog dan jam digital.? Pernahkah Anda berpikir bagaimana mau membuat satu program yang bisa berfungsi seperti itu.? disini saya sertakan satu simple program untuk membuat jam analog dan jam digital dalam vb.net 2010.

Jam Analog

Imports System.Math
Public Class Form1
Dim l As Label
Const sete = 150
Const panjangDetik = 100
Const panjangMenit = 80
Const panjangJam = 60
Dim Pen As New Drawing.Pen(System.Drawing.Color.Red, 2)
Dim detik, menit, jam As Integer
Dim x1, y1, x2, y2 As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Refresh()
detik = Microsoft.VisualBasic.DateAndTime.Second(Now)
menit = Microsoft.VisualBasic.DateAndTime.Minute(Now)
jam = Microsoft.VisualBasic.DateAndTime.Hour(Now)
Pen = New Drawing.Pen(System.Drawing.Color.RoyalBlue, 6)
x1 = Sin(((jam Mod 12) * 30 + menit / 2) * PI / 180 + PI) * panjangJam / 5 + sete 'Tail x
y1 = Cos(((jam Mod 12) * 30 + menit / 2) * PI / 180) * panjangJam / 5 + sete 'Tail y
x2 = Sin(((jam Mod 12) * 30 + menit / 2) * PI / 180) * panjangJam + sete 'Head x
y2 = Cos(((jam Mod 12) * 30 + menit / 2) * PI / 180 + PI) * panjangJam + sete 'Head y
Me.CreateGraphics.DrawLine(Pen, x1, y1, x2, y2)
Pen = New Drawing.Pen(System.Drawing.Color.Purple, 4)
x1 = Sin(menit * PI / 30 + detik * PI / 1800 + PI) * panjangMenit / 5 + sete
y1 = Cos(menit * PI / 30 + detik * PI / 1800) * panjangMenit / 5 + sete
x2 = Sin(menit * PI / 30 + detik * PI / 1800) * panjangMenit + sete
y2 = Cos(menit * PI / 30 + detik * PI / 1800 + PI) * panjangMenit + sete
Me.CreateGraphics.DrawLine(Pen, x1, y1, x2, y2)
Pen = New Drawing.Pen(System.Drawing.Color.Orange, 2)
x1 = Sin(detik * PI / 30 + PI) * panjangDetik / 5 + sete
y1 = Cos(detik * PI / 30) * panjangDetik / 5 + sete
x2 = Sin(detik * PI / 30) * panjangDetik + sete
y2 = Cos(detik * PI / 30 + PI) * panjangDetik + sete
Me.CreateGraphics.DrawLine(Pen, x1, y1, x2, y2)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Angle As Double
Dim i As Integer
Height = sete * 2.3
Width = sete * 2
For i = 0 To 11
Angle = i * PI / 6
x1 = Sin(Angle) * (panjangDetik + 20) + sete
y1 = Cos(Angle + PI) * (panjangDetik + 20) + sete
l = CallByName(Me, "lblDigit" & i, CallType.Get)
l.Left = x1 - l.Width / 2
l.Top = y1 - l.Height / 2
Next
End Sub
End Class

Jam Digital

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim jamku As Date
jamku = DateTime.Now
Label2.Text = jamku.Hour.ToString()
Label1.Text = jamku.Minute.ToString()
Label3.Text = jamku.Second.ToString()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
End Class

Cara membuat file XML di C #

2012-10-13T01:13:00.002-07:00

XML adalah bahasa platform independen, sehingga informasi yang diformat dalam XML dapat digunakan dalam platform lain (Sistem Operasi). Setelah kita membuat file XML dalam satu platform yang dapat digunakan dalam platform lain juga.
Dalam rangka untuk membuat file XML baru di C #, kita menggunakan Kelas XmlTextWriter. Kelas mengambil FileName dan Encoding sebagai argumen. Juga kita di sini melewati detail format. Kode C berikut # source membuat file XML product.xml dan menambahkan empat baris dalam file

using System;
using System.Data;
using System.Windows.Forms;
using System.Xml;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
XmlTextWriter writer = new XmlTextWriter("product.xml", System.Text.Encoding.UTF8);
writer.WriteStartDocument(true);
writer.Formatting = Formatting.Indented;
writer.Indentation = 2;
writer.WriteStartElement("Table");
createNode("1", "Product 1", "1000", writer);
createNode("2", "Product 2", "2000", writer);
createNode("3", "Product 3", "3000", writer);
createNode("4", "Product 4", "4000", writer);
writer.WriteEndElement();
writer.WriteEndDocument();
writer.Close();
MessageBox.Show("XML File created ! ");
}
private void createNode(string pID, string pName, string pPrice, XmlTextWriter writer)
{
writer.WriteStartElement("Product");
writer.WriteStartElement("Product_id");
writer.WriteString(pID);
writer.WriteEndElement();
writer.WriteStartElement("Product_name");
writer.WriteString(pName);
writer.WriteEndElement();
writer.WriteStartElement("Product_price");
writer.WriteString(pPrice);
writer.WriteEndElement();
writer.WriteEndElement();
}
}
}

Output Contoh

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<Table>
<Product>
<Product_id>1</Product_id>
<Product_name>Product 1</Product_name>
<Product_price>1000</Product_price>
</Product>
<Product>
<Product_id>2</Product_id>
<Product_name>Product 2</Product_name>
<Product_price>2000</Product_price>
</Product>
<Product>
<Product_id>3</Product_id>
<Product_name>Product 3</Product_name>
<Product_price>3000</Product_price>
</Product>
<Product>
<Product_id>4</Product_id>
<Product_name>Product 4</Product_name>
<Product_price>4000</Product_price>
</Product>
</Table>

Hash Password di C # dan Visual Basic Menggunakan SHA-512

2012-10-05T23:40:00.002-07:00

Kami baru-baru ini dibahas cara mudah untuk password hash menggunakan SHA-1 di NET baik menggunakan Visual Basic atau C #.. Dalam kebanyakan kasus, SHA-1 enkripsi adalah "cukup aman", namun ada beberapa kelemahan matematika. . NET platform Microsoft (khusus kelas System.Security) memungkinkan Anda untuk mengenkripsi password dengan sejumlah algoritma differnet tanpa harus mengetahui matematika di belakang mereka.
Hari ini, kita akan mengenkripsi string dengan SHA-2, khususnya SHA-512 derivasi dari SHA-2, yang secara hipotetis harus lebih aman daripada SHA-1 karena memiliki pesan yang lebih panjang dibanding mencerna SHA-1. Contoh kode saya akan memamerkan hari juga menggunakan "garam", sedangkan fungsi sebelumnya saya memamerkan tidak. Ini akan membuat Anda immume hashed password-lebih untuk attacts kamus karena tidak hanya akan hacker harus mengembangkan hash untuk setiap password yang umum dikenal, tetapi juga sebagai setiap password yang biasa dikenal dikalikan dengan jumlah hampir tak terbatas dari garam mungkin.

Berikut fungsi:

Public Shared Function CreateSHAHash(Password As String, Salt As String) As String
    Dim HashTool As New System.Security.Cryptography.SHA512Managed()
    Dim PasswordAsByte As [Byte]() = System.Text.Encoding.UTF8.GetBytes(String.Concat(Password, Salt))
    Dim EncryptedBytes As [Byte]() = HashTool.ComputeHash(PasswordAsByte)
    HashTool.Clear()
    Return Convert.ToBase64String(EncryptedBytes)
End Function

Cara kerjanya:

Metode ini memanfaatkan kelas System.Security.Cryptography. Ini menggabungkan password dan garam yang Anda berikan dan mengubahnya menjadi array byte-. Ini berjalan mereka byte melalui fungsi perhitungan telah disediakan oleh kelas dan mengembalikan sebuah string 88-bit dari message-digest/hash yang dibuat.

C #: Stub kode untuk menulis komponen ActiveX

2012-10-03T07:29:00.002-07:00

Berikut adalah kode dasar untuk menulis komponen ActiveX, ini perlu diikuti dengan instruksi untuk dll setup seperti didokumentasikan di sini

mengkonversi c # untuk Vb.Net. di sini

***********************
Class: ActiveXDotNet.cs
***********************

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

//Selain itu ditambahkan untuk ActiveX
using System.Runtime.InteropServices;
using System.ComponentModel;
using System.Windows.Forms;

namespace NSActiveXDotNet
{
[Guid("E86A9038-368D-4e8f-B389-FDEF38935B2F"), InterfaceType(ComInterfaceType.InterfaceIsDual), ComVisible(true)]
public interface IActiveXDotNet
{
[DispId(1)]
void ShowDialog(string message);
};

[Guid("B769DA4B-FDDD-41BD-BDD2-7101D08E8E0C"), ClassInterface(ClassInterfaceType.None),
ComDefaultInterface(typeof(IActiveXDotNet)), ComVisible(true), ProgId("ActiveXDotNet.CActiveXDotNet")]
public class CActiveXDotNet : IObjectSafetyImpl, IActiveXDotNet
{

#region IActiveXDotNet Members

public void ShowDialog(string message)
{
MessageBox.Show(message, "Message From ActiveX", MessageBoxButtons.OK, MessageBoxIcon.Information);
}

#endregion
}
}

***********************
Class: IObjectSafety.cs
***********************

using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using System.ComponentModel;
using System.Text;

namespace NSActiveXDotNet
{
[
Serializable,
ComVisible(true)
]
public enum ObjectSafetyOptions
{
INTERFACESAFE_FOR_UNTRUSTED_CALLER = 0x00000001,
INTERFACESAFE_FOR_UNTRUSTED_DATA = 0x00000002,
INTERFACE_USES_DISPEX = 0x00000004,
INTERFACE_USES_SECURITY_MANAGER = 0x00000008
};

//
// MS IObjectSafety Antarmuka definisi
//
[
ComImport(),
Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD064"),
InterfaceType(ComInterfaceType.InterfaceIsIUnknown)
]
public interface IObjectSafety
{
[PreserveSig]
long GetInterfaceSafetyOptions(ref Guid iid, out int pdwSupportedOptions, out int pdwEnabledOptions);

[PreserveSig]
long SetInterfaceSafetyOptions(ref Guid iid, int dwOptionSetMask, int dwEnabledOptions);
};

//
// Menyediakan Pelaksanaan default untuk scripting yang aman.
// Ini pada dasarnya berarti IE tidak akan mengeluh tentang objek ActiveX tidak menjadi aman
//
public class IObjectSafetyImpl : IObjectSafety
{
private ObjectSafetyOptions m_options =
ObjectSafetyOptions.INTERFACESAFE_FOR_UNTRUSTED_CALLER |
ObjectSafetyOptions.INTERFACESAFE_FOR_UNTRUSTED_DATA;

#region [IObjectSafety implementation]
public long GetInterfaceSafetyOptions(ref Guid iid, out int pdwSupportedOptions, out int pdwEnabledOptions)
{
pdwSupportedOptions = (int)m_options;
pdwEnabledOptions = (int)m_options;
return 0;
}

public long SetInterfaceSafetyOptions(ref Guid iid, int dwOptionSetMask, int dwEnabledOptions)
{
return 0;
}
#endregion
};
}

Array – Satu Dimensi, Multi Dimensi vb.net

2012-10-02T02:46:00.002-07:00

Array adalah konstruksi pemrograman yang menyimpan data dan memungkinkan kita untuk mengaksesnya dengan indeks numerik atau subscript. Array membantu kita membuat kode lebih pendek dan sederhana dalam banyak situasi. Array di Visual Basic NET. Mewarisi dari kelas Array dalam namespace System. Array dideklarasikan menggunakan Dim, ReDim, Static, Private.

Array dapat memiliki satu dimensi (array linear) atau lebih dari satu (array multidimensi). Dimensi dari array mengacu pada jumlah subskrip digunakan untuk mengidentifikasi elemen individu. Dalam Visual Basic kita dapat menentukan hingga 32 dimensi. Array tidak memiliki ukuran yang tetap dalam Visual Basic.

Ok langsung saja tutorial vb.net Algoritma Pemrograman Array Satu dimensi dan Multi dimensi dalam program vb.net :

Langsung saja buka Microsoft Visual Studio 2010 anda.
Muncul “Form1”, masukkan Label, TextBox, ComboBox, Button dan juga ListView yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Kode Barang
Label2	Text	Nama Barang
Label3	Text	Jenis
Label4	Text	Satuan
TextBox1	Text	[Dikosongkan]
	Name	TxtKodeBarang
TextBox2	Text	[Dikosongkan]
	Name	TxtNamaBarang
ComboBox1	Text	[Dikosongkan]
	Name	CmbJenis
ComboBox2	Text	[Dikosongkan]
	Name	CmbSatuan
Button1	Text	Simpan
	Name	BtnSimpan

4. Setelah itu masukkan kode berikut ini :

Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Arr(4, 1) As String

Arr(0, 0) = “Kode Barang”

Arr(0, 1) = “Nama Barang”

Arr(1, 0) = “Jenis”

Arr(1, 1) = “Satuan”

Arr(2, 0) = “Sabun Mandi”

Arr(2, 1) = “Pasta Gigi”

Arr(3, 0) = “Pcs”

Arr(3, 1) = “Box”

Arr(4, 0) = “Lusin”

Arr(4, 1) = “Kodi”

ListView1.GridLines = True

ListView1.View = View.Details

For Baris = 0 To 1

For kolom = 0 To 1

ListView1.Columns.Add(Arr(Baris, kolom), 100)

Next kolom

Next Baris

For Baris = 2 To 2

For kolom = 0 To 1

CmbJenis.Items.Add(Arr(Baris, kolom))

Next kolom

Next Baris

For Baris = 3 To 4

For kolom = 0 To 1

CmbSatuan.Items.Add(Arr(Baris, kolom))

Next kolom

Next Baris

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

Dim Arr(4) As String

Arr(1) = TxtKodeBarang.Text

Arr(2) = TxtNamaBarang.Text

Arr(3) = CmbJenis.Text

Arr(4) = CmbSatuan.Text

Dim listitem As ListViewItem

listitem = New ListViewItem

listitem = ListView1.Items.Add(Arr(1))

listitem.SubItems.Add(Arr(2))

listitem.SubItems.Add(Arr(3))

listitem.SubItems.Add(Arr(4))

TxtKodeBarang.Text = TxtKodeBarang.Text + 1

TxtNamaBarang.Text = “”

CmbJenis.Text = “”

CmbSatuan.Text = “”

TxtNamaBarang.Focus()

End Sub

End Class

5. Setelah itu klik “Start Debugging (F5)”

6. Maka akan tampil form1 dan coba masukkan kode barang sampai satuan, dan klik simpan maka di listview akan tampil data yang telah terinput tadi…

Algoritma Pemrograman Array Satu dimensi dan Multi dimensi dalam program vb.net, kita akan masih lanjut ke tutorial vb.net berikutnya yang lebih banyak dan seru lagi.

tetap semangat dan lanjut gan !!!

Angka Terbilang Indonesia dengan vb.net

2012-10-02T02:35:00.001-07:00

Dalam tutorial vb.net berikut ini, penulis mencoba membuat angka menjadi tulisan terbilang dengan bahasa Indonesia dari besar angka yang dimasukkan ke dalam textbox. Besar angka yang dimasukkan bukan bilangan pecahan, tapi bilangan bulat.

Pada tutorial vb.net kali ini kita akan membutuhkan “Class” dari vb.net untuk membuatfungsi terbilang indonesia.

Ok langsung saja tutorial angka terbilang indonesia dengan vb.net :

Langsung saja buka Microsoft Visual Studio 2010 anda.
Muncul “Form1”, masukkan Label, TextBox, dan Juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Angka
Label2	Text	Terbilang
TextBox1	Text	[Dikosongkan]
	Name	TxtAngka
TextBox2	Text	[Dikosongkan]
	Name	TxtTerbilang
	Multiline	Thrue
	ScrollBars	Vertical
Button1	Text	Terbilang Indonesia
	Name	BtnTerbilang

4. Sebelum Memasukkan Kode di Form1 anda harus membuat “Class” terlebih dahulu,caranya klik “Add New Item” di ToolBar, Lalu Pilih “Class”, ganti namanya dengan “TerbilangIndonesia” pada kolom “Name”, Lalu Pilih “Add” :

5. Pada “Class” TerbilangIndonesia masukkan kode sebagai berikut ini :

Imports VB = Microsoft.VisualBasic

Public Class TerbilangIndonesia

Function Terbilang(ByRef Indx As String) As String

Dim satu(10) As String

Dim dua(10) As String

Dim tiga(10) As String

Dim ratus As String

Dim ribu As String

Dim juta As String

Dim Millyar As String

Dim Trilliun As String

satu(0) = “Nol” : satu(1) = “Satu” : satu(2) = “Dua” : satu(3) = “Tiga” : satu(4) = “Empat” : satu(5) = “Lima” : satu(6) = “Enam” : satu(7) = “Tujuh” : satu(8) = “Delapan” : satu(9) = “Sembilan”

dua(0) = “Sepuluh” : dua(1) = “Sebelas” : dua(2) = “Dua belas” : dua(3) = “Tiga belas” : dua(4) = “Empat Belas” : dua(5) = “Lima Belas” : dua(6) = “Enam Belas” : dua(7) = “Tujuh belas” : dua(8) = “Delapan belas” : dua(9) = “Sembilan belas”

tiga(2) = “Dua puluh” : tiga(3) = “Tiga puluh” : tiga(4) = “Empat puluh” : tiga(5) = “Lima puluh” : tiga(6) = “Enam Puluh” : tiga(7) = “Tujuh Puluh” : tiga(8) = “Delapan puluh” : tiga(9) = “Sembilan puluh”

ratus = “ratus” : ribu = “ribu” : juta = “juta”

Millyar = “millyar” : Trilliun = “trilliun”

Dim inp, BhsNilai As String

inp = CStr(Val(Indx))

Select Case Len(inp)

Case 1

BhsNilai = satu(CInt(Indx))

Case 2

If Int(CDbl(VB.Right(inp, 1))) > 0 And CDbl(VB.Left(inp, 1)) > 1 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 1)))))

If CDbl(VB.Left(inp, 1)) > 1 Then BhsNilai = tiga(CInt(VB.Left(inp, 1))) & BhsNilai

If CDbl(VB.Left(inp, 1)) = 1 Then BhsNilai = dua(CInt(VB.Right(inp, 1)))

BhsNilai = Replace(BhsNilai, “Satu ribu”, “Seribu”)

Case 3

BhsNilai = satu(10)

If Int(CDbl(VB.Right(inp, 2))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 2)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & ratus & BhsNilai

Case 4

If Int(CDbl(VB.Right(inp, 3))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 3)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & ribu & BhsNilai

BhsNilai = Replace(BhsNilai, “Satu ribu”, “Seribu”)

Case 5

If Int(CDbl(VB.Right(inp, 3))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 3)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & ribu & BhsNilai

Case 6

If CInt(VB.Right(inp, 3)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 3))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & ribu & BhsNilai

Case 7

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & juta & BhsNilai

Case 8

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & juta & BhsNilai

Case 9

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & juta & BhsNilai

Case 10

If CInt(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 9))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & Millyar & BhsNilai

Case 11

If CInt(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 9))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & Millyar & BhsNilai

Case 12

If Val(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 9))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & Millyar & BhsNilai

Case 13

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & Trilliun & BhsNilai

Case 14

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & Trilliun & BhsNilai

Case 15

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & Trilliun & BhsNilai

End Select

BhsNilai = Replace(BhsNilai, “Satu ratus”, “Seratus”)

BhsNilai = Trim(BhsNilai)

Terbilang = ” ” & BhsNilai & ” ”

Terbilang = Replace(Terbilang, ” “, ” “)

End Function

End Class

6. Pada “Form1” Masukkan kode berikut ini :

Public Class Form1

Dim TerBilangIndonesia As New TerbilangIndonesia

Private Sub BtnTerbilang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTerbilang.Click

TxtTerbilang.Text = TerBilangIndonesia.Terbilang(TxtAngka.Text) + “Rupiah”

End Sub

End Class

7. Setelah itu klik “Start Debugging (F5)”

8. Maka akan tampil form1 dan coba masukkan angka berapapun, dan klik terbilang maka di di textbox akan tampil angka terbilang indonesia

Demikian tutorial angka terbilang indonesia dengan vb.net, kita akan masih lanjut ke tutorial vb.net berikutnya yang lebih banyak dan seru lagi.

tetap semangat dan lanjut gan !!!

Kriptografi – Enkripsi – Dekripsi dengan vb.net

2012-10-02T02:19:00.002-07:00

Dalam tutorial vb.net berikut ini, penulis mencoba membuat program Kriptografi, Enkripsi dan Dekripsi dengan program vb.net, apa itu Kriptografi, Enkripsi dan Dekripsi? Sedikit saya jelaskan yah…

Kriptografi adalah cara-cara untuk mengamankan data, Data yang asli diubah menjadi sandi-sandi dengan format tertentu.

Dalam kriptografi terdapat dua konsep utama yakni enkripsi dan dekripsi.

Enkripsi adalah proses dimana informasi / data yang hendak dikirim diubah menjadi bentuk yang hampir tidak dikenali sebagai informasi awalnya dengan menggunakan algoritma tertentu.

Dekripsi adalah kebalikan dari enkripsi yaitu mengubah kembali bentuk tersamar tersebut menjadi informasi awal.

Pada tutorial kali ini kita akan membutuhkan “Class” dari vb.net untuk membuat program Enkripsi dan Dekripsi.

Ok langsung saja tutorial membuat Kriptografi, Enkripsi dan Dekripsi menggunakan vb.net :

Langsung saja buka Microsoft Visual Studio 2010 anda.
Muncul “Form1”, masukkan Label, TextBox, dan Juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Teks Asli
Label2	Text	Teks Sandi
TextBox1	Text	[Dikosongkan]
	Name	TxtTextAsli
	Multiline	Thrue
	ScrollBars	Vertical
TextBox2	Text	[Dikosongkan]
	Name	TxtTeksSandi
	Multiline	Thrue
	ScrollBars	Vertical
Button1	Text	Enkripsi
	Name	BtnEnkripsi
Button2	Text	Dekripsi
	Name	BtnDekripsi

4. Sebelum Memasukkan Kode di Form1 anda harus membuat dua “Class” terlebih dahulu, caranya klik “Add New Item” di ToolBar, Lalu Pilih “Class”,

5. “Class” yang pertama beri nama dengan “Kryptografi” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Kryptografi

Protected Teks_Asli As String, Teks_Sandi As String, PanjangTeks As Long

Public Function KryptografiEnkripsi(ByVal Teks As String) As String

Dim Pos As Long, EnkripsiKarakter, EnkripsiText

Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”

Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”

For PanjangTeks = 1 To Len(Teks)

Pos = InStr(Teks_Asli, Mid(Teks, PanjangTeks, 1))

If Pos > 0 Then

EnkripsiKarakter = Mid(Teks_Sandi, Pos, 1)

EnkripsiText = EnkripsiText + EnkripsiKarakter

Else

EnkripsiText = EnkripsiText + Mid(Teks, PanjangTeks, 1)

End If

KryptografiEnkripsi = EnkripsiText

End Function

Public Function KryptografiDekripsi(ByVal Teks As String) As String

Dim Pos As Long, DekripsiKarakter, DekripsiText

Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”

Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”

For PanjangTeks = 1 To Len(Teks)

Pos = InStr(Teks_Sandi, Mid(Teks, PanjangTeks, 1))

If Pos > 0 Then

DekripsiKarakter = Mid(Teks_Asli, Pos, 1)

DekripsiText = DekripsiText + DekripsiKarakter

Else

DekripsiText = DekripsiText + Mid(Teks, PanjangTeks, 1)

End If

KryptografiDekripsi = DekripsiText

End Function

End Class

6. “Class” yang Kedua beri nama dengan “Proses” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Proses

Inherits Kryptografi

End Class

7. Sehingga Solution Exlorer yang disebelah kanan akan tampak sebagai berikut ini :

8. Pada Form1 Masukkan kode berikut ini :

Public Class Form1

Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click

Dim Enkripsi As New Proses

TxtTeksSandi.Text = Enkripsi.KryptografiEnkripsi(TxtTeksAsli.Text)

End Sub

Private Sub BtnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDekripsi.Click

Dim Dekripsi As New Proses

TxtTeksSandi.Text = Dekripsi.KryptografiDekripsi(TxtTeksSandi.Text)

End Sub

End Class

9. Setelah itu klik “Start Debugging (F5)”

10. Maka akan tampil form1 dan coba masukkan sebuah kalimat dan tekan tombolenkripsi, maka kalimat yang di bawah akan berubah.. dan coba klik Dekripsi maka kalimat yang berubah tersebut kambali ke kalimat yang awal.

Demikian tutorial membuat program Kriptografi, Enkripsi dan Deskripsi dengan vb.net, kita akan masih lanjut ke tutorial vb.net berikutnya yang lebih banyak dan seru lagi.

tetap semangat dan lanjut gan !!!

Membuat text berjalan dengan vb.net | tutorial vb.net

2012-10-02T00:56:00.003-07:00

Pada kesempatan kali ini saya akan berbagi tentang bagaimana membuat teks berjalan pada VB.Net, Membuat tulisan / teks berjalan di vb.net sangatlah mudah, anda hanya memerlukan komponen Timer dan Label. Daripada repot – repot langsung saja saya kasih source code teks berjalan pada vb.net 2010 nya aja ya biar anda langsung mengerti programnya.

Ok langsung saja tutorial membuat teks berjalan pada VB.Net :

Langsung saja buka Microsoft Visual Studio 2010 anda.
Muncul “Form1”, masukkan Label dan Timer yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Text Berjalan
	Name	Label1
	Autosize	False
Timer1	Interval	200

4. Setelah itu masukkan kode berikut ini :

1: Public Class Form1

2: Dim tulisan(2) As String

3: Dim i, j As Integer

4: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

5: If i.Equals(tulisan(j).Length) Then

6: Me.Label1.Text = “”

7: If j < tulisan.Length – 1 Then

8: j = j + 1

9: Me.Label1.Text = tulisan(j)

10: Else

11: j = 0

12: End If

13: i = 0

14: End If

15: Label1.Text = tulisan(j).Substring(0, i)

16: i = i + 1

17: End Sub

18: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

19: tulisan(0) = ” www.vbawam.com ”

20: tulisan(1) = ” www.vbawam.com ”

21: tulisan(2) = ” www.vbawam.com ”

22: Label1.Text = tulisan(j)

23: Timer1.Start()

24: End Sub

25: End Class

5. Setelah itu klik “Start Debugging (F5)” Dan lihat apa yang terjadi.. teks nya berjalan keluar satu-satu kan ??

Download source code text berjalan pada vb.net 2010 di sini

demikian tutorial membuat teks berjalan pada VB.Net, kita akan masih lanjut ke tutorialvb.net berikutnya yang lebih banyak dan seru lagi.

tetap semangat dan lanjut gan !!!

Menampilkan Jam dan Tanggal dengan vb.net

2012-10-02T00:53:00.000-07:00

Tutorial vb.net berikut ini adalah belajar cara membuat Timer dan DateTimePicker, pada kasus ini saya ambil contoh untuk Menampilkan Jam dan Tanggal pada komputer anda.

pada tutorial sebelumnya kita sudah belajar bagaimana cara Menampilkan Folder Browse Dialog pada komputer anda.

Ok langsung saja tutorial vb.net cara Menampilkan Jam dan Tanggal pada komputer dalam program vb.net :

Langsung saja buka Microsoft Visual Studio 2010 anda.
Muncul “Form1”, masukkan Label, Timer dan DateTimePicker yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Name	Lbl12Jam
Label2	Name	Lbl24Jam
Label3	Name	LblTanggal
Timer1	Enable	True
	Interval	100

4. Setelah itu masukkan kode berikut ini :

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Lbl12Jam.Text = Format(Now, “hh:mm:ss tt”)

Lbl24Jam.Text = Format(Now, “H:mm:ss”)

LblTanggal.Text = Format(Now, “dddd, dd – MMMM – yyyy”)

End Sub

End Class

5. Setelah itu klik “Start Debugging (F5)”

6. Maka akan Menampilkan Jam dan Tanggal seperti tampilan berikut ini :

itu adalah cara Menampilkan Jam dan Tanggal pada komputer anda dalam programvb.net, kita akan masih lanjut ke tutorial vb.net berikutnya.

lanjut gan !!!

Cara Looping Dengan GoTo (Tanpa For..Next/Do..Loop) VB6/VBNET

2012-10-02T00:45:00.002-07:00

Terkadang anda akan menemukan sebuah kasus yang mengharuskan looping secara logika bukan secara sintak, salah satu caranya adalah dengan mengunakan fungsi GoTo, Contoh :

'Looping dengan menggunakan GoTo

Dim nilai As Integer = 1

Looping_Lagi:

If nilai <= 100 Then

ListBox1.Items.Add(nilai)

nilai = nilai + 1

GoTo Looping_Lagi

End If

'Sintak Diatas Sama Dengan Anda menulis For..Next/Do..Loop

For i As Integer = 1 To 100

ListBox1.Items.Add(nilai)

Contoh diatas hanya contoh kecil, sebenarnya fungsi GoTo ini nantinya dapat anda gunakan untuk mengatasi

kasus lain yang jauh lebih rumit dan besar yang tidak dapat ditangani lagi oleh looping biasa seperti
For..Next /Do..Loop atau bahkan mungkin mengharuskan anda menggunakanGoTo didalam For..Next/Do..Loop. Contoh dibawah ini adalah kasus yang cukup rumit dan mungkin terjadi :

Cek_Kondisi_Kagi:

'.... sintak anda untuk cek kondisi 1

If "...." Then GoTo Langsung_Lolos 'Loncat Ke paling Bawah

If "......" Then

'......sintak anda

GoTo Eksekusi_Kodisi 'Loncat Ke Bawah

Else

'.......sintak anda

GoTo Cek_Kondisi_Kagi 'Loncat ke Atas / Looping lagi

End If

Eksekusi_Kodisi:

'......Sintak untuk Eksekusi Kodisi

Langsung_Lolos:

'.....Sintak Jika Lolos Final

Contoh kondisi yang saya tulis diatas, pernah saya alami waktu membuat sebuah aplikasi di kantor saya, semoga dapat bermanfaat untuk anda semua.

Pentingnya Membuat Comment/Komentar Pada Sintak Editor VB/VB.NET

2012-10-02T00:35:00.000-07:00

Saya akan berbagi sedikit tips dalam menulis sintak/coding khususnya vidual basic, hal ini mungkin/biasanya dianggap sepele/kecil tapi sebenarnya sangat berdampak besar yaitu : Comment (komentar) pada editor yang diawali dengan tanda petik 1 ('). Dengan comment ini kita dapat menulis sesuatu dan sesuka hati kita baik itu berupa keterangan tambahan mengenai sintak/logika/variable/date edit,created by dan sebagainya. Misalnya :

'Form Name : hitung_transaksi

'Function : Untuk menginput transaksi retur penjualan

'Created by : djie 2012-09-01

'Last Edited By : pandji 2012-09-05

Public Class Form_Transaksi

'variable untuk hitung bilangan

Dim n1 As Integer = 0

Dim n2 As Integer = 1

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

'jika kode a maka update qty barang

' a adalah barang yang di retur

If kode = "a" Then

'...sintak update anda

Else

'jika kode <> a maka insert barang baru

'...sintak insert anda

End Sub

End Class

Hal ini sangat penting karena misalkan program vb nya sudah selesai dan sudah lama/jarang dibuka lagi (misal 1 bulan/6 bulan/1 tahun), lalu anda ingin mengedit atau menambahkan menu/form/komponen/report baru dan sebagainya, maka jika tanpa adanya Comment anda akan bingung dan meraba raba kembali untuk apa variable ini/itu? bagaimana logikanya? parameternya apa? untuk apa fungsinya dan sebagainya, walaupun dulu anda sendiri yang membuat sintak tersebut (pengalaman sendiri). Selain itu Comment seperti contoh diatas sangat baik dan berguna saat anda membuat project bersama sama (misalnya di kantor/software house) agar mudah difahami oleh orang lain jika anda misalnya sakit/tidak masuk kerja dan bahkan jika anda berhenti bekerja sehingga orang baru (pengganti) akan lebih mudah melajutkan sintak anda karena adanaya Comment yang anda buat.

konstanta dan variabel vb6.0

2012-10-02T00:21:00.000-07:00

Variabel adalah suatu tempat untuk menampung data yang nilainya selalu berubah. Sedangkan konstanta adalah suatu tempat untuk menampung data yang nilainya selalu tetap dan tidak pernah berubah.

1. Aturan Penamaan Konstanta & Variabel

o Harus diawali huruf.

o Boleh terdiri dari huruf, angka, dan garis bawah.

o Maksimal 255 karakter.

o Tidak boleh menggunakan reserved word.

2. Deklarasi Konstanta & Variabel

Deklarasi konstanta

Bentuk umum :

[Public | Private] Const nama_konstanta [AS tipe_konstanta] = eksplisit

Contoh :

Public Const POTONGAN = 0.05

Const NAMAPERSH = “PT ABC”

Contoh penggunaan dalam program

Const HARGA As Currency = 1000

Dim Biaya As Currency

Dim Jumlah As Integer

‘proses

Biaya = HARGA * Jumlah

‘proses

Deklarasi variabel

Bentuk umum :

Dim <nama_variabel> [AS <tipe_variabel>]

Pendeklarasian varibel ada 2 jenis :

1) Deklarasi Eksplisit

Untuk mendeklarasikan nama variabel beserta tipe datanya pada awal procedure (menempatkan alokasi nama variabel didalam memori), contohnya sebagai berikut :

Dim Nama as String

Dim Alamat as String *3 0

Dim Gaji as Long

2) Deklarasi Implisit

Untuk mendeklarasikan nama variabel beserta tipe datanya dan langsung mengisi nilai variabelnya (menempatkan alokasi nilai variabel langsung didalam memori), contohnya sebagai berikut :

Nama$ = “ Adi ”

Alamat$ = “ Kelapa Gading ”

Gaji$ = 1750000

3. Ruang Lingkup Konstanta & Variabel

Ruang lingkup konstanta atau variabel adalah ruang atau daerah dimana konstanta atau variabel yang dibuat dikenal (dapat dipakai) biasanya juga berhubungan dengan umur (waktu hidup) konstanta atau variabel.

Ada variabel yang dikenal diseluruh bagian program, ada yang hanya dikenal di procedure tempat variabel tersebut dibuat. Ruang lingkup paling dalam adalah lingkup procedure dengan perintah Dim, Private atau Static maka variabel tersebut mempunyai ruang lingkup procedure, contoh :

Private Sub CmdTambah_Click()

Dim Nama as String

Dim Alamat as String * 30

Static No as Integer

End Sub

Deklarasi variabel pada Visual Basic dapat dilakukan dengan Keyword berikut :

Keyword Digunakan pada

Public Berlaku pada level modul

Private Berlaku pada level modul

Dim Berlaku pada level modul dan level procedure

Static Berlaku pada level procedure

Pengenalan VB 6.0

2012-10-02T00:12:00.003-07:00

Basic adalah salah suatu developement tools untuk membangun aplikasi dalam lingkungan Windows. Dalam pengembangan aplikasi, Visual Basic menggunakan pendekatan Visual untuk merancang user interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa Basic yang cenderung mudah dipelajari. Visual Basic telah menjadi tools yang terkenal bagi para pemula maupun para developer. Visual Basicadalah bahasa pemrograman berbasis Microsoft Windows yang merupakan Object Oriented Programming (OOP), yaitu pemrograman berorientasi objek, Visual Basic menyediakan objek-objek yang sangat kuat, berguna dan mudah.

Dalam lingkungan Windows, User-interface sangat memegang peranan penting, karena dalam pemakaian aplikasi yang kita buat, pemakai senantiasa berinteraksi dengan User-interface tanpa menyadari bahwa dibelakangnya berjalan instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan.

Pada pemrograman Visual, pengembangan aplikasi dimulai dengan pembentukkan user interface, kemudian mengatur properti dari objek-objek yang digunakan dalam user interface, dan baru dilakukan penulisan kode program untuk menangani kejadian-kejadian (event). Tahap pengembangan aplikasi demikian dikenal dengan istilah pengembangan aplikasi dengan pendekatan Bottom Up.

Ada beberapa hal yang harus dipahami dalam mempelajari Visual Basic :

• Objek

Sering disebut entity adalah sesuatu yang bisa dibedakan dengan lainnya. Pada dasarnya seluruh benda didunia ini bisa dikatakan sebagai objek, contoh : mobil, komputer, radio, dan lain-lain. Dalam Visual Basic objek-objek yang dimaksud disebut kontrol. Jenis-jenis kontrol antara lain ; Label, Text Box, Combo Box, List Box, dan masih banyak lagi.

• Properti

Sering disebut atribut, adalah ciri-ciri yang menggambarkan uatu objek. Misalnya disebut objek mobil jika mempunyai ban, spion, rem, dan lain-lain.

• Event

Suatu kejadian yang menimpa objek. Bagaimana jika mobil didorong, ditabrak, dicat, dan sebagainya.

• Metode

Kemampuan yang dimiliki oleh suatu objek. Contohnya jika mobil berbelok, mundur, maju.