Visual Basic: Brauche Hilfe bei einem Taschenrechner?

Hey Leute, ich mache gerade einen Taschenrechner in VB 6 und habe dabei zwei Probleme.

Problem:

Der Taschenrechner kann höchstens drei Zahlen aufeinmal speichern. Bei der Eingabe steht zuerst die erste Zahl in der Anzeige des Taschenrechners, dann nur das erste Rechenzeichen, dann nur die zweite Zahl, dann nur das zweite Rechenzeichen, dann nur die dritte Zahl und wenn man dann wieder auf ein Rechenzeichen klickt, werden zu erst die drei Zahlen zusammengerechnet und dann erscheinen das Ergebnis und das nächste Rechenzeichen GLEICHZEITIG in der Anzeige. Mein Problem ist, dass wenn ich dann die nächste Zahl eingebe, dass dann eigentlich diese allein ohne das Ergebnis und das Rechenzeichen in der Anzeige erscheinen sollte, aber bei mir steht dann alles gleichzeitig in der Anzeige.

2 . Problem:

Wenn ich zwei Zahlen und ein Rechenzeichen eingebe und dann auf Gleich klicke, kommt das richtige Ergebnis raus, aber bei drei Zahlen nicht.

Wenn man durch Null dividiert, soll in der Anzeige die Nachricht "Man darf nicht durch Null dividieren" erscheinen

Variablen, die ich benutzte:

Dim Zahl1 As Double

Dim Zahl2 As Double

Dim Zahl3 As Double

Dim Operation1 As String <-- für das erste Rechenzeichen

Dim Operation2 As String <-- für das zweite Rechenzeichen

Dim Ergebnis As Boolean <-- wird auf True gesetzt, wenn das Ergebnis alleine oder noch ein Rechenzeichen dazu in der Anzeige stehen

Dim Zahl1N As Boolean <-- werden alle drei benutzt, um zu sehen, ob eine Zahl positive oder negativ ist

Dim Zahl2N As Boolean

Dim Zahl3N As Boolean

Und die Anzeige des Taschenrechners heißt "edAnzeige"

Um das erste Problem zu lösen habe beim Code der Buttons für die Zahlen 0-9 folgendes geschrieben:

'Wenn ein Ergebnis und ein Rechenzeichen in der Anzeige stehen

ElseIf (Ergebnis = True) And (edAnzeige <> " ") And (Operation1 <> " ") And (Operation2 = " ") Then

edAnzeige = " "

Dadurch wurde das Problem bei den Rechenzeichen Mal und Geteilt gelöst, aber immer noch nicht bei Plus und Minus.

Hier ist der Teil des Codes, den ich für einen Fall beim Button geschrieben habe (2. Problem):

'Wenn die erste Zahl, ein Plus, die zweite Zahl, ein zweites Plus und eine dritte Zahl eingegeben wurde

ElseIf (edAnzeige <> " ") And (Operation1 = "+") And (Operation2 = "+") Then

Zahl3 = edAnzeige

edAnzeige = Zahl1 + Zahl2 + zahl3

Zahl1 = edAnzeige

Operation1 = ""

Operation2 = ""

Zahl1N = False

Zahl2N = False

Zahl3N = False

Ergebnis = True

Das hier habe ich beim Button für die Zahl 0 im Code geschrieben (Problem 3):

'Wenn durch Null dividiert wird

If (edAnzeige = " / ") Then

edAnzeige = "Man darf nicht durch Null dividieren"

Der Code für das dritte Problem klappt allerdings auch nicht.

Ich kann bei keinem der Codes irgendwelche Fehler entdecken. Deshalb hoffe ich, dass mir hier vielleicht jemand weiterhelfen kann.

LG Hiavatha8

1 Antwort

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Programm, programmieren, Informatik

29.10.2016, 16:53

Kannst du diesen Fall bitte Schritt für Schritt an einem Beispiel nachstellen? Ich bin mir nicht sicher, ob ich dein Problem richtig verstanden habe. Momentan hört es sich so an, als würdest du nach der Berechnung des Ergebnisses das Eingabefeld nicht wieder leeren.
Kannst du bitte deinen gesamten Quellcode bei http://pastebin.com/ posten?

Insgesamt wirkt dein Vorgehen umständlich. Die boolschen Variablen für negative oder positive Zahlen könntest du dir, meiner Meinung nach, sicherlich sparen. Sollte die Eingabe einer Berechnung darin bestehen, dass der Nutzer einen gesamten String eingeben kann, z.B. "1+2-34" würde ich mit Schleifen durch den String gehen, um die richtige Rechnung zusammenzubauen.

Ähnliche Beiträge

Aufgabe: Minimum ermitteln?

Hallo Leute, könnt ihr mal kurz kontrollieren ob ich die folgende Aufgabe richtig gemacht habe?

/*
Aufgabe 1: Minimum ermitteln
Gegeben sind drei String Variablen mit beliebigen ganzzahligen Werten (als Strings!), z.B. "23", "5","13".
Wandeln Sie die Strings in Integer-Werte um und ermitteln Sie das Minimum und Maximum der drei Zahlen.
Geben Sie die drei Zahlen und das Minimum/Maximum auf der Konsole aus.

Das Minimum von 23, 5 und 13 ist 5.
Das Maximum von 23, 5 und 13 ist 23.
*/

String zahl1 = "23";
String zahl2 = "5";
String zahl3 = "13";

boolean minimum = Integer.parseInt(zahl2) < Integer.parseInt(zahl1) && Integer.parseInt(zahl2) < Integer.parseInt(zahl3);
System.out.println(minimum);

boolean maximum = Integer.parseInt(zahl1) > Integer.parseInt(zahl2) && Integer.parseInt(zahl1) > Integer.parseInt(zahl3);
System.out.println(maximum);

//true
//true

...zum Beitrag

Wie behebe ich das Python Problem?

Hallo

Ich habe mir einen Taschenrechner mit Python programmiert. Wenn ich auf start klicke, muss ich die erste Zahl und die zweite Zahl eingeben. Danach das Rechenzeichen.
Das Problem ist bei mir rechnet er nur dividiert wenn ich andere Rechenzeichen eingebe, dann beendet er das Programm.

Code:

Zahl1=int(input("1. Zahl: "))
Zahl2=int(input("2. Zahl: "))
Rechenzeichen =input("Addieren? (+), Subtrahieren (-), Multiplizieren? (*), Dividieren (/): ")

Ergebnis = 0
if Rechenzeichen=="+":
    Ergebnis=Zahl1+Zahl2

if Rechenzeichen=="-":
    Ergebnis=Zahl1-Zahl2

if Rechenzeichen=="*":
    Ergebnis=Zahl1*Zahl2

if Rechenzeichen=="/":
    Ergebnis=Zahl1/Zahl2

    print("Das Ergebnis ist:", Ergebnis)

...zum Beitrag

Primzahlen berechnen

will man zum Beispiel bei Visual Basic ein Programm schreiben, dass überprüft, ob Zahlen Primzahlen sind, macht man das mit einer Schleife, die von 2 bis zur Wurzel der Zahl geht. Meine Frage ist jetzt, warum man die Schleife nur bis zur Wurzel der Zahl machen muss? Ich habe gelesen, dass es nur Teiler bis zu der Wurzel geben kann aber warum ist das so? Ich habe leider keine der Erklärungen verstanden >.<

Hier nochmal mein Code zur Verständnis:

Dim p As Long = tbPrimzahl.Text
Dim Counter As Long
    Dim Primzahl As Boolean  = True                            

        For Counter = 2 To  Math.Sqrt(p) Step 1
            If p Mod Counter = 0 And Counter <> 1 Then
              Primzahl = False
              MsgBox(p & " ist keine Primzahl.", MsgBoxStyle.OkOnly)
              Exit Sub
            End If
        Next Counter

...zum Beitrag

c++ nicht intialisierter speicher wird verwendet?

