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

Μετατροπή γραμματοσειράς από Greek 928 (iso 8859-7) Windows σε Greek 437 dos για αρχάρειο !!!

sprdem — Tue, 20 Sep 2016 21:11:21 GMT

Παιδιά καλησπέρα και συγνώμη για την ταλαιπωρία, στην οποία θα σας υποβάλλω.Γνωρίζει κάποιος / κάποια, με ποιο τρόπο μπορώ να κάνω convert την γραμματοσειρά Greek 928 (iso 8859-7) Windows σε Greek 437 dos. Είμαι ερασιτέχνης developer (σε HTML / CSS & PHP) και δεν γνωρίζω τον τρόπο. Υπάρχει κάτι απλό;

Σας ευχαριστώ εκ των προτέρων για τον χρόνο σας.

Ερωτηση σχετικα με την εκμαθηση .NET

iNicholas — Tue, 19 Jan 2016 08:17:14 GMT

Γεια σας,

ειμαι νεο μελος στο forum και θα ηθελα ενα μικρο συντομο feedback σχετικα με την εκμαθηση .NET(με C#).

Δεν εχω ιδιαιτερη εμπειρια ως τωρα σε προγραμματισμο. Εχω κανει πιο παλια(αρκετα πιο παλια java, c, html/css, tcl/tk) σε γενικες γραμμες, αλλα πανε απο τοτε 10 χρονια και ουσιαστικα δεν θυμαμαι σχεδον τιποτα. Δεν ειμουν ο καλυτερος ποτε αλλα εκανα τις εργασιες που ειχα στη σχολη μου. τεσπα, αποφασησα να παρακολουθησω καποια μαθηματα πανω σε .ΝΕΤ τωρα. Καποιοι μου λενε οτι ειναι μια χαρα..αλλοι μου λενε οτι εκανα λαθος επιλογη και ειναι παρα πολυ δυσκολο να καταφερω να ασχοληθω με .ΝΕΤ σαν πρωτη(γιατι δεν θυμαμαι τιποτα απο java) γλωσσα object oriented και θα αποτυχω. Θεωρειτε πως αν ασχοληθω θα τα καταφερω;

ευχαριστω εκ των προτερων..

upload txt file via HTTP

Bill — Thu, 26 Nov 2015 18:52:54 GMT

Καλημέρα

Έχω ένα Desktop app με το οποίο θέλω να ανεβάζω ένα αρχείο txt σε μια συσκευή η οποία είναι στο δίκτυο (έχει δηλαδή ένα interface όπως πχ ο router στα σπίτια μας) και υποστηρίζει http protocol. Θέλω να ανεβάζω λοιπόν ένα αρχείο txt έχω την ip και το username / password.

Πως μπορώ να το κάνω αυτό. Έψαξα στο internet και βρήκα διάφορα αλλά πιο πολύ με μπερδέψανε παρά κάτι άλλο. Υπόψην αν πάω από τον browser στο interface της συσκευής και συνδεθώ τότε μπορώ να κάνω upload το αρχείο κανονικά ( αυτό το επισημένω για να σας βγάλω απο το μυαλό σας για το αν η συσκευή υποστηρίζει η όχι http).

Έχω βρει διάφορα για json αλλά δε μου κάνουνε

Ευχαριστώ

IDE για C++ cross-platform applications με GUI.

Apostolis — Thu, 28 Mar 2013 03:56:01 GMT

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

Εχω ξεκινήσει να μαθαίνω C++ (προερχόμενος από την PHP και έχοντας ασχοληθεί λίγο με Visual Basic και Java) και θέλω να μάθω να φτιάχνω εφαρμογές με GUI κι όχι εφαρμογές που τρέχουν από "κονσόλα".
Επίσης να τρέχουν και σε windows και σε linux.
Για το λόγο αυτό δεν θέλω να "φυλακιστώ" σε IDE που φτιάχνουν εφαρμογές μόνο για τη μια ή την άλλη πλατφόρμα.
Επίσης θέλω να δείνουν όσο το δυνατόν πιο ελεύθερο πεδίο για γράψιμο κώδικα κι όχι "αυτοματοποιημένη" συγγραφή προγραμμάτων, όπως στη Visual Basic για παράδειγμα.

Για τους λόγους αυτούς προσανατολίζομαι μακριά από Visual Studio και Qt.
Γνωρίζω το Netbeans (από την Java) αλλά νομίζω πως δεν κάνει την δουλειά που θέλω.

Εχετε να προτείνεται κάποιο άλλο IDE ή κάποιας άλλης μορφής πρόγραμμα που να είναι πιο κατάλληλο;

Συνδρομή σε MSDN Magazine

DTs — Fri, 19 Jun 2015 23:32:46 GMT

Καλησπέρα.

Θα ήθελα να ρωτήσω αν κάποιος γνωρίζει πόσο καιρό κάνει να έρθει στην διεύθυνση του η συνδρομή του MSDN Magazine.

Αναφέρομαι για Hardcopy συνδρομή του περιοδικού.

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

Προσπαθεια δημιουργιας προγραμματος κρατησεων για ξενοδοχειο

KostasVBA — Sun, 05 Oct 2014 17:26:24 GMT

Καλησπερα παιδια , πρωτο μου ποστ οπως βλεπετε. Λοιπον,οι οικογενεια μου εχει ενα μικρο ξενοδοχειο 30 δωματιων στην θεσσαλονικη και καθως το ανακαινιζουμε προσπαθω να φτιαξω ενα προγραμμα κρατησεων .Ξερω πως ακουγετε δυσκολο,ή ισως φαινετε ετσι σε εμενα αφου ξερω ελαχιστα απο προγραμματισμο...

Αρχικα,εφτιαξα ενα excel στο οποιο εγραψα ημερομηνιες ,δωματια και στο οποιο το διαμορφωσα οσο μπορουσα τελως παντων. Επειτα εμαθα οτι υπαρχει το VBA στο excel και προσπαθησα να μαθω περισσοτερα για αυτο .

Αυτο που θα ηθελα τωρα ειναι να φτιαξω ενα προγραμμα πανω στο excel ή και κατι καλυτερο αν βρω στο οποιο θα μπορω να προσθετω κρατησεις με στοιχεια.Κατι απλο!!

Προτυπο μου ειναι αυτο το προγραμμα http://www.managinng.com/el/ καθως ειναι αρκετα απλο...αλλα σιγουρα δυσκολο να φτιαχτει.

1)μηπως μπορειτε να μου πειτε ποιο προγραμμα θα μπορουσα να χρησιμοποιησω ?

