Καλησπέρα σε όλους!

Έχω ένα θεματάκι Async κώδικα σε richTextBox...

επειδή το rtb αυτό έχει ένα τεράαααστιο κατεβατό σαν κείμενο, και το να του αλλάξω τα χρώματα παίρνει ώρα καμιά φορά (ανάλογα με το όσα permuatations έχει κάνει), είπα για να μην κολλάει το UI να το κάνω σε async αυτό. Δοκίμασα διάφορους τρόπους, αλλά κανείς δεν πέτυχε...... Δοκίμασα όλα τα βήματα σε ένα sub, δοκίμασα χώρια, δοκίμασα διάφορα..

Το τελευταίο attempt μου είναι το εξής:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 

    Private Delegate Sub SetrtbWorkgroupClrCallback(ByVal AppliedClr As Color, ByVal Selctn As Integer)
    Private Sub SetrtbWorkgroupClr(ByVal AppliedClr As Color, ByVal Selctn As Integer)

        If rtbWorkgroup.InvokeRequired Then
            Dim d As New SetrtbWorkgroupClrCallback(AddressOf SetrtbWorkgroupClr)
            Invoke(d, New Object() {AppliedClr})
            Invoke(d, New Object() {Selctn})

        Else
            rtbWorkgroup.SelectionStart = Selctn
            rtbWorkgroup.SelectionColor = AppliedClr
        End If

    End Sub

    Private Delegate Sub SetrtbWorkgroupFontCallback(ByVal AppliedFont As Font, ByVal Selctn As Integer)
    Private Sub SetrtbWorkgroupFont(ByVal AppliedFont As Font, ByVal Selctn As Integer)

        If rtbWorkgroup.InvokeRequired Then
            Dim d As New SetrtbWorkgroupFontCallback(AddressOf SetrtbWorkgroupFont)
            Invoke(d, New Object() {AppliedFont})
            Invoke(d, New Object() {Selctn})

        Else
            rtbWorkgroup.SelectionStart = Selctn
            rtbWorkgroup.SelectionFont = AppliedFont
        End If

    End Sub

αυτό είναι πάνω πάνω.

και κάπου μέσα στο rtbWorkgroup.TextChanged έχω το εξής:

1
2
3
4
5
6
7
8
9
10
11
12
13
 

                Await TaskEx.Run(
                Sub()

                    For j = 1 To CombinationsCount
                        SelSrtPermuSamples = rtbWorkgroup.Find(txtLanguage.Lines(66), LstSelPermuSamples, RichTextBoxFinds.None) 'Permuatation Samples:
                        If SelSrtPermuSamples <> -1 Then
                            LstSelPermuSamples = SelSrtPermuSamples + 1
                            SetrtbWorkgroupFont(New Font(rtbWorkgroup.Font, FontStyle.Bold), SelSrtPermuSamples)
                            SetrtbWorkgroupClr(WorkSpaceMainVariablesColours, SelSrtPermuSamples)

                        End If
                    Next
                End Sub)

Δε γράφω όλο τον κώδικα του κουμπιού γιατί είναι τεράστιο και είναι beside the point.

Εδώ μου βγάζει το πρόβλημα "Exception has been thrown by the target of an invocation."

Όταν καλούνται τα  SetrtbWorkgroupFont, SetrtbWorkgroupClr

Δεν καταλαβαίνω γιατί όμως! Έχω κάνει τα invocations...

δεν ξέρω πως μπορώ να το κάνω σε ένα. μόνο το ένα κάτω απο το άλλο ξέρω, αλλά και πάλι δεν τοχω ξαναδοκιμάσει για να είμαι σίγουρος ότι δουλεύει.

Πάντως το "rtbWorkgroup.Find()" και το φόντ έχουν μέσα το  rtbWorkgroup, άρα αφού στο invoke γράφω  rtbWorkgroup τότε δεν ισχύει για τα πάντα? 

Παναγιώτης Καναβός:

To Invoke θα εκτελέσει τον κώδικα που θα του δώσεις στο UI thread. Το Async όμως εκτελεί τον κώδικα σε άλλο, background thread. Οποιαδήποτε κλήση κάνεις προς το textbox μέσα από το async χρειάζεται Invoke. Προφανώς αν γίνει αυτό, αχρηστεύεται το async.

Εννοείς ότι με αυτό τον τρόπο δεν θα γίνεται παράλληλα με το UI Thread, σωστά? Ναι, αυτό θέλω, να γίνονται διαδοχικά (έτσι κι αλλιώς έχω βάλει "Await TaskEx.Run")

Οι πράξεις γίνονται σε μεταβλητές Double()().

800 γραμμές είναι του dataset. Το κείμενο αυτό δείχνει όλα τα permutations που έγιναν, τα οποία είναι 800 (γραμμές) * (Β φορές το οποίο διαλέγει ο χρήστης) * Το διωνυμικό συντελεστή των στηλών ανά 2, άρα πες *16 = 12787200 σειρές ΜΟΝΟ τα permutations.

(και αυτό ΔΕΝ είναι ούτε καν κοντά στο worst case scenario)

Αν σκεφτείς και τα υπόλοιπα δεδομένα που περιέχει (Maximum Vertical Deviation, ks p-value, texts..) τότε χαθήκαμε.

Αλλά ξεφύγαμε απο το point όμως. 

Crap, δεν ξέρω το List(of T)

anyway, θα το κοιτάξω τώρα.

Αν θες απάντησέ μου στις ερωτήσεις που έκανα πάνω στο προηγούμενο πόστ σου, και ειδικά αυτή για το "Regex.Matches"

Aν μπορείς να μου γράψεις και ένα μικρό παραδειγματάκι χρησιμοποιώντας αυτό για να το καταλάβω καλύτερα θα ήταν τέλεια.

Ευχαριστώ για τη βοήθεια

           MatchCollection matches = Regex.Matches("asdaABCdsadaABCertyuuiaABChjghjABChgjhgjhjABCsdfsdfs", "ABC");
            foreach(Match item in matches)
            {
                rtb.SelectionStart = item.Index; 
                rtb.SelectionLength = item.Length; 

                rtb.SelectionFont = boldFont;

            }

        Font boldFont;
        public Form1()
        {
            InitializeComponent();
            boldFont = new Font(rtb.Font, FontStyle.Bold);
        }

Ευχαριστώ πολύ,

όταν βρω το χρόνο να συνεχίσω το πρόγραμμα θα το δοκιμάσω αμέσως και θα απαντήσω σε αυτό το thread.

thanks :)

nikos123:

To MatchCollection αποτελείται από Match αντικείμενα. Αν η λέξη που ψάχνεις βρίσκεται σε 5 φορές μέσα στο κείμενο, το MatchCollection θα περιέχει 5 Match.

Το Match έχει ένα property Index με την θέση της λέξης.

Π.χ. 5 φορές το "ABC"

           MatchCollection matches = Regex.Matches("asdaABCdsadaABCertyuuiaABChjghjABChgjhgjhjABCsdfsdfs", "ABC");
            foreach(Match item in matches)
            {
                rtb.SelectionStart = item.Index; 
                rtb.SelectionLength = item.Length; 

                rtb.SelectionFont = boldFont;

            }

Τα Font πρέπει να γίνονται Dispose() για να διαγραφούν.

Φτιάξε ένα Font member και να χρησιμοποιείς πάντα αυτό χωρίς να δημιουργείς νέα. 

        Font boldFont;
        public Form1()
        {
            InitializeComponent();
            boldFont = new Font(rtb.Font, FontStyle.Bold);
        }

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 

    Public Sub ColouriseRTB(ByVal rtb As RichTextBox, ByVal ColourizeableText As String, ByVal rtbFontStyle As FontStyle, ByVal rtbColour As Color, ByVal rtbBackColour As Color, Optional ByVal iLengthDeviation As Integer = 0)
        Dim rtbMatches As MatchCollection
        Dim rtbText As String = rtb.Text
        Dim WorkSpacefont As Font = New Font(rtb.Font, rtbFontStyle)

        rtbMatches = Regex.Matches(rtbText, ColourizeableText, RegexOptions.None)
        If rtbMatches.Count > 0 Then
            For Each item As Match In rtbMatches
                rtb.SelectionStart = item.Index
                rtb.SelectionLength = item.Length + iLengthDeviation
                rtb.SelectionFont = WorkSpacefont
                rtb.SelectionColor = rtbColour
                rtb.SelectionBackColor = rtbBackColour
            Next
        End If
        WorkSpacefont.Dispose()

    End Sub

    Private Async Sub rtbWorkSpace_TextChanged(sender As System.Object, e As System.EventArgs) Handles rtbWorkgroup.TextChanged
        If rtbWorkgroup.Text <> "" Then
            mniExportImWindow.Enabled = True
            mniExportEverything.Enabled = True

            If DatasetLength = 2 Then
                Call Controls2DBStatusNormal()
            Else
                Call ControlsManyDBStatusNormal()
            End If

            If showOutputColoured = True Then
                If (CombinationsCount * T_Repetition * n_NumberOfErrors) < (3 * 200 * 100) Then 'So as not to crush UI
                    ColouriseRTB(rtbWorkgroup, (txtLanguage.Lines(71)), FontStyle.Bold, WorkSpaceMainVariablesColours, DefaultBackColor) 'Permutation
                End If

                ColouriseRTB(rtbWorkgroup, txtLanguage.Lines(66), FontStyle.Bold, WorkSpaceMainVariablesColours, DefaultBackColor) 'Permutations

                ColouriseRTB(rtbWorkgroup, txtLanguage.Lines(67), FontStyle.Bold, WorkSpaceMainVariablesColours, DefaultBackColor) 'Max Vertical Deviation

                ColouriseRTB(rtbWorkgroup, txtLanguage.Lines(58), FontStyle.Bold, WorkSpaceMainVariablesColours, DefaultBackColor) 'KS p-value REC

            End If

        Else
            Call ControlsStatusDisableAll()

        End If
    End Sub

