Updates dated: 5-5-23

Author: zakonweb

AS - FILING/File Operations.jpg

@@ -1,40 +1,40 @@
-Module Module1
-
-    Sub Main()
-
-        Dim rollNo As Integer
-        Dim sName, sContact As String
-        Dim sFee As Decimal
-        Dim isFeePaid As Boolean
-
-        Console.Write("Enter roll No. :")
-        rollNo = Console.ReadLine
-
-        Console.WriteLine("Enter Name :")
-        sName = Console.ReadLine
-
-        Console.Write("Enter contact :")
-        sContact = Console.ReadLine
-
-        Console.Write("Enter fee amount :")
-        sFee = Console.ReadLine
-
-        Console.Write("Is fee already paid? ")
-        isFeePaid = Console.ReadLine
-
-        FileOpen(1, "d:\filePractice\sRec.txt", OpenMode.Output)
-
-        WriteLine(1, rollNo)
-        WriteLine(1, sName)
-        WriteLine(1, sContact)
-        WriteLine(1, sFee)
-        WriteLine(1, isFeePaid)
-
-
-        FileClose(1)
-
-        Console.ReadKey()
-
-    End Sub
-
-End Module
+Module Module1
+
+    Sub Main()
+
+        Dim rollNo As Integer
+        Dim sName, sContact As String
+        Dim sFee As Decimal
+        Dim isFeePaid As Boolean
+
+        Console.Write("Enter roll No. :")
+        rollNo = Console.ReadLine
+
+        Console.WriteLine("Enter Name :")
+        sName = Console.ReadLine
+
+        Console.Write("Enter contact :")
+        sContact = Console.ReadLine
+
+        Console.Write("Enter fee amount :")
+        sFee = Console.ReadLine
+
+        Console.Write("Is fee already paid? ")
+        isFeePaid = Console.ReadLine
+
+        FileOpen(1, "d:\filePractice\sRec.txt", OpenMode.Output)
+
+        WriteLine(1, rollNo)
+        WriteLine(1, sName)
+        WriteLine(1, sContact)
+        WriteLine(1, sFee)
+        WriteLine(1, isFeePaid)
+
+
+        FileClose(1)
+
+        Console.ReadKey()
+
+    End Sub
+
+End Module

A2 Filing/Random Binary Filing - All Ops/Binary Direct Access Using Hashing and Clash Resolution.py renamed to Binary Filing/Binary Filing - Direct Access/Binary Direct Access Using Hashing and Clash Resolution.py

@@ -1,36 +1,36 @@
-Module Module1
-
-    Sub Main()
-
-        Dim rollNo As Integer
-        Dim sName, sContact As String
-        Dim sFee As Decimal
-        Dim isFeePaid As Boolean
-
-
-        FileOpen(1, "c:\filePractice\sRec.txt", OpenMode.Input)
-
-
-        Input(1, rollNo)
-        Input(1, sName)
-        Input(1, sContact)
-        Input(1, sFee)
-        Input(1, isFeePaid)
-
-        Console.WriteLine("Roll Number: " & rollNo)
-        Console.WriteLine("Name: " & sName)
-        Console.WriteLine("Contact: " & sContact)
-        Console.WriteLine("Fee Amount: " & sFee)
-        Console.WriteLine("Fee Paid? " & isFeePaid)
-        FileClose(1)
-
-        Console.ReadKey()
-
-
-
-
-
-
-    End Sub
-
-End Module
+Module Module1
+
+    Sub Main()
+
+        Dim rollNo As Integer
+        Dim sName, sContact As String
+        Dim sFee As Decimal
+        Dim isFeePaid As Boolean
+
+
+        FileOpen(1, "c:\filePractice\sRec.txt", OpenMode.Input)
+
+
+        Input(1, rollNo)
+        Input(1, sName)
+        Input(1, sContact)
+        Input(1, sFee)
+        Input(1, isFeePaid)
+
+        Console.WriteLine("Roll Number: " & rollNo)
+        Console.WriteLine("Name: " & sName)
+        Console.WriteLine("Contact: " & sContact)
+        Console.WriteLine("Fee Amount: " & sFee)
+        Console.WriteLine("Fee Paid? " & isFeePaid)
+        FileClose(1)
+
+        Console.ReadKey()
+
+
+
+
+
+
+    End Sub
+
+End Module

A2 Filing/Random Binary Filing - All Ops/Direct Access Using Struct Lib - All Ops.py renamed to Binary Filing/Binary Filing - Direct Access/Binary Direct Access Using Struct Lib - All Ops.py

@@ -1,41 +1,41 @@
-Module Module1
-
-    Sub Main()
-
-        Dim rollNo As Integer
-        Dim sName, sContact As String
-        Dim sFee As Decimal
-        Dim isFeePaid As Boolean
-
-        FileOpen(1, "c:\filePractice\sRec.txt", OpenMode.Input)
-
-        While Not EOF(1)
-
-            Input(1, rollNo)
-            Input(1, sName)
-            Input(1, sContact)
-            Input(1, sFee)
-            Input(1, isFeePaid)
-
-            Console.WriteLine("Student roll no. :" & rollNo)
-            Console.WriteLine("Student name :" & sName)
-            Console.WriteLine("Student contact :" & sContact)
-            Console.WriteLine("Student fee amount Rs." & sFee)
-            Console.WriteLine("Is Fee Paid? " & isFeePaid)
-
-        End While
-
-        FileClose(1)
-
-
-
-
-
-
-
-
-        Console.ReadKey()
-
-    End Sub
-
-End Module
+Module Module1
+
+    Sub Main()
+
+        Dim rollNo As Integer
+        Dim sName, sContact As String
+        Dim sFee As Decimal
+        Dim isFeePaid As Boolean
+
+        FileOpen(1, "c:\filePractice\sRec.txt", OpenMode.Input)
+
+        While Not EOF(1)
+
+            Input(1, rollNo)
+            Input(1, sName)
+            Input(1, sContact)
+            Input(1, sFee)
+            Input(1, isFeePaid)
+
+            Console.WriteLine("Student roll no. :" & rollNo)
+            Console.WriteLine("Student name :" & sName)
+            Console.WriteLine("Student contact :" & sContact)
+            Console.WriteLine("Student fee amount Rs." & sFee)
+            Console.WriteLine("Is Fee Paid? " & isFeePaid)
+
+        End While
+
+        FileClose(1)
+
+
+
+
+
+
+
+
+        Console.ReadKey()
+
+    End Sub
+
+End Module

A2 Filing/PSEUDOCODES/ADD A REC - RANDOM FILE.txt renamed to Binary Filing/Binary Filing - Direct Access/Pseudocodes - Direct Access/ADD A REC - RANDOM FILE.txt

@@ -1,40 +1,40 @@
-Module Module1
-
-    Sub Main()
-        Dim rollNo As Integer
-        Dim sName, sContact As String
-        Dim sFee As Decimal
-        Dim isFeePaid, moreRecs As Boolean
-
-        FileOpen(1, "c:\filePractice\sRec.txt", OpenMode.Append)
-
-        Do
-            Console.Write("Enter roll number: ")
-            rollNo = Console.ReadLine
-
-            Console.WriteLine("Enter student name: ")
-            sName = Console.ReadLine
-
-            Console.Write("Enter student contact: ")
-            sContact = Console.ReadLine
-
-            Console.Write("Enter fee amount: ")
-            sFee = Console.ReadLine
-
-            Console.Write("Is fee paid? ")
-            isFeePaid = Console.ReadLine
-
-            WriteLine(1, rollNo)
-            WriteLine(1, sName)
-            WriteLine(1, sContact)
-            WriteLine(1, sFee)
-            WriteLine(1, isFeePaid)
-
-            Console.Write("Want to ad next record? True/false: ")
-            moreRecs = Console.ReadLine
-        Loop Until moreRecs = False
-
-        FileClose(1)
-    End Sub
-
-End Module
+Module Module1
+
+    Sub Main()
+        Dim rollNo As Integer
+        Dim sName, sContact As String
+        Dim sFee As Decimal
+        Dim isFeePaid, moreRecs As Boolean
+
+        FileOpen(1, "c:\filePractice\sRec.txt", OpenMode.Append)
+
+        Do
+            Console.Write("Enter roll number: ")
+            rollNo = Console.ReadLine
+
+            Console.WriteLine("Enter student name: ")
+            sName = Console.ReadLine
+
+            Console.Write("Enter student contact: ")
+            sContact = Console.ReadLine
+
+            Console.Write("Enter fee amount: ")
+            sFee = Console.ReadLine
+
+            Console.Write("Is fee paid? ")
+            isFeePaid = Console.ReadLine
+
+            WriteLine(1, rollNo)
+            WriteLine(1, sName)
+            WriteLine(1, sContact)
+            WriteLine(1, sFee)
+            WriteLine(1, isFeePaid)
+
+            Console.Write("Want to ad next record? True/false: ")
+            moreRecs = Console.ReadLine
+        Loop Until moreRecs = False
+
+        FileClose(1)
+    End Sub
+
+End Module