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

man and boy by Tony Parsons
British book of the year 2000. Great book, hard to put down, but I nearly threw it away half way through. You'll know why when you read it.
See at: Amazon.co.uk | Amazon.com |