fungsi konversi pada visual basic

Posted by Unknown Rabu, 29 Agustus 2012 0 komentar

setelah kemarin belajar mengenai fungsi string pada visual basic yang belum baca silahkan mampir di fungsi string pada visual basic, nah kali ini saya akan  berbagi mengenai fungsi konversi pada visual basicini sangat penting dan banyak para newbie yang blm tau.., ok langsung saja.!
1. FormatCurrencyini digunakan untuk mengembalikan nilai dalam bentuk format Currency(mata uang) yang sesuai dengan pengaturan control panel.
ContohDim uanguang = FormatCurrency (1000,2) 'hasilnya Rp1.000,00

2. FormatPercentfungsi formatpercent akan mengembalikan nilai dalam persentase
Contohdim persentpersent = FormatPercent ( 2/32) 'hasil 6.25%
3. Format Date  timeContoh 
Dim tglsekarangtglsekarang = FormatDateTime (Date,VblongDate)Sekian dulu ya.. semoga tulisannya bermanfaat..."
Salam Coding...!


Baca Selengkapnya ....

membuat nomor faktur otomatis dengan visual basic

Posted by Unknown Selasa, 28 Agustus 2012 3 komentar
Dalam pembuatan aplikasi penjualan, biasanya pasti ada no fakturnya. nah biar ga repot-repot ngetik no faktur ada baiknya no fakturnya dibuat secara otomatis, jadi bisa lebih mempermudah proses transaksinya. ok langusng  aja ya..



silahkan ketikan code berikut :
Private Sub Form_Activate()
    Dim Rst As New ADODB.Recordset
    Dim s As String
   
    Rst.Open "select max(right(no_faktur,14)) as Nomor from beli_kredit", con
   
   
    If IsNull(Rst!Nomor) Then
        s = "000000000000001"
    Else
        s = "000" & Format(Rst!Nomor + 1, "000000000000")
    End If
   

    Text11 = s
End Sub


Keterangan...!
Dim Rst As New ADODB.Recordset adalah variabel yang mencari data dalam database
Rst.Open "select max(right(no_faktur,14)) as Nomor from beli_kredit", con adalah Sintax SQL untuk mencari data terakhir yang sebelah kanan dari field no_faktur sebanyak 14, asumsinya no_fakturnya maxlengtnya 15 dari tabel beli kredit. dan con adalah nama koneksinya

Ok segitu dulu ya buat hari ini seomga bisa membantu .. dan berguna. heheheh

Baca Selengkapnya ....

gratis download sourcecode aplikasi penjualan dengan visual basic

Posted by Unknown 0 komentar
hai sahabat bloger semua, setelah kemarin sudah berbagi sourcecode aplikasi konter hp kali ini saya ingin berbagi tentang aplikasi penjualan, aplikasi ini masih sederhana dan menggunakan database acces, tapi gak papalah bisa digunakan untuk belajar buat program bagi yang baru-baru belajar. ok silahkan langsung download aja contoh programnya

gratis download aplikasi penjualan

Baca Selengkapnya ....

membuka control panel windows dengan visual basic

Posted by Unknown 0 komentar
Hai.. sahabat semua.kali ini saya ingin berbagi tips visual basic tentang cara membuka control panel windows.. ok kita langsung aja ya..

1. Buka aplikasi vb
2. dalam satu form tambahkan satu Command Button
3. double klik Command buttonya dan ketik sintak berikut ini.
     Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl", 1

perintah diatas digunakan untuk memanggil seting waktu/regional

sintak lengkapnya adlah sebagai berikut :

Private Sub Button1_Click()
    Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl", 1
End Sub

Note : Button diatas menggunakan button vista.ocx

Sekian dulu ya sharingnya lain kali kita akan shering lagi. jika ada pertanyaan silahkan komen.. OK :)

Baca Selengkapnya ....

gratis download sourcecode aplikasi konter hp dengan visual basic

Posted by Unknown 1 komentar
met pagi all.. duh pagi2 gini rasanya pngen males2  nih, males bangun,males beraktifitas, males posting juga..hehehe...

karena males posting mau nulis apa juga gak tau, sekarang ane kasi contoh program vb gratis aja nih...
wah gratis...y.. ternyata ada untungnya juga ya males posting, coz jadi dapet source code aplikasi konter hp gratis.heheh

ok lah biar gak banyak omong langsung aja ni download contoh aplikasinya, aplikasi ini masih sederhana buatan ane sendiri, mudah-mudahan bisa menjadi reffernsi bagi teman-teman yang sedang belajar membuta aplikasi database dengan visual basic...


Baca Selengkapnya ....

fungsi string pada vb (visual basic)

Posted by Unknown 0 komentar
Selamat pagi..
Yeh akirnya bisa lanjut lagi postingnya diblog tercinta....! He..
Ok kali ini kita akan lanjutkan bahasannya mengenai fungsi string pada VB. Ok Langsung saja ke ... TKP :)

2. Fungsi Right
fungsi ini akan mengembalikan nilai sejumlah karakter dari sebelah kanan sebuah string

Bentuk Umum :
Right (string,lenght)

fungsinya hampir sama dengan Left, so contoh pada fungsi left kemarin bisa diganti denga Right



3. Fungsi Len
mengembalikan nilai numeric jumlah dari string atau variable yang ditentukan

Bentuk umum :
Len( String/variable)

contoh :
dim str 
str=Len(VBKU)
jika dijalankan maka nilai str menjadi 4

4. Ltrim
Ltrim digunakan untuk menghapus spasi disebelah kiri sebelum ditemukan karakter lain spasi. adapun fungsi 
Rtrim digunakan untuk menghapus karakter spasi dibagian kanan string. sementara untuk menghapus karakter spasi disebelah kanan dan kiri digunakan fungsi Trim

Bentuk umum :
LTrim(string)
RTrim(string)
Trim(string)

5. Mid
mid digunakan untuk mengambil sebagian isi string dengn jumlah tertentu dengan posisi yang anda tentukan 

Bentuk Umum :
Mid (String ,start ,lenght)

contoh :

dim str
str = Mid("Aplikasi VB ku ",10 , 2 ) 
maka hasilnya VB

6. Lcase dan Ucase
fungsi Lcase mengembalikan nilai string yang sudah diubah menjadi huruf kecil sedangkan Ucase mengembalikasn nilai String yang sudah diubah menjadi huruf besar.

Bentuk Umum :
Lcase( string )
Ucase (string )

7. Split
fungsi ini digunakan untuk membagi string menjadi beberapa bagian yang dimasukan dalam aray satu dimensi

Bentuk umum 
Split ( string[,delimiter[count[,compare]]])
dengan fungsi ini anda dapat memisahkan string berdasarkan pemisah (delimiter).

8. String
fungsi ini akan mengembalikan nilai karakter dengan menuliskan berulang-ulang karakter yang anda inginkan

Bentuk umum 
String (Number,caracter)

Ok sampai disini dulu ya tulisannya, besok kita akan belajar fungsi format yang ada pada VB. selalu yang saya harapkan adalah semoga tulisan ini bermanfaat untuk semua...!

Baca Selengkapnya ....

aplikasi pengolah nilai siswa V1

Posted by Unknown 0 komentar
tunggu ya

Baca Selengkapnya ....

aplikasi ujian penerimaan siswa baru V1

Posted by Unknown 0 komentar
tunggu ya

Baca Selengkapnya ....

aplikasi steam motor V1

Posted by Unknown 0 komentar
Tunggu ya

Baca Selengkapnya ....

koneksi delphi database ms.acces

Posted by Unknown 0 komentar
setelah kita belajar cara mengkoneksikan visual basic dengan database acces, yang belum baca silahkan baca artikel koneksi database acces dengan visual basic(vb), sekarang kita akan belajar cara koneksi delphi dengan database acces, ok langsung aja ya..

Buka program Borland Delphi, pilih tab ADO pada Componen Palette, gunakan komponen ADOConnection dan ADOQuery



Langkah 2: 
Klik komponen ADOConnection, pada Properties di Object Inspector, pilihConnectionString, maka akan muncul tampilan seperti di bawah ini:


Plih Use Connection String, kemudian klik tombol Build...

Langkah 3: 
Muncul jendela Data Link Properties, pilih Microsoft Jet 4.0 OLE DB Provider kemudian klik tombol Next



Langkah 4: 
Langkah selanjutnya adalah, klik tombol titik-titik pada Select or enter a database name untuk memilih database yang telah dibuat menggunakan MS.Accsess



Setelah database dipilih, kosongkon isian pada User name, kemudian klik tombol Test Connection untuk mencoba koneksi antara delphi dengan database MS.Access berhasil atau tidak
Jika berhasil akan mucul pesan Connection Succeeded.
Klik tombol OK

