Vollständige Version anzeigen : [Tutorial] Visual Basic Tricks etc.


alsdwo3
11.06.2010, 16:57

Systemdatum und Systemzeit auslesen



Private Sub Button1_Click(ByVal sender As System;Object, ByVal e As System;EventArgs) Handles Button1;Click
Dim DatumUndZeit As Date ' deklariert eine DateTime Variable
DatumUndZeit = DateAndTime;Now ' nimmt die Aktuelle Uhrzeit und das Datum auf (System)
TextBox1;Text = "" ' löscht den Inhalt der TextBox1
TextBox1;Text = DatumUndZeit ' schreibt das Datum und die Zeit in die TextBox1
Dim Datum As String ' deklariert eine String Variable
Datum = Format(Now, "dddd dd;MM;yyyy") ' formatiert das Datum als langes Datum
TextBox2;Text = "" ' löscht den Inhalt der TextBox2
TextBox2;Text = Datum ' schreibt das lange Datum ind die TextBox2
Dim Zeit As String ' deklariert eine String Variable
Zeit = Format(Now, "HH:mm:ss") ' formatiert die Zeit in 24h
TextBox3;Text = "" ' löscht den Inhalt der TextBox3
TextBox3;Text = Zeit ' schreibt die 24h Uhrzeit in die TextBox3
End Sub


Erklärung Uhrzeit
HH = 24h
hh = 12h
mm = minuten
ss = sekunden

Erklärung Datum
dddd = Wochentag
dd = Tag
MM = Monat
yyyy = Jahr

Zufallszahl erstellen
Private Sub Button1_Click(ByVal sender As System;Object, ByVal e As System;EventArgs) Handles Button1;Click
Dim Von As Integer = 1 ' kleinste Wert der Zufalls Zahl
Dim Bis As Integer = 99 ' größte Wert der Zufalls Tahl
Dim Zufalls_Zahl As Integer = 0 ' nimmt die Zufalls Zahl als Integer auf
Randomize() ' startet den Zufall
TextBox1;Text = "" ' löscht den Inhalt der TextBox1
Zufalls_Zahl = CInt(Int((Bis * Rnd()) + Von)) ' erstellt eine Zufalls Zahl zwischen 1 und 99
TextBox1;Text = CStr(Zufalls_Zahl) ' schreibt die ermittelte Zufalls Zahl in die TextBox1
End Sub



Zahl aufrunden

Private Sub Button1_Click(ByVal sender As System;Object, ByVal e As System;EventArgs) Handles Button1;Click
Dim TextZahl As String = "3,141592653" ' Zahl PI als String
Dim Zahl As Double = CDbl(TextZahl) ' Zahl PI in Double wandeln
Dim GerundetZahl As Double = Math;Round(Zahl, 2) ' Zahl auf 2 Stellen hinter dem Komma runden
TextBox1;Text = "" ' löscht den Inhalt der TextBox1
TextBox1;Text = GerundetZahl ' schreibt die gerundete Zahl in die TextBox1
End Sub


Service Pack ermitteln

Private Sub Button1_Click(ByVal sender As System;Object, ByVal e As System;EventArgs) Handles Button1;Click
Dim ServicePack As String = Environment;OSVersion;ServicePack
If ServicePack = "" Or ServicePack = Nothing Then
ServicePack = "kein Service Pack installiert !"
End If
TextBox1;Text = ServicePack
End Sub



Buchstaben herumdrehen

Dim normal As String
Dim change As String
Private Sub Button1_Click(ByVal sender As System;Object, ByVal e As System;EventArgs) Handles Button1;Click
TextBox2;Text = ""
Dim z As Char 'Variable zum speichern des umgedrehten Zeichens
For Each c As Char In TextBox1;Text
Try
z = change;Substring(normal;IndexOf(c), 1)

Catch
z = c
End Try
TextBox2;Text = z + TextBox2;Text ' wenn du es wie auf flip text willst
'TextBox2;Text = TextBox2;Text + z ' wenn die reihenfolge bleiben soll und nur die buchstaben gedreht werden sollen
Next
End Sub

Private Sub Form1_Load(ByVal sender As System;Object, ByVal e As System;EventArgs) Handles MyBase;Load
normal = "abcdefghijklmnopqrstuvwxyz "
change = "?q?p??b????1?uodb?s?n??x?z "
End Sub

Mehr Zeichen kannst du in diesen Beiden Zeilen hinzufügen:
normal = "abcdefghijklmnopqrstuvwxyz "
change = "ɐqɔpǝɟbɥıظʞ1ɯuodbɹsʇnʌʍxʎz "
Das Leerzeichen nicht entfernen, sonst geht es nicht. ;)

Hardware Preisvergleich | Amazon Blitzangebote!

Videos zum Thema
Video Loading...
Ähnliche Themen zu [Tutorial] Visual Basic Tricks etc.
  • [.NET] C, C++, C#, Basic, Visual Basic, Java, Shell, Linux-Unix und Pascal Tutorials
    Hier findet ihr einige Links zu Tutorials verschiedenster Programmiersprachen. Solltet ihr noch einen oder mehrere Links wissen die hier fehlen, so teilt ihn einem Programmierungs Moderator mit, er wird ihn dan hinzufügen. C, Pascal und Basic (;;;tutorials~at) (deutsch) Pascal, Delphi, Vb, C#, C, [...]

  • [Visual Basic] Cd Laufwerk öffnen/schließen in Visual Basic
    Hier ist die Code für Cd Laufwerk öffnen und schließen Option Explicit Private Declare Function mciExecute Lib "winmm;dll" (Byval lpstrcommand as String) as Long Private sub cmdoffne_CLick() mciexecute"Set CDaudio door open" Private sub cmdschließen_click() mciExecute"Set CDaudio door close [...]

  • [VisualBasic] Visual Basic Tutorial oder Buch für einsteiger empfehlen?
    Hi Leute, kann mir einer von euch ein Buch empfehlen womit man für einsteiger Visual Basic erlernen kann, wo eine Programm CD auch dabei ist. Bin gerade dabei für eine Firma mich ausbilden zu lassen bzw werde es noch, will vorher schon etwas draufhaben bevor ich da in säminare geschickt werde [...]

  • [C/C++] Suche C/C++ und Visual Basic Tutorial's
    Hallo RR Community, Ich suche schon seit langen welche seiten oder Tutorials wo es C/C++ und Visual Basic Tutorials gibt, ich hoffe ihr könnt mir paar Seiten und Tutorials empfehlen das wäre echt klasse von euch. Danke schonmal mfg venox [...]



raid-rush.ws | Imprint & Contact pr