Flächeninhalt/umfang herausfinder ^^

Übersicht Sonstiges Projekte

Neue Antwort erstellen

 

Kado

Betreff: Flächeninhalt/umfang herausfinder ^^

 BeitragSo, Dez 05, 2004 22:24
Antworten mit Zitat
Benutzer-Profile anzeigen
mir fiel kein besserer name ein zu meinem kleinem prog ...
also ich sag mal der name sagt glaub ich alles...

also es kannt
Arrow Quadrat
Arrow Rechteck
Arrow Dreieck
Arrow Trapez
Arrow parrallelogramm
Arrow Drahce/Raute
Arrow Kreis
im Flächinhalt und Umfang errechnen Razz Mathe [637kb]
ich habe das programm gemacht weil ich das grad in mathe hab .... Razz und vllt schaffe ich das programm für 50cent in der klasser zuverkaufen Razz

Bitte verbesserungs vorschläge
  • Zuletzt bearbeitet von Kado am So, Dez 05, 2004 22:54, insgesamt 3-mal bearbeitet

Ninja

 BeitragSo, Dez 05, 2004 22:27
Antworten mit Zitat
Benutzer-Profile anzeigen
ich "Berechner" ist besser als "Herausfinder" Very Happy
 

konstantin

 BeitragSo, Dez 05, 2004 22:28
Antworten mit Zitat
Benutzer-Profile anzeigen
ich habs jetzt mal nicht heruntergeladen.
aber geil wäre: BlitzPlus, Figur zeichnen, In der Figur zeigen, wie man den Flächeninhalt berechnet, Erklärungen zu den Berechnungen, Speichern von Werten und Figuren
 

Kado

 BeitragSo, Dez 05, 2004 22:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Alu hat Folgendes geschrieben:
ich habs jetzt mal nicht heruntergeladen.
aber geil wäre: BlitzPlus, Figur zeichnen, In der Figur zeigen, wie man den Flächeninhalt berechnet, Erklärungen zu den Berechnungen, Speichern von Werten und Figuren


omg .... dann will ich 1€ Very Happy , aber was meinste mit blitzplus?? meinste mit blitz+ das programm machen??

Ninja hat Folgendes geschrieben:
ich "Berechner" ist besser als "Herausfinder" Very Happy

ich habe mir auch schon gedankenüber den namen gemacht mir viel aber nix gescheites ein ... THX Surprised
 

konstantin

 BeitragSo, Dez 05, 2004 22:44
Antworten mit Zitat
Benutzer-Profile anzeigen
Kado hat Folgendes geschrieben:
omg .... dann will ich 1€ Very Happy , aber was meinste mit blitzplus?? meinste mit blitz+ das programm machen??


ich meine damit, das du das ganze mit dem windows-gui ausstatten solltest. sonst ist das lächerlich
 

Kado

 BeitragSo, Dez 05, 2004 22:48
Antworten mit Zitat
Benutzer-Profile anzeigen
Alu hat Folgendes geschrieben:
Kado hat Folgendes geschrieben:
omg .... dann will ich 1€ Very Happy , aber was meinste mit blitzplus?? meinste mit blitz+ das programm machen??


ich meine damit, das du das ganze mit dem windows-gui ausstatten solltest. sonst ist das lächerlich



also in meinen "visionen" is das so ^^ , aber ich weiß net wie ich dasd machen soll ....
 

maxihabbo

 BeitragSa, Dez 11, 2004 20:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich hab mirs mal runtergeladen, und ich muss sagen:
Für eine Fehlermeldung mit dem Text:
"Memory access violation"
50cent zu verlangen ist doch wucher oder?

Very Happy Very Happy Very Happy

Bigmichi

 BeitragSa, Dez 11, 2004 21:34
Antworten mit Zitat
Benutzer-Profile anzeigen
http://server.future-coding.de/111.JPG

Dazu würd ich gerne eine Erklärung Very Happy

steigt ins unermächtliche Very Happy

Hubsi

 BeitragSa, Dez 11, 2004 22:56
Antworten mit Zitat
Benutzer-Profile anzeigen
Ja ne, wenn das so ist saug ich das nicht Very Happy
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...
 

Kado

 BeitragDi, Dez 14, 2004 18:52
Antworten mit Zitat
Benutzer-Profile anzeigen
Bigmichi hat Folgendes geschrieben:
http://server.future-coding.de...htliche Very Happy


lol ?? darauf habe ich net geachtet , das kommt davon das er ganze zeit die bilder lädt und ich weiß net wie ich dasändern kann Wink

hier is der code ... bin noch ein n00b Wink
Code: [AUSKLAPPEN]

Graphics 640,480,0,2
AppTitle ("Flächeninhalt/Umfang Herausfinder Version 0,9b Made By Kado")

umfang=LoadImage("buttons/umfang.bmp")
flaeche=LoadImage("buttons/Flaecheninhalt.bmp")
quadrat=LoadImage("buttons/quadrat.bmp")
rechteck=LoadImage("buttons/Rechteck.bmp")
kreis=LoadImage("buttons/Kreis.bmp")
drache=LoadImage("buttons/dracheraute.bmp")
trapez=LoadImage("buttons/Trapez.bmp")
parra=LoadImage("buttons/Parallelogramm.bmp")
dreieck=LoadImage("buttons/dreieck.bmp")


menu=0
Repeat
x=MouseX()
y=MouseY()
DrawImage umfang, 80,30
DrawImage flaeche, 330,30
font = LoadFont("Times New Roman",18)
SetFont font

;flächeninhalt
If x => 330 And x <= 530 And y => 30 And y <=70 And MouseDown(1)
   Cls
   DrawImage quadrat, 20,150
   DrawImage rechteck, 220,150
   DrawImage dreieck, 420,150
   DrawImage drache, 220,250
   DrawImage kreis, 20,350
   DrawImage trapez, 220,350
   DrawImage parra, 420,350
   menu=1

EndIf
;umfang
If x => 80 And x <= 280 And y => 30 And y <=70 And MouseDown(1)
   Cls
   DrawImage quadrat, 20,150
   DrawImage rechteck, 220,150
   DrawImage dreieck, 420,150
   DrawImage drache, 220,250
   DrawImage kreis, 20,350
   DrawImage trapez, 220,350
   DrawImage parra, 420,350
   menu=2
EndIf
;quadratflächeninhalt
If x => 20 And x <= 215 And y => 150 And y <=190 And MouseDown(1) And menu=1
   Cls
   Text 400,5, "Vierecksform: Quadrat"
   Locate 0,5
   Color 255,0,0
   Line 450,100,500,100
   Color 255,255,255
   Line 500,100,500,50
   Line 500,50,450,50
   Line 450,50,450,100
   seite=Input$("Bitte geben Sie eine Seite an: ")
   Cls
   a = seite
   quadrat = a * a
   Text 400,5, "Vierecksform: Quadrat"
   Text 0,5, "Der Flechinhalt von dem Quadrat ist "
   Color 0,255,0
   Text 230,5, quadrat
   Color 255,255,255
   Text 280,5, " m²."
   Delay 2500
   Cls
EndIf
;rechteckflächeninhalt
If x => 220 And x <= 415 And y => 150 And y <=190 And MouseDown(1) And menu=1
   Cls
   Text 400,5, "Vierecksform: Rechteck"
   Color 255,0,0
   Line 450,100,550,100
   Color 255,255,255
   Line 550,100,550,50
   Line 550,50,450,50
   Line 450,50,450,100
   Locate 0,5
   seitea#=Input$("Bitte geben Sie die Seite a/c an: ")
   Cls
   Text 400,5, "Vierecksform: Rechteck"
   Line 450,100,550,100
   Color 255,0,0
   Line 550,100,550,50
   Color 255,255,255
   Line 550,50,450,50
   Line 450,50,450,100
   Locate 0,5
   seitebd#=Input$("Bitte geben Sie die Seite b/d an: ")
   Cls
   rechtecks# = seitea * seitebd
   Text 400,5, "Vierecksform: Rechteck"
   Text 0,5, "Der Flachinhalt von dem Rechteck ist "
   Color 0,255,0
   Text 240,5, rechtecks
   Color 255,255,255
   Text 280,5, "m²."
   Delay 2500
   Cls
