Jumat, 13 Januari 2012

Fungsi Terbilang Dengan VB Net 2005

Disain Form sepertin tampilan berikut ini :












ketik koding berikut :
cara 1 :


Public Function Terbilang(ByVal x As Integer) As String
Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
Dim temp As String = ""
If x < 12 Then temp = " " + bilangan(x)
ElseIf x < 20 Then
temp = Terbilang(x - 10).ToString + " belas"
ElseIf x < 100 Then
temp = Terbilang(x / 10) + " puluh" + Terbilang(x Mod 10)
ElseIf x < 200 Then
temp = " seratus" + Terbilang(x - 100)
ElseIf x < 1000 Then
temp = Terbilang(x / 100) + " ratus" + Terbilang(x Mod 100)
ElseIf x < 2000 Then
temp = " seribu" + Terbilang(x - 1000)
ElseIf x < 1000000 Then
temp = Terbilang(x / 1000) + " ribu" + Terbilang(x Mod 1000)
ElseIf x < 2000000 Then
temp = " sejuta" + Terbilang(x - 1000000)
ElseIf x < 100000000 Then
temp = Terbilang(x / 1000000) + " juta" + Terbilang(x Mod 1000000)
End If
Return temp
End Function

Private Sub txtangka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtangka.TextChanged
Label3.Text = UCase(Terbilang(CDbl(txtangka.Text))) + " Rupiah"
End Sub



cara 2 :

Function num2word(ByVal n As Double) As String
        Dim satuan As String() = {"", "Satu", "Dua", "Tiga", "Empat", "Lima", _
        "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas"}

        Select Case n
            Case 0 To 11
                num2word = " " + satuan(Fix(n))
            Case 12 To 19
                num2word = num2word(n Mod 10) + " Belas"
            Case 20 To 99
                num2word = num2word(Fix(n / 10)) + " Puluh" + _
                num2word(n Mod 10)
            Case 100 To 199
                num2word = " Seratus" + num2word(n - 100)
            Case 200 To 999
                num2word = num2word(Fix(n / 100)) + " Ratus" + _
                num2word(n Mod 100)
            Case 1000 To 1999
                num2word = " Seribu" + num2word(n - 1000)
            Case 2000 To 999999
                num2word = num2word(Fix(n / 1000)) + " Ribu" + _
                num2word(n Mod 1000)
            Case 1000000 To 999999999
                num2word = num2word(Fix(n / 1000000)) + " Juta" + _
                num2word(n Mod 1000000)
            Case 1000000000 To 999999999999
                num2word = num2word(Fix(n / 1000000000)) + " Milyar" + _
                num2word(n Mod 1000000000)
            Case Else
                num2word = num2word(Fix(n / 1000000000000)) + " Trilyun" + _
                num2word(n Mod 1000000000000)
        End Select
    End Function

Read More......

Kamis, 24 November 2011

Program Login Dengan Visual Studio 2005

Berikut ini kita akan buat program login dengan Visual Studio 2005. Untuk langkah pertama buatlah databasenya terlebih dahulu, disini kita gunakan database MySQL :

CREATE DATABASE dblogin;
USE dblogin;
CREATE TABLE USER(username VARCHAR(20)PRIMARY KEY,
userfullname VARCHAR(30),
userpass CHAR(32));
DESC USER;
INSERT INTO USER VALUES('erin','Erien Nada Azandra',MD5('asdf'));
SELECT * FROM USER;

catt : MD5 berfungsi untuk mengenkripsi nilai untuk field userpass

Disain form seperti tampilan berikut :

















Koding programnya :
Imports MySql.Data.MySqlClient
Public Class frmlogin
   Dim kon As New MySqlConnection("server=localhost; user id=root; database=dblogin")
   Dim perintah As New MySqlCommand
   Dim cek As MySqlDataReader

  Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles   cmdlogin.Click
    Try
    kon.Open()
    perintah.Connection = kon
    perintah.CommandType = CommandType.Text
    perintah.CommandText = "SELECT * FROM user WHERE username='" & txtusername.Text & "'     AND userpass=md5('" & txtpassword.Text & "')"
cek = perintah.ExecuteReader()
cek.Read()
If cek.HasRows Then
frmmenu.Show()
Me.Hide()
Else
MsgBox("User Name/Password Salah", MsgBoxStyle.Critical, "Informasi")
End If

kon.Close()

Catch ex As Exception
MsgBox("Tidak Ada Koneksi", MsgBoxStyle.Critical, "Informasi")
End Try

End Sub

Private Sub txtusername_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtusername.KeyDown
Select Case e.KeyCode
Case Keys.Enter
txtpassword.Focus()
End Select
End Sub

Private Sub txtpassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpassword.KeyDown
Select Case e.KeyCode
Case Keys.Enter
cmdlogin.Focus()
End Select
End Sub


Private Sub cmdexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexit.Click
Close()
End Sub

Private Sub frmlogin_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
txtusername.Text = ""
txtpassword.Text = ""
End Sub
End Class




Jangan lupa tambahkan lagi sebuah form dan ganti properti namenya frmmenu. ketika login berhasil dengan user yang sudah kita isi pada tabel user maka frmmenu akan ditampilkan.




Download program login bagian kedua(pdf) di sini.

Read More......

Sabtu, 24 September 2011

Konsep Dasar Pemrograman Web

DefinisiWeb
World Wide Web ("WWW", atau singkatnya"Web") adalah suatu ruang informasi dimana sumber-sumber daya yang berguna diidentifikasi oleh pengenal global yang disebut Uniform Resource Identifier (URI). WWW sering dianggap sama dengan Internet secara keseluruhan, walaupun sebenarnya ia hanyalah bagian daripadanya.
Hiperteks dilihat dengan sebuah program bernama browser web yang mengambil informasi(disebut "dokumen" atau “halaman web") dari server web dan menampilkannya, biasanya disebuah monitor. Ini disebut "surfing“ atau "berselancar“ dalam bahasa Indonesia

download selengkapnya

Read More......

Minggu, 24 Juli 2011

Menggunakan Operator (+ - * /) pada VB 6.0

Pada latihan kali ini kita akan coba membuat sebuah program sederhana, kita beri saja namanya kalkulator sederhana karena program ini nantinya akan melakukan proses perhitungan menggunakan operator + - * /

disainlah form terlebih dahulu ..














setelah selesai disain formnya ketikan koding berikut :

Private Sub Command1_Click()
    Label4.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
     Label4.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
    Label4.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
     Label4.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub




sedikit penjelasan mengenai koding program :
kita lihat program ini Label4.Caption = Val(Text1.Text) + Val(Text2.Text), program ini berfungsi untuk menjumlah nilai yang ada pada text1 dan text2 dan hasilnya akan ditampilkan pada label4.
pada program tersebuat ada perintah val(text1.text), nah perintah val ini berfungsi untuk mengkonversi nilai string (huruf) ke nilai angka.
pada pemrograman ketika kita isi nilai pada text1 sebetulnya tipe datanya dalam bentuk string (teks) walaupun yang kita ketik adalah angka, dan teks ini tidak bisa kita proses (proses hitungan), jadi nilai dalam bentuk teks tdi harus kita konversi dulu ke dalm bentuk angka, caranya menambahkan koding val.
contohnya val(text1.text). jadi setiap kita membuat program yang berhubungan dengan proses hitungan jadi nialinya harus kita konversi terlebih dahulu



Read More......

Jumat, 08 Juli 2011

Menggunakan Label, TextBox dan Command Button Pada VB 6.0

Buatlah project baru dan disain form seperti tampilan berikut :














pengaturan properties :

Pada label1 : caption : Tuliskan Nama Anda
Pada textbox : text : kosongkan


ketika koding berikut :

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = ""
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

coba jalankan programnya..

Read More......

Sabtu, 02 Juli 2011

Program Transaksi Penjualan Dengan Netbeans

Pertama, buatlah database dengan MySQL terlebih dahulu :
CREATE DATABASE transaksi;
USE transaksi;
CREATE TABLE barang (
kobar CHAR(5) PRIMARY KEY,
nabar VARCHAR(30),
stok INT);

CREATE TABLE pelanggan (
kopel CHAR(5) PRIMARY KEY,
napel VARCHAR(20),
alamat VARCHAR(50));

CREATE TABLE jual (
nofaktur CHAR(7) PRIMARY KEY,
tglfaktur DATE,
kopel CHAR(5));

CREATE TABLE detailjual (
nofaktur CHAR(7),
kobar CHAR(5),
hrgjual DOUBLE,
qty INT);

CREATE TABLE tempdetailjual (
nofaktur CHAR(7),
kobar CHAR(5),
hrgjual DOUBLE,
qty INT);

CREATE TABLE queri (
nomor INT PRIMARY KEY AUTO_INCREMENT,
nama LONGTEXT,
queri LONGTEXT);

CREATE TABLE USER (
username VARCHAR(10) PRIMARY KEY,
PASSWORD VARCHAR(3));

Unutk program entri data barang dan pelanggan silahkan lihat contoh programnya di sini...!



Disain form seperti tampilan berikut :






















Setelah selesai membuat database dan disain form transaksi penjualan, buatlah terlebih dahulu program entri data barang dan data pelanggan, silahkan lihat contoh programnya di sini

Untuk buat nomor urut secara otomatis silahkan baca di sini.. dan untuk membuat tanggal di sini..

Untuk projectnya silahkan download,

Mohon maaf kalw masih ada yg kekurangan pada koding di atas...

Read More......

Selasa, 28 Juni 2011

Program Searching (Pencarian Data) Pada Netbeans

Pada program kita sebelumnya, kita telah membuat program untuk tombol simpan, edit dan hapus.. Nah sekarang kita akan buat program untuk pencarian data, dimana pada program ini pencarian datanya berdasarkan nobp atau nama mahasiswa,, silahkan lihat latihan sebelumnya
Langkah-langkahnya sebagai berikut :
klik kanan pada jtextfield untuk pencarian data dan ketikan koding berikut ini :

private void jTextField3ActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
DefaultTableModel tabelnyo = new DefaultTableModel();
tabelnyo.addColumn("NO BP");
tabelnyo.addColumn("NAMA");
tabelnyo.addColumn("JURUSAN");

try{
koneksi();
String sql = "Select * from mahasiswa where nobp like '%" + jTextField3.getText() + "%'" +
"or nama like '%" + jTextField3.getText() + "%'";
ResultSet rs = cn.executeQuery(sql);
while (rs.next()) {
tabelnyo.addRow(new Object[]{
rs.getString(1),
rs.getString(2),
rs.getString(3)
});
}
jTable1.setModel(tabelnyo);

}catch (Exception e){
}
}




