Visual Basic

Otekpo Emmanuel wrote:

Som1 out there shud hlp me plzzzzz

Dim computeThread As Thread

Private Sub RunTest()
    uiPlayer.URL = writingPath & "son1.wav"
    uiPlayer.controls.play()
    
    computeThread = new Thread(AddressOf Compute)
    computeThread.Start()
End Sub

Private Sub Compute()
    Debug.Print("Started!")
    
    Dim a As Integer = 0
    For i As Integer = 0 To 999999999
        a = i
    Next
    
    Debug.Print("Done!")
End Sub

Imports System.Threading
Public Class UISound
    Dim writingPath As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\_UI Sounds\"
    Public Shared WithEvents uiPlayer As New WMPLib.WindowsMediaPlayer
    Public Shared uiThread As Thread = New Thread(AddressOf ReceiveSound)
    Public Shared Sub ReceiveSound(ByVal url As String)
        uiThread = New Thread(AddressOf PlayFile)
        uiThread.Start(url)
    End Sub
    Public Shared Sub PlayFile(ByVal url As String)
        uiPlayer.URL = writingPath & url
        uiPlayer.controls.play()
    End Sub
End Class

Sub one()
    UISound.ReceiveSound("sound1.wav")
    Dim a As Integer = 0
    For i As Integer = 0 To 999999999
        a = i
    Next
    Two()
End Sub
Sub two()
    Dim a As Integer = 0
    For i As Integer = 0 To 999999999
        a = i
    Next
    Three()
End Sub
Sub Three()
    Dim a As Integer = 0
    For i As Integer = 0 To 999999999
        a = i
    Next
End Sub

System.Windows.Forms.Application.DoEvents()

Jayme65 wrote:

if there would be a way to do the sorting IN the same main line? A kind of:

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Jayme65 wrote:

ext.SelectMany(Function(f) Directory.GetFiles(romPath, f))

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Dim CharMap_Key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\CharMap", writable:=True)
Dim currentfont As String = CStr(CharMap_Key.GetValue("Font", defaultValue:=""))
CharMap_Key.SetValue("Font", "Arial")
Dim proc As Process = Process.Start(Environment.SystemDirectory & "\charmap.exe")

Public MyForm

    ' This is declared at the class level.
    Private RNG As New Random()

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.CheckState = 1 Then
            Male()
        End If
    End Sub

    ' This code really should be in Form2, not in any other form.
    ' Form code should be responsible only for interacting with the controls
    ' on its own form, not with controls on another form.
    Private Sub Male()
        Dim lines() As String = GetLinesFromFile("male.txt")

        Form2.TextBox1.Text = lines(RNG.Next(lines.Length))
    End Sub

    Private Function GetLinesFromFile(ByVal filename As String) As string()
        return File.ReadAllLines(filename)
    End Function 

End Class