This App Will Load An Image, Resize It, And Then Grey Scale It. It Will Then Redraw The Image, But Not Using Pixels, Using Text!(ASCII Characters) You Can Get Some Cool Effect Doing This, But I'm Not Sure If It Will Be Of Use To Anyone. (When Viewing The Images, It Is Best To Do It In Notepad, With The Font Terminal.)
Now Includes Progrss Indicators.
Now Has Faster Resize Sub (Uses Stretch Blt)
Can Now Create Coloured Html Art!!!
Now
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:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
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...
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.
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.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
except for 1 thing, you should implement a progressbar when the program is busy especially on resizing (for larger images) and drawing ascii art (If this comment was disrespectful, please report it.)
Oh no! 17-years old and coding as this ... makes me feel so old. Very nice - the work you put into this really shows. (If this comment was disrespectful, please report it.)
why do u update the text box all time why not use a variable and then its finnished put the variable in the text box (If this comment was disrespectful, please report it.)
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=5313 Btw i recently finished an color version of my program using mirc colors, so no more greyscale ascii art !!! (If this comment was disrespectful, please report it.)
To Sneechy: I Am Sorry To Say, But I Had Not Seen Your Program Before.
To Niklaz: I Did It This Way Beacuse It Is Then Possible To See The Progress Of The Draw (I Have A Fast PC, So It Is No Problem For Me). But It Is Faster Your Way, So This Is How You Can Do It:
In The CreateART Sub, Add: "Dim AsciiPic as String"
Then Replace The All The "Ascii_Image.Text" With "AsciiPic" (Only In The CreatArt Sub)
Finally Add The Line: "ASCII_Image.Text = AsciiPic" At The Bottom Of The Sub. (If this comment was disrespectful, please report it.)
You deffinately got my excellent vote!! This is really cool. Good comment above about using this for readme files. (If this comment was disrespectful, please report it.)
Do you have a website? I swear I have seen a website with all your stuff on it. I think I have asked this before. E-mail with the URL if you do. If your code is this good, I can only imagine what ur website would be like
(If this comment was disrespectful, please report it.)
i just love that programm. i ever wanted to have a programm like this. the only problem i have with it, is that the images get very large, even if i set the horizontal and vertical detail to a lower level... (If this comment was disrespectful, please report it.)
WOW! This code is excellent! I hope it wons the September code contest! Very VERY Nice! Excellent Vote! (If this comment was disrespectful, please report it.)
Excellent Code - I am 22 and wich I could code as well as you - excellent for someone so young - no worries with you A Levels (If this comment was disrespectful, please report it.)
Hi everyone, I would just like to say thank you to all the people who like my code and left comments. If you like this code, why not check out my other submissions, I hope you'll like them too. And Thanks Again. Arvinder Sehmi (If this comment was disrespectful, please report it.)
Holly cow man, this totaly kicks ass!! I only looked at it to laugh at you, but as soon as the screen shot downloaded, I was totally amazed!!! 5/5 (If this comment was disrespectful, please report it.)
Wow! I haven't even unzipped the file yet, but from all the praise you got, and the screen shot, it looks amazing! Keep up the good work! (If this comment was disrespectful, please report it.)
Your code is pretty good!!! I never knew that you could make that using Visual Basic!!! The next feature you should is allowing you to save it in different formats. (If this comment was disrespectful, please report it.)
My 11-year old son likes programming; he is currently using a couple of VB books for beginners. Could you please mention some books or methodology that helped you get to this advanced level of work? Thanks, Tim. (If this comment was disrespectful, please report it.)
I love this code, but I noticed you had a problem with output of proper HTML (that's why you put "It Is Difficult to get Html to show all 255 ASCII Characters, So Other Text Is Needed To Fix This Problem."). You can use my code, http://www.planet-source-code.com/xq/ASP/txtCodeId.25012/lngWId.1/qx/vb/scripts/ShowCode .htm, to fix this problem. Once again, nice work. (If this comment was disrespectful, please report it.)
credit where credit is due. well done. Would be useful if I could just use part of an image as the source. (If this comment was disrespectful, please report it.)
Very good but needs error handling... Making it look better could be done too... Other than that I give it five globes! (If this comment was disrespectful, please report it.)
Haven't downloaded it, but can it produce PURE ASCII art? i.e. Using only CHR(32) through CHR(126)? (If this comment was disrespectful, please report it.)
Yo that the coolest §hï† I have ever seen, great job 5 globes! (If this comment was disrespectful, please report it.)
1/23/2003 7:55:16 PM:
Super nice code ... But especially the kindness of the author. Works fine with W98SE. Runs fine in VB6. (If this comment was disrespectful, please report it.)
I did at one point make a version that did this... but i lost it :-( Its not to complex to do a cut down version though, although u will have to update the code (as i have no time for it; im currently working on a university project.)
This is how to go about it though: 1) Use a avi editor (ie Virtual Dub) to save the avi as an image sequence (frame001.bmp ... frame100.bmp) 2) Add a new button and add this kind of psudo code:
for i = firstFrame to lastFrame *load image (If this comment was disrespectful, please report it.)
*call the auto_click(), the command button that draws the image as text in one go. *save the textbox has an image --use API: iDC = getDC( textImage.hwnd ) --bitBlt iDC to a picturebox.hDC --set picturebox.picture = picturebox.image --save image: savepicture(picturebox.picture , "new_frame" & i & ".bmp" ) next
3) One the new sequence of bmp files has been generated, use an avi editor to combine them into an avi file (load image sequence).
I hope this helps. (If this comment was disrespectful, please report it.)
4/24/2004 12:18:52 AM:
great work. works perfectly. if u eva have n e new software notify me at do_you_ah_yahoo@hotmail.com. (all u'r featured software iz basicly professional) (If this comment was disrespectful, please report it.)
11/14/2004 8:48:21 PM:
i don't know how to open the program...=( (If this comment was disrespectful, please report it.)
1/26/2005 9:28:22 AM:
The best code what i found ... (If this comment was disrespectful, please report it.)
congrats, but i instantly crashed this app and I would just like to report a bug, and I would hope anyone would do the same for me =)
Okay I downloaded and opened with VB6 and compiled and EXE of the original source. I ran the app and went to the 'start (html)' button and it asked me to save a file, then error 53 popped up. I know what it is and what not, just letting ya know =) (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 147 Users
Download code
8/3/2000 6:28:14 AM: 
