Can anyone read this file in FiveWin

Can anyone read this file in FiveWin

Postby Jeff Barnes » Wed Dec 06, 2006 11:13 pm

Hi Everybody,

I am told the following file is a "digitized binary image".

Can someone let me know if there is any way to read it with Fivewin.


[url]
http://hyperupload.com/download/02efc19 ... 1.ECG.html
[/url]

Thanks,

Jeff
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Postby James Bott » Thu Dec 07, 2006 1:39 am

Jeff,

You might look at www.leadtools.com. They have a medical imaging api and C++ class libraries. I don't know if they support your format.

James
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA

Postby Jeff Barnes » Thu Dec 07, 2006 5:07 am

Thanks James ... I sent them an e-mail.

I hope they can help.


Jeff
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Postby Baxajaun » Thu Dec 07, 2006 9:06 am

Hi Jeff,

ECG is a Electro Cardio Graph. You must review the next articles in Code Project:

http://www.codeproject.com/tools/ecg_dsp.asp
http://www.codeproject.com/tools/ECG_1_to_TXT.asp

Best regards,

Felix
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Postby Silvio » Thu Dec 07, 2006 11:03 pm

you cam modify tgraph class
there is an sample Timer test as your egc graph
Code: Select all  Expand view
// Program : Timer test (Compilar con B.Bat : B TstTimer)
// Author  : Arteaga

#Include "Fivewin.Ch"

#Define GRAPH_TYPE_BAR   1
#Define GRAPH_TYPE_LINE  2

Static oWnd, oGraph, oTimer, aVals, nP

FUNCTION FWGraphics()
   LOCAL oReg, oIcon
   nP:=19
   aVals:=Array(20)
   Afill(aVals,0)

   DEFINE WINDOW oWnd TITLE "TGraph, timer test" FROM 0, 0 TO 7,40
   oGraph:=TGraph():New(0,0,oWnd,oWnd:nWidth()-8,oWnd:nHeight()-30)
   oGraph:cPicture := "999"
   oGraph:l3D      := .F.
   oGraph:aYVals   := {}
   oGraph:lDotted  := .F.
   oGraph:lLegends := .F.
   oGraph:lTitle   := .F.
   oGraph:lPopUp   := .T.
   oGraph:nPenWidth:= 1
   oGraph:nClrBack := CLR_BLACK
   oGraph:nClrGrid := CLR_GREEN
   oGraph:nType    := GRAPH_TYPE_LINE

   aVals[19] :=  15
   aVals[20] := 150

   oGraph:AddSerie(aVals, "", RGB(255, 255, 0))

   Define Timer oTimer Interval 900 Action Update() OF oWnd
   Activate Timer oTimer

   WndCenter(oWnd:hWnd)

   ACTIVATE WINDOW oWnd                          ;
      ON PAINT (oGraph:nWidth:=oWnd:nWidth()- 8, ;
                oGraph:nHeight:=oWnd:nHeight-30, ;
                oGraph:Refresh(.f.))

   oTimer:End()

RETURN (NIL)

Function Update(oReg)
  LOCAL aTmp :={150, 15,135, 30,120, 45,105, 60, 90, 75,;
                 75, 90, 60,105, 45,120, 30,135, 15,150 }
  LOCAL aTemp[20]
  nP--
  nP:=IF(nP=0,20,nP)
  ACopy(aVals,aTemp,2)
  aTemp[20]:=aTmp[nP]
  aVals:=AClone(aTemp)
  SysRefresh()
  oGraph:aData[1]:=aVals
  oGraph:Refresh()
RETURN (NIL)
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Yahoo [Bot] and 63 guests