[r1]: xs / tracker / Module1.bas Maximize Restore History

Download this file

Module1.bas    61 lines (55 with data), 1.7 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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