EndIf
;dreieckflächeninhalt
If x => 420 And x <= 615 And y => 150 And y <=190 And MouseDown(1) And menu=1
   Cls
   Text 400,5, "Form: Dreieck"
   Color 255,0,0
   Line 450,100,550,100
   Color 255,255,255
   Line 550,100,500,50
   Color 255,255,255
   Line 500,50,450,100
   Locate 0,5
   grundseite#=Input$("Bitte geben Sie die Grundseite an: ")
   Cls   
   Text 400,5, "Form: Dreieck"
   Line 450,100,550,100
   Color 255,255,255
   Line 550,100,500,50
   Line 500,50,450,100
   Color 255,0,0
   Line 500,100,500,50
   Color 255,255,255
   Locate 0,5
   hoehe#=Input$("Bitte geben Sie die Höhe an: ")
   Cls
   dreiecks# = grundseite * hoehe
   dreiecke# = dreiecks / 2
   Text 400,5, "Form: Dreieck"
   Text 0,5, "Der Flachinhalt von dem Dreieck ist "
   Color 0,255,0
   Text 230,5, dreiecke
   Color 255,255,255
   Text 280,5, "m²."
   Delay 2500
   Cls   
EndIf
;dracheflächeninhalt
If x => 220 And x <= 420 And y => 250 And y <=290 And MouseDown(1) And menu=1
   Cls
   Text 400,5, "Vierecksform: Drache/Raute"
   Line 420,100,520,150
   Line 520,150,620,100
   Line 620,100,520,50
   Line 520,50,420,100
   Line 520,150,520,50
   Color 255,0,0
   Line 420,100,620,100
   Color 255,255,255
   Locate 0,5
   diae#=Input$("Bitte geben Sie die Diagonale e an: ")
   Cls   
   Text 400,5, "Vierecksform: Drache/Raute"   
   Line 420,100,520,150
   Line 520,150,620,100
   Line 620,100,520,50
   Line 520,50,420,100
   Color 255,0,0
   Line 520,150,520,50
   Color 255,255,255
   Line 420,100,620,100
   Locate 0,5
   diaf#=Input$("Bitte geben Sie die Diagonale f an: ")
   Cls
   draches# = diae * diaf / 2
   Text 400,5, "Vierecksform: Drache/Raute"
   Text 0,5, "Der Flachinhalt von dem Drachen/Rauten ist "
   Color 0,255,0
   Text 280,5, draches
   Color 255,255,255
   Text 320,5, "m²."   
   Delay 2500
   Cls
EndIf

;kreisflächeninhalt
If x => 20 And x <= 220 And y => 350 And y <=390 And MouseDown(1) And menu=1
   Cls
   Text 450,5, "Form: Kreis"
   Oval 420,100,150,150
   Color 255,0,0
   Line 500,175,570,175
   Color 255,255,255
   Locate 0,5
   radius#=Input$("Bitte geben Sie den Radius des Kreises an: ")
   Cls
   Kreisende# =  Pi * radius ^ 2
   Text 450,5, "Form: Kreis"
   Text 0,5, "Der Flächeninhalt von dem Kreis ist "
   Color 0,255,0
   Text 210,20, Kreisende
   Color 255,255,255
   Text 280,20, "m²."
   Delay 2500
   Cls
EndIf

