>Τι κάνει το παρακάτω πρόγραμμα;
> Ο κώδικας στο κουμπί “Εκκίνηση” είναι: Dim arithmos As IntegerDim artioi As IntegerDim perittoi As Integer arithmos = 999artioi = 0perittoi = 0 Do While arithmos <> 0 arithmos = InputBox(“Δώσε έναν ακέραιο αριθμό”, “Αριθμός”)If arithmos <> 0 Then If (arithmos Mod 2) = 0 Then artioi = artioi + 1 ElseIf (arithmos Mod […]
>Υπολογισμός διάρκειας διπλασιασμού κεφαλαίου και υπολογισμός κεφαλαίου μετά από χ έτη στη Visual Basic 6
> Σε μια φόρμα δίνονται:α) Το αρχικό κεφάλαιο (Text1) και β) Το ετήσιο επιτόκιο (Text2) (π.χ. 2,4) 1) Να υπολογιστεί σε πόσα χρόνια θα διπλασιαστεί το αρχικό κεφάλαιο (Text3). Επίσης, στην ίδια φόρμα δίνονται και τα έτη (διάρκεια) ανατοκισμού ενός κεφαλαίου (Text4) 2) Να υπολογιστεί το κεφάλαιο που θα προκύψει σε τόσα έτη (τελικό κεφάλαιο) […]
>Το κανάλι μου στο youtube.com
>Tο κανάλι μου στο youtube.
>05-04-11
> Πηγή: Υπουργείο Παιδείας Πρόγραμμα
>Μετατροπή βαθμών κελσίου σε φαρενάιτ και το ανάποδο με τη Visual Basic
> – Δίνονται οι βαθμοί κελσίου σε ένα πλαίσιο κειμένου που έχει δίπλα ετικέτα “Βαθμοί κελσίου”. – Με το πάτημα ενός κουμπιού που γράφει “Μετατροπή σε φαρενάιτ” να εμφανίζονται σε ένα δεύτερο πλαίσιο κειμένου που έχει δίπλα ετικέτα “Βαθμοί φαρενάιτ” οι βαθμοί σε φαρενάιτ. – Με το πάτημα ένος δεύτερου κουμπιού που γράφει “Μετατροπή σε […]
>Επίλυση δευτεροβάθμιας εξίσωσης με Visual Basic
> Επίλυση δευτεροβάθμιας εξίσωσηςΠηγή: Wikipedia Α) Δίνονται οι συντελεστές α, β και γ από εξίσωση αχ2+βχ+γ=0. Β) Υπολογίζουμε τη διακρίνουσα Δ=β2-4αγΓ) Αν Δ<0 τότε δεν υπάρχει λύση και χ1=αδύνατο και χ2=αδύνατο Δ) Αν Δ=0 τότε χ1=χ2=-β/2α Ε) Αν Δ>0 τότε χ1=(-β+ÖD)/2α και χ2=(-β-ÖD)/2α Παρατηρήσεις α<>0α, β και γ ακέραιοι (a, b, c integer) Δ ακέραιος […]