nikos123:

Εσένα κάνει αυτά που θες (και σχετικά γρήγορα) το πρόγραμμα;

Ναι, πολύ πιο γρήγορα απότι πριν. Αλλά για Β>400 κολλάει πολύ και πάλι. Γιαυτό πρέπει να το κάνω σε Async.

AlKiS:

nikos123:

Εσένα κάνει αυτά που θες (και σχετικά γρήγορα) το πρόγραμμα;

Ναι, πολύ πιο γρήγορα απότι πριν. Αλλά για Β>400 κολλάει πολύ και πάλι. Γιαυτό πρέπει να το κάνω σε Async.

Markos:

Και θα συνεχίσεις να έχεις πρόβλημα όσο αρνείσαι να κατανοήσεις ότι το πρόβλημά σου είναι πρωτίστως αλγοριθμικό και δευτερευόντως (αλλά ΠΟΛΥ δευτερευόντως) προγραμματιστικό. Ο λόγος είναι απλός: Σε προβλήματα μεταθέσεων (permutations) και συνδυασμών (combinations) ΔΕΝ υπάρχει worst case scenario.

Πάρε για παράδειγμα ένα string permutation πρόβλημα με 15 strings {s1, s2,..., s15}. Το πλήθος των permutations είναι 1307674368000. Αν θέλεις να κάνεις search για να βρεις τα permutations με γενικό σχήμα {*,s4,s12} είναι ΠΟΛΥ προτιμότερο να τα παράγεις από την αρχή. Στην ουσία αυτό που πρέπει να κάνεις είναι να ανάγεις το search σε permutation πρόβλημα δεκατριών strings και να προσθέσεις στο τέλος τα s4 και s12. Στο πρόβλημα των 13, το σύνολο των permutations είναι 6227020800 (το 0,48% του συνόλου του αρχικού προβλήματος των 15). Το search, λοιπόν, στο αρχικό σύνολο είναι ασύμφορο. Επιπλέον, είναι εντελώς παράλογο να κρατάς τόσα πολλά δεδομένα στη μνήμη. Και το παράδειγμα που ανέφερα είναι πολύ απλό. Σε πιο σύνθετες αναζητήσεις, η προσέγγιση πρέπει να είναι πιο εκλεπτυσμένη από ένα μετωπικό brute force, αλλιώς δεν θα τελειώσεις ποτέ!

Τα permutations δεν γίνονται σε αυτό τον αλγόριθμο! Ότι ήταν να γίνει με permutation έχει ήδη γίνει. Έχει περάσει στην R (γλώσσα προγραμματισμού), έχω ήδη πάρει πίσω αποτελέσματα για kolmogorov και τα λοιπά... είναι άσχετο αυτό.

Τα permutations γίνονται πολύ γρήγορα. Πρόβλημα έχω στο να χρωματίσω το κείμενο...

Markos:

Τώρα, το προγραμματιστικό σου πρόβλημα ακούει στο όνομα RTB. Ό,τι χειρότερο. Άκουσε τον Παναγιώτη και ακολούθησε τη συμβουλή του και βάζε τα permutations σε λίστα. Διαφορετικά, καμία τεχνική threading δεν πρόκειται να σε σώσει. Αν θέλεις, για να καταλάβουμε κι εμείς καλύτερα τι θέλεις να κάνεις, δώσε μας ένα παράδειγμα με τα permutations που παράγεις και τις αναζητήσεις που κάνεις.

Επίσης, έχω ακολουθήσει αυτό που μου είπαν, και δεν κάνω search πάνω στο κείμενο του rtb, αλλά σε string. Κοίτα τον τελευταίο κώδικα που έγραψα και θα το δεις.

Υ.Γ. Nikos123 μην μπερδευτείς με το μήνυμα αυτό που έγραψα. Οι ερωτήσεις που έχω στο προηγούμενο μήνυμα ισχύουν ακόμα.

Ευχαριστώ πολύ και τους 2 για την προσπάθειά σας να με βοηθήσετε :)