popeye1977

Hey, es gibt mit Sicherheit mehrere wege. Allerdings hatte ich die Aufgabe das so zu lösen. Da ich ein totaler newbie bin kann ich dir das auch nicht sagen. Gruß Andreas

Hey, ich habs kappiert! anstatt "Dim k As New konto", besser "k = new konto" So klappt es auch, vielen dank noch mal für deine Hilfe. Werde die bestimmt noch mal brauchen Gruß Andreas

Hey, leider komme ich nicht auf einen grünen zweig. Kannst du mir das etwas näher erklären. Entweder ich seh den Wald vor lauter bäumen nicht, oder ich bin echt zu blöd um das zu kappieren. Hab mir das ja auch selber angetan und nun muss ich zusehen wie ich klar komme und auf hilfe hoffen Gruß Andreas

Oh Sorry. Werde das nachher mal testen und berichten. Danke für die Hilfe. Gruß Andreas

Hey, Danke für die Antwort. Allerdings ist das eine Vorgabe der Aufgabe das es in der Funktion Buchung erfolgen sollte. Eigentlich ist alles vorgegeben. Hat noch jemand eine andere Idee? Dankeschön Andreas

Hallo Liebe Gemeinde, ich hab mal wieder ein Problem. Ich sitze an einer Aufgabe in der ich Kontobuchungen simulieren soll. Soweit funktioniert auch alles, nur das RaiseEvent wird nicht ausgeführt, bitte hilft mir und gebt mir ein Tip warum das so ist. Der Code: Imports System.Console Imports System.Windows.Forms Class Konto Private m_Kontonr As String Private m_Dispo As Decimal Private m_Kontostand As Decimal Public Event DispoGrenze(ByVal sender As Object, ByRef Abbrechen As Boolean) Sub New(ByVal Kontonr As String, _ ByVal Dispo As Decimal) m_Kontonr = Kontonr m_Dispo = Dispo End Sub ReadOnly Property Kontonr As String Get Kontonr = m_Kontonr End Get End Property ReadOnly Property Kontostand As Decimal Get Return m_Kontostand End Get End Property ReadOnly Property Verfügbar As Decimal Get Verfügbar = m_Kontostand End Get End Property Sub Anzeigen() WriteLine("Kontonr:{0,8}, Kontostand:{1,8}, Disporahmen:{2,8}", m_Kontonr, m_Kontostand, m_Dispo) End Sub Public Function Buchung(ByVal Betrag As Decimal) As Decimal Dim ks As Decimal Buchung = ks ks = Kontostand + Betrag m_Kontostand = ks If ks < m_Dispo Then Dim Abbrechen As Boolean = True RaiseEvent DispoGrenze(Me, Abbrechen) 'hier komme ich nicht weiter WriteLine("Zu wenig geld") End If End Function End Class Public Class Test Shared WithEvents k As Konto Shared Sub Main() Dim k As New Konto("123", "-3000") k.Anzeigen() ReadLine() k.Buchung(2000) k.Anzeigen() ReadLine() k.Buchung(-4000) k.Anzeigen() ReadLine() k.Buchung(-2000) k.Anzeigen() ReadLine() End Sub Shared Sub k_DispoGrenze(ByVal sender As Object, ByRef Abbrechen As Boolean) Handles k.DispoGrenze Dim s As String = "Der gewünschte Betrag kann nicht abgehoben werden," _ & "da der Dispositionsrahmen überschritten wurde." & vbCrLf & vbCrLf _ & "Sie können noch" & CType(sender, Konto).Verfügbar & "Euro" & vbCrLf _ & "abheben. " & vbCrLf _ & "Betrag abheben (JA), Abbrechen (NEIN)." Dim Antwort As DialogResult Antwort = MessageBox.Show(s, "Buchung", MessageBoxButtons.OKCancel, MessageBoxIcon.Error, MessageBoxDefaultButton.Button2) If Antwort = DialogResult.OK Then Abbrechen = False End If End Sub End Class Danke schon mal und Grüße Andrea

Guten Abend, vielen lieben Dank für eure hilfsbereitschaft. Ich habe es jetzt mit dem Code gelöst. Dim start, anzahl As Integer Dim s1, s2 As String s1 = txtString.Text s2 = txtSuchwort.Text anzahl = s1.Length start = s1.IndexOf(s2, start, anzahl) If start >= 0 Then txtString.Select(start, s2.Length) txtString.HideSelection = False txtSuchwort.Select(0, s2.Length) txtSuchwort.HideSelection = False End If es geht mit sicherheit besser und eleganter, aber in der Aufgabenstellung gab es nicht die Anweisung das Ausnahmen dabei behandelt werden sollen. Vielen Dank und Gruß Andreas

Hey, ich nutze VB.NET und habe mit indexOf und Substring rumgespielt. jedoch bekomme ich nur Zahlen als ergebnis und kann diese irgendwie nicht weiter berarbeiten. Und das mit der Markierung bekomme ich auch nicht hin. Habe das mit HideSelection = False probiert, aber es hat nicht geklappt. Danke schon mal für deine Mühe. Gruß Andras

Hallo liebe gemeinde, mache ein Weiterbildung FA Anwendungsentwicklung. Das ganze über ein Fernstudium. Jetzt bin ich an einer scheinbar unglaublich schweren Aufgabe dran;) Vielleicht liegt es auch nur daran das mein Kopf zu ist und ich nicht drauf komme. Mein Problem: Textbox mit zB. "Hallo alle zusammen" Textbox in dem man ein suchwort eingibt zB. "alle" Bei klick soll dann in beiden Textboxen das ergebnis markiert sein, in dem Fall "alle" Bitte hilft mir ich drehe noch durch und verliere schon den glauben das ich an so einer kleinen ... scheitere. Gruß Andreas