29 Δεκεμβρίου 2011

Sygic Πλοήγηση GPS για συσκευές με Android

Όταν επισκέφθηκα το Android Market από το κινητό μου για να αναζητήσω λογισμικό πλοήγησης, η πρώτη επιλογή ήταν το πρόγραμμα πλοήγησης της Sygic. Μετά από λίγη σκέψη αποφάσισα να το αγοράσω. Συγκεκριμένα επέλεξα τους χάρτες Ανατολικής Ευρώπης, όπου έχει και την Ελλάδα. Το ίδιο βράδυ δοκίμασα το σύστημα στο αυτοκίνητο. Πρώτα, το είχα ρυθμίσει να μιλάει και ελληνικά. Συγκεκριμένα, στις ρυθμίσεις έλεγε ότι η φωνή ανήκει σε κάποια Δέσποινα! Το αποτέλεσμα ήταν εκπληκτικό. Ήταν πολύ γρήγορο στη λήψη και σου έλεγε με ακρίβεια που θα στρίψεις. Επίσης, δεχόταν πολλές ρυθμίσεις για τη διαδρομή και για την εμφάνιση της πλοήγησης. Το κινητό συμπεριφερόταν σαν κανονικό GPS και αν το έβαζες οριζόντια είχε και καλή ανάλυση. Η διεύθυνση είναι: http://www.sygic.com/en/android:buy-now

8 Δεκεμβρίου 2011

Διαδικασία μεταφόρτωσης αρχείου (upload) σε ftp server του ΠΣΔ (Πανελλήνιου Σχολικού Δικτύου)

Κάντε κλικ στις εικόνες για να εμφανιστούν στο αρχικό τους μέγεθος

 1. Πρώτα πηγαίνουμε στην ιστοσελίδα του sourceforge.net για να κατεβάσουμε ένα ελεύθερο πρόγραμμα ftp client, όπως είναι το Filezilla. Η πλήρης διεύθυνση είναι: http://sourceforge.net/projects/filezilla/ και πάμε στην επιλογή "Download"


15 Νοεμβρίου 2011

Αρχεία εικόνας για montage εικόνων με το πρόγραμμα gimp

Κατεβάστε το αρχείο zip με τις εικόνες. Με τις εικόνες αυτές θα δημιουργήσετε μια σύνθεση εικόνων (montage) που θα αφορά μνημεία και σημεία τουριστικού ενδιαφέροντος της Ελλάδας.

26 Οκτωβρίου 2011

Άσκηση επανάληψης στην HTML

Δημιουργήστε αρχείο html που να εμφανίζει την παρακάτω σελίδα με τίτλο (δηλαδή στην ετικέτα <title>) "Άσκηση Επανάληψης".




















Λύση:
<html>
<head><title>Άσκηση Επανάληψης</title></head>
<body bgcolor="lightyellow">
<center><b>Ο Υπολογιστής μου</b></center>
<br>
<hr>
<i> Ο Υπολογιστής μου αποτελείται από τα εξής κομμάτια:</i><br>
<ol type="i">
<li>Το κουτί
<li>Την οθόνη
<li>Το πληκτρολόγιο
<li>Το ποντίκι
<li>Τα ηχεία
</ol>
<br>
<font face="Tahoma" color="blue">
Βέβαια, όλα αυτά ενώνονται μεταξύ τους με καλώδια.<br>
Ο υπολογιστής μου συνδέεται με έναν εκτυπωτή και με ένα router για να εκτυπώνω και να μπαίνω στο internet.<br>
</font>
<hr>
Τώρα, μέσα στο κουτί υπάρχουν πολλές συσκευές όπως:
<ul type="circle">
<li>Το τροφοδοτικό
<li>Η μητρική πλακέτα ή motherboard<sup>*</sup>
<li>Ο επεξεργαστής (Κ.Μ.Ε. Κεντρική Μονάδα Επεξεργασίας) ή CPU
<li>Η μνήμη RAM
<li>Η μνήμη ROM
<li>Ο σκληρός δίσκος
<li>Το DVD drive
<li>Όλες οι θύρες επέκτασης (pci, pci express) και θύρες usb, ps/2
<li>Όλες οι κάρτες επέκτασης όπως κάρτα γραφικών, κάρτα ήχου και κάρτα δικτύου.
</ul>
<hr>
* <small>Οι σύγχρονες μητρικές πλακέτες περιέχουν πολλές ενσωματωμένες συσκευές όπως κάρτες γραφικών, ήχου και δικτύου κυρίως για μείωση του κόστους.</small>
<hr>
<u>Ονοματεπώνυμο:</u>
</body>
</html>

