Wie kann man bei Visual Basic einen Zufallsgenerator erstellen, der zufällige Funktionen durchführt?

Sehr geehrte Nutzer, ich habe ein Visual Basic Programm erstellt, dass unter anderem zufällige Funktionen durchführen soll. Zufällige Formen sollen dargestellt werden (form2.show, me.hide) Mein bereits erstellter Code ist: Dim random As New System.Random Function zufall() Select Case random.Next(0, 1) Case "0" Return form2.Show Me.Hide() Case "1" Return form3.show me.hide() End Select End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click label1.text = (zufall()) End Sub

Hat jemand Verbesserungsvorschläge für diesen Code? Ich denke mal das "Return" ist falsch aber Warum? Wenn es jemand weiß bitte sofort melden. Danke im Vorraus.

2 Antworten

Hello1989

13.10.2017, 07:07

Wenn du den Code so postest, wird dir sicher niemand helfen. Das ist viel zu umständlich. Bitte poste den Code mit dem entsprechenden Tag erneut...

Generell könnte ich dir den folgenden Lösungsansatz geben: Du verwendest einen "Random"-Zufallszahlen-Generator und packst deine Funktionen in einen Switch-Case-Block, der je nach generierter Zahl eine der Funktionen aufruft.

Dunkelvogel

Beitragsersteller

13.10.2017, 07:12

Danke schön für den Tipp,

ich habe das Problem übrigens schon selbst gelöst.

Eine Frage: Wie kann man eine beste Antwort wählen?

Hello1989

13.10.2017, 07:45

@Dunkelvogel

Das geht glaube ich erst nach einem Tag. Du wirst von GF auf jeden Fall irgendwann darauf hingewiesen :D

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

13.10.2017, 09:28

Hilfreischste Antwort geht nur bei min 2 Antworten... Bitte Gern geschehen.

Hier noch ein interesssanter Link der dein Progrämmchen aufwerten könnte:

https://msdn.microsoft.com/de-de/library/chsc1tx6(v=vs.90).aspx

Übrigens das Return an der stelle ist falsch.

Woher ich das weiß:Berufserfahrung – Softwareentewickler / Unternehmensberater bei CSDIT iR

Ähnliche Beiträge

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zum Beitrag

Problem bei Visual Basic: "WinteDMAInteger" wurde nicht deklariert. Könnt ihr mir helfen?

Private Sub B_Points_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Points.Click 
    Dim points String = TextBox1.Text

    Try 
        WinteDMAInteger("DeadByDaylight", -00000C88, points)
    Catch ex As Exception
    End Try
End Sub

Fehlermeldung:

WinteDMAInteger

Fehler2 "WinteDMAInteger" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.

...zum Beitrag

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?

...zum Beitrag

Visual Basic - Wie nutzt man Windows speech recognition richtig?

Hallo, seit langem suche ich schon seit langem nach einer Lösung im Internet system speech recognition in VB gescheit nutzen zukönnen. Bisher habe ich folgendes gefunden und genutzt.

//////////////////////

Imports System.Speech Public Class Form1

Public synth As New Speech.Synthesis.SpeechSynthesizer

Public WithEvents recognizer As New Speech.Recognition.SpeechRecognitionEngine

Dim gram As New System.Speech.Recognition.DictationGrammar()

Public Sub GotSpeech(ByVal sender As Object, ByVal phrase As System.Speech.Recognition.SpeechRecognizedEventArgs) Handles recognizer.SpeechRecognized

words.Text = phrase.Result.Text

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

recognizer.LoadGrammar(gram)

recognizer.SetInputToDefaultAudioDevice()

recognizer.RecognizeAsync()

End Sub

End Class

//////////////////////

Nur leider versteht mich in diesem Falle Vb kaum. Zb. wenn ich "Nur ein Test" sage versteht Vb "Blaum ein Text" Und wenn ich Cortana einmal das selbe sage versteht sie es... Und da ich einfach keine Lösung in bereits vorhandenen Threads finde hoffe ich das mir netterweise einer von euch helfen könnte. :)

...zum Beitrag

Excel Colorsum Ergebnis automatisch aktualisieren lassen?

Moin, ich habe in Excel über Visual Basics folgenden Code eingefügt:

Function ColorSum(ByRef Source As Range, ByVal Color As Integer, Optional ByVal ForeOrBack As Boolean = -1) As Double

Dim rng As Range, dblSum As Double

Application.Volatile

If Color < 0 Or Color > 56 Then Color = IIf(ForeOrBack, -4142, -4105)

For Each rng In Source

If IsNumeric(rng) Then

If ForeOrBack Then

If rng.Interior.ColorIndex = Color Then dblSum = dblSum + rng

Else

If rng.Font.ColorIndex = Color Then dblSum = dblSum + rng

End If

ColorSum = dblSum

End Function

Dies hat die Funktion, dass ich zahlen zusammen rechnen kann anhand der Farbe. Das Funktioniert auch alles so weit. Nur weiß ich nicht wie ich es hinkriege dass sich das Ergebnis automatisch aktualisiert nachdem ich die Farbe z.B. von rot auf grün umändere. Dann sollte eigentlich aus summe X eine summe heraus kommen die um 1 weniger ist. Dies sehe ich aber erst dann, nachdem ich in die Spalte gehe (wo die Formel ist) und die Entertaste drücke. Geht das auch ohne das ich es Manuell aktualisieren muss?

...zum Beitrag

Excel - Zelleninhalte löschen, wenn in anderer Zelle "ein Wert" steht

Hallo liebes Forum,

ich habe ein kleines Problem bei einer kleinen Datenbank und hoffe das ihr mir weiterhelfen könnt.

Zum Problem: Ich habe in Zelle A1 eine Auswahlliste, bei der ich a,b oder c auswählen kann.

habe ich a ausgewählt, soll nichts passieren.
wähle ich jedoch b oder c aus, sollen im Zellbereich C4:F14 die Werte gelöscht werden

Dazu habe ich folgenden Code programmiert:

Private Sub Worksheet_TEST(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case CInt(Range("A1"))
        Case b
            Range("C4:F14").Select
            Selection.ClearContents
        Case c
            Range("C4:F14").Select
            Selection.ClearContents
        End Select
    End If
End Sub

Ändere ich nun die Auswahl, passiert jedoch nichts, die Einträgen werden nicht gelöscht. Wo liegt der Fehler?

Danke für Eure Hilfe

Gruß diece

...zum Beitrag

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

...zum Beitrag

Visual Basic: Wie kann ein Programm erst einen 2. Form öffnen und dann sich selbst schließen?

Das eine Programm ruft bei einem Klick auf den Button die Form 2 mit dem Befehl

form2.show

auf.

Jetzt soll sich das erste Programm schließen. Aber wenn ich den Befehl

close()

verwende schließen sich beide Programme!

und wenn ich in Programm 1 die Befehlskette

form2.show

form1.close

verwende, kommt die Fehlermeldung dass das Programm 1 sich nicht selbst aufrufen(beenden) kann.

Wie löse ich das Problem?

...zum Beitrag

Name + User?

Hallo,

was müsste ich hier anpassen? Ich komme mit der Fehler Meldung nicht zurecht.

Private Declare 36 GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetNTUserA() As String
  
 Dim sBuffer As String
 Dim LSize As Long
 Dim user As String
  
 sBuffer = Space$(255)
 LSize = Len(sBuffer)
  
 Call GetUserName(sBuffer, LSize)
  
 If LSize > 0 Then
  user = Left$(sBuffer, LSize - 1)
 Else
  user = vbNullString
 End If
  
 GetNTUserA = user
  
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 6 Then
    Target.Offset(0, 11).Value = Date
  End If
      
    If Target.Column = 6 Then
    Target.Offset(0, 10).Value = GetNTUserA
  End If

End Sub

...zum Beitrag

Wie ändere ich die Farbe der Blattregisterkarte basierend auf mehrere Zellenwerte?

Das habe ich im Netz gefunden, aber ich brauche die Abfrage für mehrere Zellen (A1:A10)

Kann mir da jemand helfen ??

Gruß Heiko



Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

...zum Beitrag

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 =)

...zum Beitrag

Visual Studio Code formatiert Javascript/React Code falsch?

Hallo! Ich habe eine neue React App gestartet und habe gerade angefangen zu coden, doch als ich das erste mal gespeichert habe, hat Visual Studio Code angefangen, die JS Files falsch zu formatieren.

Die Datei an sich ist übrigens eine beinahe unformatierte Datei die automatisch generiert wurde.

So will ich es formatiert haben:

function App() {
    return (
    <div className = "App" >
            <h1>yo</h1>
    </div >);
 }

Aber so wird es autoformatiert:

function App() {
    return ( <
        div className = "App" >
        <
        h1 > yo < /h1> < /
        div >
    );
}

...zum Beitrag

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 :-)

...zum Beitrag

Visual Basic Mauszustand abfragen?

Hallo. Ich wollte fragen ob man in Visual Basic abfragen kann, ob die Maus gedrückt ist (geklickt halten) und das Ohne Form. Also z.B. Wenn ich in meinem Browser bin und as Programm läuft im Hintergrund, und dann abfragen (also das Formular ist im HIntergrund, Browser im Vordergrund)

Freue mich über schnelle Antworten

Vielen Dank!

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen