Process Modules Project

Process Modules Project 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 - ListSell.vb

ListSell.vb
  1. Public Class ListSell
  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 YearSTR As String = Date.Now.Year
  12.     Dim MonthSTR As String = Date.Now.Month
  13.     Dim DaySTR As String = Date.Now.Day
  14.     Private Shared ListSellInstance As ListSell
  15.     Public Shared Function GetInstance() As ListSell
  16.         If (ListSellInstance Is Nothing) Then
  17.             ListSellInstance = New ListSell
  18.         End If
  19.         Return ListSellInstance
  20.     End Function
  21.     Private Sub ListSell_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  22.         LV.Columns.Add("وقت المبيع")
  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.         LoadSell()
  33.         CalcInter()
  34.         Refresher.Enabled = True
  35.     End Sub
  36.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
  37.         StartUp.CloseTabs()
  38.     End Sub
  39.     Public Sub LoadCalenderYear()
  40.         YearTXT.Items.Clear()
  41.         Dim Addad As Integer = 0
  42.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath).Count - 1
  43.             YearTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath).Item(Addad)).Name)
  44.         Next
  45.         YearTXT.Text = YearSTR
  46.     End Sub
  47.     Public Sub LoadCalenderMonth()
  48.         MonthTXT.Items.Clear()
  49.         Dim MonthAdaad As Integer = 0
  50.         For MonthAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Count - 1
  51.             MonthTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Item(MonthAdaad)).Name)
  52.         Next
  53.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
  54.         MonthTXT.SelectedIndex = MonthTXT.Items.Count - 1
  55.     End Sub
  56.     Public Sub LoadCalenderDay()
  57.         DayTXT.Items.Clear()
  58.         Dim DayAdaad As Integer = 0
  59.         For DayAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Count - 1
  60.             DayTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Item(DayAdaad)).Name)
  61.         Next
  62.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
  63.         DayTXT.SelectedIndex = DayTXT.Items.Count - 1
  64.     End Sub
  65.     Public Sub LoadCalender()
  66.         LoadCalenderYear()
  67.         LoadCalenderMonth()
  68.         LoadCalenderDay()
  69.     End Sub
  70.     Public Sub LoadSell()
  71.         On Error Resume Next
  72.         LV.Items.Clear()
  73.         Dim Addad As Integer = 0
  74.         Dim WDir As String = MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text
  75.         For Addad = My.Computer.FileSystem.GetDirectories(WDir).Count - 1 To 0 Step -1
  76.             Dim OperatingPath As String = My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)
  77.             If My.Computer.FileSystem.ReadAllText(OperatingPath & "\type.dat", System.Text.Encoding.GetEncoding(0)) = "buy" Then GoTo NextSell
  78.             Dim OperatingName As String = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)).Name
  79.             Dim TimeSTR As String = OperatingName.Chars(0) & OperatingName.Chars(1) & ":" & OperatingName.Chars(2) & OperatingName.Chars(3)
  80.             Dim CName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\customer.dat", System.Text.Encoding.GetEncoding(0))
  81.             Dim PName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\product.dat", System.Text.Encoding.GetEncoding(0))
  82.             Dim Price As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\price.dat", System.Text.Encoding.GetEncoding(0)))
  83.             Dim Amount As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\amount.dat", System.Text.Encoding.GetEncoding(0)))
  84.             Dim Payment As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\payment.dat", System.Text.Encoding.GetEncoding(0)))
  85.             Dim Intert As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\inter.dat", System.Text.Encoding.GetEncoding(0)))
  86.             Dim SName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\store.dat", System.Text.Encoding.GetEncoding(0))
  87.             Dim NoteTXT As String = ""
  88.             If My.Computer.FileSystem.FileExists(OperatingPath & "\note.dat") = True Then
  89.                 NoteTXT = My.Computer.FileSystem.ReadAllText(OperatingPath & "\note.dat", System.Text.Encoding.GetEncoding(0))
  90.             Else
  91.                 NoteTXT = "-"
  92.             End If
  93.             LV.Items.Add(TimeSTR)
  94.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CName)
  95.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(PName)
  96.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Price)
  97.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Amount)
  98.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Payment)
  99.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Intert)
  100.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SName)
  101.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(NoteTXT)
  102. NextSell:
  103.         Next
  104.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
  105.     End Sub
  106.     Public Sub CalcInter()
  107.         On Error Resume Next
  108.         YearPaymentLBL.Text = "أرباح العام : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
  109.         MonthPaymentLBL.Text = "أرباح الشهر : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
  110.         DayPaymentLBL.Text = "أرباح اليوم : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
  111.     End Sub
  112.     Dim LoadCount As Integer = 0
  113.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
  114.         If My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count <> LoadCount Then
  115.             LoadSell()
  116.             CalcInter()
  117.             LoadCount = My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count
  118.         End If
  119.     End Sub
  120.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
  121.         LoadProduct()
  122.     End Sub
  123.     Public Sub LoadProduct()
  124.         If LV.SelectedItems.Count > 0 Then
  125.             NewCustomer.GetInstance.CNameTXT.Text = LV.FocusedItem.SubItems(1).Text
  126.             StartUp.OpenNewTab(NewCustomer.GetInstance)
  127.         End If
  128.     End Sub
  129.     Private Sub YearTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearTXT.SelectedIndexChanged
  130.         Refresher.Enabled = False
  131.         LoadCalenderMonth()
  132.         Refresher.Enabled = True
  133.     End Sub
  134.     Private Sub MonthTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthTXT.SelectedIndexChanged
  135.         Refresher.Enabled = False
  136.         LoadCalenderDay()
  137.         Refresher.Enabled = True
  138.     End Sub
  139.     Private Sub DayTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayTXT.SelectedIndexChanged
  140.         LoadSell()
  141.     End Sub
  142.     Private Sub DayPaymentLBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayPaymentLBL.Click
  143.         StartUp.OpenNewTab(ViewBox.GetInstance)
  144.     End Sub
  145.     Private Sub MonthPaymentLBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthPaymentLBL.Click
  146.         StartUp.OpenNewTab(ViewBox.GetInstance)
  147.     End Sub
  148.     Private Sub YearPaymentLBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearPaymentLBL.Click
  149.         StartUp.OpenNewTab(ViewBox.GetInstance)
  150.     End Sub
  151. 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.