Visual Basic Tutorialreihe - extra 1 - Mikrophone aufnehmen

In diesem extra meiner Visual Basic Tutorialreihe  zeige ich euch, wie ihr ein Mikrophon mit mciSendStrind aufnehmt.



Quellcode:

Public Class Form1

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLenght As Integer, ByVal Callback As Integer) As Integer

    Dim Path As String = "C:\Users\Manuel\Desktop\Test.wav"
    Dim rs As String
    Dim cb As String

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Record" Then
            Button1.Text = "Stop"
            Button2.Enabled = False
            rs = New String(" ", 128)
            mciSendString("Open New Type waveaudio Alias aufnahme", rs, 128, cb)
            mciSendString("record aufnahme", rs, 128, cb)
        Else
            Button1.Text = "Record"
            Button2.Enabled = True
            mciSendString("Stop aufnahme", rs, 128, cb)
            mciSendString("save aufnahme " & Path, rs, 128, cb)
            mciSendString("Close aufnahme", rs, 128, cb)
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        My.Computer.Audio.Play(Path, AudioPlayMode.Background)
    End Sub
End Class

Visual Basic Tutorialreihe Teil 10 - Wie geht es weiter?

Im letzten Teil meiner Tutorialreihe erzähle ich euch, wie ihr von hier aus weitermachen könnt.



Links:
http://msdn.microsoft.com
http://www.vb-paradise.de
http://mein-pc-blog.blogspot.com

Visual Basic Tutorialreihe Teil 9 - Musikplayer mit Playlist

In diesem Teil meiner Visual Basic Tutorialreihe zeige ich euch, wie ihr unseren Musikplayer um eine Playlist ergänzt. Außerdem lernt ihr Funktionen besser kennen, was ein Timer ist und wofür die restlichen Parameter bei mciSendString sind.



Quellcode:

Imports System.IO

Public Class Form1
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Dim IsPlaying As Boolean = False
    Dim currentTime As Double = 0
    Dim currentlength As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Not IsPlaying Then
            'Datei abspielen
            PlayDatei()
        Else
            'Pause
            mciSendString("pause Datei", Nothing, 0, 0)
            IsPlaying = False
            Button1.BackgroundImage = ImageList1.Images(0)
            Timer.Stop()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Stop
        If IsPlaying Then
            mciSendString("stop Datei", Nothing, 0, 0)
            mciSendString("close Datei", Nothing, 0, 0)
            Button1.BackgroundImage = ImageList1.Images(0)
            Timer.Stop()
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        OpenFileDialog1.ShowDialog()

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        ListBox1.Items.Add(OpenFileDialog1.FileName)
        GroupBox1.Enabled = True
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        Catch ex As Exception
        End Try

        If ListBox1.Items.Count = 0 Then
            GroupBox1.Enabled = False
            mciSendString("stop Datei", Nothing, 0, 0)
            Button1.BackgroundImage = ImageList1.Images(0)
        End If
    End Sub

    Private Function ErmitteleLaenge()

        If IsPlaying Then
            Dim laenge As Double
            Dim sReturn As String = Space$(256)
            mciSendString("status Datei length", sReturn, Len(sReturn), 0)
            laenge = Convert.ToDouble(Val(sReturn) / 1000)
            Return laenge
        Else
            Return 0
        End If

    End Function

    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
        If currentTime < currentlength Then
            currentTime += 1
            ToolStripStatusLabel2.Text = currentTime
        Else
            Timer.Stop()
            If ListBox1.Items.Count - 1 <> ListBox1.SelectedIndex Then
                mciSendString("stop Datei", Nothing, 0, 0)
                mciSendString("close Datei", Nothing, 0, 0)
                IsPlaying = False
                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                PlayDatei()
            Else
                Button1.BackgroundImage = ImageList1.Images(0)
            End If
        End If

    End Sub

    Private Sub PlayDatei()
        If IsPlaying Then
            mciSendString("stop Datei", Nothing, 0, 0)
            mciSendString("close Datei", Nothing, 0, 0)
            IsPlaying = False
        End If
        mciSendString("open " & ListBox1.SelectedItem.ToString & " alias Datei", Nothing, 0, 0)
        mciSendString("play Datei", Nothing, 0, 0)
        IsPlaying = True
        Button1.BackgroundImage = ImageList1.Images(1)
        currentTime = 0
        currentlength = ErmitteleLaenge()
        Timer.Start()
        ToolStripStatusLabel1.Text = ListBox1.SelectedItem

    End Sub


    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        PlayDatei()
    End Sub
End Class

Visual Basic Tutorial Teil 8 - Musikplayer

In diesem Teil meiner Tutorialreihe Zeige ich euch, wie ihr Musik abspielt, pausiert und anhaltet.



Bilder:
zu jeder Nutzung freigegeben
http://manusoft.comuf.com/Files/play-pause-stop.zip

Imports System.IO

Public Class Form1
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal IpszCommand As String, ByVal IpszReturnString As String, ByVal cchReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Dim IsPlaying As Boolean = False

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.BackgroundImage = ImageList1.Images(0)
        Button2.BackgroundImage = ImageList1.Images(2)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Not IsPlaying Then
            mciSendString("open C:\Users\Manuel\Music\Soundtracks\Jan_Morgenstern-Sintel-MP3\8-Circling_Dragons.mp3 alias Datei", Nothing, 0, 0)
            mciSendString("play Datei", Nothing, 0, 0)
            IsPlaying = True
            Button1.BackgroundImage = ImageList1.Images(1)
        Else
            mciSendString("pause Datei", Nothing, 0, 0)
            IsPlaying = False
            Button1.BackgroundImage = ImageList1.Images(0)
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If IsPlaying Then
            mciSendString("stop Datei", Nothing, 0, 0)
            IsPlaying = False
            Button1.BackgroundImage = ImageList1.Images(0)
        End If

    End Sub
End Class

Visual Basic Tutorialreihe - Teil 7 - Notepad für Reiche

In diesem Teil meiner Tutorialreihe zeige ich euch, wie man mit einem OpenFileDialog dateien öffnet, mit einem SaveFileDialog Dateien speichert und Dateien druckt.

Imports System.IO
Imports System.Drawing

Public Class Form1

Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click

OpenFileDialog1.ShowDialog()

End Sub

Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click

SaveFileDialog1.ShowDialog()

End Sub

Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
Form2.Show()
End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

If Not RichTextBox1.SelectionFont.Style = FontStyle.Bold Then
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
Else
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
End If

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

If Not RichTextBox1.SelectionFont.Style = FontStyle.Italic Then
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Italic)
Else
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
End If

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

If Not RichTextBox1.SelectionFont.Style = FontStyle.Underline Then
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Underline)
Else
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
End If

End Sub


Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged

Try
RichTextBox1.SelectionFont = New Font(New FontFamily(ToolStripComboBox1.Text), Convert.ToInt32(ToolStripComboBox2.Text), FontStyle.Regular)
Catch ex As Exception
End Try

RichTextBox1.Focus()

End Sub

Private Sub ToolStripComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox2.SelectedIndexChanged

Try
RichTextBox1.SelectionFont = New Font(New FontFamily(ToolStripComboBox1.Text), Convert.ToInt32(ToolStripComboBox2.Text), FontStyle.Regular)
Catch ex As Exception
End Try

RichTextBox1.Focus()

End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

RichTextBox1.Text = ""

Dim sr As New StreamReader(OpenFileDialog1.FileName)

While Not sr.EndOfStream
RichTextBox1.Text = RichTextBox1.Text & sr.ReadLine & vbCrLf
End While

sr.Close()

End Sub

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

Dim sw As New StreamWriter(SaveFileDialog1.FileName)

For Each line As String In RichTextBox1.Lines
sw.WriteLine(line)
Next

sw.Close()

End Sub

Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim Schrift As Drawing.Font = New Drawing.Font("Arial", 14, FontStyle.Regular)

e.Graphics.DrawString(RichTextBox1.Text, Schrift, Brushes.Black, 50, 50)

End Sub
End Class

Visual Basic Tutorialreihe Teil 6 - NotePad für Arme

In diesem Teil meiner Video-Tutorial Reihe zeige ich euch, wie ihr in einer RichTextBox selektierten Text Fett/Kursiv/Unterstrichen macht und die Schriftgröße und Schriftart ändert.



Bilder:
zu jeder Nutzung freigegeben
Hier zum Downloaden klicken

Code:

Imports System.IO

Public Class Form1

    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click

        RichTextBox1.Text = ""

        Dim sr As New StreamReader("Datei.txt")

        While Not sr.EndOfStream
            RichTextBox1.Text = RichTextBox1.Text & sr.ReadLine & vbCrLf
        End While

        sr.Close()

    End Sub

    Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click

        Dim sw As New StreamWriter("Datei.txt")

        For Each line As String In RichTextBox1.Lines
            sw.WriteLine(line)
        Next

        sw.Close()

    End Sub

    Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub FettToolStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FettToolStrip.Click
        If Not RichTextBox1.SelectionFont.Style = FontStyle.Bold Then
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
        Else
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
        End If
    End Sub

    Private Sub KursivToolStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KursivToolStrip.Click
        If Not RichTextBox1.SelectionFont.Style = FontStyle.Italic Then
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Italic)
        Else
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
        End If
    End Sub

    Private Sub UnterstrichenToolStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnterstrichenToolStrip.Click
        If Not RichTextBox1.SelectionFont.Style = FontStyle.Underline Then
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Underline)
        Else
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
        End If
    End Sub

    Private Sub SchriftArtCombo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchriftArtCombo.SelectedIndexChanged

        Try
            RichTextBox1.SelectionFont = New Font(New FontFamily(SchriftArtCombo.Text), Convert.ToInt32(SchriftGrößeCombo.Text), FontStyle.Regular)
        Catch
        End Try

        RichTextBox1.Focus()

    End Sub

    Private Sub SchriftGrößeCombo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchriftGrößeCombo.TextChanged

        Try
            RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.Name, Convert.ToInt32(SchriftGrößeCombo.Text), RichTextBox1.Font.Style, RichTextBox1.Font.Unit)
        Catch
        End Try

        RichTextBox1.Focus()

    End Sub

