Cara Membuat Program Akuntansi Dengan Visual Basic

Posted on |

PEMBELIAN PROGRAM Program Perpustakaan dengan Visual Basic 6 dan MySQL ini dapat Anda miliki dengan membayar donasi pengembangan sebesar Rp. 500.000 ( lima ratus ribu rupiah). Cara Pembelian, Anda dapat mengirim SMS berikut: SMS/WhastApp Pembelian: ” SkripVb, beli Source Code program Perpustakaan dengan Visual Basic 6 dan MySQL “. Contoh Program Kasir Dengan Php on this page.Jourdan sitanggang Home » programmer » Cara Membuat Program Sederhana Dengan Visual Basic 6.0 Buka aplikasi Visual Basic 6.0 lalu pilih ForeColor seperti pada contoh di Membuat program kasir dengan Microsoft Visual Studio 1.Buka program Microsoft Visual Studio,setelah program terbuka pilih File-New. Tutorial Visual Basic, Tips Trik Blog, Tips Seputar Komputer, Hacking, Programming, Free Download.

  • View
    213

  • Download
    0

Embed Size (px)

DESCRIPTION

membuat warna

Text of Membuat Warna Visual Basic

Example 18

Example 18.1

The Code:Dim strColor As String

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChangedstrColor = 'Red'End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChangedstrColor = 'Green'End Sub

Private Sub RadioYellow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioYellow.CheckedChangedstrColor = 'Yellow'End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel2.Text = strColorEnd SubAlthough the user may only select one item at a time, he may make more than one selection if those items belong to different categories. For example, the user wish to choose T-shirt size and color, he needs to select one color and one size, which means one selection in each category. This is easily achieved in VB2008 by using the Groupbox control under the containers categories. After inserting the Groupbox into the form, you can proceed to insert the radio buttons into the Groupbox. Only the radio buttons inside the Groupbox are mutually exclusive, they are not mutually exclusive with the radio buttons outside the Groupbox. In Example 18.2, the users can select one color and one size of the T-shirt.Example 18.2

Dim strColor As StringDim strSize As String

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChangedstrColor = 'Red'End Sub

Akuntansi

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChangedstrColor = 'Green'End Sub

Private Sub RadioYellow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioYellow.CheckedChangedstrColor = 'Yellow'End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel2.Text = strColorLabel4.Text = strSizeEnd Sub

Private Sub RadioXL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioXL.CheckedChangedstrSize = 'XL'End Sub

Microsoft Visual Basic 6.0 Exe

Private Sub RadioL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioL.CheckedChangedstrSize = 'L'End Sub

Private Sub RadioM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioM.CheckedChangedstrSize = 'M'End Sub

Private Sub RadioS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioS.CheckedChangedstrSize = 'S'End Sub

Cara Membuka dan Membaca File Data Excel dengan ListView VB6 - Pada pertemuan kali ini tip dan trik Visual Basic akan membagikan sebuah trik bagaimana Cara Membuka dan Membaca File Data Excel dengan ListView VB6. Microsoft Excel adalah sebuah program dari Microsoft Office yang mempunyai fungsi pengolah database layaknya pada Visual Basic 6.0 berupa perhitungan atau grafik. Microsoft Excel ini memiliki banyak fungsi dan kegunaan diantaranya yaitu
  • Untuk membuat laporan keuangan akuntansi.
  • Untuk keperluan administrasi sebuah instansi.
  • Untuk mengurutkan beragam data baik pengolah angka maupun kata.
  • Untuk melakukan perhitungan otomatis dengan menggunakan rumus dan logika.
Microsoft visual basic 6.0

Visual Basic Download Pc

Tahukah Anda di Visual Basic 6.0 pun Anda bisa menampilkan Data yang ada di Excel yang Anda sudah buat baik sebelum atau sudah Anda membuat Data di Excel dengan Syarat Data Excel tersebut harus dijadikan satu folder dengan form Visual Basic yang akan Anda ingin tampilkan di form.
Bagi Anda yang penasaran bagaimana cara menampilkan/membaca Data Excel dengan menggunakan Form yang ada di Visual Basic 6dengan ListView. Berikut adalah langkah-langkahnya:
-Buka Form VB6 standar Anda
-Tambahkan kontrol Microsoft Common Dialog Control dan Microsoft Windows Common
Controls 6.0 (SP6) kedalam toolbox
-Tambahkan CommonDialogControls, 2 Label, 2 CommandButton, 1 ListView dan 1 Frame
(optional) kedalam
Atur properti masing-masing sebagai berikut:

Properti
Form1Name
Caption		frmReadExcel
Membaca Data Excel
Label1Name
Caption		Label1
File Data Excel
Label2Name
Caption		lblFileExcel
(kosongkan)
CommandButton1Name
Caption		cmdExcel
......
CommandButton2Name
Caption		cmdReadExcel
Buka Data Excel
ListView1NamelsvData
Frame1NamefraKodiing