;parraflächinhalt
If x => 420 And x <= 615 And y => 350 And y <=390 And MouseDown(1) And menu=1
   Cls
   Text 400,5, "Vierecksform: Parallelogramm"
   Color 255,0,0
   Line 450,100,550,100
   Color 255,255,255
   Line 550,100,600,50
   Line 600,50,500,50
   Line 500,50,450,100
   Locate 0,5
   grundseite#=Input$("Bitte geben Sie die Grundseite an: ")
   Cls   
   Text 400,5, "Vierecksform: Parallelogramm"
   Line 450,100,550,100
   Line 550,100,600,50
   Line 600,50,500,50
   Line 500,50,450,100
   Color 255,0,0
   Line 530,100,530,50
   Color 255,255,255
   Locate 0,5
   hoehe#=Input$("Bitte geben Sie die Höhe an: ")
   Cls
   Parallelogramm# = grundseite * hoehe
   Text 400,5, "Vierecksform: Parallelogramm"
   Text 0,5, "Der Flächinhalt von dem Parallelogramm ist "
   Color 0,255,0
   Text 275,5, Parallelogramm
   Color 255,255,255
   Text 320,5, "m²."   
   Delay 2500
   Cls
EndIf
;trapezflächeninhalt
If x => 220 And x <= 415 And y => 350 And y <=390 And MouseDown(1) And menu=1
   Cls
   Text 400,5, "Vierecksform: Trapez"
   Color 255,0,0
   Line 450,100,610,100
   Color 255,255,255
   Line 600,50,500,50
   Line 610,100,600,50
   Line 500,50,450,100
   Locate 0,5
   Seite1#=Input$("Bitte geben Sie eine Seite an: ")
   Cls   
   Text 400,5, "Vierecksform: Trapez"
   Line 450,100,610,100
   Color 255,255,255
   Color 255,0,0
   Line 600,50,500,50
   Color 255,255,255
   Line 610,100,600,50
   Line 500,50,450,100
   Locate 0,5
   parrallele#=Input$("Bitte geben Sie die gegenüberliegende Seite an: ")
   Cls
   Text 400,5, "Vierecksform: Trapez"
   Line 450,100,610,100
   Line 600,50,500,50
   Line 610,100,600,50
   Line 500,50,450,100
   Color 255,0,0
   Line 550,100,550,50
   Color 255,255,255
   Locate 0,5
   hoeh#=Input$("Bitte geben Sie die Höhe an: ")
   Cls
   Parallelogrammxs# = seite1 + parrallele
   parallelogrammx# = Parallelogrammxs * hoeh
    Parallelogram# = parallelogrammx / 2
   Text 400,5, "Vierecksform: Trapez"
    Text 0,5, "Der Flachinhalt von dem Trapez ist "
    Color 0,255,0
    Text 230,5, Parallelogram
    Color 255,255,255
    Text 280,5, "m²."
   Delay 2500
   Cls
EndIf

;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;!!!!!!!!!!!!!!!!!UMFANG!!!!!!!!!!!!!!!!!!!
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

;QUADRAT umfang
If x => 20 And x <= 215 And y => 150 And y <=190 And MouseDown(1) And menu=2
   Cls
   Text 400,5, "Vierecksform: Quadrat"
   Color 255,0,0
   Line 450,100,500,100
   Color 255,255,255
   Line 500,100,500,50
   Line 500,50,450,50
   Line 450,50,450,100
   Locate 0,5
   seit#=Input$("Bitte geben Sie eine Seite an: ")
   Cls
   Quadrats# = seit * 4
   Text 400,5, "Vierecksform: Quadrat"
   Text 0,5, "Der Flechinhalt von dem Quadrat ist "
   Color 0,255,0
   Text 230,5, quadrats
   Color 255,255,255
   Text 280,5, " m²."
   Delay 2500
   Cls
EndIf