2)Το VBA θα μπορουσε να με βοηθησει ? καθως θα ηθελα να στηριχτω στο excel

3) το προγραμμα στην ιστοσελιδα που σας εστειλα πως το εφτιαξε ? με ποιο προγραμμα ?

Υ.Γ. Δεν ξερω αρκετα πραγματα οσο αναφορα τον προγραμματισμο αλλα εχω βαλει σκοπο να φτιαξω το προγραμμα ,εστω και σε 1 χρονο ,αρα θα μαθω τα παντα.

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

c# HttpClient

evagelos — Sun, 26 Oct 2014 18:24:49 GMT

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

φτιαχνω ενα connection μεταξυ ενος web site και μιας τοπικής Βάσης δεδομένων.

Η ερώτηση μου ειναι ως προς το web request

ο κατασκευαστης εχει ενα παραδειγμα:

using (var http = new HttpClient())
{
http.DefaultRequestHeaders.Accept.Clear();
http.DefaultRequestHeaders.Accept.Add(new MediaTypeWithQualityHeaderValue("application/json"));
http.DefaultRequestHeaders.Authorization = new AuthenticationHeaderValue("Basic", Convert.ToBase64String(Encoding.UTF8.GetBytes("username:password")));
http.BaseAddress = new Uri("https://demo.checkfront.com/api/3.0/");
Task<HttpResponseMessage> message = http.GetAsync("booking/index");
String result = message.Result.Content.ReadAsStringAsync().Result;
JObject obj = JObject.Parse(result);
}

1 ερώτηση. Λέει ο κατασκευαστής:

For example, instead of manually building a query string in a request such as:
demo.checkfront.com/api/3.0/booking/index?start_date=today&status_id=PAID HTTP/1.1

You could instead use:

$data = array(
'start_date'=>'today',
'status_id'=>'PAID'
);
Checkfront->get('booking/index',$data);

αυτό πως μπορώ να το "μεταφράσω" σε c# και να περάσω την παραμετρο $data στην HttpClient που εχω;

2 ερώτηση. Το παράδειγμα που δεινει, ειναι asynchronous ή όχι;

που ειναι η BeginGetRequestStream , BeginGetResponse, GetResponseCallback;

Αναγνωση dbase

evagelos — Thu, 16 Oct 2014 21:13:30 GMT

Γεια σας παιδια,

Προσπαθώ να διαβάσω ένα dbase file

όλα καλά αλλα δεν μου εμφανίζει τα ελληνικά

Τι πρέπει να κανω;

DataTable YourResultSet = new DataTable();

string strAccessConn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\shares\lotus\;Extended Properties=dBase III";

OleDbConnection yourConnectionHandler = new OleDbConnection(
strAccessConn);

// Open the connection, and if open successfully, you can try to query it
yourConnectionHandler.Open();

if (yourConnectionHandler.State == ConnectionState.Open)
{
string mySQL = "select * from techtime"; // dbf table name

OleDbCommand MyQuery = new OleDbCommand(mySQL, yourConnectionHandler);
OleDbDataAdapter DA = new OleDbDataAdapter(MyQuery);

DA.Fill(YourResultSet);

yourConnectionHandler.Close();
}

string myString = YourResultSet.Rows[0][4].ToString();

το string αυτό εχει τιμή: "¦+=?? =-¦?T??-??"

Ευχαριστώ

Ερώτηση Function για ποσά (Τελία ή κόμμα;)

VbNetDummy — Wed, 22 Jan 2014 20:00:28 GMT

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

Είχα φτιάξει μια εφαρμογή στο παρελθόν σε vb6 η οποία διάβαζε ένα γραμμογραφημένο text και καταχωρούσε τις τιμές του σε μια βάση. Το πρόβλημα που είχα ήταν όταν διάβαζε ποσά. Κάποιοι καταχωρούσαν τα ποσά τους με κομμα για τα δεκαδικά ψηφία και κάποιοι με τελία . Οταν έβαζες τη τιμή σε μια μεταβλητη π.χ. Double πότε την έπαιρνε σωστά και πότε ότι ναναι!!! Εφτιαξα τοτε μια function η οποία διάβαζε τα settings σου και τη τιμή σαν text, καταλάβαινε τι έχεις χρησιμοποιήσει, το μετέτρεπε σε αυτό που θέλουν οι ρυθμίσεις σου και τέλος το καταχωρούσε στη μεταβλητή (double) ώστε να περαστεί σωστά στη βάση.

Η ερώτηση μου είναι η εξής. Υπάρχει κάποιο έτοιμο function στη .ΝΕΤ να μου κάνει τη δουλίτσα ή να προσαρμόσω αυτό που είχα φτιάξει και να τελειώνει η υπόθεση;

Ερώτηση για άνοιγμα αρχείων

AlKiS — Wed, 01 May 2013 23:36:56 GMT

Καλησπέρα,

Έχω ένα πρόγραμμα, στο οποίο έχω βάλει μια μεταβλητή