Read More......

Selasa, 21 Juni 2011

Buat Nomor Otomatis Di Netbeans

Berikut ini adalah koding untuk membuat nomor otomatis di Netbeans.
Koding untuk membuat nomor otomatis ini digunakan pada aplikasi penjualan untuk membuat no faktur. dimana setiap kali kita memanggi form penjualan maka nomor akan terbuat secara otomatis.. Berikut contoh formnya....



















koding programnya.....
public void buatnomor(){
try{
koneksi();
String sql = "Select nofaktur as no from jual ORDER by nofaktur desc";
ResultSet rs = cn.executeQuery(sql);

if (rs.next())
{
int no_t = Integer.parseInt(rs.getString("no")) + 1;
jTextField1.setText(Integer.toString(no_t));
}
else{
int no_t = 1;
jTextField1.setText(Integer.toString(no_t));
}
rs.close();
}catch (Exception e){

}
}

pada public, panggi method buatnomor

public penjualan0410018() {
initComponents();
tabel.setModel(tblmodel);
buatnomor();
tglskrg();
isicombo();
}



Read More......

Senin, 13 Juni 2011

Program Simpan, Edit, Hapus dan Cari dengan Netbeans

Pada database akademik di latihan sebelumnya, tambahkan tabel mahasiswa :

CREATE TABLE mahasiswa (
nobp CHAR(7) PRIMARY KEY,
nama VARCHAR(30),
jurusan VARCHAR(30));
 
tambahkan sebuat class dengan nama mahasiswa, disain form seperti tampilan berikut :





















kodingnya :

package prjakademik;
import java.sql.*;
import javax.swing.*;
import javax.swing.table.*;
/**
 *
 * @author Erin
 */
public class mahasiswa extends javax.swing.JFrame {
    public Connection conn;
    public Statement cn;


