Visual Basic Stats:

How to support the site


Site Wide Message: (current site time 8/1/2010 1:12:04 AM EDT)
  • We want your input! One of our sponsors wants to know your opinion about development related issues. Click here to tell us what you think.
  • Are you an emerging/young developer (aged 18-30)? If so, would you like the chance to affect future developer tools and products?
    If so, then click here to give your feedback.
 

Risk for Stroke in Atrial Fibrillation

Print
Email
winzip icon
Submitted on: 3/15/2010 8:49:56 AM
By: Warren Goff  
Level: Beginner
User Rating: Unrated
Compatibility:VB 6.0

Users have accessed this code  3174 times.
 
(About the author)
 
     Updated(3-14-2010): Risk calculators and dosing algorithms have been expanded and added. It will generate a PDF file report. You will need ijl15.DLL to create the PDF which can be downloaded here (http://2kzc.sl.pt) and is included. A simple program to diagnose Atrial Fibrillation (a heart rhythm abnormality) and one's risk for stroke. It demonstrates dynamic control creation, the derivation of Standard Deviation, Variance and generates a simple Bar Chart. A help file is included and can be previewed here http://2ja3.sl.pt.
 
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com

 
Terms of Agreement:   
By using this code, you agree to the following terms...   
  1. You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
  2. You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
  3. You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
  4. You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


Other 32 submission(s) by this author

 

 
 Report Bad Submission
Use this form to notify us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:
 
Your Vote!

What do you think of this code(in the Beginner category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor See Voting Log
 
Other User Comments
3/10/2010 10:07:09 AMTrent Jackson

For get about the risks, focus more on the prevention. 100mg of Asprin daily; the side effects are near none, so therefore the benefits out weigh the risks.
(If this comment was disrespectful, please report it.)

 
3/11/2010 9:30:21 PMWarren Goff

Sorry Trent but the difference in stroke prevention between aspirin (ASA) and warfarin are significant. ASA at most reduces risk by 22% while warfarin decreases it by 62%. The problem is that people at risk are being undertreated (untreated) due to ignorance of the incidence of stroke in af and the risks of therapy. That means by adding warfarin, 13000 strokes would be prevented in the UK alone. I will likely update this version. The website referenced above has links to the compiled version which incorporates additional risk scores and dosing algorithm. I used Chilkat for emailing attachments. I intend to support Winsock here when I can figure out how to send more than one attachment. In addition, atrial fib is an important diagnosis to make for other reasons besides stroke prevention.
(If this comment was disrespectful, please report it.)

 
3/11/2010 9:30:39 PMWarren Goff

Treating with ASA without a diagnosis increases risks of bleeding as well and ASA is not risk-free and has significant risks especially gastrointestinal. If you are interested, I can provide you with the medical references. I don't believe you have done a complete risk-benefit assessment in these regards based on your comment. Finally, newer and safer anticoagulants are being developed which seem to be as safe as ASA and as effective as warfarin such as Dabigatran.
(If this comment was disrespectful, please report it.)

 
3/12/2010 5:46:20 AMTrent Jackson

Bit puzzled by this project (decided to have a look at the code and run it) All things aside though however, because I'm not a doctor -- you really should go and buy a good book on VB6 programming. Things like: Dim TimeH, TimeM, TimeS, TimeS10, TimeS100 As Integer are a no, no in VB6. You are actually declaring what we call variants, not integers. Your code also lacks clarity, coherency and remarks.
(If this comment was disrespectful, please report it.)

 
3/12/2010 9:43:07 AMWarren Goff

I am a self trained programmer. Since college, in 1971, I've had no formal education in programming. I'm sure my code stinks. I need to correct that dim statement as I think some of the code was borrowed. I try to get things done quickly and I never comment. I've never had trouble figuring out what I did despite the spaghetti code. I have been inconsiderate of others in these regards and I apologize.
(If this comment was disrespectful, please report it.)

 
3/12/2010 10:44:05 AMTrent Jackson

There is so much controversy in the world today -- I seriously really do not know what to believe anymore. But I would much prefer a gastrointestinal upset than a stroke. 50mg of asprin taken with food seems wise for anyone with HB. Asprin is arguably a wonder drug in many people's opinion. It protects the cardiovascular system and relieves pain. Clearly a multi-purpose drug.
(If this comment was disrespectful, please report it.)

 
3/13/2010 10:31:33 AMWarren Goff

Here's a nice meta-analysis on aspirin and prevention of CV disease: http://2ktt.sl.pt. It is not relevant to AF and stroke prevention though. My EBM calculator http://2kts.sl.pt on psc might be helpful to some also.
(If this comment was disrespectful, please report it.)

 
3/15/2010 10:58:59 PMT.Jackson

That MD software package that many doctors are currently using would interesting to compete against. You would of course have to be a highly regarded doctor AND a professional computer programmer to pull it off.
(If this comment was disrespectful, please report it.)

 
3/16/2010 10:06:29 AMWarren Goff

The MD package is not a commercial product. They are distributing it free of charge although it isn't open source. I'm not trying to make money on this either. You can find the stuff through the links in the Help File and here: http://2ja3.sl.pt. Thanks for the feedback.
(If this comment was disrespectful, please report it.)

 
3/18/2010 4:55:11 PMT.Jackson

Strange, I could have sworn that my GP told me that the project was worth millions of dollars. I am trying to make money ultimately. I do miss my Twin Turbo 300ZX. A nice girl to go with it would be nice too.
(If this comment was disrespectful, please report it.)

 
3/18/2010 5:08:42 PMT.Jackson

As a programmer you'd have to be that qualified it isn't funny, because this software is dealing with people's lives. Short of having a phd I wouldn't bother.
(If this comment was disrespectful, please report it.)

 
3/19/2010 10:14:59 AMWarren Goff

Thanks Trent. I've considered taking a fellowship in medical informatics but I lack motivation presently. I just code for fun. I appreciate PSC as a place to share what I've come up with but as you've noticed I'm not much of a programmer or a teacher. Best wishes on finding your Sheila, mate. No worries...
(If this comment was disrespectful, please report it.)

 
3/20/2010 9:26:18 AMT.Jackson

Long bay jail. I hear the food is good; the people are even better.
(If this comment was disrespectful, please report it.)

 
3/22/2010 10:45:28 AMT.Jackson

I'll code if for free in C# if you wanna bury all these guys for me.
(If this comment was disrespectful, please report it.)

 
Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author from the email account you registered on the site, so you can correspond directly.

NOTICE: The author of this code has been kind enough to share it with you.  If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.
 
To post feedback, first please login.