23 Οκτωβρίου 2011

Άσκηση με το πρόγραμμα Xara 3D 6

Δημιουργήστε με το πρόγραμμα επεξεργασίας 3Δ κειμένου XARA 3D την παρακάτω εικόνα. Δοκιμάστε την εξαγωγή της εικόνας σε μορφή στατικής εικόνας jpg, σε μορφή gif με διαφανές φόντο και σε μορφή animation gif!

10 Μαΐου 2011

Προτεινόμενα θέματα εργαστηριακής εξέτασης μαθήματος "Λειτουργικά Συστήματα Ι"


  1. Εικονίδιο "Υπολογιστής" ή "Ο Υπολογιστής μου": Ιδιότητες
  2. Διαχείριση διεργασιών
  3. Διαχείριση δίσκων (Διαμερίσματα, Διαχείριση διαμερισμάτων, Αλλαγή γράμματος δίσκου)
  4. Μορφοποίηση δίσκου - Σύστημα αρχείων 
  5. Ανασυγκρότηση και εξέταση δίσκου
  6. Λειτουργίες φακέλων
  7. Λειτουργίες αρχείων
  8. Αναζήτηση αρχείων
  9. Εντολές dos (dir, cls, cd)
  10. Εντολή msconfig - Επιλογές
  11. Συμπίεση αρχείων (windows, winrar, winzip)

12 Απριλίου 2011

Τι κάνει το παρακάτω πρόγραμμα;



Ο κώδικας στο κουμπί "Εκκίνηση" είναι:

Dim arithmos As Integer
Dim artioi As Integer
Dim perittoi As Integer
arithmos = 999
artioi = 0
perittoi = 0
Do While arithmos <> 0
    arithmos = InputBox("Δώσε έναν ακέραιο αριθμό", "Αριθμός")
If arithmos <> 0 Then
    If (arithmos Mod 2) = 0 Then
        artioi = artioi + 1
    ElseIf (arithmos Mod 2) = 1 Then
        perittoi = perittoi + 1
    End If
End If
Loop
Text1 = artioi
Text2 = perittoi

10 Απριλίου 2011

Υπολογισμός διάρκειας διπλασιασμού κεφαλαίου και υπολογισμός κεφαλαίου μετά από χ έτη στη Visual Basic 6

Σε μια φόρμα δίνονται:
α) Το αρχικό κεφάλαιο (Text1) και
β) Το ετήσιο επιτόκιο (Text2) (π.χ. 2,4)

1) Να υπολογιστεί σε πόσα χρόνια θα διπλασιαστεί το αρχικό κεφάλαιο (Text3).

Επίσης, στην ίδια φόρμα δίνονται και τα έτη (διάρκεια) ανατοκισμού ενός κεφαλαίου (Text4)

2) Να υπολογιστεί το κεφάλαιο που θα προκύψει σε τόσα έτη (τελικό κεφάλαιο) (Text5)


Ο κώδικας για το κουμπί "Υπολογισμός ετών για το διπλασιασμό του κεφαλαίου" είναι:
Dim ak As Single
Dim ep As Single
Dim tk As Single
Dim xronia As Integer
ak = Text1
ep = Text2
xronia = 0
tk = ak
Do While (tk < 2 * ak)
tk = tk + tk * (ep / 100)
xronia = xronia + 1
Loop
Text3 = xronia