#include <iostream>
using namespace std;
int main() {
   char Rechenzeichen;
   int Zahl1, Zahl2, Anes;
   signed int Ergebnis;
   cout << "Zahl1: ";
   cin >> Zahl1;
   cout << "Zahl2: ";
   cin >> Zahl2;
   cout << "Rechenzeichen: ";
   cin >> Rechenzeichen;
   switch (Rechenzeichen)
   {
   case ('-'):
      {      Ergebnis = Zahl1 - Zahl2;   } break;
   case ('+'):
      {      Ergebnis = Zahl1 + Zahl2;   } break;
   case ('/'):
      {      Ergebnis = Zahl1 / Zahl2;   } break;
   case ('*'):
      {      Ergebnis = Zahl1 * Zahl2;   } break;
   default:
      {      cout << "Falsche Eingabe" << endl;   }
      cout << "Ergebnis: " << Ergebnis << endl;
   }
   cout << " ";
   cin >> Anes;

   return 0;
}

Habe heute mit c++ angefangen und wollte einen kleinen taschenrechner programmieren komme aber immer wieder auf diesen komischen fehler dass meine variabel (in dem fall: Ergebnis) nicht intialisiert seie obwohl ich dass in zeile 9 getan habe .

...zum Beitrag

VBA zu HTML Code umgewandelt - Zeilenumbrüche weg?

Hallo,

ich habe durch den unten beigefügten Code versucht eine E-Mail samt Signatur automatisch kommen zu lassen. Nun habe ich das Problem, dass die Absätze in der Mail weg sind und alles in einer Zeile ist. Wie behebe ich das?

Private Sub CommandButton2_Click()

Dim objOutlook As Object

Dim objMail As Object

Dim S As String

Dim body As String

Dim htbody As String

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

If TextBox2.text = "" Or TextBox2.text = TextBox1.text Then

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgende/r Mitarbeiter/in ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text

Else

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgender Mitarbeiter ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text + " bis " + TextBox2.text

End If

htbody = fnConvert2HTML(htbody)

S = Environ("appdata") & "\Microsoft\Signatures\autoE-Mailsenden.htm"

If Dir(S, vbDirectory) <> vbNullString Then

S = S

S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1, -2).readall

With objMail

.To = "x.de"

.Subject = "Krankmeldung " + ComboBox1.text + " x"

htbody = body & " " & S

.htmlbody = "" & htbody & ""

.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

End With

Else

' With objMail

' .To = Empfänger

' .Subject = Betreff

' htbody = body '& " " & S

' .htmlbody = "" & htbody & ""

' .Display

' ' .Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

' End With

End If

End Sub

Zudem noch folgende Funktion:

Function fnConvert2HTML(myText As String) As String

Dim bldTagOn, itlTagOn, ulnTagOn, colTagOn As Boolean

Dim i, chrCount, n As Integer

Dim chrCol, chrLastCol, htmlTxt As String

Dim myChar As String

bldTagOn = False

itlTagOn = False

ulnTagOn = False

colTagOn = False

chrCol = "NONE"

htmlTxt = "<html>"

chrCount = Len(myText)

End Function

Danke im voraus!!!

...zum Beitrag

IF Funktion in excel auf mehrere Zellen anwenden?

Hallo,

Ich möchte wenn in einer Zelle etwas reingeschrieben wird das die darauffolgenden Felder zu Pflichtfelder werden. Dazu nutze ich aktuell folgende Formel.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim zeile As Long, OK As Boolean

OK = True

For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row

If Worksheets("Tabelle1").Cells(4, 2).Value <> "" Then

If Worksheets("Tabelle1").Cells(4, 3).Value = "" Then OK = False 'Spalte C

If Worksheets("Tabelle1").Cells(4, 4).Value = "" Then OK = False 'Spalte D

If Worksheets("Tabelle1").Cells(4, 5).Value = "" Then OK = False 'Spalte E

If Worksheets("Tabelle1").Cells(4, 6).Value = "" Then OK = False 'Spalte F

If Worksheets("Tabelle1").Cells(4, 8).Value = "" Then OK = False 'Spalte H

If Worksheets("Tabelle1").Cells(4, 9).Value = "" Then OK = False 'Spalte I

End If

If Not OK Then

MsgBox "Drucken nicht möglich - nicht alle Pflichtfelder ausgefüllt"

Cancel = True

End If

End Sub

Nun möchte ich das die obige Formel von B4- B25 durchgeführt wird. Also das wenn in in B8 z.B. etwas reingeschrieben wird das dann die Zellen in B8 geprüft werden das dort in den anderen Feldern auch was reingeschrieben worden ist.
Wie würde ich das ganze hinbekommen?

Danke im Voraus

...zum Beitrag

Excel Makro, PDF versenden, Anhang klappt nicht?

Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:

Dim Result As VbMsgBoxResult

Sub RechnungsnrUndDrucken()

Sheets("Rechnung_Video").Select

[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen

Dim sCC As String

Dim sName As String

Dim sText As String

Dim sObject As String

Dim sCompany As String

Dim sRefNr As String

Dim sTempFileName As String

If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then

Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)

If Result = vbNo Then Exit Sub

End If

Const DateiPfad = "C:\Temp\"

Dim DateiName As String

DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"

Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

DateiName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Dim Nachricht As Object, OutApp As Object

Dim AWS As String

Set OutApp = CreateObject("Outlook.Application")

AWS = strFileName

'InitializeOutlook = True

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")

.GetInspector.display

'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")

End With

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub

...zum Beitrag

C# mehrere Einstiegspunkte definiert?

Hallo ich habe eine Frage zu meiner nachgecodeten Lotterie. Wenn ich sie ausführen will steht dort, dass mehrere Einstiegspunkte definiert sind.

using System;
using System.Linq;


namespace ConsoleApp564
{
    class Program
    {
        public static void Main(string[] args)
        {
            Random Zufallszahl = new Random();
            int lösung1 = Convert.ToInt32(Zufallszahl.Next(1, 49));
            int lösung2 = Convert.ToInt32(Zufallszahl.Next(1, 49));
            int lösung3 = Convert.ToInt32(Zufallszahl.Next(1, 49));


            int[] lösung = new int[3] { lösung1, lösung2, lösung3 };
            Array.Sort(lösung);


            int zahl1;
            int zahl2;
            int zahl3;


            Console.WriteLine("Wilkommen in der Lotterie");
            Console.Write("Geben sie ihre erste Zahl eine, diese muss zwischen 1 und 49 liegen: ");
            zahl1 = Convert.ToInt32(Console.ReadLine());


            if (zahl1 <= 49 && zahl1 >= 1)
            {
                Console.Write("Geben sie ihre zweite Zahl ein, diese muss zwischen 1 und 49 liegen: ");
                zahl2 = Convert.ToInt32(Console.ReadLine());


                if (zahl2 <= 49 && zahl2 >= 1)
                {
                    Console.Write("Geben sie ihre dritte Zahl ein, diese muss zwischen 1 und 49 liegen: ");
                    zahl3 = Convert.ToInt32(Console.ReadLine());


                    if (zahl3 <= 49 && zahl3 >= 1)
                    {
                        int[] number = new int[3] { zahl1, zahl2, zahl3 };
                        Array.Sort(lösung);
                        if ((Enumerable.SequenceEqual(lösung, number)))
                        {
                            Console.WriteLine("Sie haben gewonnen!");
                        }
                        else
                            Console.WriteLine("Sie haben verloren die Lösungzahlen waren " + lösung1 + ", " + lösung2 + " und " + lösung3 + ". Sie haben " + zahl1 + ", " + zahl2 + " und " + zahl3 + " getippt.");
                    }
                }
                else
                {
                    Console.WriteLine("Die Zahl muss zwischen 1 und 49 liegen!");
                    return;
                }
            }
        }
    }


}

...zum Beitrag

