Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: If και έλεγχος πολλών textboxes

pantelee — Thu, 08 Mar 2007 10:46:35 GMT

Ούτε λόγος για αυτό. Όλα καλά και καλοπροαίρετα. Συνοδοιπόροι...

Απ: If και έλεγχος πολλών textboxes

Panagiotis Kefalidis — Wed, 07 Mar 2007 11:56:38 GMT

Προς θεού, δεν το είπα για να απολογηθείς/δικαιολογηθείς ή κάτι τέτοιο!Ήταν απλά μια παρατήρηση προς όλους μας, γιαυτό μιλάω και με "γενικόλογα" προς το τέλος του post.
Απλά όταν κάποιος ξεκινάει να ασχολείτε (και κάνει μια ερώτηση στο "Πρώτα βήματα"), ίσως είναι προτιμότερο να του λέμε τα "τελευταία νέα".

Πίσω δεν μένει κανείς, ειδικά όταν το κάνεις για hobby. Όλοι οι παλαιοί αλλάξανε γιατι έπρεπε/χρειαζότανε να αλλάξουνε, όχι γιατί το θέλανε (επαγγελματίες έτσι?).

Ελπίζω μόνο να μην σε αποθαρύνει το post μου και "φύγεις"!

Απ: If και έλεγχος πολλών textboxes

pantelee — Wed, 07 Mar 2007 10:54:19 GMT

Αν και δεν παραθέτεις το κείμενό μου, μάλλον σε μένα αναφέρεσαι.

Δεν είχα καταλάβει κάτι τέτοιο. Αλλά αυτός είναι ο τρόπος που προγραμματίζω. Έχω αφήσει και λευκό το βιογραφικό μου. Δεν είμαι νέος χρήστης αλλά και ούτε ιδιαίτερα παλιός. Επίσης είμαι ερασιτέχνης, αυτοδίδακτος και η εμπειρία μου περιορίζεται μόνο στην VB6 (και κάποτε στην Basic, Fortran και τέτοια). Ίσως το όλο θέμα αφορά το ότι δεν ξέρω καθόλου την .ΝΕΤ. Και με τα Collections δεν τα πάω καλά. Τα περί συμβατότητας δεν τα γνωρίζω καθόλου. Απλώς αυτή η συνάρτηση μου φάνηκε πιο δόκιμη από τα AND, AND, ...

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

Απ: If και έλεγχος πολλών textboxes

Panagiotis Kefalidis — Wed, 07 Mar 2007 08:45:48 GMT

Έχεις χρησιμοποιήσει πάρα πολλές συναρτήσεις οι οποίες υπάρχουν πλέον στην γλώσσα καθαρά για λόγους συμβατότητας με τις προηγούμενες εκδόσεις.
Καλό θα ήτανε να αποφεύγουμε να δίνουμε τέτοια παραδείγματα σε νέους χρήστες, και να χρησιμοποιούμε τις καινούργιες συναρτήσεις τις οποίες παρουσιάζουν οι γλώσσες.
Ακόμη καλύτερο θα ήτανε κι εμείς οι ίδιοι να τις αποφεύγουμε και να προσαρμοζόμαστε.. Αλλά αυτό είναι μια άλλη ιστορία.

Απ: If και έλεγχος πολλών textboxes

pantelee — Wed, 07 Mar 2007 08:00:44 GMT

Ή μπορείς να κάνεις μία συνάρτηση

Private Function AllEmpty(ParamArray TxtBox()) As Boolean
Static N As Integer
For N = LBound(TxtBox) To UBound(TxtBox)
If Not TxtBox(N).Text = "" Then
AllEmpty = False
Exit Function
End If
Next N
AllEmpty = True
End Function

την οποία καλείς ως εξής (εδώ π.χ. για 3 TextBox, με το ParamArray δίνεις όσα θέλεις)

If AllEmpty(Text1, Text2, Text3) Then
...
End If

Απ: If και έλεγχος πολλών textboxes

Παναγιώτης Καναβός — Tue, 06 Mar 2007 20:19:45 GMT

Και επιπλέον, μπορείς να κάνεις ένα foreach στο Controls collection για να τα βρεις τα TextBox. Το σκέφτηκα και αυτό αλλά δεν το ανέφερα γιατί μου φάνηκε ότι θα ξεφεύγαμε λιγάκι πλέον . Σε C# βέβαια, αντί για delegate θα βάζαμε ένα anonymous function!

Πέρα από τους τρόπους που μπορεί να κάνει κάποιος τον έλεγχο, αναρωτιέμαι το γιατί να κάνει κανείς ένα τέτοιο έλεγχο? Αν είναι για λόγους validation, υπάρχει και η ValidateChildren method της φόρμας η οποία θα προκαλέσει την εκτέλεση των Validating event των controls. Μου φαίνεται καλύτερο να εκτελούνται τα validations για κάθε control σε ένα event ειδικά για το control, παρά να μαζευτούν όλα μαζί σε ένα σημείο.

Απ: If και έλεγχος πολλών textboxes

Dimitris Papadimitriou — Tue, 06 Mar 2007 18:17:04 GMT