    /** Creates new form mahasiswa */
    public mahasiswa() {
        initComponents();
        bersih();
        tampildata();
        jComboBox1.addItem("Sistem Informasi");
        jComboBox1.addItem("Sistem Komputer");
        jComboBox1.addItem("Manajemen Informatika");
    }


tambahkan sebuah method pada class mahasiswa dengan nama koneksi, bisa juga di lihat pada lahitan sebelumnya..
public void koneksi(){
    try{
        Class.forName("com.mysql.jdbc.Driver");
        conn = DriverManager.getConnection("jdbc:mysql://localhost:3306/akademik","root","");
        cn = conn.createStatement();
    }catch (Exception e){
        JOptionPane.showMessageDialog(null,"koneksi gagal..");
        System.out.println(e.getMessage());
        }
    }


//nethod bersih
public void bersih(){
jTextField1.setText("");
jTextField2.setText("");
jTextField3.setText("");
jComboBox1.setSelectedItem("-Pilih-");
}

//method tampil data
public void tampildata(){
DefaultTableModel tabelnyo = new DefaultTableModel();
tabelnyo.addColumn("NO BP");
tabelnyo.addColumn("NAMA ");
tabelnyo.addColumn("JURUSAN");

try{
koneksi();
String sql = "Select * from mahasiswa order by nobp asc";
ResultSet rs = cn.executeQuery(sql);
while (rs.next())
{
tabelnyo.addRow(new Object[]{
rs.getString(1),
rs.getString(2),
rs.getString(3),
});
}
jTable1.setModel(tabelnyo);

}catch (Exception e){
JOptionPane.showMessageDialog(null, "Ada Kesalahan");
}

}

method carimhs :
public void carimhs(){
try{

koneksi();
String sql = "Select * from mahasiswa where nobp='"+jTextField1.getText()+"'";
ResultSet rs = cn.executeQuery(sql);

if (rs.next())
{

jTextField1.setText(rs.getString(1));
jTextField2.setText(rs.getString(2));
jComboBox1.setSelectedItem(rs.getString(3));


JOptionPane.showMessageDialog(null,"Data mahasiswa : " + jTextField1.getText() + " sudah ada.!!!");
bersih();
}
} catch (Exception e){}
jTextField2.requestFocus();
}

program pada tombol simpan..
double klik tombol simpan atau klik kanan-events-actionperformed dan ketikan koding berikut :
private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
try{

koneksi();
String sql = "insert into mahasiswa values ('"+ jTextField1.getText()+"', '" + jTextField2.getText() + "' , '" + jComboBox1.getSelectedItem() + "')";
cn.executeUpdate(sql);
conn.close();

tampildata();
bersih();
JOptionPane.showMessageDialog(null,"Data berhasil di simpan");

}catch (Exception e){
JOptionPane.showMessageDialog(null,"Proses penyimpanan gagal/koneksi gagal..");
System.out.println(e.getMessage());
}
}

program pada tombol edit..
private void jButton2ActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
try{

koneksi();
String sql = "update mahasiswa set nama='"+ jTextField2.getText() +"'," +
" jurusan='" + jComboBox1.getSelectedItem() + "'" +
"where nobp='" + jTextField1.getText() + "'";
cn.executeUpdate(sql);
conn.close();

tampildata();
bersih();
JOptionPane.showMessageDialog(null,"Data berhasil di rubah");

}catch (Exception e){
JOptionPane.showMessageDialog(null,"Proses update gagal/koneksi gagal..");
System.out.println(e.getMessage());
}
}

program pada tombol hapus :
private void jButton3ActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
try{

koneksi();
String sql = "delete from mahasiswa where nobp='"+ jTextField1.getText() +"'";
cn.executeUpdate(sql);
conn.close();

tampildata();
bersih();
JOptionPane.showMessageDialog(null,"Data berhasil di hapus");

}catch (Exception e){
JOptionPane.showMessageDialog(null,"Proses hapus gagal/koneksi gagal..");
System.out.println(e.getMessage());
}
}

klik kanan pada textfield nobp-events-key-keypresed :
if(evt.getKeyCode()==10){
carimhs();
}

klik kanan pada tabel-events-mouse-mouse clicked :
private void jTable1MouseClicked(java.awt.event.MouseEvent evt) {
// TODO add your handling code here:
int table = jTable1.getSelectedRow();
//mengambil data dari table
String a = jTable1.getValueAt(table, 0).toString();
String b = jTable1.getValueAt(table, 1).toString();
String c = jTable1.getValueAt(table, 2).toString();

jTextField1.setText(a);
jTextField2.setText(b);
jComboBox1.setSelectedItem(c);

jTextField1.setEnabled(false);
jTextField2.requestFocus();
jButton1.setEnabled(false);
}

cobalah buat tabel dan program untuk data matakuliah...
semoga sukses...
Selalu berbagi untuk kebaikan ya....

Maaf klw msh sangat banyak kekuranganya, krn jg msh belajar :)

Read More......