OPRAG-OPREG

Bagi para pemula programmer VB.Net artikel ini mungkin bisa sangat membantu. disini akan dijelaskan secara detail langkah demi langkah pembuatan aplikasi VB.Net dengan kolaborasi dengan Database SQL Server 2005 dan Crystal Report mudah-mudahan artikel ini dapat bermanfaat dan menjadi ladang amal bagi kami.. Amiin ya Robbal Allamin Download PAYROLL SYSTEM.pdf

saat ini kita akan sedikit berbicara mengenai Database SQL Server 2005. pada saat instalasi banyak orang bermasalah dengan database yang dibuat, karena path secara default ada di C: lalu bagaimana untuk menghindari hal2 yang pastinya tidak di inginkan oleh kita semua, misal database corrupt, suspect dll. mari belajar bersama, tutorial ini juga awalnya terjadi pada diri saya, dimana saya menggunakan DeepFreeze untuk maintaince PC saya. karena di instal di C: begitu PC saya restart tentu pasti database tersebut sudah hilang... pertama, pastikan database SQL Server 2005 terinstal dengan benar di PC anda biasa ada 2 DVD, ato beberapa installer bisa 1 DVD saja. lihat gambar berikut, yang perlu kita lakukan adalah merubah PATH tempat database tersebut di simpan.