Excel: Wie gestalte ich dieses Makro schneller und effektiver und sorge dafür, dass es bei Neustart nur neue Werte erkennt?

Wie kann ich dieses Makro schneller und effektiver machen und wie bekomme ich es hin, dass es beim Neustart nicht schon wieder die Werte erkennt, die schon einmal dran waren? Sodass die 50 nach dem ersten Mal Abspielen des Sounds ignoriert wird.

Code:

Sub PlaySound()
  Dim ws As Worksheet
  Dim rng As Range
  Dim cell As Range
  Dim goals As Long
  Dim soundFile As String
  Dim thresholds As Variant
  Dim i As Integer
  Set ws = ThisWorkbook.Worksheets("Spielplan")
  Set rng = ws.Range("O1:O" & ws.Cells(ws.Rows.Count, "O").End(xlUp).row)
  soundFile = "Sound_pfad.mp3"
  'Array of threshold values
  thresholds = Array(50, 100, 150, 200, 250, 300, 350, 400, 450, 500,550,600,650,700,750,800,850,900,950,1000)
  Do While True 'Endlosschleife hinzugefügt
    For Each cell In rng
      If IsNumeric(cell.Value) Then
        goals = goals + cell.Value
        'Check if goals is equal to any of the threshold values
        For i = LBound(thresholds) To UBound(thresholds)
          If goals = thresholds(i) Then
            Application.ScreenUpdating = False
            Application.EnableEvents = False
            ActiveSheet.OLEObjects.Add(Filename:=soundFile, Link:=False, DisplayAsIcon:=False).Select
            Selection.Verb Verb:=xlPrimary
            Selection.Delete
            Application.ScreenUpdating = True
            Application.EnableEvents = True
          End If
        Next i
      End If
    Next cell
    'Verzögerung hinzugefügt, um die CPU-Auslastung zu reduzieren
    Application.Wait (Now + TimeValue("0:05:00"))
  Loop
End Sub

...zum Beitrag

VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

...zum Beitrag

Taschenrechner in C: Könnt ihr mir bei der Überprüfung des Operators helfen?

Hallo Community,

ich bräuchte Hilfe bei meinem C-Code. Ich komme nicht weiter bei der Überprüfung vom Taschenrechner. Ich möchte, dass der Operator überprüft werden soll. Sprich bei allen anderen Buchstaben außer A, S, M, D soll der Benutzer eine neue Angabe machen.

Hier mein Code:

