Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /xs/tracker/Module1.bas [000000] .. [r1] Maximize Restore

  Switch to side-by-side view

--- a
+++ b/xs/tracker/Module1.bas
@@ -0,0 +1,60 @@
+Attribute VB_Name = "Module1"
+Public commbuffer$
+Public hubaddress$(1000)
+Public hubusercount(1000) As Integer
+Public hubusermax(1000) As Integer
+Public hubname$(1000)
+Public hubdescription$(1000)
+Public hubminutecount(1000)
+Public minutecount
+Public commsbuffer$(10)
+Public hublist$
+Public min20cyc
+
+Public Sub addhub(hubaddy$, hubusers As Integer, hubmax As Integer, hubnam$, hubdes$)
+For n = 0 To 1000
+'If it's a re-report or a new entry, set the nextslot number
+    If hubaddress$(n) = hubaddy$ Then nextslot = n: Exit For
+    If hubaddress$(n) = "" Then nextslot = n: Exit For
+Next n
+
+hubaddress$(nextslot) = hubaddy$
+hubusercount(nextslot) = hubusers
+hubusermax(nextslot) = hubmax
+hubname$(nextslot) = hubnam$
+hubdescription$(nextslot) = hubdes$
+hubminutecount(nextslot) = minutecount
+Form1.Label4 = nextslot + 1
+
+'rebuild hublist
+hublist$ = ""
+For n = 0 To 1000
+'If it's a re-report or a new entry, set the nextslot number
+If hubaddress$(n) <> "" Then
+hublist$ = hublist$ & hubaddress$(n) & "�"
+hublist$ = hublist$ & hubusercount(n) & "�"
+hublist$ = hublist$ & hubusermax(n) & "�"
+hublist$ = hublist$ & hubname(n) & "�"
+hublist$ = hublist$ & hubdescription(n) & "�"
+End If
+Next n
+
+End Sub
+
+Public Sub cliphub(hub2clip)
+For xx = hub2clip To 999
+If hubaddress$(xx) = "" Then Exit Sub
+hubaddress$(xx) = hubaddress$(xx + 1)
+hubusercount(xx) = hubusercount(xx + 1)
+hubusermax(xx) = hubusermax(xx + 1)
+hubname$(xx) = hubname$(xx + 1)
+hubdescription$(xx) = hubdescription$(xx + 1)
+hubminutecount(xx) = hubminutecount(xx + 1)
+Next xx
+hubaddress$(1000) = ""
+hubusercount(1000) = 0
+hubusermax(1000) = 0
+hubname$(1000) = ""
+hubdescription$(1000) = ""
+hubminutecount(1000) = 0
+End Sub