Langkah 5: 
ubah Properties Connected  komponen ADOConnection dari False menjadiTrue, maka akan muncul Login Prompt seperti di bawah ini, langung tekan tombol OK saja


Note : untuk menghilangkan login form, pada tab propestis login form pilih false

Langkah 6: 
Ubah Properties Connection pada komponen ADOQuery dengan pilihanADOConnection1, dan pada SQL masukkan listing SELECT * FROM tsiswa seperti pada gambar di bawah.


Kemudian ubah Properties Active dari False menjadi True.

Langkah 7: 
tambahkan komponen DataSource pada tab Data Access dan DBGrid pada tab Data Control.




Langkah 8: 
Ubah Properties Dataset pada komponen DataSource dengan memilihADOQuery1.
Kemudian Ubah Properties DataSource pada komponen DBGrid dengan memilih DataSource1.
Data yang terdapat pada database Microsoft Access siap ditampilkan di Delphi.


Cukup segini dulu, sedang dipersiapkan artikel berikutnya, salam pemrograman :)

Baca Selengkapnya ....

aplikasi minimarket V1

Posted by Unknown 2 komentar

aplikasi ini saya buat dengan maksud agar dapat membantu para pengusaha toko atau retail, aplikasi menangani proses transaksi penjualan dan pembelian baik secara tunai maupun kredit. aplikasi ini dapat dijalankan dijaringan atau menggunakan lebih dari satu komputer, aplikasi dibuat dengan database mysql dengan tampilan yang user friendly sehingga para pengguna tidak memerlukan waktu yang lama untuk bisa mengguanakan aplikasi laporan-laporan transaksi dapat dicetak per tanggal maupun perbulan. aplikasi dapat mencetak struk penjualan secara langsung, sebaiknya menggunakan printer DOT matrix untuk mencetak struk transaksi penjualan, aplikasi juga menangani diskon bertingkat yakni diskon per kode barang dan diskon perjumlah beli barang.berikut fitur-fitur aplikasi minimarket ini




data master :master barangmaster supliermaster customermaster userset waktu aplikasi (untuk menyesuaikan waktu komputer dengan waktu aplikasi)keluar aplikasi

data transaksitransaksi pembelian(tunai/kredit)transaksi penjualan (tunai/kredit)retur beliretur jualpembayaran hutangpenerimaan piutang
data back officekoreksi stokupdate hargapemasukan tambahanpengeluaran tambahan
utilitydatabase (semua data-data yang ada pada proses)ganti passwordset hak akses user (menentukan form apa saja yang dapat diakses oleh user tertentu)
laporanlaporan data masterlaporan transaksigrafik penjualan
fasilitas
laporan stok menipis
laporan penjualan barang terlaris berdasar kode barang.
silahkan instal dahulu komponen pendukung aplikasi, silahkan download di link dibawah ini
download mysql conectordownload xampp serverSaya sertakan versi trial dengan penggunaan 30 kali pemakaian bukan 30 hari.Maaf ya bukannya pelit tapi ini memang barang jualan. Yang berminat download versi trial dibawah ini.
download aplikasi minimarket gratis
Harga Rp. 800.000 (Aplikasi + Bonus aplikasi londri,script website(10 buah))Harga Rp. 2.000.000 (Aplikasi+Sources Code+Bonus)
Transfer Ke-Bank Negara Indonesia (BNI)Cabang UnliaNo. Rek 023-452-135-8Atas Nama Wayan Virgus Susantijika ada pertanyaan silahkan hubungi 085788943381



Baca Selengkapnya ....

koneksi vb.net database acces

Posted by Unknown 0 komentar
hai.. hai jumpa lagi disini dalam pelajaran pemrograman desktop,pada kali ini kita akan membahas cara koneksi vb.net dengan database acces, setelah sebelumnya sudah membahas tentang koneksi vb database acces, yang belum baca silahkan baca artikel tentang koneksi database acces dengan visual basic, dan koneksi delphi dengan database acces, yang belum baca silahkan baca artikel koneksi delphi dengan database acces. pada dasarnya konesksinya mirip dengan cara pengkodean pada visual basic,oke langsung aja ya kita baca dibawah ini..

