Halloween party ideas 2015
Showing posts with label VB6. Show all posts
Tweet Share Share Share Share Share

10:29

Berikut Contoh Source Code Laporan Berdasarkan Tanggal awal dan akhir menggunakan bahasa pemrograman VB6. semoga source code ini dapat digunakan sebagai bahan pembelajaran pembuatan aplikasi - aplikasi yang menggunakan bahasa pemrograman VB6


silahkan download 

Demikian semoga bermanfaat bagi pembaca semua, jika terdapat kekurangan silahkan tambahkan di kolom komentar
Read more »
Tweet Share Share Share Share Share

13:04

Kali ini saya akan membagikan cara untuk membatasi hanya angka pada textbox VB6 dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program inidigunakan agar terjadi error sedikit mungkin pada program yang akan dibuat. seringnya user tidak mengetahui cara dan karakter apa saja yang dapat diinputkan pada textbox membuat program ketika dijalankan menjadi error, sehinggi kadang kala membuat programer kerepotan. semoga ilmu yang saya sharingkan ini bisa menambah wawasan bagi para pembaca semuanya.

prosedur :

Public Sub JustNumber(ByRef KeyAscii As Integer)
    If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
        KeyAscii = 0
    End If
End Sub

cara memanggilnya pada textbox yang telah dibuat pada form di Visual Basic 6

Private Sub Text5_KeyPress(KeyAscii As Integer)
  JustNumber KeyAscii

End Sub




demikian ilmu membatasi hanya angka pada textbox VB6 yang saya sharingkan, semoga bermanfaat bagi pembaca sekalian.
Read more »
Tweet Share Share Share Share Share

13:02
Kali ini saya akan membagikan cara untuk membatasi hanya huruf pada textbox VB6 dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program inidigunakan agar terjadi error sedikit mungkin pada program yang akan dibuat. seringnya user tidak mengetahui cara dan karakter apa saja yang dapat diinputkan pada textbox membuat program ketika dijalankan menjadi error, sehinggi kadang kala membuat programer kerepotan. semoga ilmu yang saya sharingkan ini bisa menambah wawasan bagi para pembaca semuanya.

prosedur :

Public Sub HanyaHuruf(ByRef KeyAscii As Integer)
    If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
        KeyAscii = 0
    End If
End Sub

cara memanggilnya pada textbox yang telah dibuat pada form di Visual Basic 6

Private Sub Text2_KeyPress(KeyAscii As Integer)
HanyaHuruf KeyAscii
End Sub

demikian ilmu membatasi hanya huruf pada textbox VB6 yang saya sharingkan, semoga bermanfaat bagi pembaca sekalian.

Read more »
Tweet Share Share Share Share Share

10:40

Kali ini saya akan membagikan cara untuk menampilakan laporan berdasrkan kriteria tertentu seperti nomor nota yang menggunakan bahasa pemrograman Visual Basic 6.  pada program ini menggunakan crystal report sebagai laporannya  semoga bisa menambah wawasan bagi para pembaca semuanya.

source code :

  Me.MousePointer = 11
    With CrystalReport1
        .Reset
        .ReportFileName = App.Path & "\Jual.rpt"
        .DataFiles(0) = App.Path & "\STOKIS.mdb"
        .SelectionFormula = "{TB_Jual.noNota}='" & Text1.Text & "'"
        .WindowMinButton = False
        .WindowShowCancelBtn = True
        .WindowShowCloseBtn = True
        .WindowShowPrintBtn = True
        .WindowShowPrintSetupBtn = True
        .WindowParentHandle = MDIForm1.hWnd
        .WindowState = crptMaximized
        .Action = 1
    End With
Me.MousePointer = 1

untuk memilih kriteria harap diperhatikan "{TB_Jual.noNota}='" & Text1.Text & "'" ---> gantilah agar sesuai dengan kriteria anda.

berikut screenshootnya :

Read more »
Tweet Share Share Share Share Share

10:24
Pada kesempatan sebelumnya saya telah membagikan informasi mengenai pembuatan autonumber. Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan tanggal sebagai acuan yang menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut source code nya :

Function autoNumber() As String
    Dim rs As New ADODB.Recordset
    rs.Open "select max(kode_beli) from pembelian where month(tgl_beli)=" & Month(Now) & _
    " and year(tgl_beli)=" & Year(Now), cn
    autoNumber = IIf(IsNull(rs.Fields(0)), Right(Year(Now), 2) & Month(Now) & "001", _
        Left(rs.Fields(0), 4) & Format(Right(rs.Fields(0), 3) + 1, "0##"))
    rs.Close
End Function

berikut screenshootnya :






Read more »
Subscribe to: Posts (Atom)

Contact Form

Name

Email *

Message *

INDONESIA © 2015. All Rights Reserved.
Powered By Blogger
Powered by Blogger.