vb@rchiv · Diskussionsforen · Quersumme ziehen

VB Classic
VB.NET
ADO.NET
VBA
C#

Mails senden, abrufen und decodieren - ganz easy ;-)

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[460 User online]
[434 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Visual-Basic Einsteiger

Quersumme ziehen

Autor: Splash
Datum: 02.04.02 17:41

Hallo Zusammen Ich habe folgendes Problem Ich möchte das man in der Textbox1 eine Zahl eingeben kann und dann in TextBox2 das Resultat, nach klicken des Buttons erscheint. Folgenden Code habe ich bereits: ---------------------- Private Sub Berechnen_Click() Text2 = Text1 Dim aQuersumme As Long Do While Text2 <> 0 aQuersumme = aQuersumme + (Text2 Mod 10) Text2 = Text2 10 Loop Text2 = aQuersumme End Sub ---------------------------------- Nun ist das Problem das mit diesem Code nur einmal die Quersumme gezogen wird. Also z.B von 96 gibt VB mir die Quersumme 15 an, was ja auch richtig ist. Ich möchte jetzt jedoch das VB noch weiterkürzt wenn möglich bis sich die Quersumme nur noch zwischen 1 - 9 bewegt. Schlussentdlich sollte, wenn ich 96 in die Textbox1 eingebe das Resultat 6 in der Textbox2 erscheinen. Vielen Dank für euere Hilfe Splash

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Quersumme ziehen	42	Splash	02.04.02 17:41
Re: Quersumme ziehen	242	Dieter	02.04.02 18:25
Re: Quersumme ziehen	31	Splash	02.04.02 18:57

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

Access-Tools Vol.1

Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB

Nur 24,95 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel