I just wrote my first program...so excited.

[uranium235powered]

Yeah, I just started programming last Thursday, and I've already written my first program. Its not advanced at all, but I'm happy that it actually works the way I want it to work.

The program I wrote calculates the volume in a pyramid. It's for an assignment that's due in two weeks, but I did it just for the heck of it. I finally got Microsoft Visual Studio 6.0 to install on my computer....had to copy the AUTOEXEC.NT file from the school computers in order for setup to run on my computer.

Anyways, check it out, the website for the program is http://www.freewebs.com/hyprchrgd69/pyramid.htm and a preview of the program is located in my sig. ITS ONLY 32 KB IN SIZE...SMALLER THAN MOST OF THE IMAGES YOU SEE ON THE WEB!!! Any feedback would be appreciated.

Andrew

[clawhammer]

Cool. I've been programming for almost two years now. My first program was a calculator, just like the one in windows.

[Raz_Kaz]

Visual Basics!


Man that reminds me of the good old High School days where you can make a program to just pop up with a window contaning random things in it.


Managed to piss off my teacher and get a D.

[tman]

I've made dozens of programs in BASIC for the Texas Instruments TI-83, Makes math tests really easy, and not that I did this *cough* but it could help with the SAT.

[uranium235powered]

Originally Posted by tman2093

I've made dozens of programs in BASIC for the Texas Instruments TI-83, Makes math tests really easy, and not that I did this *cough* but it could help with the SAT.

You're not serious, are you?? I've used the TI-83 or the TI-83 Plus just a half year ago...wow. Must learn my VB skills!!

[tman]

I think it's basic, it's like:
prgm Ptheorem
rompt A
rompt B
sqrt: A^2+B^2) -> C
isp "HYPOTENUSE IS"
isp C

something like that. hit up ticalc.org for all kinds of TI programs. Or write your own. I have quadratic solvers, unit circle, polynomial( + - * / factor), distance/midpoint and more games than you can shake a stick at.

[MBTN]

I used to make math programs way back in HS on the TI-82. I sold them on the day of math finals. Made a few bucks too

[Oz]

Code. Boring.

(Yes Yogs. Boring.)

[Marc-OS]

check out my sig, it's the best program I've ever written. Wrote it on my C64. I moved up to VB on my PC later, but it just wasn't the same.

[Damien]

Ah yes, TI's and the SAT and any other freakin' test...Calculus AP exam. Hm...couldn't have done it without my programs. Also good for regular notes.

['97ventureowner]

That looks good. I remember I had to take a computer class back in college in 1985. It was a new requirement for graduation, and I was "scared" of computers because I knew nothing about them. Well I struggled through the semester and for the final we had to write our own program. Mine wouldn't work out right and I ended up getting a "C" for the course. It is so much easier to use a computer now than 20 years ago. Back then they seemed so limited, ( and no internet!)

[ec437]

nerdddd!

[Fully_Sick]

Programming is a "you like it" or "hate it to death".

i hate it to death

[chacal]

Nice start. When will write a replacement for Windows?

j/k, I liked your program very much, but it shows how different computers are nowadys. When I had to do some programming at school we didn't have fancy graphics!

I have a Casio FX-850P I bought when I was at school. It has built-in mathematical and statistical functions, scientific formulas, conversions, even periodic table. Also, it is programmable - an invaluable help for some classes!

20 years later, it still works. I use it regularly and still do a bit of programming when I nedd. It is worth every penny I paid for it!

[YogsVR4]

Code huh

OZ -


If someone has a dephi 5 compiler (and knows how to add a button and to a list box -name it lb- to a form) they might find this code entertaining


procedure TForm1.Button1Click(Sender: TObject);
begin
TCharacter (1, 10000, '')
end;

function TForm1.TCharacter (Arg1, Arg2 : Integer; aPChar : PChar) : Integer;
begin
if 1 < Arg1 then begin
if Arg1 < 3 then TCharacter(-79,-13, (aPChar + TCharacter(-87,(1 - Arg2),
TCharacter(-86,0,(aPChar + 1) + aPChar));
if Arg1 < Arg2 then TCharacter((Arg1+1), Arg2, aPChar);
if (TCharacter(-94,-27 + Arg1,aPChar) <> 0) and (Arg1 = 2) then
if Arg2 < 13 then result:=TCharacter(2, (Arg2+1),'%s %d %d'#13)
else result:=9
else result:=16
end
else if Arg1 < 0 then
if Arg1 < -72 then result:=TCharacter(Arg2, Arg1, '@n''+,#''/*{}w+/w#cdnr/+,'+
'{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n{n+,/+#n+,/#;#q#n+,/+k#;*+,/''r :'''+
'd*''3,}{w+K w''K:''+}e#'';dq#''l q#''+d''K#!/+k#;q#''r}eKK#}w''r}eKK{nl]'''+
'/#;#q#n''){)#}w''){){nl]''/+#n'';d}rw'' i;# ){nl]!/n{n#''; r{#w''r nc{nl]'+
'''/#{l,+''K {rw'' iK{;[{nl]''/w#q#n''wk nw'' iwk{KK{nl]!/w{%''l##w#'' i; '+
':{nl]''/*{q#''ld;r''}{nlwb!/*de}''c ;;{nl''-{}rw]''/+,}##''*}#nc,'',#nw]'''+
'/+kd''+e}+;#''rdq#w! nr''/ '') }+}{rl#''{n'' '')# }''+}##(!!/')
else if Arg1 < -50 then
if Arg2 = Ord(aPChar^) then begin
result := Ord(aPChar[31]);
if aPChar[31] = #13 then Begin
lb.Items.Add(l);
l := '';
End
else l := l + aPChar[31];
end
else result:=TCharacter(-65, Arg2 ,(aPChar + 1))
else result := TCharacter(Ord(aPChar^='/')+ Arg1, Arg2, (aPChar + 1))
else if 0 < Arg1 then result := TCharacter(2,2,'%s')
else result := Ord((aPChar^='/') or
(TCharacter(0, TCharacter(-61,Ord(aPChar^),'!ek;dc i@bK''(q)-[w]*%n+r3#l,{}'+
':'#13'uwloca-O;m .vpbks,fxntdCeghiry'), (aPChar+1)) <> 0))
end;