kumpulan aplikasi gratis buat belajar vb 6

contoh program2 sederhana vb 6 buat pembelajaran bagi pemula. termasuk aku gan..hehehe..masih belajar. silahkan di gasak.. 1. Hotel

http://www.ziddu.com/download/8895846/Aplikasi_Pengelolaan_Hotel.rar.html

2. Jasa Bengkel

http://www.ziddu.com/download/8895847/AplikasiServiceKendaraan.rar.html

3. Penyewaan DVD

http://www.ziddu.com/download/8895848/Rental_DVD.rar.html

4. Koperasi

http://www.ziddu.com/download/8895959/Koperasi.rar.html

5. Program Stok Obat

http://www.ziddu.com/download/8895960/SistemPersediaanObat.rar.html

6. SMS Manager

http://www.ziddu.com/download/8895958/SMSManager.rar.html

7. Toko Komputer

http://www.ziddu.com/download/8896289/Retail_computer.rar.html

8. Koleksi SMS Gateway

http://www.ziddu.com/download/8930202/IndoprogSMS.zip.html

http://www.ziddu.com/download/8930203/xsmsgateway.zip.html

http://www.ziddu.com/download/8930204/Smart-SMS.zip.html

http://www.ziddu.com/download/8930205/smsgateway.zip.html

9. Program Penerimaan Mahasiswa Baru

http://www.ziddu.com/download/8896291/Penerimaan_Mahasiswa_Baru.zip.html

10. Program Penjualan Tiket Pesawat

http://www.ziddu.com/download/8896290/Penjualan_Tiket_Pesawat.rar.html

11. Rental video

http://www.ziddu.com/download/8896287/Rental_Video.rar.html

12. Program Rental DVD

http://www.ziddu.com/download/8896586/SISTEM_APLIKASI_RENTAL_DVD.zip.html

13. Program Pasien

http://www.ziddu.com/download/8896585/SISTEM_INFORMASI_PASIEN.zip.html

14. Program Rumah Sakit/ Puskesmas

http://www.ziddu.com/download/8896583/Rumah_Sakit.rar.html

15. Billing

http://www.ziddu.com/download/8896584/Visual_Basic_Billing.zip.html

16. Sistem Informasi Persediaan Barang

http://www.ziddu.com/download/8896582/SistemInformasiPersediaanBaran.rar.html

17. Sistem Informasi Persediaan Sepatu

http://www.ziddu.com/download/8896587/SistemInformasiPersediaanSepat.rar.html

18. Software Akuntansi menggunakan Excel

http://www.ziddu.com/download/8896654/software_aplikasi_akuntansi_ex.rar.html

19. Sistem Supermarket

http://www.ziddu.com/download/8896653/Supermarke1732534122004.zip.html

20. Bar Rest

http://www.ziddu.com/download/8896652/BarRest.rar.html

21. Bel Sekolah

http://www.ziddu.com/download/8584512/BelSekolah.zip.html

22. Aplikasi Karyawan PLN

http://www.ziddu.com/download/8584514/AplikasiKaryawanPLN.zip.html

23. Pendaftaran Sekolah

http://www.ziddu.com/download/8584513/PendaftaranSekolah.zip.html

24. Aplikasi Penjualan Koran

http://www.ziddu.com/download/8584546/SistemAplikasiPenjualanKoran.zip.html

25. Aplikasi Rumah Sakit

http://www.ziddu.com/download/8584515/SistemInformasiRumahSakit.zip.html

26. Aplikasi Gaji Karyawan

http://www.ziddu.com/download/8584511/Penggajian.rar.html

27. Aplikasi sidik Jari

http://www.ziddu.com/download/8930118/FingerPrintdtbase.ZIP.html

28. Sistem Pakar

http://www.ziddu.com/download/8930117/expertsystem.rar.html

29. Penjualan Tunai Kredit

http://www.ziddu.com/download/8930120/735464501b4bce254493cf17c1d14f14.rar.html

30. Penjualan Toko Komputer

http://www.ziddu.com/download/8930116/penjualan.rar.html

31. Penjualan Toko Retail

http://www.ziddu.com/download/8930119/retail.zip.html

kode fungsi "msgbox"

The MsgBox function displays a message box, waits for the user to click a button, and returns a value that indicates which button the user clicked.

The MsgBox function can return one of the following values:

• 1 = vbOK - OK was clicked
• 2 = vbCancel - Cancel was clicked
• 3 = vbAbort - Abort was clicked
• 4 = vbRetry - Retry was clicked
• 5 = vbIgnore - Ignore was clicked
• 6 = vbYes - Yes was clicked
• 7 = vbNo - No was clicked

Note: The user can press F1 to view the Help topic when both the helpfile and the context parameter are specified.

Tip: Also look at the InputBox function.

Syntax

MsgBox(prompt[,buttons][,title][,helpfile,context])

