Πρώτα Βήματα - Γλώσσες προγραμματισμού

Γιατι c c++ ; ; ;

mrpypyc — Sun, 10 Sep 2017 00:16:27 GMT

Γεια χαρα σε ολους !!!

Γιατι c c++ ;;;..................Υπαρχουν τοσες συγχρονες και μη, καλες γλωσσες προγραμματισμου...........ποιος ο λογος που υπαρχει ακομη και μαλιστα πρωτοστατει στον προγραμματισμο.............τι ειναι αυτο που δεν εχει η java python perl ruby κλπ..........η ακομη και delphi..........; ; ;
Για την ακριβεια......τι μπορω να κανω με c c++ που δεν μπορω να κανω με αλλες γλωσσες η και τι αλλα πλεονεκτηματα εχει ; ; ;

mp3 Σταματά να παίζει μετά απο postback

anthou — Mon, 08 Jun 2020 20:37:19 GMT

Σε μια aspx σελίδα έχω ένα audio control το οποίο παίζει ενα mp3 Και το οποίο λειτουργεί κανονικά

Δίπλα απο το control υπάρχουν τρία Radiobutton με AutoPostBack="True"

Ενω παίζει το mp3 και κάνω select σε ενα απο τα τρία RadioButton τότε σταματά να παιζει το mp3

(το ιδο συμβαίνει και με ενα απλο Button)

Πως μπορεί να παιζει το mp3 χωρίς να σταματά οτα γίνεται postback h οταν γινεται onclick στην σελίδα

Έχω ένα πρόβλημα τον τελευταίο καιρό

gioklis — Wed, 14 Jun 2017 06:01:21 GMT

Έχω ένα πρόβλημα τον τελευταίο καιρό

Και προσπαθώ να καταλάβω πάνω σε ποια λογική εχει φτιαχτεί …

Έχω μια εφαρμογή (από κάποιον άλλο φτιαγμένη ) που προστατεύεται από κάποιο κωδικό … αρχικά το exe για να εγκατασταθεί εμφανίζει ένα πρώτο κωδικό (6 ψηφίο , όπου καταλαβαίνω ότι φτιάχνεται από κάποιο σειριακό αριθμό του HD του PC), όπου στην συνέχεια πρέπει να επικοινωνήσεις με τον κατασκευαστή για να σου δώσει τον κωδικό ενεργοποίησης.

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

Label1.Caption = Int((Rnd(Text1.Text)) * 899999 + 100000)

Όπου Text1.Text = σειριακός αριθμός του PC.

Έχω το παρακάτω ερώτημα?

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

σειριακός αριθμός του PC + τυχαίος αριθμός = (αποτέλεσμα) τυχαίος αριθμός

κάποιος που μπορεί να βοηθήσει?

Ευχαριστώ

Γιώργος

python system (compiler-interpreter)

mrpypyc — Thu, 10 Aug 2017 20:45:54 GMT

Γεια και χαρα σε ολους

Οπως και ο τιτλος για το συστημα της python η ερωτηση

Πως ακριβως λειτουργει στη καθε περιπτωση ;

Δημιουργει παντα bytecode και τον διερμηνευει ;

Οταν γραψω στον επεξεργαστη κειμενου ενα προγραμμα module script τελος παντων το αποθηκευσω ως file.py ανοιξω το cmd των windows και το εκτελεσω δημιουργει bytecode στη μνημη το οποιο αναλαμβανει ο interpreter και μετα εξαφανιζεται οπως και αν γραψω κατι στο shell κονσολα terminal command line python to κανει compile o compiler σε pyc και το εκτελω διερμηνευω με τον interpreter και χανεται................τοτε προς τι το bytecode; ποτε δημιουργει bytecode και το αποθηκευει εκτος αν το ζητησω εγω με το διακοπτη -m.....python -m file.py......πως λειτουργει το συστημα......τα υπερ του bytecode και η διαφορα με συστηματα και bytecode αλλων γλωσσων perl java ruby κλπ. ;;;;;

ευχαριστω!!!

Mobile app

kostasvit — Wed, 19 Jul 2017 20:07:34 GMT

Καλημέρα,

Όταν φτιάχνεις μια εφαρμογή για κινητό είτε Android είτε Windows Phone π.χ ένα app σαν τουριστικός οδηγός για μι περιοχή. Όταν θες να το αναβαθμίσεις όπως το να προσθέσεις έναν νέο σημείο ενδιαφέροντος ή μια φωτογραφία. Αυτό πως μπορεί να γίνει; Data θα τραβάει από μια βάση δεδομένων. Θα πρέπει να υπάρχει και ένα site διαχείρισης ή κάτι άλλο.

Ευχαριστώ

Προσπαθώ να καταλάβω …. Τι κάνουν οι παρακάτω εντολές σε .. VB6

gioklis — Tue, 05 Jul 2016 06:34:16 GMT

Προσπαθώ να καταλάβω …. Τι κάνουν οι παρακάτω εντολές σε .. VB6

ένα πρόγραμμα σε VB6 δουλεύει με το παρακάτω σύστημα ….

Όταν καλείς το αρχείο …. . Exe, …. Σου δίνει ένα 6 ψήφιο κωδικό … και περιμένει από εσένα να του δώσεις ένα άλλο … 6 ψήφιο αντί κωδικό βγαλμένο από των πρώτο που σου έχει δώσει … για να ανοίξει …

Πχ το αρχείο έχει την εντολή

= InStr(1, KeyCode, "-", 0)

= var_28 & Chr$(CLng(500 - Hex(Mid(KeyCode, 1, var_ret_1(1)))))

= var_18 & CStr(CInt((500 - Val("&H" & CStr(Asc(CStr(Mid(UserCode, 0, 1)))))))) & "-"

… κλπ ..

Κάποιος που μπορεί να βοηθήσει ????

Ευχαριστώ

Method returning specific word from given input text. C#

Parthena — Sat, 02 Jul 2016 08:33:59 GMT

Εχω την παρακατω ασκηση να κανω, Θα μπορουσατε να μου δωσετε καποιες πιστες ?

Method returning specific word from given input text.

</summary>

<param name="input">input text</param>

<param name="wordNumberToFind">Parameter presenting word number to be returned</param>

Specific word from a given text. We assume that only considered separator of words is space (' ').

Example 1: GetWordFromText("one two three", 2) should return "two"

Example 2: GetWordFromText("one;two three", 2) should return "three"

Example 3: GetWordFromText("one", 1) should return "one"

When input parameter wordNumberToFind is less than 1, method should throw

ArgumentOutOfRangeException. When input text does not have enough words

(GetWordFromText("one", 2)), method should throw ArgumentException.

Method should ignore all spaces in the beginning and in the end of input text.

</returns>

Ευχαριστω πολυ

Ανάπτυξη απλού προγράμματος σε C++

gfk_2010 — Tue, 19 Apr 2016 18:51:07 GMT

Καλημερα κοσμε!

Παρακατω ειναι η εκφωνηση για μια απλη εργασια πανω σε βασικα πραγματα για c++ για την καλυτερη κατανοηση των αντιστοιχων λειτουργιων. Παρολα αυτα επειδη οντως δεν γνωριζω βασικα πραγματα (δεν μιλαω για int κτλ, αλλα για πιο συνθετες λειτουργιες) δεν μπορω ουτε να ξεκινησω να γραψω κωδικα. Παρακαλω πολυ βοηθεια! Αν οποιοσδηποτε μπορεσει να το λυσει και μου παραδωσει κωδικα θα με βοηθουσε ααααπειρα. Ευχαριστω για τον χρονο σας!

Η εκφωνηση:

Ορίστε την κλάση smartArray που αντιστοιχεί σε ένα μονοδιάστατο πίνακα ακεραίων (int) για την ακολουθία Fibonacci. Κάθε τέτοιο αντικείμενο ορίζεται από το μέγεθος του πίνακα length και τον ίδιο τον πίνακα int *Arr, όπου θα πρέπει να ισχύει: Αrr[0]=0, Arr[1]=1, Arr=Arr[i-1]+Arr[i-2].
1) Να παρέχετε έναν κατασκευαστή που να δέχεται παράμετρο για το μέγεθος του πίνακα και θέτει όλα τα στοιχεία του σύμφωνα με την παραπάνω φόρμουλα.
2) Να παρέχετε destructor και copy constructor
3) Να παρέχετε τον overloaded assignment operator=, και τους overloaded += και + operators.
4) Να παρέχετε τον overloaded operator<<.

C#

GeorgeGrz — Thu, 15 Oct 2015 20:23:28 GMT

Καλησπερα παιδια,καταρχας με λενε Γιωργο και ειμαι 15-16 χρονων.Αρχισα περιπου πριν απο 1-2 ευδομαδες τον προγραμματισμο.Μηπως θα μπορουσε καποιος να μου πει ποια ειναι η πιο καταληλη γλωσσα για Game Development?(Προσπαθω να μαθω την C#)

Αναζητηση ιων σε σκληρω δισκο με την χρηση VB6

Homosapiens — Sat, 24 Jan 2015 03:17:19 GMT

Καλησπερα σας θα ηθελα να ρωτησω ποιος ειναι ο πιο ευκολος τροπος να πραγματαποιηθει ενα τετοια προγραμμα.Ειμαι σε αρχαριο επιπεδο και οτι ξερω ειναι καταβαση απο το ιντερνετ.

Εχω δει οτι γινετε με χρηση των API αλλα και με MD5επησης εχω καποια παραδειγματα κωδικα και για τα 2 αλλα μονο το API ειναι σε VB6 ενω το MD. ειναι σε VB.NET!

Με την χρηση των API η διαδικασια ειναι μεγαλη απο οσο βλεπω και πολυπλοκη ενω με το MD5 φαινεται πιο απλη.

Βεβαια ο κωδικας αυτος λογο οτι ειναι σε VB.NET χρεισημοποιει τα imports SystemIO το οποιο ειναι κατι που η VB6 δεν το εχει.

Ειμαι σε απογνωση γιατι αυτο ειναι για μια εργασια που εχω και δεν βγαζω ακρη με τιποτα.

Αν υπαρχει καποιος που μπορει να βοηθησει παρακαλω αν μπορει να επικοινωσει μαζι μου!

Ευχαριστω!!!!

Κουπόνια και όριο χρόνου εκτύπωσης

kostasvit — Mon, 27 Oct 2014 16:30:20 GMT

Καλημέρα,

θέλω να ρωτήσω το εξής. Έχω μια σελίδα που ανεβάζω κουπόνια με προσφορές και ο χρήστης μπορεί να τα εκτυπώνει. Ήθελα να προσθέσω το εξής. Θέλω να βάλω έναν μετρητή που να μετράει αντίστροφα. Δηλαδή στην σελίδα του διαχειριστή που έχω φτιάξει και ανεβάζω τα κουπόνια να προσθέσω 4 πεδία (Ημέρα-Ώρα-Λεπτά-Δευτερόλεπτα) και αυτό να εμφανίζετε σε κάθε κουπόνι ξεχωριστά και να αρχίζει να μετρά αντίστροφα. Θα μπορούσε να με βοηθήσει κάποιος, υπάρχει κάποιο παράδειγμα;

Java

Developer91 — Tue, 30 Sep 2014 03:42:19 GMT

Καλησπέρα παιδιά ξέρετε κανένα καλό βιβλίο σε γλώσσα προγραμματισμού Java που να έχει και ασκήσεις?

Resorting AA field in Database upon record delete

Squid — Sun, 27 Jul 2014 08:26:49 GMT

Καλησπέρα σας.

Είμαι νέος εδώ πέρα. Καταρχήν συγχαρητήρια για την Κοινότητα σας.

'Εχω κολήσει κάπου σε μια εφαρμογή που προσπαθώ να φτιάξω και θα ήθελα τα φώτα σας.

Εχω ενα πίνακα και εκει μέσα μαζεύω κάποιες εγγραφές. το Πεδίο Α/Α το καταχωρώ απο την φόρμα με δυναμικό τρόπο. Var = var +1.

Ολες οι εγγραφές με το που καταχωρούνται εμφανίζονται στο κάτω μέρος της φόρμας σε ένα Datagrid.

Οταν πάω να διαγράψω μια εγγραφή τότε χάνω την σείρα των Α/Α με αποτέλεσμα στην επόμενη νέα εγγραφή να μην κρατίεται η σειρα.

Να τονίσω ότι ο έλεγχος στα objects γίνεται μέσω κώδικα και όχι με τα έτοιμα που δίνει το κάθε object σε Design mode.

p.x

a/a name

1 vagelis

2 giorgos

3 kostis

4 marika

αν διαγραψω τον κωστή

τοτε έχω

1 vagelis

2 giorgos

4 marika

Θα ήθελα να είχα....

1 vagelis

2 giorgos

3 marika

Μπορεί κάποιος να με βοηθήσει με ποιον τρόπο θα μπορέσω σε κάθε διαγραφή να κάνω resorting στο Α/Α ? Κολάω στο Query build..... :(

Σας Ευχαριστώ.

sessions

kostasvit — Sat, 02 Aug 2014 19:15:13 GMT

καλημέρα, ήθελα την βοήθεια σας γιατι έχω κολήσει!!!!

έχω μία σελίδα όπου ο χρήστης βάζει username-password για να κάνει εισαγωγή και του βγάζει το username αν είναι όλα σωστά.

Τώρα θέλω όταν ο χρήστης κάνει log in σε μία άλλη σελίδα να του εμφανίζει το όνομα του και το επώνυμο.

Έχω ήδη δημιουργήσει ένα session για να του βγάζει το username.

μπορώ σε ένα session να εμφανίζω διαφορετικά στοιχεία του χρήστη σε άλλη σελίδα;

Άν όχι μπορώ να το κάνω με άλλο τρόπο;

Export sqlData to Ecel erro : xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass

anthou — Thu, 17 Jul 2014 17:48:08 GMT

καλημέρα

Προσπαθώ από ένα πίνακα να διαβάσω τις εγγραφές και να τις κάνω εξαγωγή σε ένα Excel

Όμως έχω το παρακάτω λάθος :

xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass

(Interop type 'ApplicationClass' cannot be embedded. Use the applicable interface instead)

Ο σχετικός κώδικας είναι

Dim i, j As Integer

Dim xlApp As New Microsoft.Office.Interop.Excel.Application

Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook

Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet

Dim misValue As Object = System.Reflection.Missing.Value

xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass

xlWorkBook = xlApp.Workbooks.Add(misValue)

xlWorkSheet = xlWorkBook.Sheets("sheet1")

Dim sql As String = "SELECT * FROM kinisi"

κλπ

.......

Υπάρχει κάποια άποψη για να λύσω το πρόβλημα η κάποια άλλη άποψή για την δημιουργία σε Excel

vb.net Πρόβλημα με τις φόρμες όταν η εφαρμογή τρέχει σε διαφορετικούς υπολογιστές

CivilSitis — Thu, 05 Jun 2014 03:47:35 GMT

Γεια σας

Εχω φτιάξει μια εφαρμογή window form σε vb.net 2010. Στον υπολογιστή μου τρέχει μια χαρά. Όταν κάνω το project setup και

το εγκαθιστώ σε άλλον υπολογιστή, αρχίζουν τα προβλήματα. Κάποia controls δεν ειναι στην θέση τους (command buttons, labels)

Λογικά έχει να κάνει με την ανάλυση της οθόνης αλλά δεν γνωρίζω πως να το αντιμετωπίσω. Δοκίμασα πειράζοντας κάποια properties στο Form

(dpi, font) αλλά χωρίς επιτυχία

K Α Θ Ε - Β Ο Η Θ Ε Ι Α Δ Ε Κ ΤΗ - Ε Χ Ω Σ Κ Α Σ Ε Ι

Published Application

VbNetDummy — Thu, 05 Jun 2014 21:18:49 GMT

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

Πως μπορώ να φτιάξω μια application να την εγκαταστήσω σε κάποιον server και οι χρήστες να τη τρέχουν κατευθείαν από το server χωρίς εγκατάσταση στον υπολογιστή τους.

Γίνεται απλώς απο τα settings βάζοντας URL το path της εφαρμογής στο server?

Ερώτηση για service σε VB.NET

VbNetDummy — Fri, 17 Jan 2014 02:21:02 GMT

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

Έχω μια βάση δεδομένων MySql σε ένα Windows pc. Θέλω να ρωτήσω αν υπάρχει τρόπος (υποθέτω μέσω κάποιου service) οπου θα μπορώ να δώσω συγκεκριμένα δεδομένα απο τη βάση σε μια εξωτερική εφαρμογή, χωρίς να της παρέχω σύνδεση στη βάση.

c# integer σε datetime

evagelos — Tue, 03 Sep 2013 22:59:49 GMT

γεια σας παιδιά,

εχω ενα excel σε μορφή xml

σε ενα κελι εχει ενα πεδιο που οταν ανοιγεις το excel εχει την μορφή της ημερομηνίας αλλα οταν το διαβάζω με το DocumentFormat.OpenXml μου το διαβάζει σαν αριθμό.

και προσπαθώ να το "ξαναφτιάξω" σαν ημερομηνία:

         private DateTime ConvertDate(double numDays)
        {
            DateTime baseDate = new DateTime(1900, 1, 1);
            DateTime newDate = baseDate.AddDays(numDays);
            return newDate;
        }

Εχω για παράδειγμα τον αριθμό 41514 που ενώ έπρεπε να δειχνει 28/8/2013 το αποτελεσμα δειχνει 30/8/2013.

δηλαδή ΠΑΝΤΑ προσθέτει 2 μερες.

Τι δεν κανω σωστά;

ευχαριστώ

C# Βοήθεια...

exantas — Wed, 12 Jun 2013 20:14:46 GMT

Γειά σας,

Μετά από μέρες χωρίς να έχω βγάλει άκρη σας παραθέτω το πρόβλημά μου.

public void DeleteCustomer(int CustomerId)

{

string CS = ConfigurationManager.ConnectionStrings["DBCS"].ConnectionString;

using (SqlConnection con = new SqlConnection(CS))

{

using (SqlCommand cmd = new SqlCommand("delete from tblCustomers where CustomerId = @CustomerId", con))

{

SqlParameter parameter_Id = new SqlParameter();

parameter_Id.ParameterName = "@CustomerId";

parameter_Id.Value = CustomerId;

cmd.Parameters.Add(parameter_Id);

con.Open();

cmd.ExecuteNonQuery();

}

Τι έχω κάνει και μου βγάζει invalid object name .tblCustomers_tombstone

ευχαριστώ

[VB] Mouse Cursor Disappears while inside the form

AlKiS — Fri, 15 Mar 2013 09:35:46 GMT

Καλησπέρα,

Κάτι πολύ περίεργο γίνεται, και δεν μπορώ να καταλάβω γιατί.

Το πρόβλημα είναι: Ο cursor του ποντικιού εξαφανίζεται, και δεν μπορώ να καταλάβω γιατί..

Μπορείτε να δείτε ακριβώς τι γίνεται, στο ακριβώς 2 λεπτά video αυτό

Το πρόβλημα σταματά να προκαλείτε όταν κάνω comment out τη γραμμή αυτή "lstXtimesY(lstXtimesY.Count - 2).Focus()" που βρίσκεται στο "AddAnotherRow()" το οποίο καλείτε από το "TextChanged" των textboxes που πατάω. (παραθέτω παρακάτω τον κώδικα)

Η προφανής λύση είναι "αφού βρήκες τι το προκαλεί, διέγραψέ το". Αλλά δεν θέλω να το κάνω για 2 λόγους.

1) Αυτό είναι το σύμπτωμα, και δεν θέλω να κάνω treat τα συμπτώματα, αλλά το πρόβλημα

2) Αν το διαγράψω αυτό, τότε όταν προσθέτεται νέο row, δεν θα παίρνει focus το τελευταίο sub πριν προστεθεί το νέο row, άρα δεν θα μπορεί ο χρήστης να πατήσει ένα απλό tab για να βάλει τα επόμενα νούμερα. Αυτός είναι ο σκοπός της σειράς αυτής. Ο χρήστης βάζει νούμερα στα textboxes "1" και "2" για "Χ" και "Υ", το πρόγραμμα υπολογίζει τα 2 επόμενα textboxes Χ^2 και Χ*Υ, και άρα για να γράψει το επόμενο νούμερο ο χρήστης με το tab (κρατώντας μια λογική σειρά tab-order) είναι να παίρνει focus το συγκεκριμένο textbox

Άρα... για ποιο λόγο γίνεται αυτό το περίεργο πράγμα, και χάνετε το ποντίκι, και μόλις πατήσεις κλικ συμπεριφέρεται λες και πάτησες πάνω στο τελευταίο textbox στο οποίο είχες πατήσει νωρίτερα?

Παραθέτω τον κώδικα:

1) Private Sub AddAnotherRow Προσθέτει μια ακόμα σειρά από textboxes για να μπορεί να βάλει κι άλλες τιμές Χ,Υ,Χ^2,Χ*Υ ο χρήστης. Η τελευταία γραμμή αυτού εμφανίζει και το πρόβλημα.

2) Private Sub lstX_Enter_Click Ενεργοποιείται όταν κάποιος εισέλθει ή κάνει click σε οποιοδήποτε textbox είναι για τις τιμές του Χ, και καλεί το "TypeBox" το οποίο εμφανίζει μια φόρμα όπου στην προκειμένη περίπτωση δέχεται μόνο τιμές Decimal ή κενό, και κατόπιν μεταφέρει την τιμή στο textbox που το κάλεσε.

3) Private Sub lstY_Enter_Click Κάνει το ίδιο ακριβώς με το από πάνω, απλώς για τιμές του Υ

4) Private Sub lstX_TextChanged Καλείτε όταν ολοκληρωθεί το "2)" και αλλάξει το κείμενο του textbox. Ενημερώνει κάποια κείμενα, και ελέγχει εάν πρέπει να προσθέσει ή να αφαιρέσει row

5) Private Sub lstY_TextChanged Το ίδιο με το απο πάνω, απλώς ενημερώνει άλλα κείμενα.

    Private Sub AddAnotherRow() 'Sub Num: 01
        Dim HeightAddition As Integer = 6 + rtfX_1.Height


        'Making the GroupBox bigger so that it can accomodate the new control
        Dim NewgbExperimentalValuesAndPreparationHeight As Integer = gbExperimentalValuesAndPreparation.Height + HeightAddition
        gbExperimentalValuesAndPreparation.Size = New Drawing.Size(gbExperimentalValuesAndPreparation.Width, NewgbExperimentalValuesAndPreparationHeight)


        'Creating the new controls, and amending them to our needs
        Dim NewRtf_LocationY As Integer = lstX.Item(lstX.Count - 1).Location.Y + HeightAddition

        '   -New X RichTextBox
        Dim NewRtfX As New RichTextBox With {.Name = "rtfX_" & lstX.Count, .ReadOnly = True, .BackColor = Color.White, .DetectUrls = False, .Multiline = False,
                                             .ScrollBars = RichTextBoxScrollBars.None, .WordWrap = False, .ForeColor = Color.FromArgb(-16727872),
                                             .Location = New Drawing.Point(rtfX_1.Location.X, NewRtf_LocationY), .Size = lstX.Item(lstX.Count - 1).Size}
        gbExperimentalValuesAndPreparation.Controls.Add(NewRtfX)
        AddHandler NewRtfX.TextChanged, AddressOf lstX_TextChanged
        AddHandler NewRtfX.Enter, AddressOf lstX_Enter_Click
        AddHandler NewRtfX.Click, AddressOf lstX_Enter_Click
        NewRtfX.TabIndex = lstXtimesY.Item(lstXtimesY.Count - 1).TabIndex + 1

        '   -New Y RichTextBox
        Dim NewRtfY As New RichTextBox With {.Name = "rtfY_" & lstY.Count, .ReadOnly = True, .BackColor = Color.White, .DetectUrls = False, .Multiline = False,
                                             .ScrollBars = RichTextBoxScrollBars.None, .WordWrap = False, .ForeColor = Color.FromArgb(-16727872),
                                             .Location = New Drawing.Point(rtfY_1.Location.X, NewRtf_LocationY), .Size = lstY.Item(lstY.Count - 1).Size}
        gbExperimentalValuesAndPreparation.Controls.Add(NewRtfY)
        AddHandler NewRtfY.TextChanged, AddressOf lstY_TextChanged
        AddHandler NewRtfY.Enter, AddressOf lstY_Enter_Click
        AddHandler NewRtfY.Click, AddressOf lstY_Enter_Click
        NewRtfY.TabIndex = NewRtfX.TabIndex + 1

        '   -New Xexp2 RichTextBox
        Dim NewRtfXexp2 As New RichTextBox With {.Name = "rtfXexp2_" & lstXexp2.Count, .ReadOnly = True, .BackColor = Color.White, .DetectUrls = False, .Multiline = False,
                                             .ScrollBars = RichTextBoxScrollBars.None, .WordWrap = False, .ForeColor = Color.Black,
                                             .Location = New Drawing.Point(rtfXexp2_1.Location.X, NewRtf_LocationY), .Size = lstXexp2.Item(lstXexp2.Count - 1).Size}
        gbExperimentalValuesAndPreparation.Controls.Add(NewRtfXexp2)
        AddHandler NewRtfXexp2.TextChanged, AddressOf lstXexp2_TextChanged
        NewRtfXexp2.TabIndex = NewRtfY.TabIndex + 1

        '   -New XtimesY RichTextBox
        Dim NewRtfXtimesY As New RichTextBox With {.Name = "rtfXtimesY_" & lstXtimesY.Count, .ReadOnly = True, .BackColor = Color.White, .DetectUrls = False, .Multiline = False,
                                             .ScrollBars = RichTextBoxScrollBars.None, .WordWrap = False, .ForeColor = Color.Black,
                                             .Location = New Drawing.Point(rtfXtimesY_1.Location.X, NewRtf_LocationY), .Size = lstXtimesY.Item(lstXtimesY.Count - 1).Size}
        gbExperimentalValuesAndPreparation.Controls.Add(NewRtfXtimesY)
        AddHandler NewRtfXtimesY.TextChanged, AddressOf lstXtimesY_TextChanged
        NewRtfXtimesY.TabIndex = NewRtfY.TabIndex + 1

        '   -New Serial Number Label
        Dim NewlblSerialNum As New Label With {.Name = "lblSerialNum_" & lstSN.Count, .Text = (lstSN.Count) & ")",
                                             .Location = New Drawing.Point(lblSerialNum_1.Location.X, NewRtf_LocationY)}
        gbExperimentalValuesAndPreparation.Controls.Add(NewlblSerialNum)


        'Moving the groupboxes below, further below so that they are completely visible once again
        gbCalculationOf_A_B_andOptimumLine.Location = New Drawing.Point(gbCalculationOf_A_B_andOptimumLine.Location.X, gbCalculationOf_A_B_andOptimumLine.Location.Y + HeightAddition)


        'Making the form bigger so that everything is visible inside it 
        Dim DesirableNewFormHeight As Integer = Me.Size.Height + HeightAddition
        If DesirableNewFormHeight > My.Computer.Screen.Bounds.Height Then
            Me.pnlMain.Size = New Size(pnlMain.Size.Width, pnlMain.Size.Height + HeightAddition)
        Else
            Me.Size = New Size(Me.Size.Width, Me.Size.Height + HeightAddition)
        End If


        'Making sure the whole form is visible
        If Me.Location.Y + Me.Size.Height > My.Computer.Screen.Bounds.Height Then Me.Location = New Drawing.Point(Me.Location.X, My.Computer.Screen.Bounds.Height - Me.Size.Height)

        'Updating Texts
        lblSerialNum_N.Text = "N=" & lstX.Count - 1

        'Adding the new controls to the lists
        lstX.Add(NewRtfX)
        lstY.Add(NewRtfY)
        lstXexp2.Add(NewRtfXexp2)
        lstXtimesY.Add(NewRtfXtimesY)
        lstSN.Add(NewlblSerialNum)

        Dim DesirableXCoordinate As Integer = pnlMain.Location.X + gbExperimentalValuesAndPreparation.Location.X + lstX(lstX.Count - 1).Location.X + CInt(lstX(lstX.Count - 1).Size.Width / 2)
        Dim DesirablesYCoordinate As Integer = pnlMain.Location.Y + gbExperimentalValuesAndPreparation.Location.Y + lstX(lstX.Count - 1).Location.Y + CInt(lstX(lstX.Count - 1).Height / 4) + 38 '38 is probably the added size of thewindows frame
        Windows.Forms.Cursor.Position = New Point(DesirableXCoordinate, DesirablesYCoordinate)
        lstXtimesY(lstXtimesY.Count - 2).Focus() 'Makes the mouse behave odd
    End Sub


    Private Sub lstX_Enter_Click(sender As Object, e As EventArgs) Handles rtfX_1.Enter, rtfX_1.Click 'Sub Num: 03
        Dim Index As Integer = CInt(GetSubstrAfterString((DirectCast(sender, RichTextBox).Name), "_", "-1", , True))
        Dim Num As Decimal

        If Index <> -1 Then
            If TypeBox("Give a number for X:", Num, True, , MinDecimal, MaxDecimal) Then
                If Num <> Decimal.MinValue Then
                    lstX(Index).Text = Num.ToString

                    Dim DesirableXCoordinate As Integer = pnlMain.Location.X + gbExperimentalValuesAndPreparation.Location.X + lstY(lstY.Count - 1).Location.X + CInt(lstY(lstY.Count - 1).Size.Width / 2)
                    Dim DesirablesYCoordinate As Integer = pnlMain.Location.Y + gbExperimentalValuesAndPreparation.Location.Y + lstY(lstY.Count - 1).Location.Y + CInt(lstY(lstY.Count - 1).Height / 4) + 38 '38 is probably the added size of thewindows frame
                    Windows.Forms.Cursor.Position = New Point(DesirableXCoordinate, DesirablesYCoordinate)
                Else
                    lstX(Index).Text = ""
                End If
            End If

        Else
            MsgBox("An error has occurred!" & vbCrLf & "It is recommended that you close this form and try again", MsgBoxStyle.Exclamation, "Error: 0x0E20030101")
        End If
    End Sub

    Private Sub lstY_Enter_Click(sender As Object, e As EventArgs) Handles rtfY_1.Enter, rtfY_1.Click 'Sub Num: 04
        Dim Index As Integer = CInt(GetSubstrAfterString((DirectCast(sender, RichTextBox).Name), "_", "-1", , True))
        Dim Num As Decimal

        If Index <> -1 Then
            If TypeBox("Give a number for Y:", Num, True, , MinDecimal, MaxDecimal) Then
                If Num <> Decimal.MinValue Then lstY(Index).Text = Num.ToString Else lstY(Index).Text = ""
            End If

        Else
            MsgBox("An error has occurred!" & vbCrLf & "It is recommended that you close this form and try again", MsgBoxStyle.Exclamation, "Error: 0x0E20040101")
        End If
    End Sub

    Private Sub lstX_TextChanged(sender As Object, e As EventArgs) Handles rtfX_1.TextChanged 'Sub Num: 06
        Dim Index As Integer = CInt(GetSubstrAfterString((DirectCast(sender, RichTextBox).Name), "_", "-1", , True))

        If Index <> -1 Then
            lstX.Item(Index).SelectAll()
            lstX.Item(Index).SelectionAlignment = HorizontalAlignment.Center
            lstX.Item(Index).DeselectAll()
            lstX.Item(Index).SelectionStart = lstX.Item(Index).Text.Length

            If lstX.Item(Index).Text <> "" AndAlso lstY.Item(Index).Text <> "" Then 'This checkes Item(INDEX), the next one checkes Item(lstX.Count - 1)
                lstXexp2.Item(Index).Text = CStr(CDec(lstX.Item(Index).Text) ^ 2) 'Calculating the right values, if a value is set for X and Y
                lstXtimesY.Item(Index).Text = CStr(CDec(lstX.Item(Index).Text) * CDec(lstY.Item(Index).Text))

            ElseIf lstX.Item(Index).Text <> "" Then 'Calculating the right value, if a value is set X
                lstXexp2.Item(Index).Text = CStr(CDec(lstX.Item(Index).Text) ^ 2)

            Else 'or deleting the calculated values if X is unset
                lstXexp2.Item(Index).Text = ""
                lstXtimesY.Item(Index).Text = ""
            End If

            'Updating the SumOf(X) textbox
            Dim Sum As Decimal = 0D
            For Each lst In lstX
                If IsNumeric(lst.Text) Then Sum += CDec(lst.Text)
            Next
            lblSx.Text = Sum.ToString

        Else
            MsgBox("An error has occurred!" & vbCrLf & "It is recommended that you close this form and try again", MsgBoxStyle.Exclamation, "Error: 0x0E20050101")
        End If

        If lstX.Item(lstX.Count - 1).Text <> "" AndAlso lstY.Item(lstY.Count - 1).Text <> "" Then 'If the last two textboxes are filled, then add another row
            Call AddAnotherRow()
        ElseIf lstX.Item(lstX.Count - 1).Text = "" AndAlso lstY.Item(lstY.Count - 1).Text = "" AndAlso lstX.Item(lstX.Count - 2).Text = "" AndAlso lstY.Item(lstY.Count - 2).Text = "" AndAlso lstX.Count > 2 Then 'If the last two textboxes are empty and are not the first two, then delete them
            Call RemoveLastRow()
        End If

    End Sub

    Private Sub lstY_TextChanged(sender As Object, e As EventArgs) Handles rtfY_1.TextChanged 'Sub Num: 05
        Dim Index As Integer = CInt(GetSubstrAfterString((DirectCast(sender, RichTextBox).Name), "_", "-1", , True))

        If Index <> -1 Then
            lstY.Item(Index).SelectAll()
            lstY.Item(Index).SelectionAlignment = HorizontalAlignment.Center
            lstY.Item(Index).DeselectAll()
            lstY.Item(Index).SelectionStart = lstX.Item(Index).Text.Length

            If lstX.Item(Index).Text <> "" AndAlso lstY.Item(Index).Text <> "" Then 'This checkes Item(INDEX), the next one checkes Item(lstX.Count - 1)
                lstXexp2.Item(Index).Text = CStr(CDec(lstX.Item(Index).Text) ^ 2) 'Calculating the right values, if a value is set for X and Y
                lstXtimesY.Item(Index).Text = CStr(CDec(lstX.Item(Index).Text) * CDec(lstY.Item(Index).Text))

            ElseIf lstY.Item(Index).Text = "" Then
                lstXtimesY.Item(Index).Text = ""
            End If

            'Updating the SumOf(Y) textbox
            Dim Sum As Decimal = 0D
            For Each lst In lstY
                If IsNumeric(lst.Text) Then Sum += CDec(lst.Text)
            Next
            lblSy.Text = Sum.ToString

        Else
            MsgBox("An error has occurred!" & vbCrLf & "It is recommended that you close this form and try again", MsgBoxStyle.Exclamation, "Error: 0x0E20060101")
        End If

        If lstX.Item(lstX.Count - 1).Text <> "" AndAlso lstY.Item(lstY.Count - 1).Text <> "" Then 'If the last two textboxes are filled, then add another row
            Call AddAnotherRow()
        ElseIf lstX.Item(lstX.Count - 1).Text = "" AndAlso lstY.Item(lstY.Count - 1).Text = "" AndAlso lstX.Item(lstX.Count - 2).Text = "" AndAlso lstY.Item(lstY.Count - 2).Text = "" AndAlso lstX.Count > 2 Then 'If the last two textboxes are empty and are not the first two, then delete them
            Call RemoveLastRow()
        End If

    End Sub

Πολύ κώλυμα στη φόρμα όταν έχει background image!

AlKiS — Tue, 23 Apr 2013 02:59:14 GMT

Καλησπέρα,

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

Όταν λοιπόν βάζω background image στην φόρμα ή στο panel το οποίο κάνει dock στη φόρμα και μέσα του είναι τα πάντα, τότε οποιαδήποτε αλλαγή πάνω στη φόρμα κωλάει πολύ.

π.χ. εάν είναι sizeable η φόρμα, και την μεγαλώνω ή την μικραίνω σε runtime, τότε το θέαμα είναι απαίσιο μέχρι να ξεκωλύσει και να γίνουν όλα κανονικά.. άλλο παράδειγμα είναι όταν μπαίνουν ή βγαίνουν controls πάνω στη φόρμα.

Και η ερώτηση είναι: γίνεται να έχω background image ώστε να φαίνεται όμορφη η φόρμα (και όχι ένα απλό χρώμα που είναι το κανονικό της), αλλά παράλληλα να μην συμπεριφέρονται τα πάντα λες και χρησιμοποιώ pentium 2 sta 100Mhz ενώ στην πραγματικότητα έχω τετραπύρηνο στα 2.5?

[VB] Δημιουργεία Control και Handler για αυτά σε runtime?

AlKiS — Fri, 08 Mar 2013 06:46:34 GMT

Καλησπέρα all !!

Έχω μια φόρμα η οποία έχει ένα textbox για να βάλει input ο χρήστης, ένα label που περιγράφει το τι θέλει το textbox, και ένα function που καλείται όταν πατηθεί το textbox και το textbox.text μπαίνει ως argument στο function αυτό.

Αυτό που θέλω να πετύχω είναι το εξής:

Όταν πατηθεί το textbox που υπάρχει, και καλεστεί το function και μπει κάτι στο text του textbox, να εμφανιστεί ένα ακόμα textbox κάθε από αυτό, το οποίο αν πατηθεί θα συμπεριφέρεται ακριβώς όπως αυτό που έχω ήδη δημιουργήσει σε design time.

Καλά θα ήταν να μπαίνει επίσης σε ένα "List (of Textbox)" ώστε εάν θέλω να μπορώ να το διαγράψω αργότερα, ή να κάνω ότι θέλω σε αυτό γενικά...

Δεν ξέρω όμως πως μπορώ να δημιουργήσω control σε runtime, πόσο μάλλον να μπαίνει και "handles" σε αυτό..

[C++] For Loop σε String Array

AlKiS — Wed, 20 Feb 2013 08:51:49 GMT

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

