Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Mein Kreisberechner
Gehe zu Seite 1, 2  Weiter
 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Projektvorstellungen
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 20.06.2006, 15:27    Titel: Mein Kreisberechner Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt

BeitragVerfasst am: 20.06.2006, 15:29    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 20.06.2006, 15:31    Titel: Antworten mit Zitat

So, ich bin schon bevor du es mir gesagt hast darauf gekommen zwinkern

Übrigens:
Der Kreisberechner ist in Visual Basic 3 geschrieben.
_________________
Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland

BeitragVerfasst am: 20.06.2006, 15:49    Titel: Antworten mit Zitat

Wozu muss man so ein 10 Codezeilen-Programm "initialisieren"?! durchgeknallt durchgeknallt

Geht außerdem alles viel einfacher: 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. durchgeknallt
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Neo187



Anmeldungsdatum: 26.12.2005
Beiträge: 350
Wohnort: Oldenburg

BeitragVerfasst am: 20.06.2006, 15:59    Titel: Antworten mit Zitat

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. zwinkern

Mfg,
Neo187
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 20.06.2006, 20:03    Titel: Antworten mit Zitat

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. durchgeknallt


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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Neo187



Anmeldungsdatum: 26.12.2005
Beiträge: 350
Wohnort: Oldenburg

BeitragVerfasst am: 20.06.2006, 20:39    Titel: Antworten mit Zitat

moin,

PI# = 3.1415926654

da haste eine 6 zuviel zwinkern

Mfg,
Neo187
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 20.06.2006, 20:41    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Neo187



Anmeldungsdatum: 26.12.2005
Beiträge: 350
Wohnort: Oldenburg

BeitragVerfasst am: 20.06.2006, 20:47    Titel: Antworten mit Zitat

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. zwinkern

Mfg,
Neo187
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Dominik



Anmeldungsdatum: 22.12.2004
Beiträge: 172

BeitragVerfasst am: 20.06.2006, 23:37    Titel: Antworten mit Zitat

Hallo,
an dem, was ich bis jetzt sehe, habe ich nichts auszusetzen, außer dass ich von der Struktur des Quellcodes fast Augenkrebs bekomme... peinlich

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
Benutzer-Profile anzeigen Private Nachricht senden
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 21.06.2006, 17:32    Titel: Antworten mit Zitat

Das mit "SUB Command1_Click" hat VB selbst erstellt. Und was ist daran so schlimm?

egal

Hier der Download-Link: http://rapidshare.de/files/23695702/KREIS.EXE.html
_________________
Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Neo187



Anmeldungsdatum: 26.12.2005
Beiträge: 350
Wohnort: Oldenburg

BeitragVerfasst am: 21.06.2006, 18:48    Titel: Antworten mit Zitat

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. zwinkern

Mfg,
Neo187
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland

BeitragVerfasst am: 21.06.2006, 19:01    Titel: Antworten mit Zitat

Du meine Güte, hat dein Windows überhaupt keine Emulationsmöglichkeit mehr für 16 Bit Anwendungen?!
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 21.06.2006, 19:23    Titel: Antworten mit Zitat

Woher bekommt man VB6?
_________________
Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Neo187



Anmeldungsdatum: 26.12.2005
Beiträge: 350
Wohnort: Oldenburg

BeitragVerfasst am: 21.06.2006, 19:24    Titel: Antworten mit Zitat

Sebastian hat Folgendes geschrieben:
Du meine Güte, hat dein Windows überhaupt keine Emulationsmöglichkeit mehr für 16 Bit Anwendungen?!


Nope zwinkern

64Bit Software sowie 32Bit Software per SYSWOW64.happy
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
Benutzer-Profile anzeigen Private Nachricht senden
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 21.06.2006, 19:27    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 21.06.2006, 20:45    Titel: Antworten mit Zitat

vb6 kostet, is aber dafür x-mal benutzerfreundlich und programmiererfreundlicher! hab es schon lange und kann es nicht mehr wegedenken lachen 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 mit dem Kopf durch die Mauer wollen
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 21.06.2006, 20:46    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 21.06.2006, 20:50    Titel: Antworten mit Zitat

jo, wo bekommat sowas wohl her? lachen

ich habs (legal!) an der FH erworben, da verteilt Microsoft kostenlose kopien von einigen microschuft-programmen für info-studenten zwinkern
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Bad_King
gesperrt


Anmeldungsdatum: 15.04.2006
Beiträge: 455
Wohnort: nähe Stuttgart

BeitragVerfasst am: 21.06.2006, 20:52    Titel: Antworten mit Zitat

was ist die FH?
_________________
Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Projektvorstellungen Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite 1, 2  Weiter
Seite 1 von 2

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz