Visual Basic 1 code?

Stefan it's totally fine :). i will do the research myself, it only seems i can't finish the contest :( i'm going on internet-less vacation :)
good luck stefan to win one of the prices, as far as i know there are not so much people trying to figure it out.

and Doogle and the others thanks for the help :) (sorry Doogle, damn auto correct..)

Aw, that's too bad. :/
You should e-mail what you have already since the contest doesn't require you to finish.

Also, it's Doogle. :P

Hi, it's me again. I just want to tell you guys that I won!
The results have been announced today, and I was the best.
Here is the article, including the correct answers: http://tiplanet.org/forum/viewtopic....143942#p143942
It's in french though, but Google Translate is good enough. :)

Thanks all for the amazing help!

CONGRATS!!!! xD :D

thats nice, i did'n got time to send mine, but i wish you luck with your calc, which one did you choose?
and i didn't port my code, so i had to do a lot of work..

Thanks guys. I chose for the TI-84 Plus Colour SE. :)

Did we ever solve which basic was used?

It was F-Basic
...F stands for Fujitsu
...it's a japanese flavor of MS Basic used to develop games

ah cool, that was kind of obvious now i read it.

Quote:

---

Originally Posted by Nightwalker83

@Niya,

That looks like a joust (or whatever its called) used in the sport of the same name.

---

Quote:

---

Originally Posted by stefan bauwens

It's a star stretched out.

---

LOL... It looks like a fighter jet to me ... or ... ballerina(if you change Niya's code a bit)... :)

Code:

---

Private Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.ScaleMode = 3
    Picture1.Width = 6000
    Picture1.Height = 3000
    Picture1.Circle (295, 100), 3
    Picture1.Line (305, 100)-(305, 90)
    Picture1.Line (305, 90)-(300, 85)
    Picture1.Line (320, 90)-(310, 99)
    Picture1.Line (310, 99)-(300, 100)
    Picture1.Line (300, 100)-(310, 101)
    Picture1.Line (310, 101)-(320, 110)
    Picture1.Line (320, 110)-(322, 101)
    Picture1.Line (322, 101)-(340, 100)
    Picture1.Line (340, 100)-(322, 99)
    Picture1.Line (322, 99)-(320, 90)
    Picture1.Line (305, 110)-(305, 100)
    Picture1.Line (305, 110)-(300, 115)
End Sub

---

Attachment 101349

Quote:

---

Originally Posted by RhinoBull

LOL... It looks like a fighter jet to me ... or ... ballerina(if you change Niya's code a bit)... :)

---

:lol: That seems like a good idea for a forum game, start with the code for a basic image such as the one Niya posted then see what you can create just by modifying the code a bit.