Zeugnisse

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

Kabelbinder

Sieger des WM-Contest 2006

Betreff: Zeugnisse

BeitragMi, Jun 20, 2007 12:52
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Jun 20, 2007 12:58
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Jun 20, 2007 14:45
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Jun 20, 2007 15:00
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Kabelbinder

Sieger des WM-Contest 2006

BeitragDo, Jun 21, 2007 13:37
Antworten mit Zitat
Benutzer-Profile anzeigen
Abstände kleiner? Woha, das ist eine gute Idee, dabei kann man sicher noch 12 Millisekunden rausholen Rolling Eyes . Vielleicht hätte ich statt schnell besser komfortabel schreiben sollen. das gute an Maussteuerung ist auf jeden fall, dass man mit dem Blick nicht immer zwischen der Tastatur und dem Bildschirm hin und her wandern muss. Dass es hier nicht um Highspeed geht sollte man eigentlich an den verlängerten Wartezeiten beim raufzählen sehen (Spielerei).
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

BeitragFr, Jun 22, 2007 17:35
Antworten mit Zitat
Benutzer-Profile anzeigen
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 Confused

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

Kabelbinder

Sieger des WM-Contest 2006

BeitragFr, Jun 22, 2007 18:16
Antworten mit Zitat
Benutzer-Profile anzeigen
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>

Xeres

Moderator

BeitragFr, Jun 22, 2007 19:27
Antworten mit Zitat
Benutzer-Profile anzeigen
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
T
HERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Kabelbinder

Sieger des WM-Contest 2006

BeitragSa, Jun 23, 2007 13:07
Antworten mit Zitat
Benutzer-Profile anzeigen
lol Smile . Das unterrichten glaub ich wirklich nicht viele Schulen Smile . VPK heißt Vokalpraktischer Kurs. Das ist eine Beschönigung für "Schulchor, der bei allen möglichen Anlässen auftreten muss". Ich hatte das jetzt eine Jahr lang als Tenor und nun ist es zuende.
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>

Xeres

Moderator

BeitragSa, Jun 23, 2007 13:16
Antworten mit Zitat
Benutzer-Profile anzeigen
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 Wink
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
T
HERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Eingeproggt

BeitragSa, Jun 23, 2007 14:14
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Kabelbinder

Sieger des WM-Contest 2006

BeitragSa, Jun 23, 2007 19:36
Antworten mit Zitat
Benutzer-Profile anzeigen
Wow Shocked , das ist echt nicht fair Laughing .
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Arrangemonk

BeitragSa, Jun 23, 2007 19:53
Antworten mit Zitat
Benutzer-Profile anzeigen
@eingeproggt, wir hatten dafür nur ein fach, das technologie hies^^
ingeneur

Moep

BeitragSa, Jun 23, 2007 20:34
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group