Process Modules Project

Full Puzzle Game source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Universal Accounting Manager - ListProducts.vb

ListProducts.vb
  1. Public Class ListProducts
  2.     Dim ProgramName As String = My.Application.Info.AssemblyName
  3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  4.     Dim ProductPath As String = DataPath & "\Products" '
  5.     Dim ServicesPath As String = DataPath & "\Services"
  6.     Dim CatPath As String = DataPath & "\Categories"
  7.     Dim StoresPath As String = DataPath & "\Stores"
  8.     Dim RequestsPath As String = DataPath & "\Requests"
  9.     Private Shared ListProductsInstance As ListProducts
  10.     Public Shared Function GetInstance() As ListProducts
  11.         If (ListProductsInstance Is Nothing) Then
  12.             ListProductsInstance = New ListProducts
  13.         End If
  14.         Return ListProductsInstance
  15.     End Function
  16.     Private Sub ListProducts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Universal Accounting Manager - ListProducts.Designer.vb

ListProducts.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class ListProducts
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  

Universal Accounting Manager - ListMerchant.vb

ListMerchant.vb
  1. Public Class ListMerchant
  2.     Dim ProgramName As String = My.Application.Info.AssemblyName
  3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  4.     Dim ProductPath As String = DataPath & "\Products" '
  5.     Dim ServicesPath As String = DataPath & "\Services"
  6.     Dim CatPath As String = DataPath & "\Categories"
  7.     Dim StoresPath As String = DataPath & "\Stores"
  8.     Dim CustomersPath As String = DataPath & "\Customers"
  9.     Dim CompanyPath As String = DataPath & "\Company"
  10.     Dim MovmentPath As String = DataPath & "\Movment"
  11.     Dim RequestsPath As String = DataPath & "\Requests"
  12.     Dim VendorsPath As String = DataPath & "\Vendors"
  13.     Private Shared ListPurchInstance As ListMerchant
  14.     Public Shared Function GetInstance() As ListMerchant
  15.         If (ListPurchInstance Is Nothing) Then

Universal Accounting Manager - ListMerchant.Designer.vb

ListMerchant.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class ListMerchant
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.

Universal Accounting Manager - ListCustomers.vb

ListCustomers.vb
  1. Public Class ListCustomers
  2.     Dim ProgramName As String = My.Application.Info.AssemblyName
  3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  4.     Dim ProductPath As String = DataPath & "\Products" '
  5.     Dim ServicesPath As String = DataPath & "\Services"
  6.     Dim CatPath As String = DataPath & "\Categories"
  7.     Dim StoresPath As String = DataPath & "\Stores"
  8.     Dim CustomersPath As String = DataPath & "\Customers"
  9.     Dim CompanyPath As String = DataPath & "\Company"
  10.     Dim MovmentPath As String = DataPath & "\Movment"
  11.     Dim RequestsPath As String = DataPath & "\Requests"
  12.     Private Shared ListCustomersInstance As ListCustomers
  13.     Public Shared Function GetInstance() As ListCustomers
  14.         If (ListCustomersInstance Is Nothing) Then
  15.             ListCustomersInstance = New ListCustomers
  16.         End If
  17.         Return ListCustomersInstance
  18.     End Function
  19.     Private Sub ListCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Universal Accounting Manager - ListCustomers.Designer.vb

ListCustomers.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class ListCustomers
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  

Universal Accounting Manager - ListBuy.vb

ListBuy.vb
  1. Public Class ListBuy
  2.     Dim ProgramName As String = My.Application.Info.AssemblyName
  3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  4.     Dim ProductPath As String = DataPath & "\Products" '
  5.     Dim ServicesPath As String = DataPath & "\Services"
  6.     Dim CatPath As String = DataPath & "\Categories"
  7.     Dim StoresPath As String = DataPath & "\Stores"
  8.     Dim CustomersPath As String = DataPath & "\Customers"
  9.     Dim CompanyPath As String = DataPath & "\Company"
  10.     Dim MovmentPath As String = DataPath & "\Movment"
  11.     Dim VendorsPath As String = DataPath & "\Vendors"
  12.     Dim YearSTR As String = Date.Now.Year
  13.     Dim MonthSTR As String = Date.Now.Month
  14.     Dim DaySTR As String = Date.Now.Day
  15.     Private Shared ListBuyInstance As ListBuy
  16.     Public Shared Function GetInstance() As ListBuy
  17.         If (ListBuyInstance Is Nothing) Then
  18.             ListBuyInstance = New ListBuy
  19.         End If

Universal Accounting Manager - ListBuy.Designer.vb


ListBuy.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class ListBuy
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  

