Zeugnisse
Übersicht

![]() |
KabelbinderSieger des WM-Contest 2006Betreff: Zeugnisse |
![]() Antworten mit Zitat ![]() |
---|---|---|
Hi
Bei uns gabs heute Zeugnisse. Deshalb (und zur Übung) hab ich gerade ein Programm, mit dem man den Notendurchschnitt errechnen kann, geschrieben. Das beste daran ist, finde ich, dass alles mausgesteuert ist. Dadurch geht alles extrem schnell: Code: [AUSKLAPPEN] AppTitle "Noten"
Graphics 800,600,16,2 SetBuffer BackBuffer() Dim fach$(18) fach(1)="Deutsch" fach(2)="Englisch" fach(3)="Französisch" fach(4)="Latein" fach(5)="Mathematik" fach(6)="Physik" fach(7)="Chemie" fach(8)="Informatik" fach(9)="Biologie" fach(10)="Geschichte" fach(11)="Erdkunde" fach(12)="Philosophie" fach(13)="Pädagogik" fach(14)="Religion" fach(15)="Kunst" fach(16)="Musik" fach(17)="VPK" fach(18)="Sport" ;1 Fach ;2 Aktiv ;3 Ausgewählt Dim button(17,3) For i = 0 To 17 button(i,1)=i+1 button(i,2)=1 button(i,3)=0 Next Global schritt,punkte,indipunkte#,fachnr,mx,my,fachkennung$,kurs,rate punkte = 0 schritt = 1 kurs = 0 rate = -1 Repeat mx = MouseX() my = MouseY() Color 255,0,0 Text 20,10,"Schritt: "+Str$(schritt) ;Schritt 1 For i = 0 To 5 For j = 0 To 2 gen = i+j*6 If (button(gen,2)=1) And (schritt=1) Then Color 0,255,0 Else Color 128,128,128 If button(gen,3)=1 Then Color 255,255,0 Text 150+i*100,80+j*30,fach(button(gen,1)),1,1 Rect 100+i*100,70+j*30,96,20,0 If schritt = 1 Then If MouseDown(1) And RectsOverlap(100+i*100,70+j*30,96,20,mx,my,1,1) And button(gen,2)=1 Then button(gen,2)=0 button(gen,3)=1 fachkennung = fach(button(gen,1)) schritt = schritt + 1 EndIf EndIf Next Next ;Schritt 2 If schritt = 2 Then Color 0,255,0 Else Color 128,128,128 If kurs = 1 Then Color 255,255,0 If kurs = 2 Then Color 128,128,128 Text 350,230,"GK",1,1 Rect 310,220,80,20,0 If kurs = 1 Then Color 128,128,128 If kurs = 2 Then Color 255,255,0 Text 450,230,"LK",1,1 Rect 410,220,80,20,0 If schritt = 2 Then ;GK If MouseDown(1) And RectsOverlap(310,220,80,20,mx,my,1,1) Then kurs = 1 schritt = schritt + 1 EndIf ;LK If MouseDown(1) And RectsOverlap(410,220,80,20,mx,my,1,1) Then kurs = 2 schritt = schritt + 1 EndIf ;zurück If MouseDown(2) Then schritt = schritt - 1 For i = 0 To 17 button(i,3)=0 If fach(button(i,1))=fachkennung Then button(i,2)=1 Next EndIf EndIf ;Schritt 3 For i = 0 To 15 If schritt = 3 Then Color 0,255,0 Else If rate = i Then Color 255,255,0 Else Color 128,128,128 EndIf Text 100+i*40,330,i,1,1 Rect 85+i*40,320,30,20,0 If schritt = 3 Then If MouseDown(1) And RectsOverlap(85+i*40,320,30,20,mx,my,1,1) Then schritt = schritt + 1 rate = i punkte = punkte + rate*kurs EndIf ;zurück If MouseDown(2) Then schritt = schritt - 1 kurs = 0 EndIf EndIf Next ;Schritt 4 If schritt = 4 Then Color 0,255,0 Text 80,500,fachkennung+":",1,1 indipunkte = indipunkte+Sgn(punkte-indipunkte)*0.25 If Int(indipunkte) = punkte Then indipunkte = punkte fachnr = fachnr + kurs kurs = 0 For i = 0 To 17 button(i,3)=0 Next rate = -1 schritt = 1 EndIf EndIf ;immer Color 0,255,0 Text 200,470,"Punkte, gesamt",1,1 Text 200,500,Int(indipunkte),1,1 Rect 175,490,50,20,0 Text 400,470,"Punkte, Durchschnitt",1,1 nako$ = Str(Int(Float(indipunkte) Mod fachnr)/Float(fachnr)) ;If fachnr>0 Then Text 400,500,Str$(Int(indipunkte)/fachnr)+"."+Right(nako,Len(nako)-Instr(nako,".")),1,1 If fachnr>0 Then Text 400,500,Str$(indipunkte/fachnr),1,1 Rect 355,490,90,20,0 Text 600,470,"Notendurchschnitt",1,1 If fachnr>0 Then note# = Float(15-Int(indipunkte/fachnr))/3+0.66 ;If note-Int(note)>0 Then signum$ = "-" ;If note-Int(note)=0 Then signum$ = "" ;If note-Int(note)<0 Then signum$ = "+" Text 600,500,Str$((note)),1,1 EndIf Rect 555,490,90,20,0 Text 70,550,"Fächer:"+Str$(fachnr),1,1 Flip Cls Until KeyHit(1) End |
||
- Zuletzt bearbeitet von Kabelbinder am Mi, Jun 20, 2007 13:11, insgesamt einmal bearbeitet
![]() |
pixelshooter |
![]() Antworten mit Zitat ![]() |
---|---|---|
ob es dann schneller geht? dann mach wenigstens die abstände kleiner. Btw, kannst du ja auch noch S I tauglich machen, oder werden LKs in S II genau so gwertet wie Hauptfächer inner SI? | ||
>> Musikerstellung, Grafik und Design: http://www.pixelshooter.net.tc |
![]() |
Eingeproggt |
![]() Antworten mit Zitat ![]() |
---|---|---|
Also besonders vielseitig ist das Programm ja nicht. Was machen die Leute, die kein Fränzösisch, aber andere Fächer haben? Ok, die denken sich das einfach. Und was ist mit Leuten, die Schulnoten von 1-5 kriegen? Ok, die könnens auch verwenden, ist aber etwas aufwendig. eine simple Taschenrechner-Rechnung (oder Kopfrechnung) reicht völlig. | ||
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9 |
![]() |
pixelshooter |
![]() Antworten mit Zitat ![]() |
---|---|---|
geht wahrscheinlich auch schneller...
Wenn das sinnvoll sein soll, dann mach lieber auf textbasis. das ist schneller |
||
>> Musikerstellung, Grafik und Design: http://www.pixelshooter.net.tc |
![]() |
KabelbinderSieger des WM-Contest 2006 |
![]() Antworten mit Zitat ![]() |
---|---|---|
Abstände kleiner? Woha, das ist eine gute Idee, dabei kann man sicher noch 12 Millisekunden rausholen ![]() Das es auf mit Tastatureingabe schneller gehen soll halte ich für ein Gerücht, du freust dich wahrscheinlich jedes Mal wie'n Kind, wenn du irgendwo blind schreiben kannst. Aber die meisten Anwender haben das lieber n bisschen übersichtlicher und anwenderfreundlicher. @Eingeproggt: Es ist wirklich schade, wie offensichtlich die Feedbackinhalte, die man hier bekommt meistens sind. Auch wenn du's vielleicht nicht glaubst, das hab ich alles auch schon bemerkt. Allerdings sind diese ganzen Erkenntnisse auch irgendwie irrelevant, denn: Dashier soll kein Projekt sein. Wir sind hier nicht im Projekte Thread. Deshalb muss es auch garnicht vielseitig oder sonstwas sein. Es ging eigentlich auch nicht so um die Oberfläche. Viele aus meiner Stufe hatten z.B. auch Probleme in den genauen Notenwert umzurechnen (womitich nicht sagen will, dass das Programm für meine Stufe ist). Deshalb möchte ich auch noch ganz unverbindlich auf Zeile 168 hinweisen, wo steht, wie das geht. |
||
<Wing Avenger Download> ◊◊◊ <Macrophage Download> |
ke^kx |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hm, also wenn ich ehrlich sein soll, ist dieses Programm meiner Meinung nach nicht wirklich für das Codearchiv geeignet. Der Code ist mäßig und vorallem wird absolut nichts revolutioniäres gezeigt. Das ist Code den viele von uns in einer halben Stunde schreiben würden.
Tut mir Leid aber ich finds eher nichts so gut ![]() Jiriki |
||
http://i3u8.blogspot.com
Asus Striker II Intel Core2Quad Q9300 @ 2,5 GHz (aber nur zwei Kerne aktiv aufgrund der Instabilität -.-) Geforce 9800 GTX 2GB RAM |
![]() |
KabelbinderSieger des WM-Contest 2006 |
![]() Antworten mit Zitat ![]() |
---|---|---|
Ist finde ich kein Argument.
Etwas revolutionäres ins Codearchiv zu stellen wäre einfach nur dumm, weil man damit wertvollen geistigen Besitz einfachso verschenkt. Dann glaube ich erstens nicht, dass viele das in ner halben Stunde hinkriegen würden (Ich zumindest hab glaube ich schon etwas länger gebraucht) und zweitens kann das nicht ausschlaggebend sein. Du findest hier auch Codes, die vielleicht 30 Zeilen umfassen, die man auch in 10 Minuten schafft und trotzdem interessant sind. Hast du dir meine letzte Antwort/Die formel zur umrechnung von Punkten in Noten mal angeguckt. Damit hatten einige Probleme. |
||
<Wing Avenger Download> ◊◊◊ <Macrophage Download> |
![]() |
XeresModerator |
![]() Antworten mit Zitat ![]() |
---|---|---|
VPK ? Ist das sowas wie PW? (Politische Weltkunde?)
Mir persönlich fehlen noch Fächer wie: Chemie-,Physik-,Biologietechnik und Arbeitslehre (hatte ich früher mal). Vll. sollte der Erste Schritt sein alle Fächer zu wählen die man überhaupt hat... Aber so ganz nett. |
||
Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld) |
![]() |
KabelbinderSieger des WM-Contest 2006 |
![]() Antworten mit Zitat ![]() |
---|---|---|
lol ![]() ![]() Ist irgendwie schade, dass unsere Schule nur so auf Musik und Religion abfährt. Was Technik betrifft sind wir glaube ich einwenig im Rückstand. Z.B. haben wir einen Musik LK aber keinen Physik LK, obwohl sich dafür ähnlich viele gemeltet hatten. |
||
<Wing Avenger Download> ◊◊◊ <Macrophage Download> |
![]() |
XeresModerator |
![]() Antworten mit Zitat ![]() |
---|---|---|
Okay, in dem Punkt ist meine Schule ein bisschen speziell ^^ aber Statt Englisch, Franz, Latein würde ich einfach 1. 2. 3. Fremdsprache verwenden, gibt ja genug die auch so sachen wie Spanisch machen ![]() |
||
Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld) |
![]() |
Eingeproggt |
![]() Antworten mit Zitat ![]() |
---|---|---|
Fächer sind sehr verschieden. Wenn dir was technisches abgeht, komm zu uns^^
Wir haben "Mechanik und Automatisierungstechnik", "Mess- Steuer- und Reglungstechnik", "Prozessrechentechnik", "Elektro- und Digitaltechnik",... Da bräuchest du ziemlich viele Felder in deinem Prog^^ |
||
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9 |
![]() |
KabelbinderSieger des WM-Contest 2006 |
![]() Antworten mit Zitat ![]() |
---|---|---|
Wow ![]() ![]() |
||
<Wing Avenger Download> ◊◊◊ <Macrophage Download> |
![]() |
Arrangemonk |
![]() Antworten mit Zitat ![]() |
---|---|---|
@eingeproggt, wir hatten dafür nur ein fach, das technologie hies^^ | ||
ingeneur |
![]() |
Moep |
![]() Antworten mit Zitat ![]() |
---|---|---|
Ich denke schon , dass das hier ins Codearchiv passt. Leute die vllcht noch nicht so viel Ahnung von BB haben könnten daraus einiges lernen.
Offtopic: Mein Informatiklehrer hat sowas änhliches gemacht , bloß da wird noch angezeigt wie viele ausfälle man hat und welchen Abschluss man schafft(kannste ja vllcht noch mit einbauen). Die daten kriegen wir dann immer mit den Zeugnissen mitgeliefert^^. Sone Fächer die ihr oben genannt habt wirds bei uns nie geben xD. Bei uns sind die Fächer nur auf das wichtigste beschränkt, leider.. |
||
Hardstyle Schleichwerbung:
http://www.youtube.com/user/Hackepeter42 Achtung: Suchtgefahr! moep123.ohost.de |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group