Import System.Data.OleDb
public class form1
  dim kns as new OleDbConnection
  dim da as new OleDbDataAdapter
  dim dt as new datatable
  Public Sub form1_load( ...... ) mybase.load
      'ini utk access 2003 kebawah
      kns.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;data source=mydata.mdb;Jet Oledb:Database Password='passku'"
      'Ni tuk Access 2007 kebawah
 
    'kns.ConnectionString = "Provider = Microsoft.Ace.OleDb.12.0;data
source=*.mdb/*accdb;Jet Oledb:Database Password='passku'"
      da.SelectCommand=new oledbCommand("select * from tabel1",kns)
      da.fill(dt)
      datagridview1.datasource=dt
  end sub 
end class

He.. semoga bermanfaat ya artiklenya.. salam coding

Baca Selengkapnya ....

koneksi database acces dengan visual basic

Posted by Unknown 0 komentar

dalam membuat suatu aplikasi database dengan menggunakan vb, pertama kita harus melakukan koneksi terlebih dahulu kedatabase, agar data pada database dapat kita olah menggunakan vb. ada dua cara yang dapat kita lakukan untuk mengkoneksikan database ke vb, yaitu dengan manual dan yang lainnya dengan menggunakan coding.Oke,,daripada lama2 n tambah bingung, kita mulai aja pembahasan nya...,,Langkah pertama kita tambahkan dulu komponen pada toolbox nya dengan mngetikkan Ctrl+T atau klik menu projeck lalu pilih Componen.,kemudian cari dan centang komponen Microsoft Ado Data Control 6 (OLEDB) dan Data Grid Control 6 (OLEDB), seperti pada gambar dibawah :pertama kita akan bahas cara manual.Setelah kedua komponen tersebut di centang lalu tekan tombol OK, kemudian masukkan kedua komponen tersebut ke dalam form., komponen tool data grid berfungsi untuk menampilkan isi dari database yang kita inputkan.Kalau komponen adodc1 dan datagrid1 sudah diletakkan pada form, langkah berikutnya adalah cara untuk mengkoneksikan database lewat adodc1.pertama, klik kanan pada tool adodc1, lalu pilih ADODC Properties.Kemudian akan muncul Properties Page, Klik tabulasi general, kemudian pada frame source of connection pilih option Use Connection String lalu klik tombol Build...Setelah itu akan muncul form Data Link Properties pada tab Provider pilih Microsoft Jet 4 OLE DB Provider, kemudian Klik Next.Pada tab Connection pilih tombol cari (....) pada Select or Enter a Database Name untuk mencari database yang sudah kita buat sebelumnya,,Setelah database dimasukkan kemudian klik tombol Test Connection, jika berhasil maka akan muncul pesan Test Connection Succeeded, kemudian Klik Tombol OK.Kemudian kembali ke form Property Pages, klik tab Record Source kemudian pada Command Type Pilih adCmdTable dan pada Table or Stored Procedure Name pilih tabel dari database yang kita buat lalu klik OK.Sampai disini kita sudah berhasil mengkoneksikan database access dengan visual basic..,untuk membuktikan database sudah terkoneksi kita gunakan datagrid1,,cara nya :klik datagrid1, kemudian pada datagrid1 properties, Data Source nya pilih Adodc1..,Kemudian klik kanan pada DataGrid1, lalu pilih Retrieve Fields, setelah itu klik OK,,maka akan muncul Field-fiel dari database yang kita buat sebelumnya pada datagrid.yang kedua dengan cara mengetik coding sendiriYang pertama dilakukan adalah membuat module dahulu dan references dengan cara masuk ke menu project-reference-Microsoft Activex Dataobject 2.0 Library untuk pemanggilan koneksi dari database.Setelah membuat koneksi masukan coding sebagai berikut :Public cn As New ADODB.ConnectionPublic Sub BukaDB()Dim koneksi As Stringkoneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path & “\latihan.mdb;”cn.Open koneksiEnd SubPerhatikan kode diatas, jangan sampai asal menulis saja tetapi anda harus bisa memahaminya dengan benar, yang pertama yaituPublic cn As New ADODB.ConnectionBerfungsi untuk membuat variable bersifat public menggunakan ADODBDim koneksi As StringBerfungsi untuk membuat variable bersifat private bertipe stringkoneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path & “\latihan.mdb;”Merupakan kode utama dari koneksi yang dibutuhkan. Yang pertama menggunakan provider Microsoft jet oledb 4.0 yang memanggil data source/sumber data dari database latihan.mdbcn.Open koneksiOk segini dulu ya.. semoga bermanfaat.. :)


Baca Selengkapnya ....