Go Back   Steve's Digicams Forums > Printers > Ink Jet - Inks, Papers, etc.

Reply
 
Thread Tools Search this Thread
Old Sep 14, 2006, 7:07 AM   #1
Member
 
Join Date: Aug 2006
Posts: 41
Default

I am prepared to program a form of monitor as one of my hobbies is programming.

As I do not have access to Cannons drivers the program would have to be generic based on assumed usage. At this stage it would be a small executable that would sit in the quick launch bar and it would be necessary to enter the type of print and number of copies. The data would be filed and a graph display would show ink levels.

The way it would calculate ink usage would be by a editable script file that a user would by experiance gradually fine tune by way of there own ink usage.

I put down a gui design andwill finish the coding if I get sufficient requests. I do not need it as I have an Epson and a chip resetter.

Two things I will need a host to upload to and 2nd I am going away to the wilds of Queensland in Oz. so the project will be finished when I get back in a month or two.

Eventually there will be a chip resetter available so this can only ever be a stop gap.

What I will need is some Cannon owners to help in the usage charts based on types of printouts like size of paper, type of printout etc.

I have submitted a possible skin.

My task would be easier than you users as the information you would have to gather would have to be fairly accurate to get a good result.

Concept: A shortcut to the program would be in the quick launch bar. When one printed the program would be activated and the various drop down lists will be selected. The calculations would be based on a user editable file.

The program would calculate and keep track of usage and display graphicly.

Why am I offering this. I am retired, Why not



After edit: I wish I could spell as good as I program



Attached Images
 
Teddy Bear is offline   Reply With Quote
Sponsored Links
Old Sep 15, 2006, 5:15 AM   #2
Member
 
Join Date: Aug 2006
Posts: 41
Default

Ok what I shall require are some beta testers. Those that use cannons obviously.

I have put down some thoughts and the program will comprise as a gui that monitors usage started with 4 colours and as and if users with more colours get on board the script file it will use Ink.Dat will hold the eventually established data to give a reasonable indication of the usage.

I will wait untill I come back to see what interest there is here if not I will perfect it as best I can and set it up on a free host with its own forum.

I will base my script file on my Epson usage which I imagine will be close as logic tells me a print is a print and requires x amount of ink x a fudge factor. I only have a limited bandwidth on my server and cannot download the microsoftt files to try and program a proper driver. Reality maybe I have not the ability to create a driver but there again. For those programmers out there here is the Rapidq code I am starting with, You could be better programers than I.

' Program starts There is a fair bit of work yet but thats where the fun starts

$typecheck on
$include "RapidQ2.inc"
Declare Sub Deplete
Declare Sub PrintType1

' A lot mor subrouitines needed for various combinations


Dim a as Integer

Dim Blk as Long
Dim Blu as Long
Dim Rd as Long
Dim Yel as Long
Dim BlkAcc as Long
Dim BluAcc as Long
Dim RdAcc as Long
Dim YelAcc as Long
Dim Paper1 as long ' A4
Dim Paper2 as long ' Letter
Dim Paper3 as long ' A5
Dim Paper4 as long ' 6 x 4
Dim Type1 as Long ' Black Text
Dim Type2 as Long ' Mixed Text
Dim Type3 as Long ' Color Text
Dim Type4 as Long 'Grey Scale
Dim Type5 as Long ' Photo
Dim Adj1 as String 'Black
Dim Adj2 as String ' Blue
Dim Adj3 as String ' Red
Dim Adj4 as String ' Yellow

Dim A$ as String
Dim B$ as String
Dim file as Qfilestream


if File.Open("Ink.dat",fmOpenRead)=False Then
Showmessage "Dat File Error"
End If
A$=file.readline
A$=file.readline
Blk = Val(A$)
A$=file.readline
Blu = Val(A$)
A$=file.readline
Rd = Val(A$)
A$=file.readline
Yel = Val(A$)
A$=file.readline
A$=file.readline
BlkAcc = Val(A$)
A$=file.readline
BluAcc = Val(A$)
A$=file.readline
RdAcc = Val(A$)
A$=file.readline
YelAcc = Val(A$)
A$=file.readline
A$=file.readline
Paper1 =Val(A$)
A$=file.readline
Paper2 =Val(A$)
A$=file.readline
Paper3 =Val(A$)
A$=file.readline
Paper4 =Val(A$)
A$=file.readline
A$=file.readline
Type1=Val(A$)
A$=file.readline
Type2=Val(A$)
A$=file.readline
Type3=Val(A$)
A$=file.readline
Type4=Val(A$)
A$=file.readline
Type5=Val(A$)
A$=file.readline
A$=file.readline
Adj1 = A$
A$=file.readline
Adj2 = A$
A$=file.readline
Adj3 = A$
A$=file.readline
Adj4 =A$

File.Close

'Showmessage B$


