mehrere Zahlen ausrechnen Windows Forms Taschenrechner?

Hallo,

Ich habe folgendes "Problem", habe meinen TR soweit hinbekommen, dass er Zahl 1 (+-*/) Zahl 2 ausrechnen kann. Nun soll ich Zahl 1 (+-*/) Zahl 2 (+-*/)Zahl 3,... ausrechnen können, stehe dabei leider irgendwie vor einer Wand und bekomme es nicht hin.

Hier der code: (etwas abgekürzt, da sonst zu lang)

Kopf=

Imports System.CodeDom
Public Class form1
  Public Property zahl As String = ""
  Public Property calc As String = ""

Bei alle Zahlen (0-9 sowie .)=

 Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
    tb.Text += "1"
  End Sub

Delete Button=

 Private Sub bdel_Click(sender As Object, e As EventArgs) Handles bdel.Click
    If (tb.Text.Length > 0) Then
      tb.Text = tb.Text.Substring(0, tb.Text.Length - 1)
    End If
  End Sub
  End Sub

Gleich Button=

 Private Sub bsolve_Click(sender As Object, e As EventArgs) Handles bsolve.Click
    If (calc = "+") Then
      tb.Text = Val(zahl) + Val(tb.Text)
    End If
    If (calc = "-") Then
      tb.Text = Val(zahl) - Val(tb.Text)
    End If
    If (calc = "*") Then
      tb.Text = Val(zahl) * Val(tb.Text)
    End If
    If (calc = "/") Then
      tb.Text = Val(zahl) / Val(tb.Text)
    End If
  End Sub

bei allen Operatoren= (+,-,*,/)

Private Sub bplus_Click(sender As Object, e As EventArgs) Handles bplus.Click
    zahl = tb.Text
    calc = "+"
    tb.Text = ""
  End Sub

Vielen Dank schonmal

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Visual Studio, Programmieren & Softwareentwicklung

17.07.2023, 11:36

Ich denke, am einfachsten machst du es dir, wenn du jede Eingabe (Zahl/Operator) in eine Liste einfügst.

Private Property inputData As New List(Of String)

' add:
inputData.Add("...")

' get:
Dim first As String = inputData(0)
Dim last As String = inputData(items.Count - 1)

' clear
inputData.Clear()

Wenn du eine Zahl einfügst, solltest du schauen, ob der letzte Eintrag (sofern die Liste überhaupt schon Einträge hat) keinem Operator entspricht, denn dann hast du eine Zahl mit mehreren Stellen. In dem Fall verbindest du den letzten Eintrag mit der Eingabe.

inputData(items.Count - 1) += "..."

Wenn das Endergebnis berechnet werden soll, müsstest du aus den Einträgen Dreierpaare bilden, die zusammengerechnet werden können. Zuvor würde ich eine Validation vornehmen: Wenn der erste/letzte Eintrag einem Operator entspricht, wird dieser entweder entfernt oder du fügst der Liste einen weiteren Eintrag (0 bei Addition/Subtraktion und 1 bei Multiplikation/Division) hinzu. Eine Validation/Korrektur für mehrere Operatoren nacheinander (Bsp.: ++) sollte bereits bei der Eingabe getätigt werden.

Den Rechenvorgang kannst du in zwei grobe Schritte unterteilen:

Im ersten Schritt suchst du nach allen Einträgen des Multiplikations/Divisionsoperator und multiplizierst/dividierst dann den Vorgänger- und Nachfolgereintrag miteinander. Das Ergebnis kann an die Stelle des Vorgängereintrags geschrieben werden, die beiden anderen Einträge werden gelöscht.

inputData.RemoveAt(index)
inputData.RemoveAt(index + 1)

Im zweiten Schritt tust du im Prinzip dasselbe, nur diesmal mit Fokus auf die Addition/Subtraktion.

Beschäftige dich dafür mit der For...Next-Schleife.

