Roblox Studio Script funktioniert nicht!Was kann ich tun?

Hallo : - )

Ich bin gerade dabei bei Roblox studio ein Tycoon zu programmieren aber ich komme nicht weiter.

Also, ich habe einen Dropper gebaut , der auch funktioniert .

Jetzt habe ich noch eine BooleanValue erstellt , mit der man den Dropper an und aus schalten können soll.

Also hab ich den Script vom Dropper noch in einer if loop verpackt.

Aber der Script bemerkt nicht wenn ich die Variable verändere.

Wenn ich Variable auf true stelle und dann einen Testlauf starte, dann ist der Dropper aktiv, aber wenn ich dann während des Testes die Variable auf false stelle , dann hört der Dropper nicht auf sondern macht einfach weiter.

Anderstherum ist es genauso:

Wenn ich die Variable auf false stelle und dann einen Testlauf starte , dann ist der dropper wie geplant nicht aktiv, aber wenn ich dan währen des Testlaufes die Variable auf true stelle, dann fängt der Dropper nicht an sondern bleibt einfach inaktiv.

Hier ist der Script von meinem Dropper:

___________________________________________________________________________________

wait(3)

while true do

if script.Parent.Value.Value == true then

wait(3)

print('true detected')

local droppart = Instance.new('Part',game.Workspace)

droppart.Size = Vector3.new(1,1,1)

droppart.Position = script.Parent.Orientation.Position

droppart.Name = 'DesktopCoin1'

droppart.Material = Enum.Material.Neon

droppart.BrickColor = BrickColor.new('CGA brown')

else

if script.Parent.Value.Value == false then

print('false detected')

end

________________________

Vielen Dank im Vorraus : )

Ps: ich versuche noch einen Screenshot vom Explorer hinzuzufügen:

Bild zum Beitrag

Der Script vom Dropper heißt PartValue, und untendrunter das ist die BooleanValue

_____

Hier noch ein Screenshot vom Script:

_________

Bild zum Beitrag

Vielen Dank fürs lesen XD

3 Antworten

Coole3

23.07.2019, 21:55

Hi,

Versuche mal das 2. „wait(3)“ wegzulassen. Vielleicht gehst dann besser.

Woher ich das weiß:Hobby – Ich bin Youtuber auf dem gebiet ROBLOX Studio.

ElegantEagle

12.08.2019, 11:32

Was funktioniert denn genau nicht?

NiklasSegler

Fragesteller

23.08.2019, 11:51

hab das problem schon längst gelößt aber habe dann entschienen mein spiel ganz anderst zu gestalten , deswegen wurde dieser script unnötig

123RrZ

27.06.2019, 18:01

Wenn ich irgendwo einen fehler mache, erstelle ich ein neues Spiel.

Woher ich das weiß:eigene Erfahrung

ElegantEagle

16.07.2019, 03:33

Was ist das denn für eine Idee. xD
Wenn du schon 1000 scripts gemacht hast macht das doch gar keinen Sinn..

Guten Tag, leider funktioniert das script, welches ich in Luau geschrieben habe nicht. Es liegt anscheinend an dieser Zeile : print(Spieler.." hat sich "..Ware.."gekauft.Er hat noch "CashvomSpieler.."CashvomSpieler zur Verfügung.").

Ich würde mich gerne um eine Antwort freuen. Danke im vorraus.

Script:

Funtionsname("Player1", 100, "Ware1", 1200)

Funtionsname("Player2", 100000, "Ware2", 12000)

Funtionsname("Player3", 0, "Ware3",3.50)

function Funtionsname (Spieler,CashvomSpieler, Ware,Preis)

if Preis > CashvomSpieler then

print(Spieler.." kann sich "..Ware.."nicht kaufen")

return

end

CashvomSpieler = CashvomSpieler - Preis

print(Spieler.." hat sich "..Ware.."gekauft.Er hat noch "CashvomSpieler.."CashvomSpieler zur Verfügung.")

end

...zur Frage

Wieso geht der lua Code ( roblox studio ) nicht?

game.StarterGui.MenuGUI.Enabled = false

script.Parent.MouseButton1Click:Connect(function()

game.StarterGui.MenuGUI.Enabled = true

end)

Ich möchte mit dem Code erreichen ,dass wenn man auf den Button drückt das dann ein neues GUI auftaucht aber es geht nicht. Der Code geht nur bis

game.StarterGui.MenuGUI.Enabled = false

der Rest wird ignoriert

...zur Frage

Primzahl in Python?

Hallo,

ich bin noch Anfänger im Programmieren und sitze an einer Aufgabe fest. Das Programm soll mir die Werte True oder False geben, wenn es eine Primzahl ist oder nicht. Ich habe die Aufgabe soweit gelöst, aber bei 2 gibt er mir False heraus.

