membuat inputbox pada visual basic

Posted by Unknown Minggu, 02 September 2012 0 komentar

pada kesempatan ini saya akan berbagi cara membuat inputbox pada visual basic. lalu apakah input box itu?
inputbox adalah suatu kotak dialog yang menampilkan kotak dan menunggu user mengisikan nilai dan mengklik tombol, semacam textbox yang bisa dipanggil. berikut cara membuatnya.
buka sebuah form dan masukan sebuah textbox dan  command_button, lalu klik dua kali pada command_button tersebut masukan perintah berikut :
text1.text=InputBox("Masukan sebuah nilai:"," Input nilai").
coba jalankan program, ketika user menekan command_button masukan user diminta untuk memasukan sebuah nilai dalam kotak inputan, jika tekan tombol ok setelah memasukan nilai maka pada textbox1 akan muncul nilai yang dimasukan pada inputbox tadi


ok. segini dulu ya, dari pada tidak ada yang dibagi informasinya lebih baik nulis meskipun mungkin kurang bermanfaat. semoga dapat membantu kususnya bagi para pemula


Baca Selengkapnya ....

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