End Class

Visual Basic Tutorialreihe Teil 5 - Editor für Arme

In diesem Video zeige ich euch, wie ihr Dateien speichert und öffnet. Außerdem erstellen wir eine 2. Form.

Imports System.IO

Public Class Form1

Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click

RichTextBox1.Text = ""

Dim sr As New StreamReader("Datei.txt")

While Not sr.EndOfStream
RichTextBox1.Text = RichTextBox1.Text & sr.ReadLine & vbCrLf
End While

sr.Close()

End Sub

Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click

Dim sw As New StreamWriter("Datei.txt")

For Each line As String In RichTextBox1.Lines
sw.WriteLine(line)
Next

sw.Close()

End Sub

Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
Form2.Show()
End Sub
End Class

Visual Basic Tutorialreihe Teil 4 - Quiz

In diesem Teil meiner Tutorialreihe Programmieren wir ein Quiz und lernen dabei Funktionen kennen.

Quellcode:

Public Class Form1

Dim Status As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Status = 0 Then

'Frage stellen
FrageStellen(1)

TextBox1.Enabled = True
Button1.Text = "weiter"
ElseIf Status = 1 Then
AntwortTesten(1)
ElseIf Status = 2 Then
FrageStellen(2)
ElseIf Status = 3 Then
AntwortTesten(2)
ElseIf Status = 4 Then
TextBox1.Enabled = False
TextBox1.Text = ""
Label1.Text = "Fertig. Nochmal spielen?"
Button1.Text = "Ja"
Status = 0
End If
End Sub

Private Sub FrageStellen(ByVal FrageNr As Integer)

If FrageNr = 1 Then
Label1.Text = "Wie heißt die Deutsche Bundeskanzlerin?"
Status = Status + 1
ElseIf FrageNr = 2 Then
Label1.Text = "Was ist in 3 Tagen?"
Status = Status + 1
End If

TextBox1.Text = ""
TextBox1.Focus()

End Sub

Private Sub AntwortTesten(ByVal FrageNr As Integer)

If TextBox1.Text = "" Then
MsgBox("Bitte gieb deine Antwort ein.", MsgBoxStyle.OkOnly, "Frage")
ElseIf FrageNr = 1 Then
If TextBox1.Text = "Angela Merkel" Then
Label1.Text = "Richtig"
Status = Status + 1
Else
Label1.Text = "Falsch"
End If

ElseIf FrageNr = 2 Then

If TextBox1.Text = "Weihnachten" Then
Label1.Text = "Richtig"
Status = Status + 1
Else
Label1.Text = "Falsch"
End If

End If

End Sub

End Class

Visual Basic Tutorial Teil 3 - Rechner

In diesem Teil lernt ihr, wie man in Basic rechnet. Außerdem lernt ihr Variablen und Radio-Buttons kennen. Zuletzt erstellen wir dann noch ein Error-Handing.



Code:

Public Class Form1

Dim ergebnis As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

If RadioButton1.Checked = True Then

ergebnis = Convert.ToInt32(TextBox1.Text) + Convert.ToInt16(TextBox2.Text)

ElseIf RadioButton2.Checked = True Then

ergebnis = Convert.ToInt32(TextBox1.Text) - Convert.ToInt16(TextBox2.Text)

Else

MsgBox("Bitte wähle + oder - aus.")

End If

Label1.Text = ergebnis

Catch ex As Exception

MsgBox("Bitte Gieb nur Zahlen ein")

End Try

End Sub

End Class

Visual Basic Tutorial Teil 2 - Begrüßer

Im zweiten Teil lernt ihr Labels und Textboxen kennen. Außerdem erfahrt ihr, wie man in Basic Message-Boxen anzeigt.



Code:

Public Class Form1

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

Label1.Text = "Wie heißt du?"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox("Hallo, " & TextBox1.Text)

End Sub

End Class

Visual Basic Tutorial Teil 1 - Einleitung

In ersten Teil zeige ich euch die Entwicklungsumgebung und wie man sie verwendet. Außerdem schreiben wir unseren ersten Befehl.





Code:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.Text = "Hallo"

End Sub

End Class