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 - 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
  20.         Return ListBuyInstance
  21.     End Function
  22.     Private Sub ListSell_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  23.         LV.Columns.Add("وقت الشراء")
  24.         LV.Columns.Add("إسم التاجر")
  25.         LV.Columns.Add("إسم المنتج")
  26.         LV.Columns.Add("سعر الشراء")
  27.         LV.Columns.Add("الكمية")
  28.         LV.Columns.Add("السعر الإجمالي")
  29.         LV.Columns.Add("قيمة الضرائب")
  30.         LV.Columns.Add("إلى مخزن")
  31.         LoadCalender()
  32.         LoadBuy()
  33.         Refresher.Enabled = True
  34.     End Sub
  35.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
  36.         StartUp.CloseTabs()
  37.     End Sub
  38.     Public Sub LoadCalenderYear()
  39.         YearTXT.Items.Clear()
  40.         Dim Addad As Integer = 0
  41.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath).Count - 1
  42.             YearTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath).Item(Addad)).Name)
  43.         Next
  44.         YearTXT.Text = YearSTR
  45.     End Sub
  46.     Public Sub LoadCalenderMonth()
  47.         MonthTXT.Items.Clear()
  48.         Dim MonthAdaad As Integer = 0
  49.         For MonthAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Count - 1
  50.             MonthTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Item(MonthAdaad)).Name)
  51.         Next
  52.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
  53.         MonthTXT.SelectedIndex = MonthTXT.Items.Count - 1
  54.     End Sub
  55.     Public Sub LoadCalenderDay()
  56.         DayTXT.Items.Clear()
  57.         Dim DayAdaad As Integer = 0
  58.         For DayAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Count - 1
  59.             DayTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Item(DayAdaad)).Name)
  60.         Next
  61.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
  62.         DayTXT.SelectedIndex = DayTXT.Items.Count - 1
  63.     End Sub
  64.     Public Sub LoadCalender()
  65.         LoadCalenderYear()
  66.         LoadCalenderMonth()
  67.         LoadCalenderDay()
  68.     End Sub
  69.     Public Sub LoadBuy()
  70.         LV.Items.Clear()
  71.         Dim Addad As Integer = 0
  72.         Dim WDir As String = MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text
  73.         For Addad = My.Computer.FileSystem.GetDirectories(WDir).Count - 1 To 0 Step -1
  74.             Dim OperatingPath As String = My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)
  75.             If My.Computer.FileSystem.ReadAllText(OperatingPath & "\type.dat", System.Text.Encoding.GetEncoding(0)) = "sell" Then GoTo NextBuy
  76.             Dim OperatingName As String = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)).Name
  77.             Dim TimeSTR As String = OperatingName.Chars(0) & OperatingName.Chars(1) & ":" & OperatingName.Chars(2) & OperatingName.Chars(3)
  78.             Dim CName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\customer.dat", System.Text.Encoding.GetEncoding(0))
  79.             Dim PName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\product.dat", System.Text.Encoding.GetEncoding(0))
  80.             Dim Price As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\price.dat", System.Text.Encoding.GetEncoding(0)))
  81.             Dim Amount As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\amount.dat", System.Text.Encoding.GetEncoding(0)))
  82.             Dim Payment As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\payment.dat", System.Text.Encoding.GetEncoding(0)))
  83.             Dim Intert As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\inter.dat", System.Text.Encoding.GetEncoding(0)))
  84.             Dim SName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\store.dat", System.Text.Encoding.GetEncoding(0))
  85.             LV.Items.Add(TimeSTR)
  86.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CName)
  87.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(PName)
  88.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Price)
  89.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Amount)
  90.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Payment)
  91.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(-Intert)
  92.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SName)
  93. NextBuy:
  94.         Next
  95.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
  96.     End Sub
  97.     Dim LoadCount As Integer = 0
  98.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
  99.         If My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count <> LoadCount Then
  100.             LoadBuy()
  101.             LoadCount = My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count
  102.         End If
  103.     End Sub
  104.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
  105.         LoadProduct()
  106.     End Sub
  107.     Public Sub LoadProduct()
  108.         If LV.SelectedItems.Count > 0 Then
  109.             NewMerchant.GetInstance.CNameTXT.Text = LV.FocusedItem.SubItems(1).Text
  110.             StartUp.OpenNewTab(NewMerchant.GetInstance)
  111.         End If
  112.     End Sub
  113.     Private Sub YearTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearTXT.SelectedIndexChanged
  114.         Refresher.Enabled = False
  115.         LoadCalenderMonth()
  116.         Refresher.Enabled = True
  117.     End Sub
  118.     Private Sub MonthTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthTXT.SelectedIndexChanged
  119.         Refresher.Enabled = False
  120.         LoadCalenderDay()
  121.         Refresher.Enabled = True
  122.     End Sub
  123.     Private Sub DayTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayTXT.SelectedIndexChanged
  124.         LoadBuy()
  125.     End Sub
  126. End Class

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.