Public Args() As String = Environment.GetCommandLineArgs

και έτσι όταν ανοίγει το πρόγραμμα, εάν κάποιος έχει ανοίξει ένα αρχείο με το πρόγραμμα μου, το δεύτερο element του Args θα είναι η τοποθεσία του αρχείου.
Άρα στο MyBase.Load απλώς εξετάζω τη μεταβλητή αυτή.

Εάν το πρόγραμμα δεν είναι Single Instance Application, τότε κάθε φορά που πατάω ένα αρχείο, ανοίγει ένα ακόμα instance του προγράμματος.

Εάν όμως το πρόγραμμα είναι Single Instance Application, τότε πως μπορώ να πάρω ένα string με την τοποθεσία του αρχείου που πατήθηκε?

Δεν ξαναγίνεται fire το MyBase.Load, και δοκίμασα πολλά άλλα events, κανένα εκ των οποίον δεν κάνει fire σε Single Instance Application όταν πατάω το αρχείο. είναι λες και δεν το πάτησα..

TypeBox (My Open Source Function)

AlKiS — Fri, 12 Apr 2013 06:07:51 GMT

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

Μόλις τελείωσα το πρώτο public version του function-εργαλείου που ονομάζω TypeBox.

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

Download: http://www.nihilistslab.com/Programs/TypeBoxDemonstrator/Release/TypeBox%20Demonstrator.rar

Πληροφορίες:

To Typebox είναι ένα function το οποίο χειρίζεται την είσοδο κειμένου από τον χρήστη. Όταν καλείται, φέρνει τη φόρμα εισόδου όπου ο χρήστης μπορεί να πληκτρολογίζει ή να επιλέξει κάτι (ανάλογα με τον τύπου της εισόδου). Αν αυτό που ο χρήστης πληκτρολόγησε ή επέλεξε δεν εμπίπτει στις προδιαγραφές που έχετε ορίσει, εμφανίζεται ένα μήνυμα στον χρήστη, ενημερώνοντάς τον για το γεγονός, και του λέει τι ακριβώς είναι λάθος σε αυτό που εισήγαγε, ώστε να προσπαθήσει ξανά.

Μπορείτε να δείτε απόλυτα αναλυτικά τα πάντα στο: http://www.NihilisTsLab.com/typebox

Τέλος, αν κάποιος moderator/administrator το δει και πιστεύει ότι είναι χρήσιμο, θα χαρώ πολύ να δω το post ως sticky/pinned.

[VB] Η γλώσσα αλλάζει σε Ελληνικά μόνη της μέσα στο πρόγραμμα

AlKiS — Tue, 19 Mar 2013 04:15:46 GMT

Καλησπέρα,

Κάτι ασυνήθιστα περίεργο συμβαίνει τις τελευταίες μέρες..

Κάθε φορά που κάνω debug, σε κάποιες φόρμες (ενώ οι προηγούμενες φόρμες αρχίζουν κανονικά με αγγλικά) η γλώσσα που γράφεται στο textbox αλλάζει μόνη της σε Ελληνικά. Ακόμα κιαν το αλλάξω σε αγγλικά (όταν με αφήνει, διότι μερικές φορές, όσο κιαν πατήσω alt+shift ή επιλέξω "English" από το taskbar έχοντας προηγουμένως focus στο textbox, δεν θα αλλάξει σε αγγλικά - είναι Απίστευτο!), την επόμενη φορά που θα εμφανιστεί η φόρμα, άντε πάλι ελληνικά στο κείμενο του textbox!

Με έχει εκνευρίσει τόσο πολύ το γεγονός, που έβγαλα προσωρινά την ελληνική γλώσσα από τα windows. (όμως καλώς ή κακώς είναι απαραίτητη, οπότε πρέπει να βρω άλλη λύση)

Έχει κανείς ιδέα τι μπορεί να συμβαίνει?

Είδα ότι ένα από τα properties της φόρμας είναι και το "Language" το οποίο έχει προεπιλογή το "Default". Το άλλαξα σε "English (United Kingdom)" αλλά και πάλι τίποτα! ανένδοτο.. Ελληνικά και πάλι Ελληνικά αυτό. (Δόθηκε εξήγηση γι αυτό παρακάτω)

Τι να κάνω??

(Επιπλέον Πληροφορίες:

Έχω (αυθεντικά) Windows 7 Ultimate, Αγγλικά, SP1, όλα τα updates (αρχικά δεν είχε καν την ελληνική γλώσσα πληκτρολογίου, πήγα εγώ και την πρόσθεσα)

Ρυθμίσεις που υπάρχουν στο Control Panel -> "Region and Language"

Tab: Formats: -Format: "English (United Kingdom)"

Tab: Location: -Current Location: "United Kingdom"

Tab: Keyboards and Languages: -Default Input Language: "English (United Kingdom)"

Tab: Administrative: -Language for non-Unicode Programs (System Locale): "Greek (Greece)" [Αυτό το έχω ελληνικά διότι αλλιώς τα non-unicode κείμενα γραμμένα ελληνικά, φαίνονται αλαμπουρνέζικα.] )

Οδηγός δημιουργίας ιστοσελίδων[Html + CSS]

aristos007 — Mon, 22 Oct 2012 02:52:42 GMT

Αγαπητοί αναγνώστες,

Πρόσφατα άρχισα να δημιουργώ οδηγούς στο youtube όπου εξηγώ πως μπορεί κάποιος να δημιουργήσει μια ιστοσελίδα.

Οι οδηγοί έχουν τα εξής χαρακτηριστικά:

Είναι στα ελληνικά
Περιέχουν παραδείγματα
Πλήρης εξήγηση κάθε σήμανσης-εντολής

Το κανάλι μου στο youtube είναι αυτό:

http://www.youtube.com/user/OdhgosGR

Έχω δημιουργήσει 2 οδηγούς που έχουν τα βασικά της HTML και της CSS.

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

Σας παρακαλώ πολύ, αν είναι δυνατόν, να υποστηρίξετε την προσπάθεια μου αυτή.Στο μέλλον θα δημιουργήσω περισσότερους οδηγούς σε άλλους τομείς όπως το Photoshop,η php,ίσως Visual Basic και επεξεργασία ήχου.

Σας ευχαριστώ πολύ που διαβάσατε την ανάρτηση αυτή,

Άρης

Excel χωρίς να το έχει ο χρήστης?

AlKiS — Sat, 11 Feb 2012 09:05:45 GMT

Καλησπέρα,

Σε κάποια απο τα προγράμματα μου είναι αναγκαίο να ασχολούμαι με το Microsoft Office (ασχέτως έκδοσης).

Αυτά που κάνω είναι: Μετατροπή αρχείου excel σε text, και τώρα χρειάζομαι να δημιουργώ excel αρχείο με ήδη υπάρχουσες μεταβλητές (επειδή όλα τα μαθηματικά προγράμματα όπως SPSS καταλαβαίνουν τα excel αρχεία).

Για να επικοινωνώ λοιπών με το excel, χρησιμοποιώ αυτά:

Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop
Public ExcelApp As New Microsoft.Office.Interop.Excel.Application()
Dim wBooks As Excel.Workbooks = ExcelApp.Workbooks
Dim ExcelWorkbook As Excel.Workbook
Dim ExcelWorksheet As Excel.Worksheet = CType(ExcelApp.ActiveSheet, Microsoft.Office.Interop.Excel.Worksheet)

Υπάρχει όμως ένα μεγάλο πρόβλημα... Ο χρήστης πρέπει να έχει το excel γραμμένο στον υπολογιστή του!

Υπάρχει τρόπος να επικοινωνώ με excel αρχεία, χωρίς ο χρήστης να έχει γραμμένο το Microsoft Excel στον υπολογιστή του??

Usercontrols και delete από solution

gus — Tue, 04 Dec 2012 18:50:39 GMT

Καλημέρα παιδιά,

άρχισα πριν 2-3 μέρες να ασχολούμαι με τα usercontrols ώστε να τα ενσωματώσω σε μία desktop εφαρμογή που φτιάχνω. Το θέμα είναι ότι έκανα κάποιο λάθος και θέλω να σβήσω ένα ώστε να δημιουργήσω ένα άλλο. Από εκεί και πέρα ξεκινούν τα προβλήματα. Όταν κάνω delete το usercontrol τότε στο compile αποτυγχάνει με το εξής μήνυμα: usercontrol x does not exist in the namespace. Έχω σβήσει βέβαια τον κώδικα στο mainwindow.xaml.cs στο οποίο καλούσα το control:

ContainerMain.Children.Clear();

myUserControls.UserAdd ua = new myUserControls.UserAdd();

ContainerMain.Children.Add(ua);

Υ.Γ Είμαι αρχάριος οπότε συγχωρέστε με για το περιεχόμενο των ερωτήσεων μου

DataGridView DataSource: List(of String) δεν δουλεύει [VB.NET 2012]

AlKiS — Fri, 24 Aug 2012 07:50:50 GMT

Καλησπέρα,

Έχω ένα DataGridView σε μια φόρμα που εμφανίζει αποτελέσματα ανάλογα με το ποιο κουμπί πατιέται. άλλες φορές μιλάμε για 5 σειρές, άλλες για 10, και άλλες 50 χιλιάδες σειρές.

Προφανώς στις 10 σειρές το αποτέλεσμα είναι instant, όμως στις 50 χιλιάδες, το να ενημερώνω το datagridview για κάθε εγγραφή είναι πολύ χρονοβόρο!

Σκέφτηκα λοιπόν να χρησιμοποιήσω το .DataSource property του DGV.. έλα όμως που αντί να μου βγάλει τα αποτελέσματα, μου λέει το πόσο Length έχουν...

Τι ακυρωσίνη θεέμου!

έχω δοκιμάσει List (of MyClass) όπου MyClass είναι μια κλάση με 5 μεταβλητές (για 5 columns που θέλω)

έχω δοκιμάσει List (of String) για να δω τι θα γίνει σε 1-dimentional

επίσης και String()

αλλά και String(,) [βγάζει πρόβλημα εδώ. τα άλλα όλα τα δέχετε, απλώς αντί των αποτελεσμάτων μου λέει πόσο length έχει το κάθε string]

δοκίμασα και List (of List( of String))

τίποτα...

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

Η ερώτησή μου σε όλο αυτό είναι, πως να το κάνω να καταλάβει ότι δεν θέλω να μου δείχνει το Length του string αλλά το string το ίδιο?!?!

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim KatiMegalo As New List(Of List(Of Object)) 'String = {{"Ena", "Tria", "Dio", "Tessera"}, {"Pente", "Eksi", "Efta", "Okto"}}
        Dim Str(1) As List(Of Object)

        Dim Kati As New List(Of Object)
        Kati.Add("Ena")
        Kati.Add("Dio")
        Kati.Add("Tria")
        Kati.Add("Tessera")
        KatiMegalo.Add(Kati)

        Dim KatiAllo As New List(Of Object)
        KatiAllo.Add("Ena")
        KatiAllo.Add("Dio")
        KatiAllo.Add("Tria")
        KatiAllo.Add("Tessera")
        KatiMegalo.Add(KatiAllo)

        Str(0) = Kati
        Str(1) = KatiAllo

        Dim frmNewSheet As New frmZStatisticsSheet
        With frmNewSheet

            .DataGridView1.DataSource = Kati
            .Show()
        End With
    End Sub

Πρόβλημα με SaveFileDialog από Async Form [VB.NET 2010]

