Ein paar Mini VB Programme    zurück zu vb

Programmieren scheint sehr kompliziert zu sein. Um es auch Anfängern schmackhaft zu machen , habe ich auf dieser Seite ein paar Miniprogramme aufgelistet.

Ganz am Anfang brauchen Sie        E Ein bißchen Theorie tut gut

Hinweise zum Download der Programme aus dem Internet   VB6

Textdarstellung

• Hallo Welt 1

• Hallo Welt 2

• Hallo Welt 3

• Anfang  und Ende

• Print :,;  

• verbessertes Print

• Schattentext

• Meldung

• Meldung ohne Infobox

Texteingabe

• Wie heißen Sie ?

• Guten Tag

Textbearbeitung

• Groß- und Kleinschreibung

• Dreht Wörter um

• InStr

• Leerstellen und Chr13 suchen

• New Line

• Ein Witz mit Width#

Programmstart

• Automatisch

• bei Click auf die Form

• bei Click auf einen Befehlsbutton

• bei Click sonst wohin

Programmende

• mit dem End befehl

• Mit dem Kreuz re obere Windowsecke

• mit ALT F4

• Ende und vorher Datenbank schließen

Programm abwürgen

• Programm abwürgen mit Alt und Leertaste

• Programm abwürgen mit Strg und Pause

• Programm abwürgen mit Strg , Alt und Entf   = Aufruf des Windows Taskmanagers

• Programm abwürgen mit der RESET taste = Kaltstart = alle nicht gespeicherten Dateien gehen verloren !!

Farben

• Farben QB Basic

• Farben RGB

• Farbverlauf

• Confetti

• Schwarze Kunst

Schleifen

• ABC Schleife

• Modische Schleife

• Last exit - Schleifen beenden

• Endlos Schleife

ANSI Zeichen

In Form bleiben

• Form75

• Ohne Rahmen

Rechenkünste

• Umrechnung Celsius - Fahrenheit

• Teilen mit Rest ( Mod Befehl )

• Teilen ohne Rest  ( Mod Befehl)

• Quersumme

• Zahlentreppe

• Runden auf 2 Stellen

• Logarithmus Zahlentreppe

• Logarithmus Rechner

• Umrechnung dezimal ==> binär

• Umrechnung binär ==> dezimal

• Umrechnung Binär,dezimal , hexadezimal

• Umrechnung Arabische in Römische Zahlen

• Sinus,Cosinus,Tangens

• Kreisender Sinus

• E Fehler in den abgleiteten Mathefunktionen

• Fehler in den abgleiteten Mathefunktionen

• Fakultät !

• Eulersche Zahl e berechnen

• Kreiszahl Pi berechnen

• Signum sign sgn(x)  Vorzeichen beachten

• Sieb des Eratosthenes = Primzahlberechnung 1

• Sieb des Eratosthenes = Primfaktorzerlegung

• Gaussche Glockenkurve = Normalverteilung

• Zahlen zählen

• Fibonacci zahlen = Hasenvermehrung

Fehler beim Rechnen

Logik:

• And

• Binärer Zahlenvergleich mit AND

Scrollen

Datum und Zeit

• Heute

• Ausgabe des Systemdatums

• Änderung des Systemdatums

• Schaltjahr oder nicht ?

• Wochentag berechnen

• Tage Intervall

• Zeit- und Datumsformate

• Zeit 1

• Zeit 2 : Wie lange dauert es noch bis zur Geisterstunde

• Zeit 3  Zeitgeber

• Zeit Intervall

• Reaktionszeit messen

Umgang mit Dateien

• Datei laden  : Dladen.frm

• Datei speichern

• Binär Datei speichern

• Primzahlen in Datei speichern

• Datei teilen

• Dateigröße ermitteln

• Datei löschen

Rein Zufällig

• Münze

• Münze ganz oft

• Zufallsgenerator genauer

• Würfeln bis 6

• Würfeln bis 12

• Lotto

• Zufallsbuchstaben

• 01 Statistik

• Gausssche Normalverteilung 1

• Gausssche Normalverteilung 2

• Gausssche Normalverteilung 3

Maus

• mit der Maus malen

• rechte Maustaste

Bewegung

• Bewegung0

• Bewegung2

Grafik

• Setzt einen Punkt

• Setzt mehrere Punkte

• Zeigt die Koordinaten eines Punktes

• Scale - eigene Koordinaten sind leichter zu verstehen

• Confetti

• Linienbreite

• Hausbau

• Bildschirmauflösung ermitteln

• Kreis

• Kreise in Farbe

• Funktionsdarstellung

• Spirale

• Farngrafik

• Seestern

• Foucaultsches Pendel

01 Dateien

• Ordnung muß sein

• 01 Statistik

• Binäres Zählen

• Münze mehrfach

Zwischenablage = Clipboard

• Text in die Zwischenablage speichern und wieder zurückholen

• Ein Bild in der Zwischenablage ablegen und wieder zurückholen

Töne

• Beep

• Ein paar mehr Töne

Datenbank

• Minidatenbank 1

• Datensatz in der Anzeige speichern

Drucken

• Ausdrucken 1

• Ausdrucken 2

• Ausdruck Testen

• Fehler beim Ausdrucken

• Printer.print mit Zeilenumbruch

• Ausdrucken 3

Callcenter: Programme mit dem Prozeduraufruf SUB für ein Unterprogramm

Wie so eine Function funktioniert

• Wie eine Function nicht funktioniert

• zb Vokale aus einem Text holen

Programme mit Functionsaufrufen

• Wurzel

• Dateigröße ermitteln

• Seriennummer der Festplatte abfragen

VB6:

Monatsschleife

Miniemail

So können Sie Ihr Standard eMail-Programm aufrufen, und dies schon mit Vorgabewerten bestücken, wie den Empfänger, Betreff und sogar einen zu sendenden Vorgabetext.

Mit der Angabe "%0D%0A" erreicht man einen Zeilenumbruch.

ERFORDERLICHE OBJEKTE

1 Commandbutton (Command1)

FORM-CODE

Private Declare Function ShellExecute Lib "Shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Private Sub Mail(eMail As String, Optional Subject As String, _

Optional Body As String)

Call ShellExecute(0&, "Open", "mailto:" + eMail + _

"?Subject=" + Subject + "&Body=" + Body, "", "", 1)

End Sub

Private Sub Command1_Click()

Dim Nachricht As String

Nachricht = "Hallo" & "%0D%0A" & "Du da !"

Call Mail("Marcus-Schmitt@gmx.de", "Ein Betreff", Nachricht)

End Sub

Das Resultat, hier: Outlook 2000

Download - 2 KB

Auf VBSquare habe ich ein sehr gutes (funktionierendes) Beispiel gefunden. Mittels dem Winsock Steuerelement ist es möglich Mails zu senden, die einen Dateianhang haben. Vorteil dabei: Es muss kein Mailclient installiert sein.

http://www.schmittis-page.de/index992015866.html?/vb/t7.htm

Minibrowser   http://vb-tec.de/httppost.htm   http://vb-tec.de/openurl.htm

http://www.schwider.de/htmlform.htm  http://www.lab1.de/prod/winsock/index.htm

zweiten Programmstart verhindern

Wave Datei abspielen

VB 6 Tips : http://home.t-online.de/home/nreiners/visual-basic-tips.htm

Alle Miniprogramme sind in Visual basic 3.0 Programmiert , d.h.  VBRUN300.dll  oder höher ist notwendig.

Alle sind Freeware 

Wer diese Programme auf VB 6.0 umsetzen will , kann das gerne tun.

Hinweise zum Download dieser Programme

So geht es

• Markieren sie den roten Code auf diesen Seiten mit der Maus.

• Kopieren Sie ihn in den Zwischenspeicher mit Strg C.

• Starten Sie ihr Visual Basic Programm.

• Starten Sie ein neues Projekt

• Holen Sie sich ein paar Textfelder und Befehlsfelder aus der Werkzeugleiste .

• Benennen Sie die Felder so , wie es in der Abbildung gezeigt wird.

• Klicken Sie das wichtigste Befehlsfeld im Entwurfsmodus an.

• Kopieren Sie den Code mit Strg V in das Unterprogramm des Befehlsfeldes.

• Starten Sie das Programm mit F 5.

email    zurück zu vb