Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 20.06.2006, 15:27 Titel: Mein Kreisberechner |
|
|
Hallo,
ich möchte euch hier meinen Kreisberechner Vorstellen. Er kann den Umfang und Flächeninhalt durch eingegebenem Radius oder Durchmesser berechnen. Sagt mir bitte, wenn euch ein Fehler auffällt!
Zur Info:
Da der Server mit meiner Homepage gerade umzieht, kann ich das Programm leider jetzt nicht hochladen.
Aber Hier ist erstmal ein Screenshot:
_________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an)
Zuletzt bearbeitet von Bad_King am 20.06.2006, 15:31, insgesamt einmal bearbeitet |
|
Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004 Beiträge: 3071 Wohnort: bei Darmstadt
|
Verfasst am: 20.06.2006, 15:29 Titel: |
|
|
sehr gut...
www.imageshack.us _________________ "It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 20.06.2006, 15:31 Titel: |
|
|
So, ich bin schon bevor du es mir gesagt hast darauf gekommen
Übrigens:
Der Kreisberechner ist in Visual Basic 3 geschrieben. _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
Neo187
Anmeldungsdatum: 26.12.2005 Beiträge: 350 Wohnort: Oldenburg
|
Verfasst am: 20.06.2006, 15:59 Titel: |
|
|
moin,
bis auf die Tatsache, dass man des ganze mit 170Bytes lösen kann (so habbichs im Taschenrechner^^) ne ganz nette Idee...wenn'de da nun noch'n paar brauchbare Formeln reinmachst würdichs vllt. im Hintergrund laufen lassen.
Mfg,
Neo187 _________________
|
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 20.06.2006, 20:03 Titel: |
|
|
Innitaliesieren macht: Alle Variablen auf 0 setzten (ist wahrschenlich unnötig, da es ja keine Globale Variablen sind) und haptsächlich: Alle Textfelder und Ergebnis-Labels löschen (also das was man in die Textfelder eingegeben hat)
Sebastian hat Folgendes geschrieben: |
Innen hat die Kugelei vier drittel Pi mal r hoch drei und was sie auf dem Buckel hat ist vier mal Pi mal r Quadrat. |
Kannst du das mit der Formel vielleicht genauer erklären?
Und alle, die den Quelltext haben wollen:
Code: |
Sub Command1_Click ()
d# = Val(Text1.Text)
PI# = 3.1415926654
u# = PI# * d#
Label5.Caption = u#
End Sub
Sub Command2_Click ()
r# = Val(text2.Text)
PI# = 3.1415926654
A# = PI# * r# * 2
Label5.Caption = A#
End Sub
Sub Command3_Click ()
Text1.Text = ""
text2.Text = ""
Text3.Text = ""
text4.Text = ""
PI# = 3.141592654
d# = 0
r# = 0
u# = 0
A# = 0
Label5.Caption = ""
label10.Caption = ""
End Sub
Sub Command4_Click ()
End
End Sub
Sub Command5_Click ()
PI# = 3.141592654
d# = Val(Text3.Text)
r# = d# / 2
A# = PI# * r# ^ 2
label10.Caption = A#
End Sub
Sub Command6_Click ()
r# = Val(text4.Text)
PI# = 3.141592654
A# = PI# * r# ^ 2
label10.Caption = A#
End Sub
|
So, das sind jetzt die Aktionen für das Klicken. _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an)
Zuletzt bearbeitet von Bad_King am 20.06.2006, 20:21, insgesamt einmal bearbeitet |
|
Nach oben |
|
|
Neo187
Anmeldungsdatum: 26.12.2005 Beiträge: 350 Wohnort: Oldenburg
|
Verfasst am: 20.06.2006, 20:39 Titel: |
|
|
moin,
PI# = 3.1415926654
da haste eine 6 zuviel
Mfg,
Neo187 _________________
|
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 20.06.2006, 20:41 Titel: |
|
|
OH, ******* (mist).
Nochwas:
Könnte jemand für mich temponär das Programm auf seinen Webspace hochladen, da ich momentan keinen Zugriff auf meinen Webspace habe. _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
Neo187
Anmeldungsdatum: 26.12.2005 Beiträge: 350 Wohnort: Oldenburg
|
Verfasst am: 20.06.2006, 20:47 Titel: |
|
|
king01 hat Folgendes geschrieben: | Könnte jemand für mich temponär das Programm auf seinen Webspace hochladen, da ich momentan keinen Zugriff auf meinen Webspace habe. |
Rapidshare.de oder Konsortium.
Mfg,
Neo187 _________________
|
|
Nach oben |
|
|
Dominik
Anmeldungsdatum: 22.12.2004 Beiträge: 172
|
Verfasst am: 20.06.2006, 23:37 Titel: |
|
|
Hallo,
an dem, was ich bis jetzt sehe, habe ich nichts auszusetzen, außer dass ich von der Struktur des Quellcodes fast Augenkrebs bekomme...
Du solltest vielleicht deinen Steuerelementen einen aussagekräftigeren Namen als z.B.
Zitat: | "Sub Command1_Click () " |
geben.
Und vielleicht ab und zu mal Blöcke einrücken.
Das erhöht einfach die Übersichtlichkeit und lässt andere den Code auch verstehen.
Ich selbst weiß auf Anhieb nicht, welches Steuerelement welchen Namen hat... |
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
|
Nach oben |
|
|
Neo187
Anmeldungsdatum: 26.12.2005 Beiträge: 350 Wohnort: Oldenburg
|
Verfasst am: 21.06.2006, 18:48 Titel: |
|
|
moin,
KREIS.EXE => The program cannot start or run due to incompability with 64-Bit versions of windows.
kannste bitte VB6 benutzen? Das hat keine Probleme mehr mit meenem Windows.
Mfg,
Neo187 _________________
|
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 21.06.2006, 19:23 Titel: |
|
|
Woher bekommt man VB6? _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
Neo187
Anmeldungsdatum: 26.12.2005 Beiträge: 350 Wohnort: Oldenburg
|
Verfasst am: 21.06.2006, 19:24 Titel: |
|
|
Sebastian hat Folgendes geschrieben: | Du meine Güte, hat dein Windows überhaupt keine Emulationsmöglichkeit mehr für 16 Bit Anwendungen?! |
Nope
64Bit Software sowie 32Bit Software per SYSWOW64.
Aber normalerweise sollte der Übergang heutzutage auch schon längst abgeschlossen sein...seit Mitte der 80er Jahre gibt es nennenswerte 32Bit Prozis. ...weshalb dann heute noch mit 16Bit arbeiten^^.....für die neueren Prozessoren ist das eh Verschwendung von Ressourcen.
Mfg,
Neo187 _________________
|
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 21.06.2006, 19:27 Titel: |
|
|
Ich bin doch kein VB-Stammprogrammierer. Ich wollte halt nur kurz mal ne Windows-Anwendung machen. Normalerweiße benutze ich dafür Delphi, aber da das gerade nicht installiert ist, habe ich hal VB genommen (und auch nur um zu testen). _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
Jojo alter Rang
Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 21.06.2006, 20:45 Titel: |
|
|
vb6 kostet, is aber dafür x-mal benutzerfreundlich und programmiererfreundlicher! hab es schon lange und kann es nicht mehr wegedenken ich weiß nur, dass man bei vb6 einmal klicken muss,um den namen der controls zu ändern, zumindest in VB1 sinds einige klicks mehr, wohl auch in vb3 _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 21.06.2006, 20:46 Titel: |
|
|
Ja, und woher bekommt man des? Wo muss man des Kaufen? _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
Jojo alter Rang
Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 21.06.2006, 20:50 Titel: |
|
|
jo, wo bekommat sowas wohl her?
ich habs (legal!) an der FH erworben, da verteilt Microsoft kostenlose kopien von einigen microschuft-programmen für info-studenten _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 21.06.2006, 20:52 Titel: |
|
|
was ist die FH? _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
|