>Ελεύθερο πρόγραμμα επεξεργασίας εικόνας Gimp

Δημοσιευμένο στις 21 Οκτωβρίου 2011 Κατηγορία: Χωρίς κατηγορία από ΑΡΓΥΡΗΣ ΡΟΥΣΟΓΙΑΝΝΗΣ

>

Εδώ μπορούμε να βρούμε το ελεύθερο πρόγραμμα επεξεργασίας εικόνας Gimp και να κατεβάσουμε την τελευταία σταθερή έκδοση

>

Δημοσιευμένο στις 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

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

Δημοσιευμένο στις 10 Απριλίου 2011 Κατηγορία: Χωρίς κατηγορία από ΑΡΓΥΡΗΣ ΡΟΥΣΟΓΙΑΝΝΗΣ

>

Σε μια φόρμα δίνονται:
α) Το αρχικό κεφάλαιο (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

>Το κανάλι μου στο youtube.com

Δημοσιευμένο στις 6 Απριλίου 2011 Κατηγορία: Χωρίς κατηγορία από ΑΡΓΥΡΗΣ ΡΟΥΣΟΓΙΑΝΝΗΣ

>Tο κανάλι μου στο youtube.

>05-04-11

Δημοσιευμένο στις 6 Απριλίου 2011 Κατηγορία: Χωρίς κατηγορία από ΑΡΓΥΡΗΣ ΡΟΥΣΟΓΙΑΝΝΗΣ

>

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

Δημοσιευμένο στις 5 Απριλίου 2011 Κατηγορία: Χωρίς κατηγορία από ΑΡΓΥΡΗΣ ΡΟΥΣΟΓΙΑΝΝΗΣ

>

– Δίνονται οι βαθμοί κελσίου σε ένα πλαίσιο κειμένου που έχει δίπλα ετικέτα “Βαθμοί κελσίου”.
– Με το πάτημα ενός κουμπιού που γράφει “Μετατροπή σε φαρενάιτ” να εμφανίζονται σε ένα δεύτερο πλαίσιο κειμένου που έχει δίπλα ετικέτα “Βαθμοί φαρενάιτ” οι βαθμοί σε φαρενάιτ.
– Με το πάτημα ένος δεύτερου κουμπιού που γράφει “Μετατροπή σε κελσίου” να εμφανίζονται στο πρώτο πλαίσιο κειμένου (Βαθμοί κελσίου) οι βαθμοί κελσίου.
-Οι τύποι μετατροπής είναι 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

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

Δημοσιευμένο στις 3 Απριλίου 2011 Κατηγορία: Χωρίς κατηγορία από ΑΡΓΥΡΗΣ ΡΟΥΣΟΓΙΑΝΝΗΣ

>

Επίλυση δευτεροβάθμιας εξίσωσης
Πηγή: Wikipedia

Α) Δίνονται οι συντελεστές α, β και γ από εξίσωση αχ2+βχ+γ=0.

Β) Υπολογίζουμε τη διακρίνουσα Δ=β2-4αγ
Γ) Αν Δ<0 τότε δεν υπάρχει λύση και χ1=αδύνατο και χ2=αδύνατο
Δ) Αν Δ=0 τότε χ1=χ2=-β/2α
Ε) Αν Δ>0 τότε χ1=(-β+ÖD)/2α και χ2=(-β-ÖD)/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


« Προηγούμενη σελίδα