Σελ. 1 από 2 12 ΤελευταίαΤελευταία
Εμφάνιση 1-15 από 29

Θέμα: Visual basic

  1. #1
    Εγγραφή
    02-06-2004
    Περιοχή
    Stockholm
    Μηνύματα
    153
    Downloads
    9
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    50/10
    ISP
    Comhem
    Παιδιά χρειάζομαι βοήθεια επιγώντος.Θέλω να προσθέσω χρονόμετρο σε μια εργασία σε visual basic.Θέλω απλά να μετράει δευτερόλεπτα.Αν μπορεί κανείς να βοηθήσει.

  2. #2
    Εγγραφή
    17-11-2004
    Περιοχή
    Αττική - Παπάγος
    Ηλικία
    45
    Μηνύματα
    3.870
    Downloads
    17
    Uploads
    0
    Ταχύτητα
    15360/1536
    ISP
    Forthnet
    Router
    ZTE ZXHN H108L
    Υπάρχει το timer control που έχει ένα και μοναδικό event που "σηκώνεται" κάθε φορά που περνάει το interval που του ορίζεις σαν property. Βάλτου λοιπόν interval = 1000 (milisecs) και γράψε οτι κώδικα θες στο event π.χ. :

    Κώδικας:
    label1.caption = now

  3. #3
    Εγγραφή
    02-11-2003
    Περιοχή
    Επαναπατρισθείς στην Αθήνα
    Ηλικία
    49
    Μηνύματα
    56.427
    Downloads
    64
    Uploads
    73
    Τύπος
    VDSL2
    Ταχύτητα
    102400/10240
    ISP
    Vodafone
    Path Level
    Fastpath
    Βάλε ένα timer object.

    Δώσ' του interval 1000 και ξεκίνα το.

    Στο event ολοκλήρωσης του μετρούμενου χρόνου, κάνε το να αυξάνει την τιμή μιας integer μεταβλητής.
    Επιτέλους το ελάχιστο δυνατό, ευέλικτο, και ψηφιακό κράτος. Με διαρκή αξιολόγηση.

  4. #4
    Εγγραφή
    02-06-2004
    Περιοχή
    Stockholm
    Μηνύματα
    153
    Downloads
    9
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    50/10
    ISP
    Comhem
    Είμαι άσχετος.Το έκανα αυτο αλλα δεν το δείχνει στην οθόνη.Θέλει να κάνεις click πάνω στο label για να το δείξει.Και επίσης δέιχνει αριθμούς του τύπου 5000,00

  5. #5
    Εγγραφή
    02-04-2004
    Περιοχή
    Χανιά/Ηράκλειο
    Ηλικία
    39
    Μηνύματα
    1.415
    Downloads
    9
    Uploads
    0
    Τύπος
    ADSL OTE
    Ταχύτητα
    24576/1024
    ISP
    Conn-x OTE/Otenet
    DSLAM
    ΟΤΕ - ΘΕΡΙΣΣΟΥ
    Όταν λές εργασία, ενοείς για σχολή; Αν ναι πιάσε τις σημειώσεις και διάβασε τις μπας περάσεις ποτέ το μάθημα Αν όχι άσε την Visual Basic και πιάσε καμιά σοβαρή γλώσσα (και φρόντισε να RTFM πρώτα)

  6. #6
    Εγγραφή
    20-05-2003
    Περιοχή
    Στο καζάνι που βράζουμε όλοι..
    Μηνύματα
    1.297
    Downloads
    41
    Uploads
    0
    Τύπος
    ADSL2+
    Ταχύτητα
    24576/1024
    ISP
    Forthnet
    DSLAM
    Forthnet - ΑΚΡΟΠΟΛΗ
    Router
    Technicolor TD5136V2
    SNR / Attn
    6.1(dB) / 8.5(dB)
    Το χρονόμετρο δεν φένεται όταν τρέχει η εφαρμογή, απλά μετράει το χρόνο μεταξύ δύο events που ορίζεις.
    * Όταν ακούς «τάξη» ανθρώπινο κρέας μυρίζει.
    * Μες την έρμη κι άδεια πολιτεία μένει, το χέρι που μονάχα, με μπογιά θα γράψει στους μεγάλους τοίχους, ΨΩΜΙ ΚΙ ΕΛΕΥΘΕΡΙΑ.

    Οδυσσέας Ελύτης

    οδηγός δικαιωμάτων μισθωτών εκπαιδευτικών

  7. #7
    Εγγραφή
    02-06-2004
    Περιοχή
    Stockholm
    Μηνύματα
    153
    Downloads
    9
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    50/10
    ISP
    Comhem
    Ναι για τη σχολή είναι η εργασία.Δυστηχώς δεν μας έχουν δόσει σημειώσεις.

  8. #8
    Εγγραφή
    02-06-2004
    Περιοχή
    Stockholm
    Μηνύματα
    153
    Downloads
    9
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    50/10
    ISP
    Comhem
    odd εγώ θέλω να μετράει δευτερόλεπτα και να τα δείχνει σε ένα label.

  9. #9
    Το avatar του μέλους porosis
    porosis Guest
    Βάζεις ένα timer(Timer1) σε μια φόρμα, στις ιδιότητες του βάζεις Interval 1000, και Enabled = True.

    Ρίξε ένα label στην φόρμα (Label1) και βάλε στις ιδιότητες Caption = 0

    Bάλε τον κώδικα για το event Timer1_Timer (διπλό κλικ πάνω στο χρονόμετρο που έβαλες στην φόρμα)

    Κώδικας:
    Private Sub Timer1_Timer()
        Label1.Caption = CStr(CInt(Label1.Caption) + 1)
    End Sub
    Με αυτό ορίζεις ότι κάθε φορά που θα συμβαίνει το event Timer1_Timer (δηλαδή κάθε φορά που θα περνούν 1000ms) θα αυξάνεται η αριθμός που έχει το Caption του label κατά 1.

    Τα CStr, CInt μετατρέπουν τις τιμές σε string και integer αντίστοιχα. Σε κάθε σοβαρή γλώσσα προγραμματισμού δεν μπορείς να προσθέσεις αριθμούς με strings αλλά επειδή δεν έχουμε να κάνουμε με τέτοια γλώσσα( ) μπορείς να βγάλεις τις μετατροπές
    δηλαδή:

    Label1.Caption = Label1.Caption + 1

    αφού θα φροντίσει αυτόματα η VB τις μετατροπές

  10. #10
    Εγγραφή
    02-06-2004
    Περιοχή
    Stockholm
    Μηνύματα
    153
    Downloads
    9
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    50/10
    ISP
    Comhem
    porosis φίλε με έσωσες.Σας ευχαριστώ όλους για τη βοήθεια σας.

  11. #11
    Εγγραφή
    17-11-2004
    Περιοχή
    Αττική - Παπάγος
    Ηλικία
    45
    Μηνύματα
    3.870
    Downloads
    17
    Uploads
    0
    Ταχύτητα
    15360/1536
    ISP
    Forthnet
    Router
    ZTE ZXHN H108L
    και φρόντισε να RTFM πρώτα
    leukomas αν η σχολή σου έχει οποιαδήποτε σχέση με πληροφορική (που σίγουρα έχει) αυτό θα είναι το ευαγγέλιό σου, για τα φοιτητικά ΚΑΙ ΟΧΙ ΜΟΝΟ χρόνια σου.

    (Φιλικά χωρίς να θέλω να γίνω μπαμπάς )

  12. #12
    Εγγραφή
    02-06-2004
    Περιοχή
    Stockholm
    Μηνύματα
    153
    Downloads
    9
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    50/10
    ISP
    Comhem
    Αλλη μια βοήθεια θέλω γιατί έχω ψάξει όλο το net και δεν έχω βρεί τίποτα.Ξέρει κανείς πώς με το που θα πατάει ο χρήστης ένα κουμπί να πάιζει ήχος?

  13. #13
    Εγγραφή
    02-11-2003
    Περιοχή
    Επαναπατρισθείς στην Αθήνα
    Ηλικία
    49
    Μηνύματα
    56.427
    Downloads
    64
    Uploads
    73
    Τύπος
    VDSL2
    Ταχύτητα
    102400/10240
    ISP
    Vodafone
    Path Level
    Fastpath
    beep
    Επιτέλους το ελάχιστο δυνατό, ευέλικτο, και ψηφιακό κράτος. Με διαρκή αξιολόγηση.

  14. #14
    Εγγραφή
    02-06-2004
    Περιοχή
    Stockholm
    Μηνύματα
    153
    Downloads
    9
    Uploads
    0
    Τύπος
    Cable
    Ταχύτητα
    50/10
    ISP
    Comhem
    WAntilles εκτός απο το beep καμιά βοήθεια πάιζει?

  15. #15
    Το avatar του μέλους porosis
    porosis Guest
    Παράθεση Αρχικό μήνυμα από leukonas
    WAntilles εκτός απο το beep καμιά βοήθεια πάιζει?
    Για να παίξει ήχο, βάλε την εντολή "Beep" στο κατάλληλο event !