;RECHTECK umfang
If x => 220 And x <= 415 And y => 150 And y <=190 And MouseDown(1) And menu=2
   Cls
   Text 400,5, "Vierecksform: Rechteck"
   Color 255,0,0
   Line 450,100,550,100
   Color 255,255,255
   Line 550,100,550,50
   Line 550,50,450,50
   Line 450,50,450,100
   Locate 0,5
   seitea#=Input$("Bitte geben Sie die Seite a/c an: ")
   Cls
   Text 400,5, "Vierecksform: Rechteck"
   Line 450,100,550,100
   Color 255,0,0
   Line 550,100,550,50
   Color 255,255,255
   Line 550,50,450,50
   Line 450,50,450,100
   Locate 0,5
   seitebd#=Input$("Bitte geben Sie die Seite b/d an: ")
   Cls
   ac# = seitea + seitea
   bd# = seitebd + seitebd
   rechtecks# = ac+bd
   Text 400,5, "Vierecksform: Rechteck"
   Text 0,5, "Der Flachinhalt von dem Rechteck ist "
   Color 0,255,0
   Text 230,5, rechtecks
   Color 255,255,255
   Text 280,5, "m²."
   Delay 2500
   Cls
EndIf
;KREIS umfang
If x => 20 And x <= 220 And y => 350 And y <=390 And MouseDown(1) And menu=2
   Cls
   Text 480,5, "Form: Kreis"
   Oval 420,100,150,150
   Color 255,0,0
   Line 420,175,570,175
   Color 255,255,255
   Locate 0,5
   durchmesser#=Input$("Bitte geben Sie den Durchmesser des Kreises an: ")
   Cls
   kreise# = durchmesser * Pi
   Text 480,5, "Form: Kreis"
   Text 0,5, "Der Umfang von dem Kreis ist "
   Color 0,255,0
   Text 210,5, Kreise
   Color 255,255,255
   Text 280,5, "m²."
   Delay 2500
   Cls
EndIf

;Drache/Raute UmFANG
If x => 220 And x <= 420 And y => 250 And y <=290 And MouseDown(1) And menu=2
   Cls
   Text 400,5, "Vierecksform: Drache/Raute"
   Line 420,100,520,150   
   Line 520,150,620,100
   Line 620,100,520,50
   Color 255,0,0
   Line 520,50,420,100
   Color 255,255,255
   Line 520,150,520,50
   Line 420,100,620,100
   Locate 0,5
   diaab#=Input$("Bitte geben Sie eine Parrallele an: ")
   Cls   
   Text 400,5, "Vierecksform: Drache/Raute"
   Line 420,100,520,150   
   Line 520,150,620,100
   Color 255,0,0
   Line 620,100,520,50
   Color 255,255,255
   Line 520,50,420,100
   Line 520,150,520,50
   Line 420,100,620,100
   Locate 0,5
   diadc#=Input$("Bitte geben Sie eine andere Parrallele an: ")
   Cls
   draches# = diaab + diaab + diadc + diadc
   Text 400,5, "Vierecksform: Drache/Raute"
   Text 0,5, "Der Flachinhalt von dem Drachen/Rauten ist "
   Color 0,255,0
   Text 280,5, draches
   Color 255,255,255
   Text 320,5, "m²."   
   Delay 2500
   Cls
EndIf