Create Form1 as qformex
FormStyle = fsStayOntop
Caption="Monitor"
Left=193
Top=237
create Typ as QCombobox
Left=7
Text="Print Type"
Top=69
Width=124
AddItems " Black Text:"," Mixed Colour Text"," Colour Text"," Grey Scale"," Photo"
end create
create Paper as QCombobox
Left=6
TabOrder=9
Text="Paper"
Top=120
Width=124
AddItems " A4", " Letter ", " A5", " 6 x 4"
end create
create Blue as QGauge
Color=&H00FFFFFF
ForeColor=&H0000FFFF
Height=129
Kind=gkVerticalBar
Left=234
Position=Blu
Top=28
Width=24
end create
create Yellow as QGauge
Color=&H00FFFFFF
ForeColor=&H00FF0000
Height=128
Kind=gkVerticalBar
Left=207
Position=Yel
Top=28
Width=24
end create
create Red as QGauge
Color=&H00FFFFFF
ForeColor=&h000000FF
Height=128
Kind=gkVerticalBar
Left=260
Position=Rd
Top=28
Width=24
end create
create Black as QGauge
Color=&H00FFFFFF
Height=128
Kind=gkVerticalBar
Left=286
Position=Blk
Top=28
Width=24
end create
create Update as QButton
Caption="Update"
Left=190
TabOrder=11
Top=167
Width=76
onclick = deplete
end create
create Pages as QEdit
EditText="1"
Left=110
Text="1"
Top=169
Width=32
end create
create BlkAdj as QEdit
ReadOnly = True
Font.name="Arial"
Font.size=6
Height=18
Left=286
TabOrder=9
Text= Left$(Adj1,6)
Top=2
Width=24
end create
create RedAdj as QEdit
ReadOnly = True
Font.name="Arial"
Font.size=6
Height=18
Left=260
TabOrder=10
Text=Left$(Adj2,6)
Top=2
Width=24
end create
create YelAdj as QEdit
ReadOnly = True
Font.name="Arial"
Font.size=6
Height=18
Left=234
TabOrder=14
Text=Left$(Adj3,6)
Top=2
Width=24
end create
create BlueAdj as QEdit
ReadOnly = True
Font.name="Arial"
Font.size=6
Height=18
Left=207
TabOrder=15
Text=Left$(Adj4,6)
Top=2
Width=24
end create
create Label2 as QLabel
Caption="Print Type"
Font.Addstyles fsBold
Font.size=12
Left=25
Top=44
Width=92
end create
create Label3 as QLabel
Caption="Paper Size"
Font.Addstyles fsBold
Font.size=12
Left=24
Top=98
Width=96
end create
create Label4 as QLabel
Caption="No. Pages"
Font.Addstyles fsBold
Font.size=12
Left=15
Top=170
Width=84
end create
create Panel1 as QPanel
Caption="Photo Colors"
Color=&H00DBDBDB
Height=129
Left=134
Top=27
Width=68
end create
create Label5 as QLabel
Caption="Adjustment Factor > > > >"
Color=&H00FFFF80
Font.Addstyles fsBold
LabelStyle=lsRecessed
Left=32
LowerColor=&H00FFFFC4
Top=4
UpperColor=&H00FFFF22
Width=168
end create
end create
'----------Initaliation code-----------

Form1.Showmodal



' From here down is where the program interogates the script filer


Sub Deplete
Dim a as integer
a = 0
a = Typ.ItemIndex
If a = 0 Then
showmessage "1"
PrintType1' Black Text
End If
If a = 1 Then
showmessage "2"
End If
If a = 2 Then
showmessage "3"
End If
If a = 3 Then
showmessage "4"
End If
If a = 4 Then
showmessage "5"
End If


End Sub


Sub PrintType1
Dim a as Integer
a = 0
a = Paper.ItemIndex
If a = 0 Then ' Calc for A4


End If

End Sub


' End Program



'So now anyone could go download the required files from Rapidq and compile and 'modify the code. For those who are not conversent this is basic programming. by the 'way if anyone wants to learn how to program ask! you probably have more talent 'than I. Notice the single quote the compiler ignors it .1st lesson

'Its now in your court get it for nothing or if you are not interested I will complete it 'and offer it for sale. Remember I have an Epson and a chip resetter. So this issue 'does not represent a problem for me. If I didI would already have a 'workingmonitor. The ability tp create your own applications is a great asset and so easy, Its only a 'slight difference to this language.

'There you go. I can do it and I am an Aussie who else is going to throw their hat in 'the ring?

'Not Interested thats ok I will move on

'Teddy bear (Name of a much loved Lhasa Apso) Thatwasa beautiful natured dog 'called Teddy Bearwho passed away and broke our hearts. Beta Testers will get a 'picture


Teddy Bear is offline   Reply With Quote
Old Sep 16, 2006, 4:45 AM   #3
Member
 
Join Date: Aug 2006
Posts: 41
Default

I have finished the Beta version need testers now Data is fed into the program from this file:

Black Text,0.3,0.0,0.0,0.0
Mixed Text,0.2,0.2,0.2,0.3
Colour Text,0.1,0.2,0.2,0.2
Grey Scale,0.5,0.0,0.0,0.0
Photo,0.5,0.6,0.6,0.6
Clean,0.6,0.6,0.6,0.6
****************** Paper Sizes *****************
A4
Letter
A5
6 x 4
************************ End of Data

The data is placed in the file in this order
Type of Print, Black used,Blue used, Red used, Yellow used
Example:-
Black Text,0.3,0.0,0.0,0.0 note only black ink is used up
This data set is for a 4 colour printer the values and descriptions can be adjusted by experiance. The program allows for 6 print types.and 4 Paper sizes.

This file can be re-edited as more data is known
Note the values can have a number of decimal places.
To gather data, Record the type and number of prints you make and then when you fill the cartridge to full note how many ml it takes. this will allow the above settings to be fine tuned to become fairly accurate. provided you record to the monitor program each time you print.

Remember that it is important not to let the cartridge empty so re filling at an estimated 25% is recomended

I am now using it for my HP which being an old model that does not have monitering as such.
Teddy Bear is offline   Reply With Quote
 
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are Off
Pingbacks are Off
Refbacks are Off



All times are GMT -5. The time now is 12:19 AM.