FaTech

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Programmieren & Softwareentwicklung

17.07.2023, 08:48

.NET bietet dafür Funktionen, die das von Haus aus können. Ich glaube, das war die DataTable Klasse oder so mit der Compute Methode. Gerne mal recherchieren.

Wenn es aber um das reine selber machen geht, dann sehe ich nur die eine Lösung: Splitten.

Splitte den String in seine Einzelteile und durchlaufe es Stück für Stück in einer Schleife. Damit wären nur noch nicht die Punkt vor Strich Rechnungsregeln beachtet. Da müsste man auch nochmal ran. Dann könnte man schauen: a + b * c. Ist nach a ein +? Dann ist nach b ein Plus? Nein? Rechne erst b * c. Nach c ein +? Nein? Auch kein Mal? Ok, dann a + Ergebnis von b&c. Man kann hierbei zum Beispiel mit einer for Schleife arbeiten und mit dem iterator index kann man wunderbar hin und herspringen.

JulianOnFire

Fragesteller

17.07.2023, 09:15

Danke erstmal. Bin leider erst Anfang zweite Woche in der Ausbildung. Ist alles noch etwas komplizierter für mich, gerade mit Begriffen die man noch nie gehört hat. Ich schaue mal wie weit ich komme.

Ähnliche Fragen

In Visual mit C# Taschenrechner?

Kann mir jemand helfen bei diesem Problem?

Und zwar wird im Taschenrechner ein Wert eingeben und gespeichert und dann unter der Eingabe angezeigt, um die nächste Zahl einzugeben.

Dies muss ja als String deklariert werden, wegen den Operatoren. Aber nun kann ich aus der Zahl, die ein String ist, in eine Zahl zu konvertieren.

private void berechne_Click(object sender, EventArgs e)
{
  double zahl2 = Convert.ToDouble(zahl);
  double Eingabe = Convert.ToDouble(TEingabe.Text);

  if (calc == "+")
  {
    TEingabe.Text = zahl + TEingabe.Text;
  }

  if (calc == "-")
  {
    TEingabe.Text = zahl2 - Eingabe;
  }

  if (calc == "*")
  {
    TEingabe.Text = zahl2 * Eingabe;
  }

  if (calc == "/")
  {
    TEingabe.Text = zahl2 / Eingabe;
  }

...zur Frage

Visual Basic Ping Pong Spiel

Ich komme nicht weiter, da ich komplett neu bin. Ich versuche momentan dieses Spiel: http://www.youtube.com/watch?v=fySEJPoV74Q zu programmieren, nur in dem umgekerhrten Format. Aber es gibt zei Fehler: ,,Das Item ist Read only``

Hier der Code:

Public Class Form1 Dim unten As Double = +5 Dim rechts As Double = +5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Visible = True Button2.Visible = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
    Button2.Visible = True
    Button1.Visible = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Stop()
    Button1.Visible = True
    Button2.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


    ball.Bottom -= unten
    ball.Right -= rechts

    If ball.Left <= 0 Then rechts = -5
    If ball.Right >= 772 Then rechts = +5
    If ball.Bottom >= 659 Then unten = -5
    If ball.Top <= 0 Then unten = +5

    Plattform1.Top = MousePosition.X

    If ball.Top >= Plattform2.Top Then Plattform2.Top += 5

End Sub

End Class

Übrigens wenn ich die Maus bewege (wenn das Spiel an ist) bewegt sich mein ,,Schläger`` nach oben und unten. Hoffe das mir wer weiterhelfen kann =)

...zur Frage

Access VGA Code?

Hey, kann mir wer folgen Code so umschreiben, dass der nicht anfragt, wie oft dupliziert werden soll, sondern der das aus einem Zahlenfeld im gleichen Formular entnimmt?:

-------------

Private Sub Befehl36_Click()

Dim lngI As Long

Dim lngIMax As Long

