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

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

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

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.

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.

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

I think it's basic, it's like:
prgm Ptheorem
:prompt A
:prompt B
:(sqrt: A^2+B^2) -> C
:Disp "HYPOTENUSE IS"
:Disp 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.

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 :)

Code. Boring.

(Yes Yogs. Boring.)

:icon16:

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.

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.

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!)

nerdddd!

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

i hate it to death

Nice start. When will write a replacement for Windows? :biggrin:

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!

Code huh

OZ - :thefinger


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 :evillol:


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;

I was writin proggies and games left and right on a TI-83 in HS. Sold the games for $5 a piece, a couple hit the internet and got copied (bastards). I did a 007 game (copied), drug wars (parodied off another "war" game, copied, bastards)....damn calculators are easy as hell. Also made porn "movies", those were popular. My work sent me to a VB class, I was done with the book in the first 6 hours of the 3-day class. Read you TI manual, it'll teach almost as much as those classes.

Damn...porn movies on a calculator? I've never...and I mean NEVER heard of such a thing!

Anyways, I'm just starting to learn programming. Give me about a half millenium and if you're lucky, there will be a new Windows up. I'll probably end up calling it "doors" though.

I enjoyed VB. It was hard b/c our prof asked us the most obscure things on the exams, so it killed my scores even though my programs worked. I wouldn't want to program for a living... math is so much more interesting, but it is nice to know every now and again.






As for TI's... yes, it is a version of BASIC.

cool this is what I want to learn im in eight grade then move to game design!

100 Print "hello"
200 Goto 100

Run

Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello

Break In 200

Code huh

OZ - :thefinger


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 :evillol:


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;

Reading all that makes me want to cry...

I did some fairly basic C++ programming in my first semester at University and loved it. Now my copy of Visual Studio .NET sits unused, maybe I should take up programming again.