Lotus Notes Ninjas: Counter Agent that displays Number as a graphic

Notes Ninjas Lotus Notes hints, tips, error messages	Counter Agent that displays Number as a graphic

Hint Short Cut: Add this to your code & documentation to help you find this page.
http://www.notesninjas.com/#GraphicAgent or http://www.notesninjas.com/A555F9/nn.nsf/ByAlias/GraphicAgent

This code displays the number of hits as a graphic on the page.

Dim session As New NotesSession
Dim db As NotesDatabase
Set db=session.CurrentDatabase
Set doc=session.DocumentContext
Dim Account As NotesDocument
Dim Accounts As NotesView
Dim digits(9) As String

digits(0) = "3c 66 66 66 66 99 66 66 66 3c"
digits(1) = "f8 04 02 01 01 01 80 40 20"
digits(2) = "3c 66 60 60 30 18 0c 06 06 7e"
digits(3) = "3c 66 60 60 38 60 60 60 66 3c"
digits(4) = "30 30 38 38 34 34 32 7e 30 78"
digits(5) = "7e 06 06 06 3e 60 60 60 66 3c"
digits(6) = "38 0c 06 06 3e 66 66 66 66 3c"
digits(7) = "7e 66 60 60 30 30 18 18 0c 0c"
digits(8) = "3c 66 66 66 3c 66 66 66 66 3c"
digits(9) = "3c 66 66 66 66 7c 60 60 30 1c"

' You must create view Accounts with first column with value HTTP_Referer and Ascending sorting

' Set Accounts=db.GetView("Accounts")
' Set Account = Accounts.GetDocumentByKey( doc.HTTP_Referer(0) )
'
' If Account Is Nothing Then
' Set Account = New NotesDocument( db )
' Account.HTTP_Referer = doc.HTTP_Referer(0)
' Else
' count = Account.count(0)
' End If
'Account.count = count + 1
' Call Account.save(True, True)
count = Format(12345,"00000")
xlen = Len(count)
bytes = ""

For i = 0 To xlen-1
bytes = bytes + "0xff,"
Next
For i = 0 To xlen*2-1
bytes = bytes + "0x00,"
Next

For y=0 To 9
For x=0 To xlen-1
digit = Mid(count,x+1,1)
byte = Mid(digits(digit),1+y*3,2)
bytes = bytes + "0x" + byte + ","
Next
Next
For i = 0 To xlen*3-1
bytes = bytes + "0x00,"
Next

Print "Content-type: image/x-xbitmap\n\n"

Print "#define count_width "+xlen*8
Print "#define count_height 16"
Print "static char count_bits[] = {"
Print bytes
Print "};"

Jump to: Notes Tips
Lotus Notes Index Register for Tips Previous Lotus Notes Tip
Next Lotus Notes Tip

Your company logo here?
Adam Foster

Free Cash Making Web Site
Free Revenue Earning Blog Site
Free Revenue Earning Newsletter Site
Free Search Pages Free Web stats
Free Contact Us page
Cheap .com domain names

Need a website or
Lotus Notes
problem solved?
Adam Foster

Lotus Notes 5 All-in-one Certification Exam Guide by Libby Schwarz, Ben Malekzadeh
Sort out your CLP with this book.
See at: Amazon.co.uk | Amazon.com |