Hallo ich bin dabei gerade Visual Basic ein tool zu schreiben. Und zwar soll er 4 verschiedene zahlen die ich an gebe jeweils durch 32 seperat teilen. Und mir das ergebnis mitteilen das ich mit einem Button copieren kann. Kann mir da jemand weiter helfen oder mir eine source schreiben und uploaden damit ich mir den aufbau anschauen kann? Danke
Meinst Du 4 Textfelder die beim „Verlassen“ oder „Enter“ durch 32 geteilt werden und die Ergebnisse z.B. in Label-Feldern angezeigt werden oder möchtest Du alternativ über einen Button das Teilen und die Ergebnisanzeige initiieren?
Wohin sollen die 4 Ergebnisse dann kopiert werden?
Willst Du die Ergebnisse mit Nachkommastellen haben?
Hey NovaLite,
wie man ja weiß, macht selber programmieren am meisten Spaß 
deshalb hier ein paar Anregungen (davon ausgehend, dass du in VB.Net programmierst):
- Um den Inhalt der Textfelder numerisch verwerten zu können, schau dir mal den „Val“-Befehl an
- Die Division führst du ganz einfach über " / 32" durch
- Um die Ausgabe zu formatieren (bzgl Nachkommastellen) schau dir mal den „FormatNumber“-Befehl an
- Den Text kopierst du dann via „Clipboard.SetText“ in die Zwischenablage
Viele Grüße und viel Spaß/Erfolg beim Basteln
Sascha
Hallo,
also der Code für die Nutzung der Zwischenablage ist folgender:
Const CF_TEXT = 1
Private Declare Function CloseClipboard Lib „user32“ () As Long
Private Declare Function OpenClipboard Lib „user32“ (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib „user32“ () As Long
Private Declare Function SetClipboardData Lib „user32“ (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib „user32“ (ByVal wFormat As Long) As Long
Private Sub CopyToClipboard(ByVal sText As String)
Dim hDC As Long
'Zwischenablage oeffnen
OpenClipboard Me.hwnd
'Zwischenablage leeren
EmptyClipboard
'sText in Zwischenablage setzen
SetClipboardData CF_TEXT, sText
'Pruefen ob der Zwischenablage-Inhalt ein Text ist
If IsClipboardFormatAvailable(CF_TEXT) = 0 Then
MsgBox „Fehler“
End If
'Zwischenablage schliessen
CloseClipboard
'Zwischenablage-Inhalt entnehmen
txtText.Text = Clipboard.GetData(CF_Text)
End Sub
Schöne Grüße
Danny
Hallo,
also der Code für die Nutzung der Zwischenablage ist folgender:
Const CF_TEXT = 1
Private Declare Function CloseClipboard Lib „user32“ () As Long
Private Declare Function OpenClipboard Lib „user32“ (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib „user32“ () As Long
Private Declare Function SetClipboardData Lib „user32“ (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib „user32“ (ByVal wFormat As Long) As Long
Private Sub CopyToClipboard(ByVal sText As String)
Dim hDC As Long
'Zwischenablage oeffnen
OpenClipboard Me.hwnd
'Zwischenablage leeren
EmptyClipboard
'sText in Zwischenablage setzen
SetClipboardData CF_TEXT, sText
'Pruefen ob der Zwischenablage-Inhalt ein Text ist
If IsClipboardFormatAvailable(CF_TEXT) = 0 Then
MsgBox „Fehler“
End If
'Zwischenablage schliessen
CloseClipboard
'Zwischenablage-Inhalt entnehmen
txtText.Text = Clipboard.GetData(CF_Text)
End Sub
Schöne Grüße
Danny.
Ich kann Dir leider nicht weiterhelfen!
Hallo,
in welcher VB Version soll das umgesetzt werden? Sollen nur ganze Zahlen eingebbar sein? Soll das Ergebnis gerundet werden oder als Kommazahl ausgegeben werden?