Visual Basic Programming Basics Cheat Sheet

Dim <var_name> as <data-type>

' benutze den Apostroph

[**Public/Private**] **Sub** <name>
    <statements>
**End Sub**

[Public/Private] Function <name> (<arg>) As <result>
     <statements>
     return <result>
End Function

**Public Class** <name>
    **Public** <eigenschaftsname>

    **Public Property** <Name>() **As** <datatype>
        **Get**
            <statements>
        **End Get**
        **Set**(ByVal value As <datatype>)
            <statements>
        **End Set**
    **End Property**
**End Class**

**Private Sub** btn_Start_Click(ByVal...)
    *‘Deklaration der Variablen*
    **Dim** var1 **As** Single
    **Dim** var2 **As** Single
    *‘Eingabe der Variable*
    var1=tb_var1.Text
    *‘Verarbeitung*
    var2 = var1*2
    *‘Ausgabe der Variable 2*
    lbl_ziel.Text = var2
**End Sub**

Dim werte(0 to n) as <Datentyp>

Dim werte() as <Datentyp> = {w1,w2,w3,w4}

For index = 0 to array.length-1
    Array(index) = ...
Next

' Eingabe über ein Objekt mit Texteigenschaften
<variable> = <Objektname>.Text

' Ausgabe über ein Objekt mit Texteigenschaft
<Objektname>.Text = <variable>

If <bedingung> Then
    <statements>
[ElseIf <bedingung> Then]    'optionale Bedingung
    <statements>
Else
    <statements>
End If

Select Case <expression>
    Case 0  'einfacher Wert
        <statements>
    Case 1 To 5     'mehrere Werte
        <statements>
    Case Is <5      'Bereich von Werten
        <statements>
    Case Else
        <statements>
End Select

For <zaehler> = <start> To <end> Step <inc>
    <statements>
Next

Do While <bedingung>
    <statements>
Loop
'  oder
Do until <bedingung>
    <statements>
Loop 

Do 
    <statements>
Loop while <bedingung>
'  oder
Do 
    <statements>
Loop until <bedingung>

<Objektname>.Image = My.Resources.<bildname>

My.Computer.Audio.Play(<dateipfad>,<option>)

<dateipfad> = My.Resources.<dateiname>
<option> = AudioPlayMode.Background
           AudioPlayMode.BackgroundLoop
           AudioPlayMode.WaitToComplete