Cara Membuat Program Akuntansi Dengan Visual Basic Gratis


- Desainlah form seperti gambar dibawah ini:
Form Desain

-Selanjutnya tinggalkan dulu Visual Basic Anda (jangan ditutup), sekarang Buka program Excel Cara Membuat Program Akuntansi Dengan Visual Basic
Anda dan buat Database dengan atribut sebagai berikut :

Microsoft Visual Basic 6.0 Software

Kode Barang

Cara Membuat Program Akuntansi Dengan Visual Basic Windows 10

Nama Barang
Satuan
Stok
Harga Jual
-Kemudian isi masing masing kolom dengan data terserah Anda
-Setelah selesai mengisi data di Excel kemudian Simpan Data Excel Anda dengan nama file
StokBarang.Jangan lupa simpan Data Excel Anda satu folder dengan form Visual Basic yang ingin Anda tampilkan kedalam formDengan
-Setelah semuanya selesai sekarang buka jendela kode dengan F7, lalu ketik kode dibawah ini:
Listing Program :Microsoft visual basic 6.0 software
Option Explicit
Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' ( _
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim lngRet As Long
'Membaca Data Excel
Private Sub ReadFileExcel()
Dim oData As ListItem
Dim Excel As New Excel.Application
Dim nRow As Integer
Dim nColKodeBarang As Integer
Dim nColNamaBarang As Integer
Dim nColSatuan As Integer
Dim nColStok As Integer
Dim nColHargaJual As Integer
Me.MousePointer = vbHourglass
'sesuaikan dibawah ini dengan atribut di excel
nColKodeBarang = 1
nColNamaBarang = 2
nColSatuan = 3
nColStok = 4
nColHargaJual = 5
On Error GoTo ProsesError
Excel.Workbooks.Open lblFileExcel.Caption, False, True
lsvData.ListItems.Clear
For nRow = 2 To 1000
If Excel.Cells(nRow, nColKodeBarang) <> ' Then
Set oData = lsvData.ListItems.Add
oData.Text = Trim(Str(nRow - 1))
oData.SubItems(nColKodeBarang) = Trim(Excel.Cells(nRow, nColKodeBarang))
oData.SubItems(nColNamaBarang) = Trim(Excel.Cells(nRow, nColNamaBarang))
oData.SubItems(nColSatuan) = Trim(Excel.Cells(nRow, nColSatuan))
oData.SubItems(nColStok) = Format(Val(Excel.Cells(nRow, nColStok)), '###,##0')
oData.SubItems(nColHargaJual) = Format(Val(Excel.Cells(nRow, nColHargaJual)), '###,##0')
Else
Exit For
End If
Next
Excel.Workbooks.Close
Excel.Quit
Me.Refresh
Me.MousePointer = vbDefault
Set Excel = Nothing
Exit Sub
ProsesError:
MsgBox Err.Description, vbExclamation, 'Peringatan'
Excel.Workbooks.Close
Excel.Quit
Me.Refresh
Me.MousePointer = vbDefault
Set Excel = Nothing
End Sub
'Click Cari File Excel
Private Sub cmdExcel_Click()
On Error Resume Next
Dialog.InitDir = App.Path
Dialog.Filter = ' Report File | *.XLS'
Dialog.ShowOpen
If Trim(Dialog.FileName) <> ' Then
lblFileExcel.Caption = Dialog.FileName
End If
On Error GoTo 0
End Sub
'Membaca Data File Excel
Private Sub cmdReadExcel_Click()
ReadFileExcel
End Sub
'---------------------------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------------------------
'tipandtrickunikvb.blogspot.com
'---------------------------------------------------------------------------------------------------------------------------------------
Private Sub lblFacebook_Click()
lngRet = ShellExecute(0, vbNullString, 'http://facebook.com/profile.php?id=1742391492654847/', vbNullString, 'C:', SW_SHOWNORMAL)
End Sub
Private Sub lblKodiing_Click()
lngRet = ShellExecute(0, vbNullString, 'http://tipandtrickunikvb.blogspot.com', vbNullString, 'C:', SW_SHOWNORMAL)
End Sub
Private Sub lblKontak_Click()
lngRet = ShellExecute(0, vbNullString, 'http://tipandtrickunikvb.blogspot.co.id/p/isi-pesan-wajib-diisi.html', vbNullString, 'C:', SW_SHOWNORMAL)
End Sub
'---------------------------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------------------------
Demikian tips tantang bagaimana Cara Membuka dan Membaca File Data Excel dengan ListView VB6.Semoga bermanfaat, selamat mencoba semoga berhasil