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

Απ: Re: for i = 1 to... instead of Select case

Παπαδημητρίου Γεώργιος — Fri, 19 Dec 2008 18:03:21 GMT

Θέλω επειγόντως διακοπές!
Viva!

Απ: Re: for i = 1 to... instead of Select case

Παναγιώτης Καναβός — Fri, 19 Dec 2008 04:39:24 GMT

Το να γράφεις 10-20 γραμμές κώδικα μάλλον δεν βοηθάει στην κατανόηση της ερώτησης, ειδικά αν .... η ερώτηση ακολουθεί τον κώδικα. Όποιος αποφασίσει να διαβάσει τον κώδικα θα πρέπει να διαβάσει 20 γραμμές κώδικα που δεν καταλαβαίνει τί κάνουν και μετά να διαβάσει την ερώτηση σου, μετά να ξαναδιαβάσει τον κώδικα για να δει τί συμβαίνει και να σου απαντήσει.

Στην ερώτηση σου απαντήσανε 3 άνθρωποι, ο καθένας έχοντας καταλάβει κάτι διαφορετικό. Προφανώς, όταν κάνεις 5 λεπτά διάλειμμα ανάμεσα σε meetings και deadlines, ή όταν γράφεις στις 2 τα μεσάνυχτα και προσπαθείς να διαβάσεις ένα κατεβατό σε χρόνο dt, δεν είσαι και στην καλύτερη φόρμα, αλλά δεν νομίζω ότι και οι τέσσερις είμασταν σε τόσο κακή κατάσταση.

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

Απ: Re: for i = 1 to... instead of Select case

Παπαδημητρίου Γεώργιος — Fri, 19 Dec 2008 03:28:42 GMT

Παναγιώτης Καναβός:
Και δεν πρόκειται να επαναλάβω πόσο σημαντική είναι η ξεκάθαρη ερώτηση

1) Ο τίτλος θέματος είναι for i = 1 to... instead of Select case
2) Αυτό που ζήτησα έχει γίνει ήδη με την select case που έχω προαναφέρει ως παράδειγμα. (Απλά ο τρόπος είναι μπακάλικος!)
3) "Θέλω να δημιουργήσω ένα δυναμικό πίνακα on the fly, με αριθμό στηλών ίσο με τη μεταβλήτη selected και caption στην εκάστοτε στήλη το ΠΕΡΙΕΧΟΜΕΝΟ των μεταβλητών Rank1, Rank2 κ.ο.κ."

Εαν μπορούσα, πίστεψέ με, θα έβαζα και 4) και 5)
Απλά πιστέυω ότι με την εμπειρία που έχετε ΚΑΙ ΜΟΝΟ μπορείτε να καταλάβετε τι ακριβώς κάνει το κάτωθι κομμάτι κώδικα.

Public Rank1, Rank2, Rank3, Rank4... As String

Public Selected as integer

....
..

ds_t.Clear()
ds_t.Tables.Add(dt_t)

Select Case Selected

Case 1

dt_t.Columns.Add(Rank1)

Case 2

dt_t.Columns.Add(Rank1)

dt_t.Columns.Add(Rank2)

Anyway,
το πρόβλημα λύθηκε και πάλι, με τη βοήθειά σας και σας ευχαριστώ για αυτό.

Απ: Re: for i = 1 to... instead of Select case

Παναγιώτης Καναβός — Thu, 18 Dec 2008 20:54:59 GMT

Να μαντέψω κι εγώ και να υποθέσω ότι η ερώτηση είναι πως να ορίσω ένα πίνακα με 1 γραμμή και 3 στήλες στην VB.NET.
Με το Dim myarray(0,2) As Integer ορίζεις ένα πίνακα με μία γραμμή και 3 στήλες.
Ο αριθμός των γραμμών και στηλών μπορεί άνετα να προέρχεται από κάποια άλλη μεταβλητή. Μπορεί κανείς να γράψει π.χ. Dim myarray(rows,cols) As Integer.
Επίσης, μπορεί κανείς να μην ορίσει τον αριθμό των γραμμών, στηλών μέχρι το initialization π.χ. με Dim myarray(rows,cols) As Integer={{1,2,3}}

Και δεν πρόκειται να επαναλάβω πόσο σημαντική είναι η ξεκάθαρη ερώτηση

Απ: Re: for i = 1 to... instead of Select case

eliasm — Thu, 18 Dec 2008 20:14:10 GMT

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

Νομίζω ότι μια καλή λύση θα ήταν η εξής

Dim Rank() as string

Dim Selected as integer

For i=0 as integer to selected-1

Πρόσθεση στηλών

Απ: Re: for i = 1 to... instead of Select case

Παπαδημητρίου Γεώργιος — Wed, 17 Dec 2008 20:47:46 GMT

Κάπως έτσι...

Selected = 3
Rank1 =1
Rank2 = 2
Rank3= 3

Ο πίνακας θα πρέπει να έχει σαν στήλες τα περιεχόμενα των Rank δηλαδή

1 2 3 όχι όμως
Rank1 Rank2 Rank3

Thank you

Re: for i = 1 to... instead of Select case

Oldgeorge — Wed, 17 Dec 2008 20:18:38 GMT

Χοντρικά, θα μπορούσες να κάνεις κάτι σαν αυτό:

α)Να περάσεις τις rank μεταβλητές σε κάποιο array, collection, arraylist, etc για πιο δομημένη οργάνωση και προσπέλαση

β)Αν κατάλαβα καλά το ερώτημα σου, αυτό που θέλεις να κάνεις είναι κάτι σαν:

for i=1 to selected

Dim x as new datacolumn ("Rank" + i.ToString())
dt_t.Columns.Add(x)

Και στην συνέχεια να δημιουργήσεις και να κάνεις populate τα datarows ανάλογα

for i = 1 to... instead of Select case

Παπαδημητρίου Γεώργιος — Wed, 17 Dec 2008 20:07:50 GMT

Public Rank1, Rank2, Rank3, Rank4... As String

Public Selected as integer

....
..

ds_t.Clear()
ds_t.Tables.Add(dt_t)

Select Case Selected

Case 1

dt_t.Columns.Add(Rank1)

Case 2

dt_t.Columns.Add(Rank1)

dt_t.Columns.Add(Rank2)

Case 3

dt_t.Columns.Add(Rank1)

dt_t.Columns.Add(Rank2)

dt_t.Columns.Add(Rank3)

....

...

GridControl2.DataSource = ds_t
GridControl2.DataMember = "tempTable"

Θέλω να δημιουργήσω ένα δυναμικό πίνακα on the fly,
με αριθμό στηλών ίσο με τη μεταβλήτη selected και
caption στην εκάστοτε στήλη το ΠΕΡΙΕΧΟΜΕΝΟ των μεταβλητών Rank1, Rank2 κ.ο.κ.

Πως θα μπορύσε να τροποποιηθεί το ανωτέρω με τη βοήθεια πχ μιας
for i = 1 to selected ???

Ευχαριστώ