Agan-agan sekalian, kali ini kita akan coba untuk membuat Aplikasi Terbilang VB.Net 2005. seperti tutorial sebelumnya buatlah sebuah form aplikasi untuk me-run lalu tambahkan sebuah CLASS pada aplikasi anda dan isikan kodingnya seperti dibawah ini dengan seksama Public Class CLASS_TERBILANG   Public Function ANGKA_TERBILANG(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   ANGKA_TERBILANG = " " + SATUAN(Fix(n))   Case 12 To 19   ANGKA_TERBILANG = ANGKA_TERBILANG(n Mod 10) + " BELAS"   Case 20 To 99   ANGKA_TERBILANG = ANGKA_TERBILANG(Fix(n / 10)) + " PULUH" + _   ANGK

Dear agan-agan para pecinta koding.. lagi-lagi berawal dari tugas kuliah baru-baru ini, dapet tugas buat perhitungan matematika dasar. mari kita belajar bersama-sama lagi. buat yang sudah master mohon petunjuknya, mungkin aplikasi ini terlalu dasar. seperti pada tutorial sebelumnya silahkan dipersiapkan form kalkulator anda ya paling tidak sama kayak punya saya. ga perlu buat 2 form ya !! itu cuma buat membedakan saja kondisi "ON" atau "OFF" saja. nah ini dia kodingnya : Public Class KALKULATOR372   Dim STR_01 As Double   Dim STR_02 As Double   Dim STR_03 As String   Private Sub BACKSPACE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BACKSPACE.Click   Dim X As New Integer   If (TxtLAYAR.Text.Length > 0) Then   X = TxtLAYAR.Text.Length   TxtLAYAR.Text = TxtLAYAR.Text.Remove(X - 1, 1)   End If   End Sub   Private Sub ANGKA_01_Click(ByVal sender As System.Object, ByVal e As System.EventArg

oke ini terinspirasi dari Tugas Kuliah baru-baru ini. so mari mengenal MD5 Dalam kriptografi, MD5 (Message-Digest algortihm 5) ialah fungsi hash kriptografik yang digunakan secara luas dengan hash value 128-bit. Pada standart Internet (RFC 1321), MD5 telah dimanfaatkan secara bermacam-macam pada aplikasi keamanan, dan MD5 juga umum digunakan untuk melakukan pengujian integritas sebuah file. MD5 di desain oleh Ronald Rivest pada tahun 1991 untuk menggantikan hash function sebelumnya, MD4. Pada tahun 1996, sebuah kecacatan ditemukan dalam desainnya, walau bukan kelemahan fatal, pengguna kriptografi mulai menganjurkan menggunakan algoritma lain, seperti SHA-1 (klaim terbaru menyatakan bahwa SHA-1 juga cacat). Pada tahun 2004, kecacatan-kecacatan yang lebih serius ditemukan menyebabkan penggunaan algoritma tersebut dalam tujuan untuk keamanan jadi makin dipertanyakan. oke cukup pengetahuan singkatnya mengenai MD5. sekarang buatlah form seperti dibawah ini atau ya terserah lah yang penting

Agan-agan buatlah sebuah Module pada aplikasi agan, dan tuliskan kodingnya seperti diatas untuk Koneksi databasenya : Imports System.Data Imports System.Data.Sql Module MODUL_KONEKSI   Public DATABASE As New OleDb.OleDbConnection   Public TAMPIL As New OleDb.OleDbCommand   Public TAMPILKAN As OleDb.OleDbDataReader   Public GRID As New OleDb.OleDbDataAdapter   Public DS As New DataSet   Public TABEL As String   Public RECORD As New BindingSource   Public DMLSQL As New OleDb.OleDbCommand   Public Sub KONEKSI()   Try   DATABASE.Close()   DATABASE.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _   "Persist Security Info=False;Initial Catalog=ABSENSI;Data Source=."   DATABASE.Open()   Catch ex As Exception   MsgBox(ex.ToString())   End Try   End Sub End Module

oke kali ini kita akan bermain dengan database SQL Server 2000. silahkan agan-agan sekalian buat databasenya nama bebas aja terserah alias up to you. nah setelah database jadi, buatlah Tabel (TABEL_DIVISI) dengan isi Field (NOMORDIVISI,VARCHAR,50) dan (DIVISI,VARCHAR,50)

Dear agan-agan sekalian para pecinta VB terutama bagi yang baru saja beralih dari VB 6 ke VB.Net seperti saya ini. nah kali ini kita akan coding dengan database SQL Server 2000, naik level dari tutorial sebelumnya yang masih menggunakan database Ms.Access. silahkan membuat form seperti di atas dengan properti ToolStrip, DatagridView, Textbox dan Label. untuk penamaan propertinya silahkan mengikuti coding dibawah atau menamakannya dengan nama lain, intinya paham dan aplikasi bisa running. ====================================================== Private Sub DATA_DIVISI()   Call KONEKSI()   DS = New DataSet   TABEL = "SELECT * FROM TABEL_DIVISI"   GRID = New OleDb.OleDbDataAdapter(TABEL, DATABASE)   GRID.Fill(DS, "TABEL_DIVISI")   Dim GRIDVIEW As New DataView(DS.Tables("TABEL_DIVISI"))   DGDIVISI.DataSource = GRIDVIEW   DGDIVISI.Columns(0).Width = 50   DGDIVISI.Columns(1).Width = 190   End Sub ============

Masih menggunakan form yang sama dengan Tutorial-01 namun dengan adanya Tutorial-02 data pada List sudah bisa di input paling tidak dengan ilustrasi data seperti dibawah ini Public Class APLIKASI   Inherits System.Windows.Forms.Form   Dim DABARANG As OleDb.OleDbDataAdapter   Private Sub APLIKASI_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated   DABARANG = New OleDb.OleDbDataAdapter("SELECT IDUSER,USERNAME,PASSWORD,AUTHENTIFIKASI" & _   " FROM TABEL_USER_SISTEM", MyKoneksi.KONEKSI_DBMS)   Dim DTBARANG As New DataTable   DTBARANG.Clear()   DABARANG.Fill(DTBARANG)   Me.GRIDUSER.DataSource = DTBARANG   Me.GRIDUSER.ReadOnly = True   End Sub ************************************************************************   Private Sub GRIDUSER_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GRIDUSER.DoubleClick   USER.TxtIDUSER.Text = GRIDUSER.Item(0, GRIDUSE

Halo semuanya kini kita masuk pada tahap selanjutnya dari posting "Tutorial-01" di bulan desember'10 lalu. silahkan buat Form seperti dibawah ini, namakan dengan USER buka View Code pada Vb.Net anda dan tambahkan pada awal code ketikan ********************************** Imports System.Data Imports System.Data.OleDb ********************************** double click pada form  **********************************  Call MyKoneksi.KONEKSI_DBMS()   Call FIELD_LOCK()   Call CAPITAL()   CmbLEVEL.Items.Clear()   CmbLEVEL.Items.Add("ADMINISTRATOR")   CmbLEVEL.Items.Add("SYSADMIN")   CmbLEVEL.Items.Add("USER") ************************************* pada Class Form USER buat beberapa Private Sub *************************************** Private Sub SEGER()   RSKODE = New OleDb.OleDbDataAdapter("SELECT IDUSER FROM TABEL_USER_SISTEM ORDER BY IDUSER DESC", MyKoneksi.KONEKSI_DBMS)   Try   DATASET_ID.Tables.Clear()   Catch ex As Exception   RSKODE.Fill(DA

This is it what i'm looking for

Aksesoris Hp Online: SILIKON HALF-MATE-CASE/SILIKON SETENGAH KEYPAD TER... : "Silikon Half-mate-case atau silikon sebagian keypad tertutup, hanya bagian layar dan trackpad yang tidak tertutup. Tipe yang tersedia: 8520..."

ini jaket keren juga nih.. ada yang mau.. bisa langsung kontak kami