OPRAG-OPREG

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 ============