Parameter	Description
prompt	Required. The message to show in the message box. Maximum length is 1024 characters. You can separate the lines using a carriage return character (Chr(13)), a linefeed character (Chr(10)), or carriage return–linefeed character combination (Chr(13) & Chr(10)) between each line
buttons	Optional. A value or a sum of values that specifies the number and type of buttons to display, the icon style to use, the identity of the default button, and the modality of the message box. Default value is 0 0 = vbOKOnly - OK button only 1 = vbOKCancel - OK and Cancel buttons 2 = vbAbortRetryIgnore - Abort, Retry, and Ignore buttons 3 = vbYesNoCancel - Yes, No, and Cancel buttons 4 = vbYesNo - Yes and No buttons 5 = vbRetryCancel - Retry and Cancel buttons 16 = vbCritical - Critical Message icon 32 = vbQuestion - Warning Query icon 48 = vbExclamation - Warning Message icon 64 = vbInformation - Information Message icon 0 = vbDefaultButton1 - First button is default 256 = vbDefaultButton2 - Second button is default 512 = vbDefaultButton3 - Third button is default 768 = vbDefaultButton4 - Fourth button is default 0 = vbApplicationModal - Application modal (the current application will not work until the user responds to the message box) 4096 = vbSystemModal - System modal (all applications wont work until the user responds to the message box) We can divide the buttons values into four groups: The first group  (0–5) describes the buttons to be displayed in the message box, the second group (16, 32, 48, 64) describes the icon style, the third group (0, 256, 512, 768) indicates which button is the default; and the fourth group (0, 4096) determines the modality of the message box. When adding numbers to create a final value for the buttons parameter, use only one number from each group
title	Optional. The title of the message box. Default is the application name
helpfile	Optional. The name of a Help file to use. Must be used with the context parameter
context	Optional. The Help context number to the Help topic. Must be used with the helpfile parameter

fungsi terbilang pada vb 6

Seperti yang pernah rekan pembaca lakukan pada pembelian atau pembayaran atau menabung di bank, ada 'angka' yang menunjukkan banyaknya uang yang mau disetor tersebut, ada pula 'kalimat' yang menunjukkan banyaknya uang yang mau disetor tersebut, yang biasanya bertuliskan 'terbilang'.
Contoh:
100.000
Terbilang: Seratus ribu.

Untuk mahasiswa yang sedang ada tugas Visual Basic 6.0 yang berkaitan dengan kasus tersebut, silakan pelajari Script atau Source Code Visual Basic ini:

'Belajar Visual Basic 6.0
'Tambahkan: 1 TextBox, 1 CommandButton, 1 Label
'Riyan Hidayat Samosir in BeKaBe.BlogSpot.Com

Function SayNumber(nNumber As Variant, _
Optional SayKoma As Boolean = False) As String
Dim i As Long
Dim s As String
Dim s2 As Double
Dim x As String
Dim minus As Boolean
Dim nBulat As Double

If TypeName(nNumber) = "String" Then
If Trim(Mid$(nNumber, 1, 1) = "-") Then
minus = True
nNumber = Mid(nNumber, 2)
End If
x = Trim(CDbl(nNumber))

Else
If nNumber < 0 Then nNumber = Abs(nNumber) minus = True End If x = FormatNumber(nNumber, 2) End If s = SayN(Int(nNumber)) If minus Then SayNumber = "Minus " & s Else SayNumber = s End Function Function SayN(nNumber As Double) As String Dim z, s, a, c, x Dim ulang As Double Dim i As Byte Dim tampung(5) As String Dim n As String n = LTrim(RTrim(nNumber)) ulang = (Len(n) - 1) \ 3 + 1 For i = 1 To ulang If Len(n) > 3 Then
c = Mid$(n, Len(n) - 2, 3)
n = Mid$(n, 1, Len(n) - 3)
tampung(i) = c
Else
tampung(i) = n
End If
Next i

z = ""
If n = "0" Then
z = "Nol "
Else
i = ulang
Do
a = ""
x = ""
s = tampung(i)
While Len(s) < 3 s = "0" + s Wend 'digit ratusan If Mid$(s, 1, 1) <> "0" Then
If Mid$(s, 1, 1) = "1" Then
a = a + "Seratus "
Else
a = a + Nama(Mid$(s, 1, 1)) + "Ratus "
End If
End If

'digit 11-19
If Mid$(s, 2, 1) = "1" Then
If (Mid$(s, 3, 1) <> "1") And (Mid$(s, 3, 1) <> "0") Then
a = a + Nama(Mid$(s, 3, 1)) + "Belas "
End If
If Mid$(s, 3, 1) = "1" Then a = a + "Sebelas "
If Mid$(s, 3, 1) = "0" Then a = a + "Sepuluh "
End If

'digit puluhan
If (Mid$(s, 2, 1) <> "1") And _
(s <> "000") And (Mid$(s, 2, 1) <> "0") Then
a = a + Nama(Mid$(s, 2, 1)) + "Puluh "
End If

If (Mid$(s, 3, 1) <> "0") And (Mid$(s, 2, 1) <> "1") Then
a = a + Nama(Mid$(s, 3, 1))
End If

'perkecualian untuk seribu
If (i = 2) Then
If s = "001" Then a = "Se"
End If

If s <> "000" Then
If i = 1 Then x = ""
If i = 2 Then x = "Ribu "
If i = 3 Then x = "Juta "
If i = 4 Then x = "Miliar "
If i = 5 Then x = "Triliun "
End If
If a = "Se" Then x = LCase(x)
z = z + a + x
i = i - 1
Loop Until i = 0
End If
SayN = z
End Function

Private Function Nama(a As String) As String
Select Case a
Case "1": Nama = "Satu "
Case "2": Nama = "Dua "
Case "3": Nama = "Tiga "
Case "4": Nama = "Empat "
Case "5": Nama = "Lima "
Case "6": Nama = "Enam "
Case "7": Nama = "Tujuh "
Case "8": Nama = "Delapan "
Case "9": Nama = "Sembilan "
Case "0": Nama = ""
End Select
End Function

Private Sub Command1_Click()
Label1.Caption = SayNumber(Text1.Text)
End Sub
sumber: http://bekabe.blogspot.com/2011/04/visual-basic-membuat-fungsi-terbilang.html