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 - Requests.vb

Requests.vb
  1. Public Class Requests
  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 FItem As ListViewItem
  13.     Private Shared RequestsInstance As Requests
  14.     Public Shared Function GetInstance() As Requests
  15.         If (RequestsInstance Is Nothing) Then
  16.             RequestsInstance = New Requests
  17.         End If
  18.         Return RequestsInstance
  19.     End Function
  20.     Private Sub Requests_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  21.         LV.Columns.Add("إسم السلعة")
  22.         LV.Columns.Add("الكمية المطلوبة")
  23.         LV.Columns.Add("الكمية المتوفرة")
  24.         LV.Columns.Add("النقص الحالي")
  25.         LV.Columns.Add("الزبائن")
  26.         LV.Columns.Add("المخازن")
  27.         LoadRequests()
  28.     End Sub
  29.     Public Sub LoadRequests()
  30.         On Error Resume Next
  31.         LV.Items.Clear()
  32.         Dim RName As String = ""
  33.         Dim RPath As String = 0
  34.         Dim Amount As Double = 0
  35.         Dim Founded As Double = 0
  36.         Dim Minus As Double = 0
  37.         Dim CusList As String = ""
  38.         Dim SList As String = ""
  39.         Dim Addad As Integer = 0
  40.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(RequestsPath).Count - 1
  41.             RName = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(RequestsPath).Item(Addad)).Name
  42.             RPath = My.Computer.FileSystem.GetDirectories(RequestsPath).Item(Addad)
  43.             Amount = Val(My.Computer.FileSystem.ReadAllText(RPath & "\amount.dat", System.Text.Encoding.GetEncoding(0)))
  44.             Founded = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\mount.dat", System.Text.Encoding.GetEncoding(0)))
  45.             If Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\stores.dat", System.Text.Encoding.GetEncoding(0))) = 0 Then
  46.                 If My.Computer.FileSystem.FileExists(ProductPath & "\" & RName & "\mount0.dat") = True Then
  47.                     Founded += Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\mount0.dat", System.Text.Encoding.GetEncoding(0)))
  48.                 End If
  49.             Else
  50.                 Dim SubAddad As Integer = 0
  51.                 For SubAddad = 0 To Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\stores.dat", System.Text.Encoding.GetEncoding(0)))
  52.                     Founded += Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\mount" & SubAddad & ".dat", System.Text.Encoding.GetEncoding(0)))
  53.                 Next
  54.             End If
  55.             Minus = Founded - Amount
  56.             If Minus > 0 Then Minus = 0
  57.             CusList = My.Computer.FileSystem.ReadAllText(RPath & "\customers.dat", System.Text.Encoding.GetEncoding(0))
  58.             SList = My.Computer.FileSystem.ReadAllText(RPath & "\stores.dat", System.Text.Encoding.GetEncoding(0))
  59.             LV.Items.Add(RName)
  60.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Amount)
  61.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Founded)
  62.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Minus)
  63.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CusList)
  64.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SList)
  65.             If Val(LV.Items.Item(LV.Items.Count - 1).SubItems(3).Text < 0) = 0 Then LV.Items.Item(LV.Items.Count - 1).BackColor = Color.LightGray
  66.         Next
  67.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
  68.     End Sub
  69.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
  70.         StartUp.CloseTabs()
  71.     End Sub
  72.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
  73.         LoadRequests()
  74.     End Sub
  75.     Private Sub ProductShowBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductShowBTN.Click
  76.         Refresher.Enabled = False
  77.         If LV.SelectedItems.Count > 0 Then
  78.             If MsgBox("تأكيد مسح " & LV.FocusedItem.Text & " من قائمة طلبات الزبائن؟", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
  79.                 System.IO.Directory.Delete(RequestsPath & "\" & LV.FocusedItem.Text, True)
  80.                 LoadRequests()
  81.             End If
  82.             Refresher.Enabled = True
  83.         End If
  84.     End Sub
  85.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
  86.         LoadProduct()
  87.     End Sub
  88.     Public Sub LoadProduct()
  89.         If LV.SelectedItems.Count > 0 Then
  90.             NewBuy.GetInstance.NewSellProNameTXT.Text = LV.FocusedItem.Text
  91.             StartUp.OpenNewTab(NewBuy.GetInstance)
  92.         End If
  93.     End Sub
  94. 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.