;trapez UMFANG
If x => 220 And x <= 415 And y => 350 And y <=390 And MouseDown(1) And menu=2
   Cls
   Text 400,5, "Vierecksform: Trapez"
   Color 255,0,0
   Line 450,100,610,100
   Color 255,255,255
   Line 600,50,500,50
   Line 610,100,600,50
   Line 500,50,450,100
   Locate 0,5
   Seite1#=Input$("Bitte geben Sie die Seite a an: ")
   Cls   
   Text 400,5, "Vierecksform: Trapez"
   Line 450,100,610,100
   Line 600,50,500,50
   Color 255,0,0
   Line 610,100,600,50
   Color 255,255,255
   Line 500,50,450,100
   Locate 0,5
   seite2#=Input$("Bitte geben Sie die Seite b an: ")
   Cls
   Line 450,100,610,100
   Color 255,0,0
   Line 600,50,500,50
   Color 255,255,255
   Line 610,100,600,50
   Line 500,50,450,100
   Text 400,5, "Vierecksform: Trapez"
   Locate 0,5
   Seite3#=Input$("Bitte geben Sie die Seite c an: ")
   Cls
   Text 400,5, "Vierecksform: Trapez"
   Line 450,100,610,100
   Line 600,50,500,50
   Line 610,100,600,50
   Color 255,0,0
   Line 500,50,450,100
   Color 255,255,255
   Locate 0,5
   Seite4#=Input$("Bitte geben Sie die Seite d an: ")
   Cls
    trapez1# = seite1+seite2+seite3+seite4
   Text 400,5, "Vierecksform: Trapez"
    Text 0,5, "Der Flachinhalt von dem Trapez ist "
    Color 0,255,0
    Text 230,5, trapez1
    Color 255,255,255
    Text 280,5, "m²."
   Delay 2500
   Cls
EndIf
;parra umfang
If x => 420 And x <= 615 And y => 350 And y <=390 And MouseDown(1) And menu=2
   Cls
   Text 400,5, "Vierecksform: Parallelogramm"
   Line 450,100,550,100
   Line 600,50,500,50
   Color 255,255,255
   Line 550,100,600,50
   Line 500,50,450,100
   Locate 0,5
   seite1#=Input$("Bitte geben Sie eine Parrallele an: ")
   Cls   
   Text 400,5, "Vierecksform: Parallelogramm"
   Color 255,255,255
   Line 450,100,550,100
   Line 600,50,500,50
   Color 255,0,0
   Line 550,100,600,50
   Line 500,50,450,100
   Locate 0,5
   seite2#=Input$("Bitte geben Sie die andere Parrallele an: ")
   Cls
   Parallelogramm# = seite1 * seite2
   Text 400,5, "Vierecksform: Parallelogramm"
   Text 0,5, "Der Flächinhalt von dem Parallelogramm ist "
   Color 0,255,0
   Text 275,5, Parallelogramm
   Color 255,255,255
   Text 320,5, "m²."   
   Delay 2500
   Cls
EndIf
;dreieck UMFANG
If x => 420 And x <= 615 And y => 150 And y <=190 And MouseDown(1) And menu=2
   Cls
   Text 400,5, "Form: Dreieck"
   Color 255,0,0
   Line 450,100,550,100
   Color 255,255,255
   Line 550,100,500,50
   Line 500,50,450,100
   Locate 0,5
   seite1#=Input$("Bitte geben Sie die Seite a an: ")
   Cls
   Text 400,5, "Form: Dreieck"
   Line 450,100,550,100
   Color 255,0,0
   Line 550,100,500,50
   Color 255,255,255
   Line 500,50,450,100
   Locate 0,5
   seite2#=Input$("Bitte geben Sie die Seite b an: ")
   Cls
   Text 400,5, "Form: Dreieck"
   Line 450,100,550,100
   Line 550,100,500,50
   Color 255,0,0
   Line 500,50,450,100
   Color 255,255,255
   Locate 0,5
   seite3#=Input$("Bitte geben Sie die Seite c an: ")
   Cls   
   dreiecke# = seite1+seite2+seite3
   Text 400,5, "Form: Dreieck"
   Text 0,5, "Der Flachinhalt von dem Dreieck ist "
   Color 0,255,0
   Text 230,5, dreiecke
   Color 255,255,255
   Text 280,5, "m²."
   Delay 2500
   Cls
EndIf
Until KeyHit(1)

Hubsi

 BeitragDi, Dez 14, 2004 19:09
Antworten mit Zitat
Benutzer-Profile anzeigen
Wie zum Geier kommt man auf die Idee Fonts in einer Schleife zu laden? Very Happy
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Neue Antwort erstellen


Übersicht Sonstiges Projekte

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group