Notes Ninjas 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 |