Dim strEingabe As String

DoCmd.RunCommand acCmdSelectRecord

DoCmd.RunCommand acCmdCopy

strEingabe = InputBox("Wie oft?", , 1)

'Benutzereingabe wurde abgebrochen

If StrPtr(strEingabe) = 0 Then Exit Sub

lngIMax = Val(strEingabe) - 1

For lngI = 1 To lngIMax

DoCmd.RunCommand acCmdPasteAppend

Next lngI

End Sub

---------------

Vielen Dank

...zur Frage

Windows Forms Taschenrechner: Komma-Problem?

Hallo ich erstelle derzeit einen Taschenrechner in Windows Forms.

Ich bin eigentlich fertig mit dem Taschenrechner, bin aber leider jetzt am Schluss auf ein Problem gestoßen, was ich nicht gelöst bekomme:

Wenn ich als Aufgabe 12,4 + 3 eingebe, kommt 127 raus. Ich verstehe aber einfach nicht warum. Es hat die ganze Zeit funktioniert und plötzlich nicht mehr. Vielleicht habe ich ja unbewusst etwas geändert.

Hier der Codeabschnitt, der etwas mit dem Komma zu tun hat (ich kann leider nicht den gesamten Code einfügen, da 500 Zeilen -> erweiterter Taschenrechner):

Imports System.Globalization
Imports System.Text.RegularExpressions

Public Class Form1
  Public Property zahl As String = ""
  Public Property calc As String = ""
  Dim input As String = ""

  Private Function GetDezimalTrennzeichen() As String
    Return CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator
  End Function

  Private Sub bcomma_Click(sender As Object, e As EventArgs) Handles bcomma.Click
    tb.Text += GetDezimalTrennzeichen()
  End Sub

  Private Sub bsolve_Click(sender As Object, e As EventArgs) Handles bsolve.Click
    ' ...
    Dim input As String = tb.Text
    input = input.Replace(",", ".")
    ' ...
  End Sub

  Private Function EvaluateExpression(expression As String) As Double
    ' ...
    Dim sqrtRegex As New Regex("sqrt\(([^()]+)\)")

    While sqrtRegex.IsMatch(expression)
      input = sqrtRegex.Replace(input, Function(match)
      Dim innerExpression As String = match.Groups(1).Value
      Dim result As Double = EvaluateExpression(innerExpression)

      If result >= 0 Then
        Return Math.Sqrt(result)
      Else
        ' Wenn das Ergebnis negativ ist, wird eine Exception ausgelöst
        Throw New ArithmeticException("Negatives Ergebnis")
      End If
  End Function)
  End While
  ' ...
End Function

Danke schon einmal.

...zur Frage

Wie kann ich meine Excel (VBA) "Zeile Ein- und Ausblenden Formel" vereinfachen?

Hallo zusammen

Ich suche nach einer schnelleren Formellösung, welche alle Zeilen ausblendet, wenn in Spalte A der jeweiligen Zeile das Formelergebnis 0 steht und wieder einblendet, wenn das Ergebnis 1 ist. Die Rechnung passiert dabei auf einer anderen Tabelle; in der Tabelle mit dem Makro steht dann lediglich: ='Tabelle2'!A11 (Dieser Wert wird somit übertragen und ändert sich demzufolge)

Makro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("A11") = 0 Then

Rows("11:12").EntireRow.Hidden = True

End If

If Range("A11") <> 0 Then

Rows("11:12").EntireRow.Hidden = False

End If

If Range("A13") = 0 Then

Rows("13:14").EntireRow.Hidden = True

End If

If Range("A13") <> 0 Then

Rows("13:14").EntireRow.Hidden = False

End If

If Range("A15") = 0 Then

Rows("15:16").EntireRow.Hidden = True

End If

If Range("A15") <> 0 Then

Rows("15:16").EntireRow.Hidden = False

End If

...

(UNTERBRUCH) ...........das geht weiter bis "A360"

...

End Sub

Dieser Ablauf dauert jedoch eine gefühlte Ewigkeit; geht das schneller?

Danke euch.

Gruss Swen

...zur Frage

Wie kann ich eine Windows Forms Anwendung mit variablem Start Form erstellen?

Ich erstelle mit Visual Studio 2022 ein neues Windows Forms VB.net Projekt und möchte abhängig von den Commandline-Parametern entweder Form1, Form2 oder gar kein Form anzeigen.

In der ApplicationEvents.vb leite ich mit einem Eventhandler

       Public Shared Sub ApplicationStartup(ByVal sender As Object, ByVal e As StartupEventArgs) Handles Me.Startup
            MyNameSpace.MainApp.Main(e.CommandLine.ToArray)
        End Sub

bereits in eine eigene Startup-Sub um.

Das funktioniert auch bereits, allerdings öffnet die Applikation stur wie ein Esel trotzdem das Startform, selbst wenn ich die Anwendung innerhalb der Weiche mit Application.Exit beende. Öffne ich mit der Weiche ein anderes Startform, wird ungewollt das ursprüngliche Startform zusätzlich geöffnet.

Wie öffne ich ausschließlich das gewünschte Form beim Start der Anwendung, also Form1, Form2 oder gar keines?

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

VB.NET programmieren. Counter beim drücken eines Buttons?

Guten Tag,

Ich verzweifle grad an der wahrscheinlichsten einfachsten Frage.

Wie zähle ich eine Zahl hoch, wenn ich auf ein Button drücke. Habe es immer mit

counter = counter + 1

oder

counter += 1

gemacht. Funktioniert diesmal auch, aber nur 1x | Ich drücke auf den Button und er zählt von 0 auf 1 hoch. Drücke ich ihn nochmal, geht es nicht mehr und bleibt bei der 1

Code:

    Private Sub btn_startGame_Click(sender As Object, e As EventArgs) Handles btn_startGame.Click
        counter()
    End Sub

    Public Sub counter()
        Dim counter As Integer = 0
        counter = counter + 1
        Label1.Text = counter
    End Sub

...zur Frage

in Visual in Forms mit C# Prozent?

Guten Tag weiß jemand wie ich es hinbekomme mit Prozent rechnen zu können. Und zwar wird eine 5 eingeben und dazu das Prozentzeichen. Soweit alles gut. Die eingegebene Zahl wird direkt durch 100 geteilt (5 : 100 = 0,05 ) und unter dem Eingabefeld notiert (zur hilfe damit man weiß was man eingeben hat) und nun wird immer ein Fehler ausgegeben das dort die Zahl falsch deklariert wurde als String nur wenn ich Convert.ToDouble eingebe scheinbt es nichts zu bringen. Jemand eine Ahnung was ich anders machen kann evntl. mit Code Beispiel. Danke schonmal im Vorraus

hier der Code

public partial class Rechner : Form

{

string calc = "";

string zahl = "";

double pergebnis = 100;

private void prozent_Click_1(object sender, EventArgs e)

{

double zahl2 = Convert.ToDouble(TEingabe.Text);

zahl = "" + (zahl2 / pergebnis);

label2.Text = zahl;

TEingabe.Text = "";

calc = "%";

label3.Text = calc;

}

private void berechne_Click_1(object sender, EventArgs e)

{

double zahl3 = Convert.ToDouble(zahl);

double Eingabe = Convert.ToDouble(TEingabe.Text);

double sum = zahl3 - Eingabe;

double summe = zahl3 + Eingabe;

if (calc == "-")

{

TEingabe.Text = "" + sum;

}

else if (calc == "*")

{

TEingabe.Text = "" + zahl3 * Eingabe;

}

else if (calc == "/")

{

TEingabe.Text = "" + zahl3 / Eingabe;

}

else if (calc == "+")

{

TEingabe.Text = "" + summe;

}

else if (calc == "%")

{

TEingabe.Text = "" + zahl;

}

label3.Text = "";

label2.Text = "";

}

...zur Frage

Visual Basic: Print Document immer an festen Speicherort speichern und Dateiname vorgeben?

Servus,

mit folgendem Code kann ich meine Print Form drucken.

  If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK
  Then
    PrintDocument1.DocumentName = "Das ist ein Document"
    PrintDocument1.Print()
  End If

  Me.ShowInTaskbar = False
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
  Handles PrintDocument1.PrintPage
  Dim bmp As New Bitmap(Me.Width, Me.Height)
  Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
  ' e.Graphics.ScaleTransform(0.2, 0.2)
  e.Graphics.DrawImage(bmp, 0, 0)
  Me.ShowInTaskbar = False
End Sub

Wie kann ich festlegen, dass immer der Microsoft PDF Creator verwendet werden soll und dass die Datei einen bestimmten Namen hat sowie an einer bestimmten Stelle gespeichert wird?

Der obige Code geht, aber man muss immer selber den Drucker, den Namen und den Speicherort wählen. Das soll aber automatisch gehen. Habt ihr eine Lösung?

...zur Frage

Visual Basic: Verschiedene Boxen ausdrucken, z.B. Richtextbox und Picturebox und Steuersequenz für Barcode?

Hallo Experten, ich habe einen Star Bon-Drucker TSP-100 und habe eine Form entworfen, in die entweder manuell oder automatisch ein Text in eine Textbox und ein Bild in eine Picturebox geladen wird. Nun möchte ich diese Boxen ausdrucken und zwar auf einmal und zusätzlich mit der Grafik, die im Drucker gespeichert ist und mit einem Barcode, den der Drucker per ESC-Sequenz drucken können sollte....

Es sollte so aussehen: 1. Bonkopf 2. Picturebox 3. Barcode 4. Textbox

Ich habe folgenden Code:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 
    e.Graphics.DrawString(RichTextBox1.Text, New Font("Verdana", 20, FontStyle.Bold), Brushes.Black, 10, 10) 
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK 
        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print() 
    End If 
End Sub

    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print()
    Else : End If

End Sub

Muss ich für jedes Objekt einen eigenen Printdialog einbetten?

Und wie kann ich es schaffe, dass der Drucker eine Zahl, bsw. 4050607080 als Barcode im Code 128 o.ä. (kein EAN) druckt?

Für eure Antworten danke ich jetzt schon......

Ach ja, und frohe Ostern noch :-)

...zur Frage

Die anweisung ist in einem Namespace ungültig?

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

...zur Frage

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.

...zur Frage

DialogResult wird nicht erkannt?

Keine Ahnung was da los ist. Quasi den selben code benutze ich in einem anderen Projekt auch und da funktioniert es einwandfrei. Mit einem openFileDialog oder einer MessageBox funktioniert es auch.

Die 2te Form wird über einen button aufgerufen:

private void RenameButton_Click(object sender, EventArgs e)
        {
            using (RenameForm renameForm = new RenameForm())
            {
                if (renameForm.ShowDialog() == DialogResult.OK)
                {
                    //...
                }
                else
                {
                    MessageBox.Show("Test");
                }
            }
        }

Wenn man aber jetzt den button in der 2ten Form drückt wird einem trotzdem die Test MessageBox angezeigt...:

private void btnOK_Click(object sender, EventArgs e)
        {
            NewFileName = textBox1.Text;
            if (string.IsNullOrEmpty(NewFileName))
            {
                MessageBox.Show("Bitte gib einen gültigen Dateinamen ein.", "Ungültiger Dateiname", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                return;
            }


            this.DialogResult = DialogResult.OK;
        }

Ich freue mich über jede Hilfe die ich kriegen kann.
Ich mach da schon wieder viel zu lange herum.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen