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

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

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

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

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

05-04-11 Πρόγραμμα Πανελλαδικών Εξετάσεων σχολικού έτους 2010-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

Επίλυση δευτεροβάθμιας εξίσωσης με 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