topic-5236

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Can anyone read this file in FiveWin
Posted: 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.

http://hyperupload.com/download/02efc19 ... 1.ECG.html
" rel="noopener">
http://hyperupload.com/download/02efc19 ... 1.ECG.html

Thanks,

Jeff

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Can anyone read this file in FiveWin
Posted: Thu Dec 07, 2006 01: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

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

Jeff Barnes

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Can anyone read this file in FiveWin
Posted: Thu Dec 07, 2006 05:07 AM

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

I hope they can help.

Jeff

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Can anyone read this file in FiveWin
Posted: Thu Dec 07, 2006 09: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

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Can anyone read this file in FiveWin
Posted: 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 Collapse

// 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

FiveTech Support Forums

Continue the discussion