hab ne aufgabe gefunden aus dem letzten kurs
"Aufgabe 3
Erstellen Sie einen Taschenrechner für die sieben o.a. Rechenarten. Er soll immer nur aus 2 Werten die jeweiligen Ergebnisse der Rechenoperatoren berechnen. Geben Sie die Werte für Zahl1 und Zahl2 per Wertzuweisung vor.
Geben Sie bitte alle Ergebnisse untereinander aus. Jede Rechenart soll zusammen mit den vorgegebenen Werten (Zahl1 und Zahl2) in genau einer Zeile angezeigt werden.
Sorgen Sie dafür, dass der Quelltext pro Ausgabe einer Rechenart genau eine Zeile einnimmt.
Testfälle: (5, 5), (50, 10), (10, 50), (100, 100), (4.5, 6.4),"
Bei den Testfällen unte hab ich das problem das ich nicht weiß wie ich sie alle unterbringe
kann ich mehrere zahlen in einer dim-zeile unterbringen ??
Nun könnte ich das in etwa der art irgendwie unterbringen?
Re:
Dim zahl1 As Byte = 5 ; 50 ;10; 100
Dim zahl2 As Byte = 5 ; 10 ; 50 ; 100
Dim ergebnis As Byte
'Addieren
ergebnis = zahl1 + zahl2
Console.WriteLine("ergebnis")
ich hab wenn es an dieser art bespiele ging einfach immer ein neues modul geschrieben
Dr.Nope (55.017) Global Moderator 1279x Beste Antwort 2645x "Danke"
| Re: Vb.Taschenrechner programmieren ? verliere meinen Kopf. Kann mir jemand Helf... |
die Werte für Zahl1 und Zahl2 per Wertzuweisung vor.also jeweils die Zahlen aus der Vorgabe bei Dim oben bei Zahl1 und Zahl2 vorgeben.
Mit den Zahlen also wie du schon angefangen hast jeweils alle Rechenarten durchrechnen und auch ausgeben. Also müsste z.B. stehen:
bei Addition
5 5 10
so z.B: beim Fall 1 und beim Addieren (5 + 5 = 10)
In einer Zeile also. Dafür nutzt du nicht .Writeline sondern nur .Write das macht keinen Zeilenumbruch, geht aber mit & auch so[/color]
Module Module1
Sub Main()
Dim zahl1 As Byte = 5
Dim zahl2 As Byte = 5
Dim ergebnis As Byte
'Addieren
ergebnis = zahl1 + zahl2
Console.WriteLine(zahl1 & " " & zahl2 & " " & ergebnis)
'pause
Console.ReadLine()
End Sub
End Module
Re:
Module Module1
Sub Main()
Dim zahl1 As Byte = 5
Dim zahl2 As Byte = 5
Dim ergebnis As Byte
'Addieren
ergebnis = zahl1 + zahl2
Console.WriteLine(zahl1 & " " & zahl2 & " " & ergebnis)
'pause
Console.ReadLine()
End Sub
End Module
Noch mal zu meiner Frage
wenn ich mehrere werte als Zahl1 definieren möchte, was muss ich da beachten bzw. wie muss ich das formulieren?
Dr.Nope (55.017) Global Moderator 1279x Beste Antwort 2645x "Danke"
| Re: Vb.Taschenrechner programmieren ? verliere meinen Kopf. Kann mir jemand Helf... |
hab mir mal erlaubt das so zu gestalten aber er gibt mir ne fehlermeldung: ")"erwartet
zur vorsicht nochmal mein`s
Module Module1
Sub Main()
Dim zahl1 As Byte = zahl1
Dim zahl2 As Byte = zahl2
Dim ergebnis As Byte
'Addieren
ergebnis = zahl1 + zahl2
zahl1 = Console.ReadLine()
zahl2 = Console.ReadLine()
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)
'Subtrahieren
ergebnis = zahl1 - zahl2
zahl1 = Console.ReadLine()
zahl2 = Console.ReadLine()
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)
'Multiplizieren
ergebnis = zahl1 * zahl2
zahl1 = Console.ReadLine()
zahl2 = Console.ReadLine()
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)
'Dividieren
ergebnis = zahl1 / zahl2
zahl1 = Console.ReadLine()
zahl2 = Console.ReadLine()
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)
Console.ReadLine()
kannst mich ruhig hauen für fehler meinerseits
Dr.Nope (55.017) Global Moderator 1279x Beste Antwort 2645x "Danke"
| Re: Vb.Taschenrechner programmieren ? verliere meinen Kopf. Kann mir jemand Helf... |
Also das mit den Klammern liegt am Ende rechts hinter Ergebnis, da ist nur eine Klammer zu, vorn aber zwei auf. Das meckert er nun jedesmal an. Also hinten zwei ))
Nun hast du aber beide Varianten drin. Werte vorgeben hinter DIM, aber nicht eingesetzt (z.B. 5 und 5).
Und du hast noch meine Vorschläge zusätzlich drin, die aber nun aus der Aufgabenstellung heraus nicht gewollt waren. Hier noch mal das Ganze für den ersten Testlauf
Module Module1
Sub Main()
Dim zahl1 As Byte = 5
Dim zahl2 As Byte = 5
Dim ergebnis As Byte
'Addieren
ergebnis = zahl1 + zahl2
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))
'Subtrahieren
ergebnis = zahl1 - zahl2
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))
'Multiplizieren
ergebnis = zahl1 * zahl2
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))
'Dividieren
ergebnis = zahl1 / zahl2
Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))
'pause
Console.ReadLine()
End Sub
End Module
sorry, fürs drängen
das mit den Klammern führt jetzt dazu dass das debuggen startet
leider kann ich mit konsole die dann geöffnet wird nicht viel anfangen nur
schwarz wie die nacht! wenn ich jetzt etwas eingeben möchte, worauf muss ich dann achten?
1+1=
oder
1
+
1
=
oder etwas in der art?
hat sich erledigt
5
5
5510
^^
das sieht schon wunderbar aus. danke
aber wenn ich jetzt alle besipiele durchrechnen lassen möcchte muss ich dasnn jedesmal ein neues Projekt schreiben oder bekomme ich auch alle zahlen aus dem beispiel in einem projekt unter?
und was noch am anfang des threads versteckt war
Wurzel
Potenz
Min von zwei Zahlen
Max von zwei Zahlen
Lassen Sie sich jedes mal das aktuelle Datum und die Uhrzeit anzeigen.
Verwenden Sie Readline zur Eingabe von zwei Zahlen.
Formatieren Sie das Ergebnis der Division auf genau zwei Stellen nach dem Komma.
Verwenden Sie dazu Funktionen
Dr.Nope (55.017) Global Moderator 1279x Beste Antwort 2645x "Danke"
| Re: Vb.Taschenrechner programmieren ? verliere meinen Kopf. Kann mir jemand Helf... |
Dim zahl1 As Byte = Console.ReadLine()
Dim zahl2 As Byte = Console.ReadLine()
Die anderen Rechenarten guck Dir mal an, ich glaube Hilfe war das ja nun schon einiges
Läufts sonst nicht bei dir? Kopier dir den Text raus aus dem Codefenster und füge ihn bei dir ein
Edit: Aha,
Verwenden Sie Readline zur Eingabe von zwei Zahlen.Das ist ja dann das, was ich hier schrieb das geht dann wie gesagt mit dem obigen code.
[/color]
« [VBA] Funktion mit ByVal? | Bild in BlueJ mit turtledrawing erstellen » | ||