προγραμματιστικη απορια

Συζητήσεις για γλώσσες προγραμματισμού και θέματα σχετικά με προγραμματισμό.
User avatar
Serendipity
Gbyte level
Gbyte level
Posts: 1977
Joined: Tue Sep 19, 2006 11:16 pm
Academic status: Alumnus/a
Gender:
Location: Sweden
Contact:

Post by Serendipity » Sat Sep 01, 2007 12:36 pm

δυστυχως ουτε στο head μου επαιξε...αλλα για να μου φυγει ο καημος το εβαλα στην ιστοσελιδα του Δια που ειχα φτιαχει για την εισαγωγη στην επιστημη και το χαιρομαι απο εκει το πεσιμο των φυλλων..ευχαριστω πολυ για την βοηθεια!!!! ;)
-Two things are infinite: the universe and human stupidity; and I'm not sure about the universe.
--Albert Einstein--


ImageImage

My new blog Serendipity's thoughts!
p3040074
bit level
bit level
Posts: 24
Joined: Mon Dec 18, 2006 9:16 am
Academic status: N>4
Gender:
Location: ATHENS
Contact:

Post by p3040074 » Wed Sep 26, 2007 12:37 pm

Σωστός ο Base the Bass.
User avatar
netharis
Venus Former Team Member
Posts: 1845
Joined: Sun Jul 15, 2007 2:37 pm
Academic status: Alumnus/a
Gender:
Location: Seattle, Washington
Contact:

Post by netharis » Wed Oct 10, 2007 8:36 pm

Δεν ξέρω πως ακριβώς υπολογίζεις το π πάντως αν το πρόβλημα σου είναι η χωρητικότητα της μεταβλητής μπορούσες να μετράς κάθε χαρακτήρα που γράφεται στη μεταβλητή, και όταν φτάσει στο 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

   

κάπως έτσι...
Image
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."
User avatar
Serendipity
Gbyte level
Gbyte level
Posts: 1977
Joined: Tue Sep 19, 2006 11:16 pm
Academic status: Alumnus/a
Gender:
Location: Sweden
Contact:

Re: προγραμματιστικη απορια

Post by Serendipity » Wed Jan 09, 2008 12:51 pm

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--


ImageImage

My new blog Serendipity's thoughts!
User avatar
fo@
Kilobyte level
Kilobyte level
Posts: 337
Joined: Mon Jun 19, 2006 12:35 pm

Re: προγραμματιστικη απορια

Post by fo@ » Wed Jan 09, 2008 1:19 pm

<html>
<head>
<link rel="shortcut icon" href="favicon.ico"/>
</head>
<body>
</body>
</html>
"With soap, baptism is a good thing"
Post Reply

Return to “Προγραμματισμός”