Ich finde den Fehler nicht. Könnte mir jemand erklären, woran es liegt?

Hier einmal mein Code:

import sys

zahl = int(sys.argv[1])
n = 2

if zahl <= 1:
  print(False)
elif zahl % n == 0:
  while n <= zahl:
    n += 1
    print(False)
else:
  print(True)

...zur Frage

Java - Primzahlen ermitteln

Soll zwischen 1 und 100 alle Primzahlen in Java ermitteln. Lasse ich das Programm laufen wird keine Zahl ausgegeben. Ich habe festgestellt, dass bei jeder Zahl primzahl == false ist. Zu beginn war der boolean primzahl true. Was habe ich falsch gemacht?

System.out.println ("Primzahlen:");

for (i=1 ;i<=100 ;i++ ) {
  if (i==1) {
    primzahl = false;
  } // end of if
    else {
    for (j=2 ;j<i ;j++ ) {
      if (i % j == 0) {
        primzahl = false;
      } // end of if
    } // end of for
  } // end of if-else
  if (primzahl == true) {
    System.out.println (i);
  } // end of if
} // end of for

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

Excel VBA Button per doppelklick?

Moinsen,

Ich würde gerne einen versteckten Button erstelln, der folgendes Kann:

Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = False Then

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Else

ActiveSheet.Unprotect

End If

Jedoch würde ich ihn gerne nur per Doppelklick aktivieren lassen, da man sonst evt ausversehen drauf kommt.

...zur Frage

Bei Serienbrief Dokumente einzeln Speichern mit Makro funktioniert nicht?

Ich möchte die Dokumente im Serienbrief einzeln automatisch speichern mittels Makro und habe das unten angefügte Makro dafür auch gefunden aber es funktioniert bei mir noch nicht sondern debugt immer und zeigt Fehler in der Variable an. Ich hab auch den Pfad schon auf mein Dokument angepasst. Muss ich evtl noch den Dateinamen ändern?

Sub Test()
 '
 ' Serienbrief in einzelnen Word Dokumenten speichern
 '
 Dim Dateiname As String
 Dim LetzterRec As Long
     
 Application.ScreenUpdating = False
 Application.Visible = False

 Const path As String = "C:\Test\"          'Pfad anpassen
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
 LetzterRec = Word.ActiveDocument.MailMerge.DataSource.ActiveRecord
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord


     With ActiveDocument.MailMerge
         .DataSource.ActiveRecord = wdFirstRecord
         Do
             If .DataSource.ActiveRecord > 0 Then
                If .DataSource.DataFields("VorNachname").Value <> "0" Then
                     .Destination = wdSendToNewDocument
                    .SuppressBlankLines = True

                     With .DataSource
                         .FirstRecord = .ActiveRecord
                         .LastRecord = .ActiveRecord
                
                         Dateiname = path & .DataFields("VorNachname").Value & ".docx"
                
                     End With
                        .Execute Pause:=False
                 
                         ActiveDocument.SaveAs FileName:=Dateiname           'Speichern unter Dateiname
                        ActiveDocument.Close False
                 End If

               End If
               
             If .DataSource.ActiveRecord < LetzterRec Then
                 .DataSource.ActiveRecord = wdNextRecord
             Else
                 Exit Do
             End If
         Loop
     End With
     
     Application.Visible = True
     Application.ScreenUpdating = True
 End Sub

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

attempt to index nil with 'Value' in Roblox Studio?

Guten Tag,

Ich habe ein Script in Roblox Studio geschrieben das ein Objekt zerstören soll wenn es auf ein anderes bestimmtes Objekt trifft. Außerdem soll auch noch Geld hinzugefügt werden.

Wenn das Objekt allerdings mit dem anderen Objekt auf einander trifft kommt folgender Error: attempt to index nil with 'Value'

Das ist der Code:

local values = script.Parent.Parent.Parent.Parent.Values


script.Parent.Touched:Connect(function(hit)
	if hit.Name == "DropperPart" and hit:IsA("BasePart") then
		values.MoneyValue.Value += hit:FindFirstChild("CashValue").Value
		hit:Destroy()
	end
end)

...zur Frage

VBA mehrere Textboxen außer XY auf Inhalt prüfen?

Hallo zusammen,

kann man für mehrere Textboxen bis auf Ausnahmen den gleichen Inhalt prüfen?

Zu Sache: Ich habe ein Userform mit einer Multiseite mit 10 Pages. Jeder Page hat 63 Textboxen, ergo 630 Textboxen im gesamten Userform.

Von diesen 630 Textboxen muss in 620 Textboxen geprüft werden, ob diese entweder leer sind oder eine Uhrzeit steht. Wenn dieses der Fall ist, dann ist alles Ok. Ansonsten soll entsprechend der Vorgang abgebrochen werden.

Die 620 Textboxen haben alle individuelle Namen wie (AN1t1a, AN1t1e, AN1t2a usw.) Dies ist nach einem bestimmten Muster.

Die restlichen Textboxen, die NICHT geprüft werden sollen haben Namen wie (AN_Name1, AN_Name2, AN_Name3 usw. bis 10).

Wie können nun alle 620 Textboxen auf folgendes Format geprüft werden:

Private Function CheckTime(ByVal txt As String) As Boolean

If txt.Length <> 5 or txt.Length <> 0 Then
Return False
End If

If txt(0) >= "3" Then
Return False
End If

If txt(0) = "2" AndAlso txt(1) >= "4" Then
Return False
End If

If txt(2) <> ":" Then
Return False
End If

If txt(3) = "0" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "1" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) = "2" Then
Return False
End If

If txt(3) = "3" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "4" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) > "4" Then
Return False
End If

Return True
End Function

Falls die Prüfung auf die korrekte Uhrzeit fehlerhaft ist oder auch einfacher geht, nehme ich die Hilfe auch gerne an :) Erlaubte Uhrzeiten sollen im Forma HH:MM sein und im Viertelstunden Takt (10:00, 10:15, 10:30, 10:45) erlaubt sein. Nur Zahlen sind nicht möglich, da es auch einen Doppelpunkt gibt ;)

Gruß

...zur Frage

python function while schleifen Problem?

def test():
  x = None
  while x != "False" or "True":
    x = input("True or False: ")
  for i in x:
    print("It is ")
    print(x, end="")
test()

Wieso funktioniert dieser Code nicht, das Problem liegt darin das man nicht mehr aus der while Schleife raus kommt.

...zur Frage

python sinus cosinus tangens math modul?

Hallo,

from math import sin, cos, tan


print("Winkelfunktionen")

print("          /| ")
print("         /ß| ")
print("        /  | ")
print("       /   | ")
print("      /    | ")
print("c    /     |a ")
print("    /      | ")
print("   /       | ")
print("  /        | ")
print(" /        _| ")
print("/@_______/.| ")
print("     b       ")

print("Um das Dreieck zu berechnen brauchen wir folgende Informationen")
rechtwinklig_abfrage = input("Ist ihr Dreieck rechtwinklig? (erkennbar am Zeichen oder 90°) [j/n] ")
if rechtwinklig_abfrage == "j":
    rechtwinklig = True
else:
    rechtwinklig = False
    print("Winkelfunktionen können in nicht-rechtwinkligen Dreiecken nicht benutzt werden! ")


a_abfrage = input("Ist die Seite a gegeben? [j/n] ")
if a_abfrage == "j":
    a_vorhanden = True
    a = int(input("welche Länge ist für a angegeben?: "))
else:
    a_vorhanden = False

b_abfrage = input("Ist die Seite b gegeben? [j/n] ")
if b_abfrage == "j":
    b_vorhanden = True
    b = int(input("welche Länge ist für b angegeben?: "))
else:
    b_vorhanden = False

c_abfrage = input("Ist die Seite c/Hypotenuse gegeben? [j/n] ")
if c_abfrage == "j":
    c_vorhanden = True
    c = int(input("welche Länge ist für c/Hypotenuse angegeben?: "))
else:
    c_vorhanden = False

alpha_abfrage = input("Ist  alpha gegeben? (@) [j/n] ")
if alpha_abfrage == "j":
    alpha_vorhanden = True
    alpha = int(input("Welche Größe ist für alpha angegeben?"))
else:
    alpha_vorhanden = False

beta_abfrage = input("Ist  beta gegeben? (ß) [j/n] ")
if beta_abfrage == "j":
    beta_vorhanden = True
    beta = int(input("Welche Größe ist für alpha angegeben?"))
else:
    beta_vorhanden = False

art_abfrage = input("was soll berechnet werden? [a/b/c/@/ß] ")
if art_abfrage == "a":
    if alpha_vorhanden and b_vorhanden:
        ergebnis = tan(alpha*b)
        print(ergebnis)

wie verwende ich das math modul richtig?

b 0 3

alpha = 40

eigentlich sollte 2,52 rauskommen, das programm kommt aber auf 0,71

Danke

...zur Frage

Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

ActiveSheet.Unprotect

' einblenden:

ActiveWindow.DisplayHeadings = True

Else

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

' ausblenden:

ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

...zur Frage

Richtig Einfügen in Excel-VBA?

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

Cells.EntireRow.Hidden = False

If Range("E8").Value = "Rogo AC" Then

Columns("U:AH").Hidden = True

Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

Columns("U:AH").Hidden = True

Columns("V").Hidden = False

End If

End Sub

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

Sub Kopieren_speichern()

For i = 27 To 37

If Range("AK" & i).Value > 1 Then

Range("M" & i).Value = Range("AK" & i).Value

End If

Next i

End Sub

Danke im Voraus

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen