
προγραμματιστικη απορια
- Serendipity
- Gbyte level
- Posts: 1977
- Joined: Tue Sep 19, 2006 11:16 pm
- Academic status: Alumnus/a
- Gender: ♀
- Location: Sweden
- Contact:
δυστυχως ουτε στο head μου επαιξε...αλλα για να μου φυγει ο καημος το εβαλα στην ιστοσελιδα του Δια που ειχα φτιαχει για την εισαγωγη στην επιστημη και το χαιρομαι απο εκει το πεσιμο των φυλλων..ευχαριστω πολυ για την βοηθεια!!!! 

-Two things are infinite: the universe and human stupidity; and I'm not sure about the universe.
--Albert Einstein--


My new blog Serendipity's thoughts!
--Albert Einstein--


My new blog Serendipity's thoughts!
- netharis
- Venus Former Team Member
- Posts: 1845
- Joined: Sun Jul 15, 2007 2:37 pm
- Academic status: Alumnus/a
- Gender: ♂
- Location: Seattle, Washington
- Contact:
Δεν ξέρω πως ακριβώς υπολογίζεις το π πάντως αν το πρόβλημα σου είναι η χωρητικότητα της μεταβλητής μπορούσες να μετράς κάθε χαρακτήρα που γράφεται στη μεταβλητή, και όταν φτάσει στο max μέγεθος παγώνεις τη διαδικασία και το τυπώνεις σε ένα textbox πχ . Στη συνέχεια "καθαρίζεις" τη μεταβλητή (με κάποιο sub ίσως) και συνεχίζεις τη διαδικασία κ.ο.κ...
Υ.Γ
Βλακείες γράφω πρίν δεν χρειάζεται να χρησιμοποιήσεις μεταβλητή
άν μπορείς να γράψεις κάποια συνάρτηση που να σου επιστρέφει το Ν ψηφίο του π τότε μπορείς να το υλοποιήσεις έτσι:
κάπως έτσι...
Υ.Γ
Βλακείες γράφω πρίν δεν χρειάζεται να χρησιμοποιήσεις μεταβλητή
άν μπορείς να γράψεις κάποια συνάρτηση που να σου επιστρέφει το Ν ψηφίο του π τότε μπορείς να το υλοποιήσεις έτσι:
Code: Select all
Sub myfunction()
dim temp as integer
dim count as integer
for i = 1 to xxxxxx ' όπου xxxxxx ο αριθμός των ψηφίων που θες (η καντο με άλλο loop)
temp = FindDigit(i) ' όπου FindDigit η συνάρτηση για να βρείς το συγκεκριμένο ψηφίο
textbox.text = textbox.text + Cstr(temp)
next i
κάπως έτσι...

Resistance is futile. Join the foss-side now!
"UNIX is very simple, it just needs a genius to understand its simplicity." - Dennis Ritchie
"The things that I want, by Max Payne. A smoke. A whiskey. For the sun to shine. I want to sleep, to forget. To change the past. Unlimited ammo and a license to kill. But right then, more than anything, I wanted her."
- Serendipity
- Gbyte level
- Posts: 1977
- Joined: Tue Sep 19, 2006 11:16 pm
- Academic status: Alumnus/a
- Gender: ♀
- Location: Sweden
- Contact:
Re: προγραμματιστικη απορια
hello!!!μηπως ξερει κανεις τον κωδικα ώστε να εμφανιζεται αυτη η εικονιτσα με την κλεψυδρα διπλα απο το url του aueb στον browser?δλδ όπως εμφανιζεται κ το V για το venus.
-Two things are infinite: the universe and human stupidity; and I'm not sure about the universe.
--Albert Einstein--


My new blog Serendipity's thoughts!
--Albert Einstein--


My new blog Serendipity's thoughts!
Re: προγραμματιστικη απορια
<html>
<head>
<link rel="shortcut icon" href="favicon.ico"/>
</head>
<body>
</body>
</html>
<head>
<link rel="shortcut icon" href="favicon.ico"/>
</head>
<body>
</body>
</html>
"With soap, baptism is a good thing"