AlKiS — Mon, 23 Jul 2012 20:46:13 GMT

Hello all :)

Θα χρειαστώ τη βοήθειά σας για μία ακόμη φορά :Ρ

Έχω ένα πρόγραμμα, του οποίου ένα κουμπί εμφανίζει μια φόρμα που βγάζει στατιστικές πληροφορίες/Reports.

    Private Async Sub btnTodaysZStat_Click(sender As System.Object, e As System.EventArgs) Handles btnStatZToday.Click
        pbStatZToday.Visible = True
        StatStatZTodayFormsOpen += 1
        lblStatZToday.Text = CStr(StatStatZTodayFormsOpen)
        lblStatZToday.Visible = True

        Await TaskEx.Run(
            Sub()
                Dim TodaySelector As New frmZStatisticsSelector
                With TodaySelector
                    .chkZTimePeriod.Checked = True
                    .dtZFromDate.Value = Today.Date
                    .dtZToDate.Value = Today.Date
                    .Opacity = 0
                    .AutoAction = "Today Database"
                    .PreventFormFromClosing = True
                    .ShowInTaskbar = False
                    .ShowDialog()
                End With
            End Sub)

        StatStatZTodayFormsOpen -= 1
        lblStatZToday.Text = CStr(StatStatZTodayFormsOpen)
        If StatStatZTodayFormsOpen <= 0 Then
            lblStatZToday.Visible = False
            pbStatZToday.Visible = False
        End If
    End Sub

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

Όταν κάνει λοιπόν όλες τις πράξεις, θα εμφανίσει μια φόρμα η οποία έχει μόνο ένα data grid view πάνω της και δείχνει τα δεδομένα που της έβαλε η " TodaySelector " (κάπως έτσι: )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
       Dim frmNewSheet As New frmZStatisticsSheet

            If File.Exists(DataBaseFile) Then
                Call ConnectToDatabasesAndLoadTables()

                If ProdsRowCount > 0 Then
                    Call LoadZTodayMainVariables()
                    Call ApplyGeneralInfo()
                    Call CalcPerZNumPerVAT()
                    Call CalcPerPaymentMethod_Horiz()
                    Call CalcPerVATPerServer()
                    Call CalcDiscountDelRet()
                    AddRows(1)
                    frmNewSheet.Show()

                Else
                    MsgBox(StrLanguage(42), MsgBoxStyle.Information)    'No Orders match your criteria
                End If

            Else
                MsgBox(StrLanguage(35) & DataBaseFile & StrLanguage(37) & vbCrLf & StrLanguage(62), MsgBoxStyle.Critical) 'file cannot be found! Please specify another path to the database path
                frmSettings.Show()
                Me.Close()
            End If

(Ναί, ξέρω ότι δεν χρειάζεται να γράφω "call", όμως μου αρέσει γιατί βλέπω ότι καλώ κάτι, μην κολλήσουμε εκεί plz)

Όλα γίνονται τέλεια! Δουλεύουν χωρίς lag, μέχρι και το PrintForm του Sheet (τελευταίας φόρμας, αυτής με μόνο το DataGridView) δουλεύει.
Έχω γράψει επίσης ένα sub που μετατρέπει το DGV σε Comma Separated Values format (.csv). Άμα το καλέσω δουλεύει κι αυτό.

Όμως όταν πατάω να κάνει save as, δλδ να διαλέξει ο χρήστης σε ποια μεριά να σωθεί το αρχείο, μου βγάζει πρόβλημα στο .ShowDialog του SaveFileDialog.

Το πρόβλημα είναι:

System.Threading.ThreadStateException: Current thread must be set to single thread apartment (STA) mode before OLE calls can be made. Ensure that your Main function has STAThreadAttribute marked on it. This exception is only raised if a debugger is attached to the process.
   at System.Windows.Forms.FileDialog.RunDialog(IntPtr hWndOwner)
   at System.Windows.Forms.CommonDialog.ShowDialog(IWin32Window owner)
   at System.Windows.Forms.CommonDialog.ShowDialog()

Το SaveAs είναι το εξής:

    Private Sub SaveAs()
        Try
            sfdExport.FileName = ""
            sfdExport.InitialDirectory = strDataDir
            sfdExport.DefaultExt = ".csv"
            sfdExport.FileName = DefaultSaveFileName & sfdExport.DefaultExt  'Today's Statistics or something similar
            sfdExport.Filter = strLanguage(4) & "|*.csv|All Files|*.*"  'Comma-Separated Values Files
            Dim SaveDialogResult As DialogResult = sfdExport.ShowDialog()
            If SaveDialogResult = Windows.Forms.DialogResult.OK Then
                Dim Success As Boolean = Save_dgv_To_csv(sfdExport.FileName, dgvZStat)
                If Success Then
                    MsgBox(strLanguage(2) & sfdExport.FileName, MsgBoxStyle.Information) 'The file has been successfully saved.
                End If
            End If


        Catch ex As Exception
            MsgBox(ex.ToString)
            CreateCrushFile(ex.ToString)
        End Try
    End Sub

τη μετατροπή σε csv την κάνω έτσι:

    Public Function Save_dgv_To_csv(ByVal FileName As String, DataGrid As DataGridView, Optional ByVal IncludeColumnNames As Boolean = False, Optional LastSaveFile As String = "") As Boolean
        Try
            Dim ExportationText As String = String.Empty

            If IncludeColumnNames Then
                For i As Integer = 0 To DataGrid.ColumnCount - 1
                    ExportationText &= """" & DataGrid.Columns(i).HeaderText & ""","
                Next
            End If

            For j = 0 To DataGrid.RowCount - 2
                ExportationText &= vbCrLf
                Dim CurrentLine As String = ""
                For i = 0 To DataGrid.ColumnCount - 1
                    If IsNumeric(DataGrid.Rows(j).Cells(i).Value) Then
                        CurrentLine &= """" & DataGrid.Rows(j).Cells(i).Value.ToString.Replace(",", ".") & ""","
                    Else
                        If DataGrid.Rows(j).Cells(i).Value IsNot Nothing Then
                            CurrentLine &= """" & DataGrid.Rows(j).Cells(i).Value.ToString & ""","
                        Else
                            CurrentLine &= """" & ""","
                        End If
                    End If
                Next
                ExportationText &= CurrentLine

            Next

            ExportationText = ExportationText.Substring(0, ExportationText.Length - 1)
            WriteText(FileName, ExportationText)
            LastSaveFile = FileName
            Return True

        Catch ex As Exception
            Return False
        End Try
    End Function

Καταλαβαίνω ότι το πρόβλημα υπάρχει γιατί έχω καλέσει Async την πρώτη φόρμα (TodaySelector), το θέμα είναι.. υπάρχει τρόπος να έχω καλεσμένη Async τη φόρμα ΚΑΙ να μπορώ να εμφανίσω το SaveFileDialogue?
Τι μου προτείνεται να κάνω?

Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Mon, 09 Jul 2012 05:56:09 GMT

(μιλώντας για VB.NET προς το παρόν)

θέλω να φτιάξω μια φόρμα που θα περιέχει μερικά κουμπιά όπου το καθένα θα τρέχει ένα αρχείο installer για να κάνει install αυτό που γράφει το εκάστοτε κουμπί.

Το θέμα είναι ότι για να τρέξει η VB.NET φόρμα αυτή, χρειάζεται εγκατεστημένο το .net framework

Θέλω να δημιουργήσω ένα .bat ή .wsf αρχείο το οποίο!

1) θα ελέγχει εάν υπάρχει το εξής κλειδί στο registry:

1	"HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\v2.0.50727" /v Install

Αυτό θα πρέπει να περιέχει την τιμή "1"

2.α) Αν υπάρχει ΚΑΙ περιέχει την τιμή "1", τότε να τρέχει το πρόγραμμα "FinkPOS.exe" που βρίσκεται στον ίδιο φάκελο

2.β) Αν είτε δεν υπάρχει, είτε υπάρχει αλλά με άλλη τιμή, τότε θα πρέπει

2.β.1) να τρέχει το πρόγραμμα "dotnetfx.exe" που βρίσκεται στον υποφάκελο "DotNetFramework" (\DotNetFramework\dotnetfx.exe)

2.β.2) αφού περιμένει να τερματιστεί το "dotnetfx.exe", να τρέχει το "langpack.exe" στον ίδιο υποφάκελο (\DotNetFramework\langpack.exe)

2.β.3) αφου περιμένει να τερματιστεί και το "langpack.exe", νσ τρέξει το FinkPOS.exe

Ο κώδικας είναι στο παρακάτω post.

(Λόγω του ότι έσβησα πράγματα και απο τα 2 post με edit για ενημέρωση)

Πρόβλημα στο campacting Access .accdb αρχείο [VB.NET 2010]

AlKiS — Sat, 07 Jul 2012 05:40:37 GMT

Καλησπέρα.. κάνω ένα πρόγραμμα το οποίο θα χρειάζεται να κάνει χιλιάδες προσθέσεις και αφαιρέσεις σε μια βάση δεδομένων Access 2010 .accdb

Θέλω το πρόγραμμά μου, κάθε φορά πριν αρχίσει να κάνει τη δουλειά του, να κάνει ένα compact τη βάση δεδομένων..

Έχω αυτόν τον κώδικα, αλλά δεν δουλεύει όμως...

    Public Sub CompactAccessDB(ByVal DatabasePath As String, ByVal ConnectionString As String, Optional ByVal Password As String = "")
        Try
            Dim jro As New JRO.JetEngine
            Dim strTempDbPath As String = strExtras & "tmpDB" & GetExt(DataBaseFile)

            FileCopy(DatabasePath, strTempDbPath)
            UnlockFileFolder(DatabasePath)

            'Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
            Dim ConnectionPassword As String = ""
            If Password <> "" Then
                ConnectionPassword = ";Jet OLEDB:Database Password=" & Password
            End If

            jro.CompactDatabase(ConnectionString & "Data Source=" & strTempDbPath & ConnectionPassword & ";Jet OLEDB:Engine Type=5", _
            ConnectionString & "Data Source=" & DatabasePath & ConnectionPassword)

            DelFileFolder(strTempDbPath)

        Catch ex As Exception
            CreateCrushFile(ex.ToString)
            MsgBox(ex.ToString)
        End Try
    End Sub

το πρόβλημα εμφανίζεται στην γραμμή 16 (που είναι η κρίσιμη γραμμή, αυτή που θα κάνει το compact!).

Το πρόβλημα που βγαίνει είναι:

"System.Runtime.InteropServices.COMException (0x80004005): Invalid argument.
at JRO.IJetEngine.CompactDatabase(String SourceConnection, String Destconnection)
at Ultra_PoS.modGlobal.CompactAccessDB(String DatabasePath, String ConnectionString, String Password) in C:\Users\Giannis M\Dropbox\Visual Basic 2010\Projects\Ultra PoS\Ultra PoS\Modules\modGlobal.vb:line 396"

(Το line 396 είναι το 16 στον κώδικα που έγραψα εδώ)

Στο jro.CompactDatabase(,) περνιούνται 2 arguments:

Πρίν το κόμμα περνιέται το:

1	PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Giannis M\Dropbox\Visual Basic 2010\Projects\Ultra PoS\Ultra PoS\bin\Debug\Extras\tmpDB.accdb;Jet OLEDB:Engine Type=5

Μετά το κόμμα περνιέται το:

1	PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Giannis M\Dropbox\Visual Basic 2010\Projects\Ultra PoS\Ultra PoS\bin\Debug\Database\Database.accdb

Τι κάνω λάθος???

Πρόβλημα με DateTime

AlKiS — Fri, 06 Jul 2012 06:59:02 GMT

Καλησπέρα,

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

ωστόσο επειδή δεν θέλω να έχω σε άλλο πεδίο την ημερομηνία και σε άλλο την ώρα, είπα να τα ενώσω.. και τώρα μου βγάζει το εξής πρόβλημα "String was not recognized as a valid DateTime."

Ο κώδικας είναι ο εξής:

1	dsNewRow.Item(glbProdProductDateTime) = Convert.ToDateTime(ProductDateTime(3), CultureInfo.InvariantCulture)

Και μέσα στη μεταβλητή ProductDateTime(3) υπάρχει το εξής string: "24/8/11 14:06"

Δωκήμασα διάφορους τρόπου πιο πριν, συμπεριλαμβανομένων και κάποιων που έπερναν validation string όπως:

1	DateTime.ParseExact(ProductDateTime(3), "DD/MM/YY hh:mm", CultureInfo.InvariantCulture)

όμως κανένα δεν δουλεύει... όλα failάρουν με το ίδιο πρόβλημα... "δεν αναγνωρίζεται ως έγκυρο"..

Αυτό που θέλω να πετύχω είναι να γίνεται η αντιστοίχηση του string " 24/8/11 14:06" (και οποιουδήποτε παρόμοιου) σε ένα DateTime με μορφή "DD/MM/YY hh:mm". Και αυτό να γίνεται άσχετα με το αν ο άλλος έχει ελληνικό λειτουργικό, αγγλικό ή σουηδικό.. να ισχύει πάντα η μετατροπή ως "DD/MM/YY hh:mm"

ιδιότητες σε Button CauseValidation,accessdescription σε vb2010

DimitrisT — Thu, 24 May 2012 15:58:44 GMT

Καλησπέρα, ήθελα να ρωτήσω τι ακριβώς κάνoυν οι ιδίότητες που υπάρχουν στη vb2010 , στο button CauseValidation αλλά και η accessdescription

υπάρχουν φυσικά κάποιες περιγραφές που δίνει η vb, αλλά δεν είναι και τόσο κατανοητά, θα μπορούσε κάποιος να τα εξηγήσει με ένα απλό παράδειγμα;

Σας ευχαριστώ πολύ

Ερωτήσεις πάνω στα LINQ Samples (VB.NET 2010)

AlKiS — Sat, 05 May 2012 06:46:25 GMT

Ότι ερωτήσεις έχω πάνω στα LINQ Samples θα τα γράφω εδώ (άρα όσο προχωράω στα samples θα βάζω κι άλλα reply)

Οκ, λοιπόν... κοιτάω αυτή τη σειρά κώδικα από τα LINQ Samples (Νο5) επί ώρα.. κάνω μικρο-αλλαγές... και δεν μπορώ να καταλάβω γιατί δουλεύει!

Dim shortDigits = digits.Where(Function(digit, index) digit.Length() < index)

Και πράγματι αναγνωρίζει ποια νούμερα μέσα από το "digits" έχει περισσότερα ψηφία από την τιμή του..

μέχρι και το "where" είμαστε ΟΚ. μετά λέει "Funtion" αλλά με περιορίζει στο να βάλω μέσα του είτε [String] είτε [String, Integer] αν και όταν πάω πάνω του λέει
[String, Boolean] είτε [String, Integer, Boolean]

Μετά, αφήνοντας απόσταση ΔΕΝ με προτρέπει να γράψω τίποτα, και ούτε δείχνει κάτι στο description του.. όμως αν δεν γράψεις σου βγάζει πρόβλημα.
Εδώ βλέπουμε γραμμένο το "digit.Length() < index"
Θέλει μόνο ονόματα μεταβλητών που ΔΕΝ υπάρχουν - αν υπάρχει η μεταβλητή σου βγάζει πρόβλημα..
και η μεταβλητή φυσικά μπορεί να έχει ότι όνομα νάναι..
Άρα πως στο καλό κάνει αυτό που κάνει??

Όλο το κομμάτι κώδικα είναι αυτό:

    Public Sub Linq5()
        Dim digits = New String() {"jhghj", "one", "two", "three", "four", "-one", "six", "seven", "eight", "nine"}
 
        Dim shortDigits = digits.Where(Function(digit, index) digit.Length() < index)
 
        WriteLine("Short digits:")
        For Each d In shortDigits
            WriteLine("The word " & d & " is shorter than its value.")
        Next
    End Sub


Sample 12:
δεν καταλαβαίνω ούτε αυτόν τον κώδικα. Δουλεύει, ναι.. αλλά όπως και πριν.. γιατί δουλεύει? δεν μπορώ να αντιληφθώ τι λέει. πως διαβάζεται...
1
     Dim numsInPlace = numbers.Select(Function(num, index) New With {.Num = num, .InPlace = (num = index)})
ολόκληρος ο κώδικας είναι ο:
1
2
3
4
5
6
7
8
9
10
 Public Sub Linq12()
    Dim numbers As Integer() = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}

    Dim numsInPlace = numbers.Select(Function(num, index) New With {.Num = num, .InPlace = (num = index)})

    Console.WriteLine("Number: In-place?")
    For Each n In numsInPlace
        Console.WriteLine(n.Num & ": " & n.InPlace)
    Next
End Sub 
και βλέπει αν οι αριθμοί είναι στη σωστή σειρά, και λέει True/False αναλόγως.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Έχω θέμα και με το Sample 19.. 
Δεν καταλαβαίνω αυτή τη σειρά:
1
 Dim customerOrders = customerList.SelectMany(Function(cust, custIndex) From ord In cust.Orders Select "Customer #" & (custIndex + 1) & " has an order with OrderID " & ord.OrderID)