Σελ. 1 από 2 12 ΤελευταίαΤελευταία

Παρόμοια Θέματα

  1. Visual Basic
    Από Uberalles στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 9
    Τελευταίο Μήνυμα: 25-01-08, 19:27
  2. visual basic
    Από errorr στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 1
    Τελευταίο Μήνυμα: 15-11-07, 21:43
  3. Visual Basic 6 Help!!!!
    Από afiltroi στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 3
    Τελευταίο Μήνυμα: 26-09-06, 22:02
  4. visual basic
    Από rockxk στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 7
    Τελευταίο Μήνυμα: 25-09-06, 20:01
  5. Visual Basic Tutorials!
    Από chimaros στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 31
    Τελευταίο Μήνυμα: 27-05-05, 13:27

Tags για αυτό το Θέμα

Bookmarks

Bookmarks

Δικαιώματα - Επιλογές

  • Δεν μπορείτε να δημοσιεύσετε νέα θέματα
  • Δεν μπορείτε να δημοσιεύσετε νέα μηνύματα
  • Δεν μπορείτε να αναρτήσετε συνημμένα
  • Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας
  •  
  • Τα BB code είναι σε λειτουργία
  • Τα Smilies είναι σε λειτουργία
  • Το [IMG] είναι σε λειτουργία
  • Το [VIDEO] είναι σε λειτουργία
  • Το HTML είναι εκτός λειτουργίας