Ο κώδικας για το κουμπί "Υπολογισμός κεφαλαίου" είναι:
Dim ak As Single
Dim ep As Single
Dim tk As Single
Dim xronia As Integer
ak = Text1
ep = Text2
xronia = Text4
tk = ak
For i = 1 To xronia
tk = tk + tk * (ep / 100)
Next i
Text5 = tk

5 Απριλίου 2011

Μετατροπή βαθμών κελσίου σε φαρενάιτ και το ανάποδο με τη Visual Basic


- Δίνονται οι βαθμοί κελσίου σε ένα πλαίσιο κειμένου που έχει δίπλα ετικέτα "Βαθμοί κελσίου".
- Με το πάτημα ενός κουμπιού που γράφει "Μετατροπή σε φαρενάιτ" να εμφανίζονται σε ένα δεύτερο πλαίσιο κειμένου που έχει δίπλα ετικέτα "Βαθμοί φαρενάιτ" οι βαθμοί σε φαρενάιτ.
- Με το πάτημα ένος δεύτερου κουμπιού που γράφει "Μετατροπή σε κελσίου" να εμφανίζονται στο πρώτο πλαίσιο κειμένου (Βαθμοί κελσίου) οι βαθμοί κελσίου.
-Οι τύποι μετατροπής είναι F=(9*C)/5+32 και C= 5*(F-32)/9

Μπορείτε να κάνετε το ίδιο πρόγραμμα χωρίς κουμπιά; (Βοήθεια: Με το συμβάν text change)
Πηγή: wikipedia



Ο κώδικας στο κουμπί "Μετατροπή σε Φαρενάιτ" είναι:
Dim f As Single
Dim c As Single
c = Text1
f = 9 * c / 5 + 32
Text2 = f

Ο κώδικας στο κουμπί "Μετατροπή σε κελσίου" είναι:
Dim f As Single
Dim c As Single
f = Text2
c = 5 * (f - 32) / 9
Text1 = c

Τέλος, αν δε θέλουμε να χρησιμοποιήσουμε κουμπια, στο TextBox Text1 γράφουμε στο Text1_change:
Dim f As Single
Dim c As Single
c = Text1
f = 9 * c / 5 + 32
Text2 = f

και στο TextBox Text2 γράφουμε στο Text2_change:
Dim f As Single
Dim c As Single
f = Text2
c = 5 * (f - 32) / 9
Text1 = c

4 Απριλίου 2011

Επίλυση δευτεροβάθμιας εξίσωσης με Visual Basic

Επίλυση δευτεροβάθμιας εξίσωσης
Πηγή: Wikipedia
Α) Δίνονται οι συντελεστές α, β και γ από εξίσωση
Β) Υπολογίζουμε τη διακρίνουσα

Γ) Αν Δ<0 τότε δεν υπάρχει λύση και χ1=αδύνατο και χ2=αδύνατο
Δ) Αν Δ=0 τότε χ1=χ2=-β/2α

Ε) Αν Δ>0 τότε

χ1 = ( - β +
) / 2α

 και

χ2 = ( - β -
) / 2α


Παρατηρήσεις
α<>0
α, β και γ ακέραιοι (a, b, c integer)
Δ ακέραιος (d integer)
Χ1 και Χ2 πραγματικοί (x1, x2 single)


Ο κώδικας στο κουμπί "Επίλυση" είναι:

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim x1 As Single
Dim x2 As Single
a = Text1
b = Text2
c = Text3
If a = 0 Then
MsgBox "To α δεν μπορεί να είναι 0"
GoTo 10
End If
d = b ^ 2 - 4 * a * c
If d < 0 Then
Text4 = "Μη πραγματική ρίζα"
Text5 = "Μη πραγματική ρίζα"
End If
If d = 0 Then
x1 = -b / (2 * a)
x2 = -b / (2 * a)
Text4 = x1
Text5 = x2
End If
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Text4 = x1
Text5 = x2
End If
10 End Sub