Universal Accounting Manager - FLV.vb

FLV.vb
  1. Public Class FLV
  2.     Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
  3.         MyBase.OnPaint(e)
  4.         Dim buttonPath As New System.Drawing.Drawing2D.GraphicsPath
  5.         Dim newRectangle As Rectangle = Me.ClientRectangle
  6.         'newRectangle.Inflate(-1, -1)
  7.         newRectangle.Inflate(1, 10)
  8.         buttonPath.AddEllipse(newRectangle)
  9.         e.Graphics.DrawPath(Pens.Black, buttonPath)

Universal Accounting Manager - FLV.Designer.vb

FLV.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class FLV
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.

Universal Accounting Manager - Charts.vb

Charts.vb
  1. Imports System.Windows.Forms.DataVisualization.Charting
  2. Public Class Charts
  3.     Dim ProgramName As String = My.Application.Info.AssemblyName
  4.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  5.     Dim ProductPath As String = DataPath & "\Products" '
  6.     Dim ServicesPath As String = DataPath & "\Services"
  7.     Dim CatPath As String = DataPath & "\Categories"
  8.     Dim StoresPath As String = DataPath & "\Stores"
  9.     Dim CustomersPath As String = DataPath & "\Customers"
  10.     Dim CompanyPath As String = DataPath & "\Company"
  11.     Dim MovmentPath As String = DataPath & "\Movment"
  12.     Dim RequestsPath As String = DataPath & "\Requests"
  13.     Dim VendorsPath As String = DataPath & "\Vendors"
  14.     Dim BoxPath As String = DataPath & "\Box"
  15.     Dim YearSTR As String = Date.Now.Year
  16.     Dim MonthSTR As String = Date.Now.Month
  17.     Dim DaySTR As String = Date.Now.Day
  18.     Private Shared ChartsInstance As Charts
  19.     Public Shared Function GetInstance() As Charts
  20.         If (ChartsInstance Is Nothing) Then
  21.             ChartsInstance = New Charts

Universal Accounting Manager - Charts.Designer.vb

Charts.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Charts
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         Try
  9.             If disposing AndAlso components IsNot Nothing Then
  10.                 components.Dispose()
  11.             End If
  12.         Finally
  13.             MyBase.Dispose(disposing)
  14.         End Try
  15.     End Sub
  16.  
  17.     'Required by the Windows Form Designer
  18.     Private components As System.ComponentModel.IContainer
  19.  

Universal Accounting Manager - All.vb

All.vb
  1. Public Class All
  2.     Private Shared AllInstance As All
  3.     Public Shared Function GetInstance() As All
  4.         If (AllInstance Is Nothing) Then
  5.             AllInstance = New All
  6.         End If
  7.         Return AllInstance
  8.     End Function
  9.     Private Sub All_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
  10.         StartUp.CloseTabs()
  11.     End Sub
  12.     Private Sub VendorL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL2LBL.Click
  13.         StartUp.OpenNewTab(NewMerchant.GetInstance)
  14.     End Sub

Universal Accounting Manager- All.Designer.vb

All.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class All
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  

Universal Accounting Manager - AdjustStore.vb

 AdjustStore.vb
  1. Public Class AdjustStore
  2.     Dim ProgramName As String = My.Application.Info.AssemblyName
  3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
  4.     Dim ProductPath As String = DataPath & "\Products" '
  5.     Dim ServicesPath As String = DataPath & "\Services"
  6.     Dim CatPath As String = DataPath & "\Categories"
  7.     Dim StoresPath As String = DataPath & "\Stores"
  8.     Dim CustomersPath As String = DataPath & "\Customers"
  9.     Dim CompanyPath As String = DataPath & "\Company"
  10.     Dim MovmentPath As String = DataPath & "\Movment"
  11.     Dim RequestsPath As String = DataPath & "\Requests"
  12.     Dim VendorsPath As String = DataPath & "\Vendors"
  13.     Private Shared AdjustStoreInstance As AdjustStore
  14.     Public Shared Function GetInstance() As AdjustStore

Universal Accounting Manager - AdjustStore.Designer.vb

AdjustStore.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class AdjustStore
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  

Universal Accounting Manager - About.vb

About.vb
  1. Public Class About
  2.     Private Shared AboutInstance As About
  3.     Public Shared Function GetInstance() As About
  4.         If (AboutInstance Is Nothing) Then
  5.             AboutInstance = New About
  6.         End If
  7.         Return AboutInstance
  8.     End Function

Universal Accounting Manager - About.Designer.vb

About.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class About
  3.     Inherits System.Windows.Forms.UserControl
  4.  
  5.     'UserControl overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.