Έφυγα από την Visual Basic (προσωρινά τουλάχιστον), και άρχισα τώρα c++ (αλλά αγνή, χωρίς header των windows ή οποιουδήποτε λειτουργικού).

Δυστυχώς τα πράγματα είναι πολύ διαφορετικά στη c++ οπότε νιώθω ότι τώρα κάνω το πρώτο μου πρόγραμμα :S

θέλω να κάνω ένα string function που θα έχει ένα for loop και θα παίρνει για argument ένα string* (array). θα πάει σε ότι περιέχει το array αυτό, και σειρά σειρά θα την προσθέτει σε ένα απλό string. (δλδ μετατροπή String* σε string ουσιαστικά.

Το άτιμο, από την αρχή ακόμα με παιδεύει..

έγραψα:

string ArrayBox(string *Var) {
	for (int i = 0; i < Var.size(); i++)
	{

	}
}

όμως μου βγάζει πρόβλημα στη μεταβλητή Var: "expression must have class type".

Τι θέλει??? Τι θα πει "η φράση πρέπει να έχει τύπο κλάσης" ?? δεν το καταλαβαίνω..

Αρχικά σκεφτόμουν να μεταφράσω ολόκληρο το function που είχα στην VB

#Region "ArrayBox"
    ' => List(Of T)
    Public Function ArrayBox(Of T)(ByVal var As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => List(Of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => List(Of T)
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, 0, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'SplitOnNum => List(Of T)
    Public Function ArrayBox(Of T)(ByVal SplitOnNum As Integer, ByVal var As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", SplitOnNum, True, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => List(of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal SplitOnNum As Integer, ByVal IgnoreNullValues As Boolean, ByVal var As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder

        For i = 0 To var.Count - 1
            If var.Item(i) IsNot Nothing OrElse Not IgnoreNullValues Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                sbRet.Append(var.Item(i).ToString)
                If doDelimitItems <> "" AndAlso i <> var.Count - 1 Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                End If

                If SplitOnNum > 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> var.Count - 1 Then
                    If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
                        sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
                    End If
                    sbRet.AppendLine()
                ElseIf i < var.Count - 1 AndAlso doDelimitItems = "" Then
                    sbRet.Append(NonDelimitDelimiter)
                End If
            End If
        Next

        If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
            sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length + 1)
        End If

        Return sbRet.ToString
    End Function

    ' => T()
    Public Function ArrayBox(Of T)(ByVal var() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => T()
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => T()
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, 0, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'SplitOnNum => T()
    Public Function ArrayBox(Of T)(ByVal SplitOnNum As Integer, ByVal var() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", SplitOnNum, True, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => T()
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal SplitOnNum As Integer, ByVal IgnoreNullValues As Boolean, ByVal var() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder

        For i = 0 To var.Length - 1
            If (var.ToString <> "" AndAlso var(i) IsNot Nothing) OrElse Not IgnoreNullValues Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                sbRet.Append(var(i).ToString)
                If doDelimitItems <> "" AndAlso i <> var.Length - 1 Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                End If

                If SplitOnNum > 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> var.Length - 1 Then
                    If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
                        sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
                    End If
                    sbRet.AppendLine()
                ElseIf i < var.Length - 1 AndAlso doDelimitItems = "" Then
                    sbRet.Append(NonDelimitDelimiter)
                End If
            End If
        Next

        Return sbRet.ToString
    End Function

    ' => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal var As IEnumerable(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var As IEnumerable(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var As IEnumerable(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, 0, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'SplitOnNum => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal SplitOnNum As Integer, ByVal var As IEnumerable(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", SplitOnNum, True, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal SplitOnNum As Integer, ByVal IgnoreNullValues As Boolean, ByVal var As IEnumerable(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder

        For i = 0 To var.Count - 1
            If (var.ToString <> "" AndAlso var(i) IsNot Nothing) OrElse Not IgnoreNullValues Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                sbRet.Append(var(i).ToString)
                If doDelimitItems <> "" AndAlso i <> var.Count - 1 Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                End If

                If SplitOnNum > 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> var.Count - 1 Then
                    If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
                        sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
                    End If
                    sbRet.AppendLine()
                ElseIf i < var.Count - 1 AndAlso doDelimitItems = "" Then
                    sbRet.Append(NonDelimitDelimiter)
                End If
            End If
        Next

        Return sbRet.ToString
    End Function

    ' => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal var1() As T, ByVal var2() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var1() As T, ByVal var2() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var1() As T, ByVal var2() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelispan style=
        miter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, var1, var2, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal var1() As T, ByVal var2() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder
        Dim Var1Length As Integer = var1.Length
        Dim Var2Length As Integer = var2.Length
        Dim MaxLength As Integer
        If Var1Length >= Var2Length Then MaxLength = Var1Length Else MaxLength = Var2Length

        For i = 0 To MaxLength - 1
            If var1.Length > i OrElse var2.Length > i Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                If var1.Length > i Then sbRet.Append(var1(i).ToString) Else sbRet.Append(" ")

                If doDelimitItems <> "" Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                Else
                    sbRet.Append(NonDelimitDelimiter)
                End If

                If var2.Length > i Then sbRet.Append(var2(i).ToString) Else sbRet.Append(" ")

                If i <> MaxLength - 1 Then sbRet.AppendLine()
            End If
        Next

        If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
            sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
        End If

        Return sbRet.ToString
    End Function

    ' => [ List(Of T2), List(Of T2) ]
    Public Function ArrayBox(Of T)(ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => [ List(Of T2), List(Of T2) ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => [ List(Of T2), List(Of T2) ]
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, var1, var2, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => [ List(of T1), List(of T2) ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder
        Dim Var1Length As Integer = var1.Count
        Dim Var2Length As Integer = var2.Count
        Dim MaxLength As Integer
        If Var1Length >= Var2Length Then MaxLength = Var1Length Else MaxLength = Var2Length

        For i = 0 To MaxLength - 1
            If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

            If var1.Count >= i Then sbRet.Append(var1.Item(i).ToString) Else sbRet.Append(" ")

            If doDelimitItems <> "" Then
                sbRet.Append(doDelimitItems)
                If Not IgnoreDelimitSpace Then sbRet.Append(" ")
            Else
                sbRet.Append(NonDelimitDelimiter)
            End If

            If var2.Count >= i Then sbRet.Append(var2.Item(i).ToString) Else sbRet.Append(" ")

            If i <> MaxLength - 1 Then sbRet.AppendLine()
        Next

        Return sbRet.ToString
    End Function

    ' => [ List(Of Double()) ]
    Public Function ArrayBox(ByVal var As List(Of Double()), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => [ List(Of Double() ]
    Public Function ArrayBox(ByVal doNumeriseItems As Boolean, ByVal var As List(Of Double()), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => [ List(Of Double() ]
    Public Function ArrayBox(ByVal doDelimitItems As String, ByVal var As List(Of Double()), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => [ List(Of Double() ]
    Public Function ArrayBox(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal var As List(Of Double()), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder
        Dim LastRowIndex As Integer
        For i = 0 To var.Count - 1
            If var(i).Length > LastRowIndex Then LastRowIndex = var(i).Length
        Next

        For i = 0 To LastRowIndex - 1
            If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

            For j = 0 To var.Count - 1
                If var.Item(j).Length > i Then sbRet.Append(var.Item(j)(i)) Else sbRet.Append(" ")
                If doDelimitItems <> "" Then
                    If j <> var.Count - 1 Then sbRet.Append(doDelimitItems)
                    If j <> var.Count - 1 AndAlso Not IgnoreDelimitSpace Then sbRet.Append(" ")

                ElseIf j <> var.Count - 1 Then
                    sbRet.Append(NonDelimitDelimiter)
                End If

            Next

            If i <> LastRowIndex - 1 Then sbRet.AppendLine()
        Next

        Return sbRet.ToString
    End Function
#End Region

όμως βλέποντας ότι κολλάω σε αυτό.. αναθεώρησα.. και τώρα λέει να σταθώ σε μια απλή αλλαγή του string* σε string...

/spancolor: #666666;background-color: #e4e4e4;font-family: Courier New;font-size: 11px;font-weight: normal;color: Green;background-color: Transparent;font-family: Courier New;font-size: 11px;font-weight: normal; ArrayBox(Return

Addition

frankie — Mon, 08 Oct 2012 04:04:45 GMT

Καλησπερα

Εχω ενα προβλημα και χρειαζομαι λιγο βοηθεια.Θελω να προσθεσω δυο μεταβλητες π.χ την χ+2χ ετσι ωστε να παρω 3χ.Πως πρεπει να την δηλωσω δλδ τι τυπο δεδομενων να χρησιμοποιησω??Σε vb.net.......

ευχαριστω...