Υπάρχουν βέβαια και τα predicates που δίνουν έναν αρκετά πιο κομψό τρόπο! Ουσιαστικά προσθέτουμε όλα τα textboxes σε ένα List (κατά προτίμηση generic για να αποφεύγουμε τα castings) και εκτελούμε την συνάρτηση TrueForAll. Αυτή παίρνει σαν όρισμα τον pointer μια συνάρτησης η οποία επιστρέφει boolean. Σε αυτήν ελέγχουμε αν ένα textbox είναι κενό ή όχι.

    Private TextBoxes As New Generic.List(Of TextBox)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBoxes.Add(TextBox1)
        TextBoxes.Add(TextBox2)
        TextBoxes.Add(TextBox3)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean = TextBoxes.TrueForAll(AddressOf IsEmpty)
        MessageBox.Show("All empty: " & result.ToString)
    End Sub

    Private Function IsEmpty(ByVal TextBox As TextBox) As Boolean
        Return (TextBox.Text.Length = 0)
    End Function

Απ: If και έλεγχος πολλών textboxes

cap — Tue, 06 Mar 2007 01:05:13 GMT

Dark Dominion:
αλλά το and είναι για το πολύ 2 textboxes καθώς είναι boolean.

Να μείνω λίγο εδώ μια και το συζητάμε αυτό προς ενημέρωση και άλλων φίλων:

Μια boolean μεταβλητή είναι μια μεταβλητή που μπορεί να πάρει μια εκ δύο τιμών: true ή false (0 ή 1). Ο τελεστής AND και οποιοσδήποτε άλλος τελεστής μπορεί να χρησιμοποιηθεί σε boolean μεταβλητές δεν χρειάζεται όμως να χρησιμοποιείται σε μια έκφραση που αποφέρει boolean αποτέλεσμα μία μόνο φορά. Συνεπώς η έκφραση 1 AND 0 AND 1 AND 1 δίνει αποτέλεσμα 0, ενώ η έκφραση 1 AND 1 AND 1 δίνει αποτέλεσμα 1.

Γιατί; Αν σπάσει κανείς την έκφραση (1 AND 0 AND 1 AND 1) στα συνθετικά της μέρη θα δεί οτι:

(πρωτη έκφραση) 1 AND 0 = 0

Αντικαθιστούμε στην αρχική έκφραση: 0 AND 1 AND 1

(παίρνουμε πάλι την πρώτη έκφραση από το αποτέλεσμα) 0 AND 1 = 0

Αντικαθιστούμε στην αρχική έκφραση: 0 AND 1

Και φυσικά αυτό μας δίνει 0.

Αρα λοιπον και στα checkboxes μπορεί κανείς να έχει πολλαπλούς τελεστές AND όπως και οπουδήποτε αλλού. Η έκφραση checkbox1.text="" είναι μια boolean έκφραση που δίνει αποτέλεσμα true = false όταν χρησιμοποιηθεί στο IF.

Απ: If και έλεγχος πολλών textboxes

Dimitris Papadimitriou — Mon, 05 Mar 2007 23:35:46 GMT

Νομίζω ότι όλα αυτά τα κόλπα μπορούν αν χρησιμοποιηθούν ανάλογα με το απαιτούμενο performance και maintainability. Το πιο κομψό είναι το for each, αλλά ίσως και το πιο αργό. Επειδή φαντάζομαι όμως ότι δεν υπάρχει τόσο μεγάλο θέμα performance, μάλλον είναι η ενδεδειγμένη λύση, ειδικά αν τα textboxes είναι πολλά (π.χ. περισσότερα από 5).

Απ: If και έλεγχος πολλών textboxes

agmarios — Mon, 05 Mar 2007 23:31:22 GMT

Παναγιώτης Καναβός:
If txt1.Text.Length=0 AND txt2.Text.Length=0 AND txt3.Text.Length=0

μπορείς να το γράψεις κι έτσι:
if (textbox1.text.length + textbox2.text.length + ....+ textbox.text.length = 0) then

Απ: If και έλεγχος πολλών textboxes

Dimitris Papadimitriou — Mon, 05 Mar 2007 23:00:39 GMT

Μπορείς επίσης να δοκιμάσεις και την AndAlso αντί για την And.

Ίσως με λίγο benchmarking διαπιστώσεις ότι είναι πιο γρήγορη. Ειδικά αν βάλεις στη σειρά τα textboxes σου ξεκινώντας από αυτό που είναι πιο πιθανό να ΜΗΝ είναι κενό.

Απ: If και έλεγχος πολλών textboxes

Παναγιώτης Καναβός — Mon, 05 Mar 2007 22:20:57 GMT

Δεν σε εμποδίζει κανείς να συνδυάσεις πολλά AND οπότε δεν βλέπω που είναι το πρόβλημα. Πάντως, καλύτερα να ελέγχεις για το μέγεθος των TextBox αντί για το περιεχόμενο τους, είναι πολύ γρηγορότερο, δηλαδή:

If txt1.Text.Length=0 AND txt2.Text.Length=0 AND txt3.Text.Length=0

Μπορείς όμως να κάνεις και το άλλο. Να προσθέσεις όλα τα textbox σε ένα πίνακα και μετά να χρησιμοποιήσεις την foreach για να δεις αν όλα τα textbox έχουν μέγεθος 0.

If και έλεγχος πολλών textboxes

Dark Dominion — Mon, 05 Mar 2007 22:00:43 GMT

Πως μπορώ να ελέγξω αν όλα τα texboxes μου είναι άδεια;
Προσπαθώ με if txt1.text="" and txt2.text="" and txt3.text="" αλλά το and είναι για το πολύ 2 textboxes καθώς είναι boolean.