ο κώδικας βγάζει σειρές με το εξής pattern: "Customer #{No} has an order with OrderID {OrderIdNum}"
Όλες αυτές οι σειρές υπάρχουν μέσα σε αυτή τη μεταβλητή.. αλλά δεν καταλαβαίνω πως το κάνει.
Ολόκληρος ο κώδικας είναι:
1
2
3
4
5
6
7
8
9
     Public Sub Linq19()
        Dim customerOrders = customerList.SelectMany(Function(cust, custIndex) From ord In cust.Orders Select "Customer #" & (custIndex + 1) & " has an order with OrderID " & ord.OrderID)

        For Each Order In customerOrders
            Output &= vbCrLf & Order
        Next

        WriteLine(Output.Substring(2))
    End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Πρόβλημα και με το sample 25.
Γενικά απότι βλέπω, πρόβλημα έχω στα samples που γράφουν μέσα τους το "function". Τα υπόλοιπα είναι απόλυτα κατανοητά...
Αν αλλάξω το function σε Sub, δεν δουλεύει.. άρα το συγκεκριμένο function δεν είναι το ίδιο με αυτό που γράφουμε έξω έτσι? (δλδ με το π.χ. Public Shared Function MyFunction [Byval Var1 as SomeType, Byval Var2 as SomeType, ByRef Var3 As SomeType] )
Συγκεκριμένα το 25 γράφει:
1
2
3
4
5
6
7
8
9
10
     Public Sub Linq25()
        Dim numbers() As Integer = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}

        Dim firstSmallNumbers = numbers.TakeWhile(Function(n, index) n >= index)

        WriteLine("First numbers not less than their position:")
        For Each n In firstSmallNumbers
            WriteLine(CStr(n))
        Next
    End Sub
και όπως πάντα, το πρόβλημά μου βρίσκετε στη σειρά με το "Function":
1
 Dim firstSmallNumbers = numbers.TakeWhile(Function(n, index) n >= index)

Ερώτηση πάνω σε LINQ

AlKiS — Mon, 02 Apr 2012 18:53:49 GMT

Καλημέρα!! :)

Σε προηγούμενο thread μου, είχε αναφερθεί ότι σε μεταβλητές List (of T) μπορείς να χρησιμοποιήσεις LINQ.

Προς το παρόν είμαι εντελώς άσχετος με LINQ (αν και το καλοκαίρι που θα έχω ελεύθερο χρόνο μετά τη δουλειά, θα κοιτάξω να μάθω)

Θέλω να ξέρω λοιπόν, αν γίνεται μέσω LINQ το εξής:

Έχω μια μεταβλητή: Dim Questions As New List(Of clsQuestions)

όπου clsQuestions είναι μια Class που περιέχει τα εξής:

Public Class clsQuestions
    Public Question As String
    Public ClassID As Integer
    Public ClassName As String
    Public ClassPercentage As Decimal
    Public WasMandatory As Boolean
    Public AnswerType As String
    Public Answer As String
    Public Answers As List(Of String)
    Public Points As Decimal
    Public lstAnswersPoints As List(Of Decimal)
End Class

Θέλω να κάνω ένα Loop για όσα questions έχουν "ClassID" = x (όπου το χ θα το αλλάζω σε ότι θέλω εγώ την κάθε φορά).

κάτι του τύπου

1
2
3

For Each Question As clsQuestions In Questions where ClassID = 1
    Κάνε Κάτι
Next

Είχε επίσης ειπωθεί ότι στα List (of T) μπορείς να βγάλεις μέσο όρο και τέτοια πολύ εύκολα.

Αν θεωρήσουμε ότι έχω μια List (Of Decimal), πως μπορώ να βγάλω τον μέσω όρο και το sum??

Πως κάνουμε associate ένα File Extension?

AlKiS — Sun, 29 Jan 2012 02:21:13 GMT

Θέλω όταν πατιέται ένα αρχείο με extension .RecC να ανοίγει το πρόγραμμά μου..

Μπορώ να το κάνω άν κλικάρω το αρχείο και πατήσω "Άνοιγμα με..." απο τον explorer των windows αλλά αυτό δεν λέει κάτι.. θέλω να μάθω πως να το κάνω προγραμματιστικά.

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

έψαξα και βρήκα ότι όλα τα associations είναι στο registry: HKEY Current User\Software\.....\FileExts\

εκεί βρήκα φακέλους με το όνομα του extension, και μέσα κάποιες περίεργες τιμές.. δεν βγάζω νόημα πως να το κάνω..

Μεταξύ δύο μεταβλητών...

AlKiS — Wed, 28 Mar 2012 02:16:25 GMT

Καλησπέρα για ακόμα μια φορά φόρουμ! έχω μια απορία...

Θέλουμε να βάλουμε άγνωστο πλήθος τιμών μέσα σε μια μεταβλητή.

-Είναι γνωστό ότι αυτή η μεταβλητή θα χρησιμοποιηθεί για πράξεις αργότερα-

Είναι καλύτερα να κάνουμε μια «μεταβλητή()» και να την κάνουμε redim preserve, ή να κάνουμε μια «μεταβλητή List(Of Τ)»?

(Με εξαίρεση το «κάνε μια μεταβλητή(99999) [με μεγάλο αριθμό], αν υπάρχουν κι άλλοι τρόποι να το κάνω που θα είναι πιο γρήγοροι, πείτε μου)

btw, κάπου είχα δει και μια μεταβλητή dictionary – ακόμα δεν κατάλαβα τι κάνει, αλλά την αναφέρω σε περίπτωση που μπορεί να έχει application εδώ.