2martens/uni
1
0
Fork 0
mirror of https://github.com/2martens/uni.git synced 2026-05-06 11:26:25 +02:00
Code Releases Activity

SE3-7: Aufgabe 2.4 korrigiert.

Browse Source
This commit is contained in:
Jim Martens
2013-12-14 11:15:13 +01:00
parent 36556eb9b4
commit d7c4eed8f1
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
se3/G08_B07_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt
View File

@ -169,8 +169,10 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
(define trenner2 (define trenner2
(rectangle 10 200 "solid" "Black")) (rectangle 10 200 "solid" "Black"))
; diese Funktion wird bis 99h 59m 59s zählen und dann wieder bei 0
; anfangen
(define (zeigedauer t) (define (zeigedauer t)
(let* ((modT (modulo t 2419200)) ; 2419200 entspricht 24h (let* ((modT (modulo t 10080000)) ; 10080000 entspricht 100h
(zustand6 (floor (/ modT 28))) (zustand6 (floor (/ modT 28)))
(zustand5 (floor (/ zustand6 10))) (zustand5 (floor (/ zustand6 10)))
(zustand4 (floor (/ zustand5 6))) (zustand4 (floor (/ zustand5 6)))
@ -178,7 +180,7 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
(zustand2 (floor (/ zustand3 6))) (zustand2 (floor (/ zustand3 6)))
(zustand1 (floor (/ zustand2 10)))) (zustand1 (floor (/ zustand2 10))))
(beside (beside
(zeigeSiebenSegment (key->value (modulo zustand1 6) zustandstabelle)) (zeigeSiebenSegment (key->value (modulo zustand1 10) zustandstabelle))
trenner2 trenner2
(zeigeSiebenSegment (key->value (modulo zustand2 10) zustandstabelle)) (zeigeSiebenSegment (key->value (modulo zustand2 10) zustandstabelle))
trenner trenner
@ -192,5 +194,4 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel
)) ))
; zum Animieren auskommentieren ; zum Animieren auskommentieren
; (animate zeigedauer) ; (animate zeigedauer)