www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Fehler in Skript
Autor:  mori
E-mail:  Antworten bitte nur in das Forum!
Datum:  28.01.2007 14:10:14
Subject:  Fehler in Skript
Bezug zum Buch: 
Message:  Kann mir jemand helfen
In den mit * gekennzeichneten Zeilen kommt es zu Fehlern und
wie kann ich die beheben ?



set fso=CreateObject("Scripting.FileSystemObject")

set morwr=fso.opentextfile(GetSkriptFoldermr,8,true)
set morrd=fso.opentextfile(GetSkriptFoldermr)

ei=msgbox("Dein Kontostand beträgt "&mrdimt&" Diamanten")


fr=inputbox("Wie viel setzt du ?")
zahl=inputbox("Bitte gebe deine 2 stellige Zahl ein")
if zahl>=100 then msgbox"Die Zahl ist zu hoch"&Wscript.Quit


if zahl=zufall then msgbox"Du hast richtig getippt"
if zahl=zufall then sum=(fr+morrd) '****************
if zahl=zufall then morwr.writeline sum

if zahl<>zufall then msgbox"Du hast falsch getippt"
if zahl<>zufall then but=(morrd-fr) '***************
if zahl<>zufall then morwr.writeline but

end if





Function GetSkriptFoldermr

SkriptFolder = fso.GetFile (WScript.ScriptFullName).ParentFolder

SkriptFoldermr=SkriptFolder&"\mor.txt"

'in der Datei mor.txt ist der Kontostand des Spielers

GetSkriptFoldermr=SkriptFoldermr

End Function





Function mrdimt

Do until morrd.atendofstream

result=morrd.readline

Loop

mrdimt=result

End Function






Function zufall

grzahl=99
klzahl=10

randomize()

zufall=int((grzahl - klzahl +1) * Rnd() + klzahl)

zufall=zufall

End Function


morwr.close
morrd.close


Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Fehler in Skript von mori  am 28.1.2007 2:10:14 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019