Add.+Sub. in 1 Block o. auch in 1 Aufgabe generieren lassen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Add.+Sub. in 1 Block o. auch in 1 Aufgabe generieren lassen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2, 3, 4, 5, 6 Weiter

Autor

Nachricht

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 28.03.2008, 12:09

Mein Anliegen ist folgendes:

Ich möchte für meine Sohn Rechen-Aufgaben-Generatoren haben.

Was ich darunter verstehe:

Einen Genarator der + oder - Aufgaben in einem Block, aber auch in einer Aufgabe erstellen kann. Bei + und - Aufgaben getrennt in Blöcken, bleiben die Rechentzeichen ja bestehen. Bei + und - Aufgaben in einem Block sollten die Rechenzeichen mit in den Block kopiert werden.

Ein Block ist entweder 3x3 Aufgaben, oder 4x4 Aufgaben groß. (siehe Anhang)

Es wäre schön wenn Ihr mir da irgendwie helfen könntet, damit ich meinem Sohn beim rechnen unterstützen kann.

MfG Paffy

P.S.: die Zahlen in den blauen Kästchen (Ergebnisse) sollten bei + die gr, vorgegebe Zahl (z.B. 99) und bei - die kl. vorgegebene Zahl (0) nicht über- oder unterschreiten).

Generator.xls

Beschreibung:

Download

Dateiname:

Generator.xls

Dateigröße:

31 KB

Heruntergeladen:

53 mal

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 29.03.2008, 15:57

Hallo

Hier mal ein kleines Beispiel für die ersten 2 Tabellenblätter "von 0 bis 99" und "+von 0 bis 999" ich denke mal so ungefähr oder?

Gruß

Generatort1.xls

Beschreibung:

Download

Dateiname:

Generatort1.xls

Dateigröße:

49 KB

Heruntergeladen:

46 mal

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 29.03.2008, 17:08

Hallo gook....

dein Beispiel ist super... !!!! dickes "DANKE"

würdest Du BITTE den Rest auch noch für eine 0 wie mich machen ?-)
das wäre ganz lieb von Dir!

MfG Paffy

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 29.03.2008, 21:38

Hi!

Hi hier mal eine Mappe für die 0-99 Minus.

minus100.xls

Beschreibung:

Download

Dateiname:

minus100.xls

Dateigröße:

112.5 KB

Heruntergeladen:

43 mal

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 29.03.2008, 21:39

Und hier noch für die 0-999 Minus bei den anderen muss ich mir erstmal was einfallen lassen.

Gruß

minus1000.xls

Beschreibung:

Download

Dateiname:

minus1000.xls

Dateigröße:

112.5 KB

Heruntergeladen:

42 mal

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 29.03.2008, 22:56

Hi gook...

Du bist ein "Schatz". wenn ich das mal so sagen darf....
aber irgendwie fehlen die Zahlen die man runter berechnen kann...
(horizontal vorhanden, vertikal fehlen)

MfG Peggy

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 29.03.2008, 23:54

Ja die hab ich ich rausgenommen weil es sonst noch komplizierter geworden wäre hoffe das ist so ok für dich! Gruß

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 30.03.2008, 00:06

wäre aber besser! weil die das so in der Schule hier lernen...

Gruß Paffy

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 30.03.2008, 00:10

Ich schau mir das nochmal an das schwierige bei Minus ist eben das keine Aufgaben generiert werden die unter die 0 Grenze gehen.

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 30.03.2008, 00:32

Danke lieb von dir...

mit dem plus bin ich ja nu dank deiner Hilfe schonmal weiter gekommen...

Habe hier nun meinen ersten Entwurf. Habe es so umgeschrieben das es zum Ausdrucken geeignet ist. Ein Aufgabenblatt und ein Lösungsblatt (für die Faulen die nicht rechnen wollen/können Razz

)

Ihr braucht nur noch auf dem Lösungsblatt auf "berechne + neu" drücken und schon habt ihr die Lösungen aber auch die Aufgaben druckbereit.

fehlen nur noch die Minusaufgaben Very Happy

Gruß Paffy

plusaufgaben_bis_99.xls

Beschreibung:

Download

Dateiname:

plusaufgaben_bis_99.xls

Dateigröße:

107 KB

Heruntergeladen:

43 mal

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 01.04.2008, 22:46

Hallo Ihr lieben...

Habe nun die letzten Tage hin und her überlegt und probiert und habe eine Lösung gefunden.
Ist zwar nicht die, die ich mir vorgestellt habe (weil ab und wann doch mal eine Minuszahl mit bei ist) ,
aber es fuktioniert erst eimal.

Wer eine bessere Lösung findet, möge mir Bescheid geben, würde mich sehr darüber freuen.

Nun, wer kann mir noch bei den Plus und Minus in einem Block weiter helfen?

MfG Paffy

aufgabenblatt.xls

Beschreibung:

Plus- und Minusaufgaben 0-99 + Lösungsblatt zum ausdrucken.

Download

Dateiname:

aufgabenblatt.xls

Dateigröße:

134 KB

Heruntergeladen:

39 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 01.04.2008, 23:46

Hallo!

Ich habe mich mal drangemacht und (hoffentlich) eine All-in-One-Lösung gebastelt (Beispielmappe hängt an).

Dieser Code gehört in ein allgemeines Modul:

Code:

Option Explicit
Public VorZ(4, 4, 2), Lös(4, 2), Z%, S%, Grenze%

Sub baue(Größe%, Zelle As Range, Art$, Optional Lösungen%)
ReDim Matrix(1 To Größe, 1 To Größe)
Do
For Z = 1 To Größe: For S = 1 To Größe
Matrix(Z, S) = 1 + Int(Grenze * Rnd / Z / S)
Select Case Art
Case "P"
VorZ(Z, S, 1) = 1
VorZ(Z, S, 2) = 1
Case "M"
VorZ(Z, S, 1) = IIf(Z > 1, -1, 1)
VorZ(Z, S, 2) = IIf(S > 1, -1, 1)
Case "PM"
VorZ(Z, S, 1) = IIf(Z > 1, Rnd - 0.5, 1)
VorZ(Z, S, 2) = IIf(S > 1, Rnd - 0.5, 1)
End Select
Next S: Next Z
If prüfe(Matrix, 1) And prüfe(Matrix, 2) Then Exit Do
Loop
For Z = 1 To Größe: For S = 1 To Größe
Zelle.Offset(2 * Z - 2, 2 * S - 2) = Matrix(Z, S)
If Z > 1 Then Zelle.Offset(2 * Z - 3, 2 * S - 2) = IIf(VorZ(Z, S, 1) > 0, "+", "-")
If S > 1 Then Zelle.Offset(2 * Z - 2, 2 * S - 3) = IIf(VorZ(Z, S, 2) > 0, "+", "-")
Next S: Next Z
If Lösungen Then
Lösung Matrix
For Z = 1 To Größe
Zelle.Offset(2 * Z - 2, 2 * Größe) = Lös(Z, 1)
Zelle.Offset(2 * Größe, 2 * Z - 2) = Lös(Z, 2)
Next Z
End If
End Sub

Function prüfe(M, a%) As Boolean
Dim Summe%
prüfe = False
For Z = 1 To UBound(M)
Summe = 0
For S = 1 To UBound(M)
If a = 1 Then Summe = Summe + M(Z, S) * Sgn(VorZ(Z, S, 2))
If a = 2 Then Summe = Summe + M(S, Z) * Sgn(VorZ(S, Z, 1))
Next S
If Summe > Grenze Or Summe < 0 Then Exit Function
Next Z
prüfe = True
End Function

Sub Lösung(M)
Dim LSumme%, a%
For a = 1 To 2
For Z = 1 To UBound(M)
LSumme = 0
For S = 1 To UBound(M)
If a = 1 Then LSumme = LSumme + M(Z, S) * Sgn(VorZ(Z, S, 2))
If a = 2 Then LSumme = LSumme + M(S, Z) * Sgn(VorZ(S, Z, 1))
Next S
Lös(Z, a) = LSumme
Next Z
Next a
End Sub

Nun verfügst du über den Befehl "baue", welcher folgende Syntax besitzt:

baue Dimension der Matrix, linke obere Ausgabezelle, Art der Rechnung, (optional) mit/ohne Lösung

Soll heißen

baue 3, [a1], "P", 1

kreiert eine 3x3-Matrix (3), die in A1 beginnt ([a1]), nur Plusaufgaben erstellt ("P") und auch die Lösungen anzeigt (1).

baue 4, [z12], "PM"

kreiert eine 4x4-Matrix (4), die in Z12 beginnt ([z12]), sowohl Plus- wie auch Minusaufgaben erstellt ("PM") und keine Lösungen anzeigt (letzter Parameter fehlt).

Der Button in der angehängten Datei besitzt folgenden Code:

Code:

Private Sub CommandButton1_Click()
Grenze = 999
baue 3, [a5], "P", 1 '3x3-Matrix ab Zelle A5, nur Plus, MIT Lösungen, bis 999
baue 4, [a20], "M" '4x4-Matrix ab Zelle A20, nur Minus, OHNE Lösungen, bis 999
baue 3, [a35], "PM", 1 '3x3-Matrix ab Zelle A35, Plus UND Minus, MIT Lösungen, bis 999
Grenze = 99
baue 3, [k5], "P" '3x3-Matrix ab Zelle K5, nur Plus, OHNE Lösungen, bis 99
baue 4, [k20], "M", 1 '4x4-Matrix ab Zelle K20, nur Minus, MIT Lösungen, bis 99
baue 3, [k35], "PM" '3x3-Matrix ab Zelle K35, Plus UND Minus, OHNE Lösungen, bis 99
End Sub

Bei meinen Tests lief es fehlerfrei, aber das ist noch lange keine Garantie...
Probier's einfach mal aus!

generator-schatzi.xls

Beschreibung:

Download

Dateiname:

generator-schatzi.xls

Dateigröße:

37.5 KB

Heruntergeladen:

45 mal

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 02.04.2008, 08:21

Hallo schatzi...

der Generator ist natürlich einwandfrei...

Frage 1: ist das jetzt beliebig erweiterbar also evtl auch eine 7x7 Matrix?

Frage 2: Wie kann ich die grüne Kreuze automatisch rot werden lassen?

Frage 3: Kann man bei der Kontrolle der Aufgaben, Sounds (mp3,wav), Movies (avi,ani,gif) mit einbinden, um ihn zu belobigen wenn er alle Aufgaben richtig gemacht hat oder auch einen stöhnen bei falscher Aufgabenlösung?

dickes "Danke" aber auch erst einmal an dich!

Gruß Paffy

Basti_PC.xls

Beschreibung:

Download

Dateiname:

Basti_PC.xls

Dateigröße:

56.5 KB

Heruntergeladen:

38 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 02.04.2008, 14:32

Hallo!

Für die Gleichheitszeichen füge diesen Teil vor der Zeile

Code:

If Lösungen Then

ein:

Code:

For Z = 1 To Größe
Zelle.Offset(2 * Z - 2, 2 * Größe - 1) = "="
Zelle.Offset(2 * Größe - 1, 2 * Z - 2) = "="
Next Z

Theoretisch kannst du auch größere Matrizen erstellen, aber das treibt die Rechenzeit bei diesem Code extrem in die Höhe.

Code:

Public VorZ(4, 4, 2), Lös(4, 2), Z%, S%, Grenze%

Hier müsstest du die Vieren (maximale Größe bisher) dann in z.B. Siebenen (neue maximale Größe) ändern.

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 02.04.2008, 14:55

Hallo...

Danke für deine Antwort..

Nun noch das:

Code:

Frage 2: Wie kann ich die grüne Kreuze automatisch rot werden lassen?

Bild: siehe meinen letzten Beitrag.

Frage 3: Kann man bei der Kontrolle der Aufgaben, Sounds (mp3,wav), Movies (avi,ani,gif) mit einbinden, um ihn zu belobigen wenn er alle Aufgaben richtig gemacht hat oder auch einen stöhnen bei falscher Aufgabenlösung?

Anhang: siehe meinen letzten Beitrag.

dickes "Danke" aber auch erst einmal an dich!

Gruß Paffy

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2, 3, 4, 5, 6 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Inhalt eines Kombinationsfeld in Zell...	Nicki11	Microsoft Excel Hilfe	4	01.12.2008, 19:00
	Bestimmte Zahlen beliebig oft berechn...	Maercle	Microsoft Excel Hilfe	1	24.11.2008, 11:30
	Anzahl an Zeichen abhängig von Wert g...	woerli	Microsoft Excel Hilfe	1	13.11.2008, 13:24
	dokumente lassen sich nicht öffnen	Bam69	Microsoft Word Hilfe	0	21.10.2008, 22:19
	Serienbrief - Anrede auch für zwei Pe...	gitte	Microsoft Word Hilfe	0	01.09.2008, 17:47

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.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de