[xcartmanx]

also hab ne große bzw für manche hoffentlich kleine bitte

ich muss für bs ein programm hier zu hause schreiben was wir heute im unterricht gemacht hatten.
den ansatz und grundaufbau hab ich, aber es funktioniert nicht richtig

das programm soll dezimalzahlen die man in txtEingabe eingibt in eine dualzahl umwandeln und in txtAusgabe anzeigen.

nach 4 stellen bei den dualzahlen soll immer ein leerschritt zur besseren übersicht stehen.

hoffe ihr könnt mir helfen. sollte nicht so viel verändert werden, nur funktioneren sollte es mal.

hier mein anfang.


erklärung:
GZ ist als ganze zahl gedacht
rest ist nach dem teilen der rest also 0 oder 1

Option Explicit
Dim Eingabe As Integer
Dim GZ As Integer
Dim Rest As Integer
Dim Ausgabestring As String


Private Sub cmdENDE_Click()
End
End Sub

Private Sub txtEingabe_Change()
Eingabe = Val(txtEingabe.Text)
Ausgabestring = " "
Do
GZ = Eingabe \ 2
Rest = Eingabe Mod 2
Eingabe = GZ
Ausgabestring = Str(Rest) & Ausgabestring
If Len(Ausgabestring) Mod 5 Then
Format$ (Ausgabestring)
End If
Loop While GZ = 0
txtAusgabe.Text = Val(Ausgabestring)
End Sub

Dieser Beitrag wurde von xcartmanx bearbeitet: 05. Juli 2006 - 14:36