int main()
{
  // Deklarierung der Variablen
  char auswahl;
  float zahl1, zahl2;
  float ergebnis;

  // Auswahl vom Rechenoperator
  printf("Wie moechtest du Rechnen?\n");
  printf("(a) Addieren\n");
  printf("(s) Subtrahieren\n");
  printf("(m) Multiplizieren\n");
  printf("(d) Dividieren\n");
  scanf("%c", &auswahl); // %c für char Variablen

  while () {
    if (auswahl != 'a' || 's' || 'm' ||'d') {
      printf("\nFalsche Eingabe. Waehle eine neue:");
    }
  }

  // Eingabe der Zahlen
  printf("Gib deine erste Zahle ein: ");
  scanf("%f", &zahl1);
  printf("Gib deine zweite Zahle ein: ");
  scanf("%f", &zahl2);

  // Auswahl-Auswertung vom Benutzer
  switch (auswahl) {
    case 'a':
      ergebnis = zahl1 + zahl2;
      break;
    case 's':
      ergebnis = zahl1 - zahl2;
      break;
    case 'm':
      ergebnis = zahl1 * zahl2;
      break;
    case 'd':
      ergebnis = zahl1 / zahl2;
      break;
    default:
      break;
  }

  // Ergebnisasugabe
  if (auswahl == 'a') {
    printf("\nErgebnis:\n%.1f + %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  if (auswahl == 's') {
    printf("Ergebnis:\n%.1f - %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  if (auswahl == 'm') {
    printf("Ergebnis:\n%.1f * %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  if (auswahl == 'd') {
    printf("Ergebnis:\n%.1f / %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  printf("\n\n");
  return 0;
}

...zum Beitrag

Wie addiere ich Zahlen in VBA?

Hi, folgende Aufgabe muss ich lösen: Nach Eingabe von zwei Zahlen fragt das Programm ob plus oder minus gerechnet werden muss und gibt dann das entsprechende Ergebnis aus... Ich habe folgende Lösung:

Public Zahl1, Zahl2, Ergebnis As Long

Public Art As String

Sub Zahlen()

Zahl1 = InputBox("Geben Sie die erste Zahl ein: ")

Zahl2 = InputBox("Geben Sie die zweite Zahl ein: ")

Art = InputBox("Sollen die Zahlen addiert oder subtrahiert werden? +/-")

If Art = "+" Then

Ergebnis = (Zahl1 + Zahl2)

Else

Ergebnis = (Zahl1 - Zahl2)

End If

MsgBox ("Das Ergebnis lautet " & Ergebnis & ".")

End Sub

Das Problem ist, dass das Ergebis, wenn Zahl1 & 2 jeweils 1 sind, ja logischerweise 2 sein müsste...allerdings kommt halt 11 raus. Also er fügt die Zahlen einfach zusammen.

Kann mir da jemand helfen?? Danke im Voraus :)

...zum Beitrag

Python Programmierfehler?

Wenn ich das Programm starte kommt die Fehlermeldung das Ergebnis2 nicht definiert ist, erkennt jemand meinen Fehler?

Der Code:

while 1:
  Zahl1 = input("erste Zahl: ")
  Zahl2 = input("zweite Zahl: ")
  Ergebnis = input("Addieren? (1), Subtrahieren? (2), Multiplizieren? (3), Dividieren? (4)")
  if (Ergebnis == 1):
    Ergebnis2 = Zahl1+Zahl2
  if (Ergebnis == 2):
    Ergebnis2 = Zahl1-Zahl2
  if (Ergebnis == 3):
    Ergebnis2 = Zahl1*Zahl2
  if (Ergebnis == 4):
    Ergebnis2 = Zahl1/Zahl2
  print(Ergebnis2)

...zum Beitrag

Php Primzahlbestimmung?

Hey,

das wird fürs erste wahrscheinlich meine letzte frage zu php sein. Und zwar fehlt mir noch die Primzahlbestimmung. Ich hab es schonmal gefragt, jedoch hat es bisher noch nicht funktioniert.

<html>
   	<?php
		$zahl1 = $_POST["zahl1"];
		$zahl2 = $_POST["zahl2"];
		$text = $_POST["text"];
		$produkt = $zahl1*$zahl2;
         $feld=array();

		
		if($zahl1 < $zahl2) {
			echo "Zahlen: $zahl1 und $zahl2 <br>";
        for ($i=$zahl1; $i<=$zahl2;$i++)
		 {$feld[]=$i;}
	 
			foreach($feld as $zahl) {
				
				
				if($zahl % 2 == 0) {
					echo"<font color='red'>{$zahl}</font>";					
				}								
				else {
					echo"<font color='blue'>{$zahl}</font>";
				}
			}
			echo "<br> Produkt: $produkt <br> Zeichenkette: $text  ";
			echo  strlen($text);
		}
		if($zahl2 < $zahl1) {
			echo "Zahlen: $zahl2 und $zahl1 <br>";
		 for ($i=$zahl2; $i<=$zahl1;$i++)
		 {$feld[]=$i;}	
			
			foreach($feld as $zahl) {
				
				
				if($zahl % 2 == 0) {
					echo"<font color='red'>{$zahl}</font>";
				}
				else {
					echo"<font color='blue'>{$zahl}</font>";
				}
			}
			echo "<br> Produkt: $produkt <br> Zeichenkette: $text  ";
			echo  strlen($text);
		}


	?>
</html>

Das ist mein code bisher und es funktioniert auch alles, bis auf die primzahlen. Wäre sehr nett

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen