VBScript Zahlenspiel?

Hi,

Ich habe folgendes VBScript geschrieben:

Dim Untergrenze, Obergrenze, Wert, Zufallszahl, Counter

Randomize()

Wert = 0
Untergrenze = 1
Obergrenze = 5
Zufallszahl = Int((Obergrenze - Untergrenze + 1) * Rnd() + Untergrenze)
Counter = 0

Do

Counter=Counter+1

Wert = InputBox("Bitte geben Sie eine Zahl zwischen 1 und 5 ein", "Eingabe")

If Zufallszahl<Wert Then _
    WScript.Echo("Meine Zahl ist kleiner!")

If Zufallszahl>Wert Then _
    WScript.Echo("Meine Zahl ist größer!")

If Wert=Zufallszahl Then _
    WScript.Echo("Richtig. Versuche: " + CStr(Counter))

Loop while Wert<>Zufallszahl

nur will das ganze nicht wirklich funktionieren. Ich hab soweit schon herausgefunden, dass es an der InputBox liegen muss, da das ganze ohne InputBox funktioniert. Für jede Antwort bin ich dankbar.

1 Antwort

CoolMandy1

26.10.2017, 16:30

InputBox gibt einen String zurück, der muss in eine Zahl konvertiert werden bevor du ihn weiter verwenden kannst:

Wert = CInt(InputBox("Bitte geben Sie eine Zahl zwischen 1 und 5 ein", "Eingabe"))

Anstatt WScript.Echo könntest du auch MsgBox(...) verwenden.

Tralalax3

Fragesteller

26.10.2017, 17:00

Das mit der MsgBox wusste ich :-D

Vielen Dank funktioniert jetzt einwandfrei. :-)

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

Hilfe bei leichtem Python Programm?

Hallo Community,

ich arbeite gerade an einem kleinem Zahlenspiel mit Python.

Der Computer sucht sich eine Zahl zwischen 1 und 100 aus und der Spieler muss die Zahl erraten. Falls zu groß/klein = Printbefehl.

ich hätte gerne mehrere Versuche, ohne dass das Programm immer wieder von vorne anfängt und eine andere Zahl generiert.. nur weiß ich nicht, wie ich das jetzt einbauen kann. Zusätzlich würde ich gerne noch wissen, wie man z.B. 5 Versuche einbaut.

Code:

import random
eingabe = input ("Bitte gebe eine Zahl ein: ")
eingabe = int(eingabe)
zufallszahl = random.randint(1, 100)
if eingabe < zufallszahl:
    print("Die Zahl ist zu klein")
elif eingabe > zufallszahl:
    print("Die Zahl ist zu gross")
else:
    eingabe == zufallszahl
    print("Treffer!")

Vielen dank im Vorraus!!

MfG

...zur Frage

Wie überprüft man in C, ob eine Zahl eine Primzahl ist?

include
int main(){ 
  int counter = 1; 
  int AusgegebeneZahl;
  int EingegebeneZahl = 5;
  while(counter < EingegebeneZahl-1){
    AusgegebeneZahl = EingegebeneZahl/(EingegebeneZahl-counter);
    printf("%i\n", AusgegebeneZahl);
    if (AusgegebeneZahl%counter == 0) {
      printf("Zahl ist keine Primzahl");
    }
  counter++;
  }
}

Wo liegt mein Fehler?

...zur Frage

Größere Zahl als Untergrenze beim Integral?

Welche Bedeutung hat es, wenn ich beim Integral die kleinere Zahl als Obergrenze benutze und die größere Zahl als Untergrenze? Bin nämlich auf eine Formel gestoßen, wo +unendlich meine Untergrenze ist...

...zur Frage

Excel VBA IsNumeric?

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!

...zur Frage

Delphi Befehl gesucht!

Ich will eine if-then-Funktion schreiben und zwar will ich schreiben: Wenn m keine Zahl ist, dann soll eine Fehlermeldung kommen. Und mir fehlt der Befehl dafür, also wie schreibe ich m ist keine Zahl?

Danke im Voraus

...zur Frage

VBA Inputbox Werte verrechnen?

Moin Leute,

anbei eine kurze Aufgabenstellung. Ich konnte den ersten Teil bereits erfolgreich lösen, leider scheitere ich aber daran den Inputwert mit der zugehörigen prozentzahl zu multiplizieren.

Folgende Aufgabenstellung:

Schreiben Sie eine Prozedur zur Ermittlung des Zinssatzes für eine Geldanlage. Liegt der anfänglich angelegte Geldbetrag über 10.000,00 €, beträgt der Zinssatz 3 %, liegt er über 20.000,00 €, beläuft sich der Zinssatz auf 3,5 % ansonsten liegt er bei 2,75 %. Verwenden Sie eine If-Else-Anweisung. Der Eingangsbetrag ist über eine Inputbox zu erhalten. Der gültige Zinssatz und das Resultat ist über eine MsgBox anzuzeigen.

Mein Fortschritt:

Sub test2()

Dim Zahl As Double

Zahl = InputBox("Gebe Sie eine Zahl ein")

If Zahl > 20000 Then

MsgBox (("3,5%"))

ElseIf Zahl > 10000 Then

MsgBox (("3%"))

ElseIf Zahl <= 10000 Then

MsgBox (("2,75%"))

End If

End Sub

...zur Frage

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

...zur Frage

VBscript OpenTextFile funktioniert nicht?

Hallo Leute,

ich Programmiere ja VBScript und habe jetzt eine Fehlermeldung und kriege diese nicht behoben:

Set fso = CreateObject("Scripting.FileSystemObject")

sl = InputBox("Wieviele Schüler sollten den Test machen?","")

'Gibt es eine "& sl &"ste Datei?

If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then

Do until Sl="0"

Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")

msgbox oFile.ReadLine

sl=sl-1

loop

Das Programm sollte in einer msgbox die Datei öffnen und danach auch die Dateien die unter der eingegebenen Zahl liegen öffnen und das bis null. Nun steht aber in dieser Zeile: "msgbox oFile.ReadLine" ein Fehler:

Eingabe hinter Dateiende

Kann mir da jemand helfen?

Außerdem möchte ich dass Alle Dateien in einer Abgespeichert werden aber so wie ich das erfahren habe klappt das nicht. Denn dann kreuzen sich zwei oFile's.

...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

Visual Basic Script: ZUFALLSZAHL (zwischen 1 und 30)

Hallo Leute ,

ich würde gerne bei VBS eine Zufallszahl generieren lassen (zwischen 1 und 30) !

Ich habe 30 Witze parat. Die Zufallszahl soll dann einen davon auswählen!

Ich hoffe ihr findet eine Lösung. Google hat dazu nicht so viel ausgespuckt:

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

witznr = msgbox ("Witz Nr." & zufallszahl & "!")

If zufallszahl = 1 Then

witz0 = msgbox ("blablabla....")

If zufallszahl = 2 Then

witz1 = msgbox ("blablabla....")

...

Else

error = msgbox ("Fehler!")

Das Problem ist dass mir der PC immer eine Fehlermeldung schickt (Bild im Anhang).

Meine Frage ist deshalb ob das mit....

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

...stimmt!

Vielen Dank schon einmal im Voraus!

LSeven

...zur Frage

Was kann man mit Programmstrukturen wie einer MsgBox, Inputbox, If Then Bedingung und einer For Next Schleife in einem VBA Programm machen?

Hallo,

ich muss in einer Aufgabe in eigenen Worten erklären was man mit diesen Programmstrukturen machen kann also wofür die halt dienen aber ohne ein konkretes Beispiel. Ich weiß es zwar so ungefähr aber kann es nicht so genau in eigenen Worten erklären.
Ich wäre für eine Antwort sehr dankbar :)

...zur Frage

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zur Frage

Wie prüft man in "C", ob eine Zahl eine Primzahl ist?

/ Primzahl.c /

include include

main()

{ int zahl=16; //Zum Testen

int counter = 1; //Counter für die Schleife

int rest = 1; //Variable für den Rest (Modulo)

while (counter < (zahl-1)) //Solange counter < 15 (Also von 1 bis 14)

rest = zahl%(zahl-counter); //(16/Alle kleineren natürlichen Zahlen bis auf 1)

if (rest=0) //Ist die Zahl Restfrei durch eine kleinere natürliche Zahl teilbar, ist die Zahl keine Primzahl;