Τετάρτη 6 Ιουλίου 2011
Πως φτιάχνω ΣΠΟΡΕΙΟ και πως μεγαλώνω φυτά, ΜΟΝΟΣ ΜΟΥ!!!
ΔΗΜΙΟΥΡΓΙΑ ΣΠΟΡΕΙΟΥ
Χρειαζόμαστε:
* καλό φυτόχωμα για το σπορείο
* κύπελλα πλαστικά (του νερού) ή φυτοδοχεία του εμπορείου
* καφάσια μαναβικής (ρηχά)
* νάιλον (ή άλλο υλικό) για σκέπασμα
* παραδοσιακούς σπόρους
Τα κυπελλάκια που έχουμε, τα τρυπάμε σε 3-4 σημεία στη βάση τους, για να φεύγει το νερό και να αερίζονται. Επίσης, αν κάνουμε καφάσι με χώμα, βάζουμε το νάιλον κάτω και το τρυπάμε. (Τις τρύπες τις κάνουμε με πυρωμένο καρφί). Γεμίζουμε τα κυπελλάκια με χώμα, ελαφρώς πατημένο και σε ύψος τρία δάχτυλα πριν γεμίσει.
Ποτίζουμε το χώμα, βάζουμε τούς σπόρους, τους σκεπάζουμε και ξανα ποτίζουμε ελαφριά. Οι σπόροι είναι σε τόσο βάθος στο χώμα όσο και το ύψος τους. Δηλαδή τους σπόρους της ντομάτας ίσα-ίσα τους σκεπάζουμε, ενώ τους σπόρους του κολοκυθιού τους βάζουμε 2-3 εκατοστά στο χώμα.
Αν οι σπόροι είναι μικροί (π.χ. ντομάτα) σε κάθε κύπελλο βάζουμε 4-5 σπόρους, ενώ αν είναι μεγάλοι (π.χ. κολοκύθι) βάζουμε 2-3 σπόρους.
Ο χρόνος ζωής των σπόρων είναι γενικά 4 χρόνια ( όπως τα φασόλια), ενώ κάποιοι σπόροι (όπως η ντομάτα και η μελιτζάνα) αντέχουν 1 με 2 χρόνια. Είναι καλό όμως κάθε χρόνο να ανανεώνουμε τους σπόρους.Τα κύπελλα τα βάζουμε σε καφάσια για εύκολη μεταφορά.
Αν κάνουμε σπορείο σε καφάσι ακολουθούμε τα ίδια βήματα που κάναμε και στα κύπελλα.
Τα φυτά μας θέλουν άμεσο ηλιακό φως, για να μεγαλώσουν και να δυναμώσουν.
Το χώμα πρέπει να είναι πάντα ελαφριά βρεγμένο.
ΜΕΓΑΛΩΜΑ ΤΩΝ ΦΥΤΩΝ
Το σπορείο θέλει ζεστό μέρος, όταν έχει κρύο και αν το έχουμε έξω το σκεπάζουμε το βράδυ.Κάποια φυτά βγαίνουν γρήγορα (π.χ. ντομάτα 10-15 ημέρες) ενώ κάποια άλλα βγαίνουν αργά(π.χ. πιπεριά 20-30 ημέρες). Ανάλογα με το ύψος του φυτού και το “ψήσιμο”, μεταφυτεύουμε σε χώρο καλά προετοιμασμένο.
Γενικά
Οι ντόπιες ποικιλίες έχουν προσαρμοσθεί καλύτερα στις συνθήκες που υπάρχουν, στο πέρασμα των χρόνων και γι’ αυτό έχουν καλύτερη ποιότητα και απόδοση.
Δεν χρειάζεται υπερβολή στο νερό, καλύτερα να παρατηρούμε το μεγάλωμα των φυτών για να καταλάβουμε την φροντίδα που χρειάζονται.
Εποχή σποράς λαχανικών Οι αποστάσεις φύτευσης μεταξύ των φυτών ΉΡΘΕ Η ΏΡΑ ΤΗΣ ΣΥΓΚΟΜΙΔΉΣ ΣΠΟΡΩΝ. Βασικές οδηγίες για τη συγκομιδή σπόρων Αν θέλετε να συγκομίσετε σπόρους, αφήστε, τους πρώτους καρπούς να ωριμάσουν κανονικά π.χ. την πρώτη ντομάτα, τα πρώτα φασόλια κλπ. Οι πρώτοι καρποί παίρνουν τους περισσότερους χυμούς του φυτού και έχουν τα καλύτερα χαρακτηριστικά της ποικιλίας. Είναι καλό να συλλέγουμε σπόρους και από τη μέση της καλλιεργητικής περιόδου και από το τέλος. Γιατί αν συλλέγουμε μόνο από την αρχή θα οδηγηθούμε σε πρώιμες ποικιλίες. Για φυτά με σπόρους που ωριμάζουν και ξηραίνονται πάνω στο φυτό, όπως το καλαμπόκι, τα φασόλια, τα μπιζέλια, τα μαρούλια, τα κουκιά, κλπ. συγκεντρώστε μόνο τους σπόρους που έχουν ωριμάσει εντελώς. Το φυτό μπορεί να έχει αρχίσει να πεθαίνει προτού οι σπόροι είναι έτοιμοι για συλλογή. Κάντε τη συγκομιδή όταν οι σπόροι είναι ξεροί (όχι υγροί από την πρωινή δροσιά ή μετά από βροχή), μαζέψτε τους σπόρους λίγο πριν οι πρώτοι σπόροι αρχίσουν να σκάζουν και να πέφτουν στο έδαφος, όπως γίνεται με τα δημητριακά ή όταν ο λοβός γίνει καφέ και εύθραυστος όταν πρόκειται για φασόλια. Για ν’ αποφύγετε όμως τους μύκητες, είναι καλύτερα να μαζεύετε συνέχεια τους σπόρους προς το τέλος της καλλιέργειας του φυτού, έτσι ώστε οι ώριμοι σπόροι να μη μένουν στο φυτό για πολύ καιρό.Για τα φυτά με σαρκώδη καρπό, όπως κολοκύθες, πεπόνια, κ.ά. να είστε υπομονετικοί. Μαζέψτε μόνο τους ώριμους καρπούς. Το φυτό μπορεί να είναι εντελώς νεκρό ως την ώρα που θα είναι έτοιμο για συγκομιδή. Τις κολοκύθες τις αφήνουμε ένα μήνα αφού ωριμάσουν και μετά τις κόβουμε για να πάρουμε το σπόρο τους. οι κολοκύθες δεν μαλακώνουν αλλά, συνεχίζουν να ωριμάζουν για λίγους μήνες αφού κοπούν από το βλαστό. Για να συλλέξετε σπόρους μελιτζάνας κόψτε τους ώριμους καρπούς και αφήστε τους να μαλακώσουν τόσο που να μην τρώγονται πια. Για να επιταχύνεται τη διαδικασία μπορείτε να χαράξετε τη σάρκα της μελιτζάνας σε τέσσερα σημεία, έτσι ώστε να αρχίσει να σαπίζει πιο γρήγορα. Οι σπόροι είναι έτοιμοι για συγκομιδή όταν διαχωρίζονται εύκολα από τη σάρκα, όταν τους τρίβετε κάτω από νερό. Παράδειγμα, μαζέψτε όλους τους σπόρους και τη σάρκα σ’ ένα μεγάλο δοχείο ή κουβά με νερό και απελευθερώστε τους σπόρους με τα δάχτυλά σας. Συνήθως οι ώριμοι και υγιείς σπόροι βυθίζονται, αν όμως οι σπόροι που επιπλέουν δείχνουν καλύτεροι από αυτούς που βυθίστηκαν ίσως τα πράγματα να είναι ανάποδα για το φυτό σας. (Μερικές φορές οι καλοί σπόροι κολοκύθας μπορεί να επιπλέουν ενώ οι νεκροί βυθίζονται). Αυτό διευκολύνει πολύ τον καθαρισμό των σπόρων απλά τρίψτε για να φύγει η σάρκα από τους καρπούς από το πάνω μέρος. Μετά προσθέστε καθαρό νερό, στριφογυρίστε το και πετάξτε αυτό το νερό. Συνεχίστε με λίγα ακόμη πλυσίματα μέχρι να απομείνουν μόνο οι σπόροι στον πάτο. Στραγγίστε τους και στεγνώστε τους αμέσως. Με παρόμοιο τρόπο μπορείτε να καθαρίσετε τους σπόρους από το αγγούρι, με τη διαφορά ότι το αγγούρι δεν χρειάζεται να σαπίσει αρκεί να έχει ωριμάσει καλά. Προσέξτε ότι οι σπόροι δεν πρέπει να μείνουν για πολύ μέσα στο νερό γιατί μπορεί να απορροφήσουν υγρασία, να φουσκώσουν και ν’ αρχίσουν να βλασταίνουν. Μερικοί σπόροι ωφελούνται από περίοδο «ζύμωσης» μέσα στο νερό πριν τους καθαρίσετε από τον καρπό. Στην τομάτα π.χ. αυτή η επεξεργασία λέγετε ότι μειώνει τις πιθανότητες για κάποιες ασθένειες που προσβάλλουν τον καρπό κατά τη περίοδο της βλάστησης. Για να συλλέξετε σπόρους ντομάτας κόψτε τους ώριμους καρπούς στη μέση, αφαιρέστε το ζελατινώδες υγρό με τους σπόρους και βάλτε το μέσα σ’ ένα σουρωτήρι τσαγιού. Ξεπλύνετε με άφθονο νερό και τρίψτε απαλά με τα χέρια σας τη ζελατίνη. Απλώστε τους σπόρους σε λαδόκολλα για να στεγνώσουν. Για να συλλέξετε σπόρους πιπεριάς αφήστε τον καρπό πάνω στο φυτό ωσότου κοκκινίσει (άσχετα από την ποικιλία). Στις πιπεριές προτείνεται να συλλέγουμε από το δεύτερο καρπό και μετά. Κόψτε τον καρπό και αφαιρέστε τη σάρκα του. Τρίψτε ελαφρά τους σπόρους ώστε να διαχωριστούν και απλώστε τους σε λαδόκολλα να στεγνώσουν. Για το αντίδι ξεπατώστε το και βρέξτε το 2-3 φορές με το ποτιστήρι από βραδύς πολύ καλά. Το πρωί πριν στεγνώσει τελείως τινάξτε το και λιχνίστε το στον αέρα. Για να πάρουμε σπόρους από το καρότο, το ρεπάνι, τον μαϊντανό, το λάχανο, το κουνουπίδι, το μπρόκολο, τον άνηθο, το σέλινο, αφήνουμε ορισμένα φυτά να ωριμάσουν κανονικά και τα κρατάμε χωρίς να τα κόψουμε γιατί τον δεύτερο χρόνο θα μας δώσουν σπόρο. ΠΩΣ ΘΑ ΑΠΟΘΗΚΕΎΣΟΥΜΕ ΤΟΥΣ ΣΠΟΡΟΥΣ ΜΑΣ Ξήρανση των σπόρων. Βεβαιωθείτε ότι οι σπόροι είναι εντελώς στεγνοί πριν τους αποθηκεύσετε. Αυτό επιτυγχάνεται καλύτερα αργά και σταθερά. Μετά τον καθαρισμό αφήστε τους σπόρους για μια εβδομάδα σ’ ένα ξηρό και καλά αεριζόμενο μέρος. Βασικές αρχές που πρέπει να έχετε υπόψη σας. Αφού στεγνώσουν οι σπόροι, να μην τους εκθέσετε σε υγρασία. Η εσωτερική υγρασία (όταν συσκευάζονται) είναι επικίνδυνη για τους αποθηκευμένους σπόρους. Αποφεύγετε την υπερβολική ξήρανση, γιατί συνήθως είναι πολύ απότομη και μπορεί να καταστρέψει το έμβρυο. Οι θερμοκρασίες πάνω από 38ο C μπορούν να προξενήσουν βλάβες στο σπόρο. Ανακατέψτε τους απλωμένους σπόρους μια φορά τη μέρα για να βεβαιωθείτε ότι θα στεγνώσουν ομοιόμορφα. Οι αποξηραμένοι σπόροι σπάνε αντί να λυγίζουν. Μετά αποθηκέψτε τους σπόρους σε πάνινα σακουλάκια, μεταλλικά δοχεία, σε γυάλινα δοχεία ή αεροστεγή δοχεία, με κατάλληλες ετικέτες που να προσδιορίζουν τον σπόρο και τη χρονολογία της συγκομιδής. Αν συσκευάσετε τους σπόρους σε γυάλινα ή μεταλλικά δοχεία, μπορείτε να προσθέσετε μέσα σ’ ένα τούλι μια ποσότητα ασβέστη για να συγκρατεί την υγρασία και να εμποδίζει την ανάπτυξη εντόμων. Αποθηκέψτε σ’ ένα δροσερό και ξηρό μέρος. Η υγρασία είναι ο πιο αρνητικός παράγοντας για τη βιωσιμότητα των σπόρων. Οι σπόροι μπορούν να επιβιώσουν στην έρημο πολύ περισσότερο απ’ ότι σ’ ένα δροσερό αλλά υγρό περιβάλλον. Για ν’ αποθηκεύσετε σπόρους σ’ ένα ράφι τους σπιτιού σας θα πρέπει η θερμοκρασία να είναι κάτω από 18ο C και ο χώρος να είναι προστατευμένος από υγρασία. Μέση διάρκεια ζωής και χρόνος βλάστησης λαχανικών Πηγή: anti-ntp.blogspot.com Διαβάστε περισσότερα...
Κυριακή 3 Ιουλίου 2011
Συμπτώματα συχνών ασθενειών
1.
• Αν νιώθετε πόνο στο στήθος που μπορεί να αντανακλά στον αριστερό ώμο, στο αριστερό χέρι, στο σαγόνι, στην πλάτη
• Αν έχετε δύσπνοια
• Αν νιώθετε ναυτία ή κάνετε εμετό
• Αν ιδρώνετε
…τότε μπορεί να έχετε πάθει έμφραγμα του μυοκαρδίου.
2.
• Αν έχετε πυρετό
• Αν έχετε βήχα και δύσπνοια
• Αν πονάτε στα πλευρά
…τότε μπορεί να έχετε πνευμονία.
3.
• Αν νιώθετε πόνο ή κάψιμο στο πάνω μέρος της κοιλιάς (κάτω από το στέρνο)
• Αν έχετε δυσπεψία ή νιώθετε ναυτία
• Αν ο πόνος σας ξυπνά τη νύχτα
• Αν έχει αλλάξει η όρεξή σας κι έχετε χάσει βάρος
…τότε μπορεί να πάσχετε από έλκος του στομάχου ή του δωδεκαδακτύλου.
Αν γνωρίζετε ότι πάσχετε από έλκος κι επιπλέον παρατηρήσετε ένα από τα παρακάτω:
• Έντονο πόνο που δεν υποχωρεί
• Μαύρα κόπρανα ή αίμα στα κόπρανα
• Εμετούς καφέ χρώματος
…τότε πρέπει να πάτε επειγόντως στο νοσοκομείo.
4.
• Αν νιώθετε συχνά την ανάγκη να ουρήσετε
• Αν αισθάνεστε πόνο ή κάψιμο όταν ουρείτε
• Αν έχετε φαγούρα στα γεννητικά όργανα
• Αν υπάρχει αίμα ή πύον μέσα στα ούρα
• Αν έχετε πυρετό
• Αν πονάτε χαμηλά στην κοιλιά, πάνω από τα γεννητικά
όργανα, ή στην πλάτη, λίγο πάνω από τη μέση
…τότε είναι πιθανό να έχετε ουρολοίμωξη
5.
• Αν έχετε αυξημένη όρεξη και ωστόσο χάνετε βάρος
• Αν έχετε τρέμουλο
• Αν ιδρώνετε κι αισθάνεστε ότι δεν μπορείτε να αντέξετε τη ζέστη
• Αν έχετε νευρικότητα
• Αν νιώθετε αδύναμοι και κουράζεστε εύκολα
• Αν έχετε εξώφθαλμο (δηλ. τα μάτια βγαίνουν προς τα έξω)
…τότε μπορεί να έχετε υπερθυρεοειδισμό.
6.
• Αν νιώθετε κουρασμένοι, νωθροί και νυστάζετε πολύ
• Αν έχει αυξηθεί το βάρος σας, ενώ δεν έχει αυξηθεί η όρεξή σας
• Αν έχετε δυσκοιλιότητα
• Αν δεν αντέχετε το κρύο
• Αν έχετε φούσκωμα ή πρήξιμο στα βλέφαρα και γύρω από τα μάτια
• Αν μιλάτε πιο αργά κι η φωνή σας έχει βραχνιάσει
• Αν σπάνε τα νύχια σας, το δέρμα σας είναι ξηρό, πέφτουν τα μαλλιά σας
• Αν νιώθετε πολύ θλιμμένοι
…τότε μπορεί να έχετε υποθυρεοειδισμό
7.
• Αν νιώθετε συχνά την ανάγκη να ουρήσετε και αποβάλλετε μεγάλες ποσότητες ούρων
• αν διψάτε πολύ
• Αν πεινάτε πολύ
• Αν τρέμουν ή μουδιάζουν τα χέρια ή τα πόδια σας
• Αν νιώθετε πολύ κουρασμένοι τον περισσότερο καιρό
• Αν έχετε πληγές που αργούν να κλείσουν
• Αν παθαίνετε περισσότερες μολύνσεις από ό,τι συνήθως
…τότε μπορεί να πάσχετε από σακχαρώδη διαβήτη Διαβάστε περισσότερα...
Ο Γκρεμιστής
Ἀκοῦστε. Ἐγὼ εἶμαι ὁ γκρεμιστής, γιατί εἶμ᾿ ἐγὼ κι ὁ κτίστης,
ὁ διαλεχτὸς τῆς ἄρνησης κι ὁ ἀκριβογιὸς τῆς πίστης.
Καὶ θέλει καὶ τὸ γκρέμισμα νοῦ καὶ καρδιὰ καὶ χέρι.
Στοῦ μίσους τὰ μεσάνυχτα τρέμει ἑνὸς πόθου ἀστέρι.
Κι ἂν εἶμαι τῆς νυχτιᾶς βλαστός, τοῦ χαλασμοῦ πατέρας,
πάντα κοιτάζω πρὸς τὸ φῶς τὸ ἀπόμακρο τῆς μέρας.
ἐγὼ ὁ σεισμὸς ὁ ἀλύπητος, ἐγὼ κι ὁ ἀνοιχτομάτης·
τοῦ μακρεμένου ἀγναντευτής, κι ὁ κλέφτης κι ὁ ἀπελάτης
καὶ μὲ τὸ καριοφίλι μου καὶ μὲ τ᾿ ἀπελατίκι
τὴν πολιτεία τὴν κάνω ἐρμιά, γῆ χέρσα τὸ χωράφι.
Κάλλιο φυτρῶστε, ἀγκριαγκαθιές, καὶ κάλλιο οὐρλιάστε, λύκοι,
κάλλιο φουσκῶστε, πόταμοι καὶ κάλλιο ἀνοῖχτε τάφοι,
καί, δυναμίτη, βρόντηξε καὶ σιγοστάλαξε αἷμα,
παρὰ σὲ πύργους ἄρχοντας καὶ σὲ ναοὺς τὸ Ψέμα.
Τῶν πρωτογέννητων καιρῶν ἡ πλάση μὲ τ᾿ ἀγρίμια
ξανάρχεται. Καλῶς νὰ ῾ρθῆ. Γκρεμίζω τὴν ἀσκήμια.
Εἶμ᾿ ἕνα ἀνήμπορο παιδὶ ποὺ σκλαβωμένο τό ῾χει
τὸ δείλιασμα κι ὅλο ρωτᾷ καὶ μήτε ναὶ μήτε ὄχι
δὲν τοῦ ἀποκρίνεται κανείς, καὶ πάει κι ὅλο προσμένει
τὸ λόγο ποὺ δὲν ἔρχεται, καὶ μία ντροπὴ τὸ δένει
Μὰ τὸ τσεκοῦρι μοναχὰ στὸ χέρι σὰν κρατήσω,
καὶ τὸ τσεκοῦρι μου ψυχὴ μ᾿ ἕνα θυμὸ περίσσο.
Τάχα ποιὸς μάγος, ποιὸ στοιχειὸ τοῦ δούλεψε τ᾿ ἀτσάλι
καὶ νιώθω φλόγα τὴν καρδιὰ καὶ βράχο τὸ κεφάλι,
καὶ θέλω νὰ τραβήξω ἐμπρὸς καὶ πλατωσιὲς ν᾿ ἀνοίξω,
καὶ μ᾿ ἕνα Ναὶ νὰ τιναχτῶ, μ᾿ ἕνα Ὄχι νὰ βροντήξω;
Καβάλα στὸ νοητάκι μου, δὲν τρέμω σας ὅποιοι εἶστε
γκρικάω, βγαίνει ἀπὸ μέσα του μιὰ προσταγή: Γκρεμίστε!
Κωστής Παλαμάς. Διαβάστε περισσότερα...
Ρυθμίστε με ακρίβεια το δορυφορικό σας πιάτο!
Μόνο με έναν απλό ψηφιακό δέκτη δεν είναι και τόσο εύκολο να ρυθμίσετε κατάλληλα μια δορυφορική κεραία. Πρώτα θα πρέπει να μετακινήσετε αργά το πιάτο προς τη σωστή θέση και εάν το σήμα είναι τελικά διαθέσιμο, μόλις υπάρξουν κακές καιρικές συνθήκες, μπορεί να χάσετε την εικόνα, ή τουλάχιστον μπορεί να υπάρξουν παραμορφώσεις λόγω των όχι και τόσο καλής συναρμολόγησης που χρησιμοποιούν οι περισσότεροι κατασκευαστές σήμερα. Ευτυχώς υπάρχουν μερικές ιδέες για το πώς να ρυθμίσετε σωστά το πιάτο με ελάχιστη προσπάθεια, τις οποίες θα δούμε σε αυτό το άρθρο.
Οι σύγχρονοι δορυφόροι μεταδίδουν σήματα υψηλής ισχύος έτσι ώστε να μπορούν να ληφθούν με μικρά πιάτα 60εκ. ή ακόμα και με επίπεδα πιάτα και εάν υπάρχουν προβλήματα λήψης, αυτά δεν οφείλονται λόγω μικρού μεγέθους των πιάτων αλλά λόγω της κακής ευθυγράμμισης. Στις παλαιές αναλογικές ημέρες τα συστήματα στήριξης δεν χρειαζόταν να είναι πολύ ακριβή, αλλά σήμερα είναι απαραίτητο να ρυθμίσει σωστά το πιάτο με ακρίβεια μιας μοίρας.
Το στήριγμα της κεραίας κάνει μερικές φορές πολύ δύσκολη την κατάλληλη ρύθμιση του πιάτου.
Για την εύκολη ρύθμιση της ανύψωσης του πιάτου σας, οι περισσότεροι κατασκευαστές έχουν προσθέσει μια κλίμακα στο στήριγμα, αλλά πολύ συχνά αυτές οι κλίμακες είναι πάρα πολύ μικρές, δυσανάγνωστες ή απλά δεν μπορείτε να τις δείτε κατά τη διάρκεια της διαδικασίας τοποθέτησης. Η κατάσταση γίνεται ακόμα χειρότερη όταν προσπαθείτε να ρυθμίσετε τη γωνία αζιμουθίου, δεν υπάρχει διαθέσιμη κάποια κλίμακα και πρέπει να μετακινήσετε το πιάτο έως ότου βρείτε το κατάλληλο σήμα. Φυσικά μπορείτε να μετακινήσετε το πιάτο μόνο όταν τα στηρίγματα είναι ανοικτά και εάν ο κατασκευαστής χρησιμοποιεί ένα ζεύγος στηριγμάτων αντί για δύο, η γωνία ανύψωσης μπορεί να αλλάξει καθώς βιδώνεται και πάλι τα στηρίγματα. Επιπλέον σύντομα θα ανακαλύψετε, ότι το πιάτο όχι μόνο αλλάζει τη γωνία ανύψωσής του, αλλά αρχίζει επίσης να γλιστρά προς τα κάτω στον ιστό στήριξης. Σε αυτήν την περίπτωση είναι πολύ δύσκολο να ρυθμίσετε το πιάτο σας, ειδικά εάν κατά την προσπάθεια σας να το τοποθετήσετε σε μια στέγη και ο δέκτη είναι μακριά στο σαλόνι σας.
Εάν θέλετε να το οπωσδήποτε δοκιμάσετε, παρουσιάζονται παρακάτω μερικές ιδέες που θα σας βοηθήσουν να ολοκληρώσετε με επιτυχία αυτή την εργασία.
Πρώτο βήμα: Η καλή προετοιμασία είναι η μισή δουλειά.
Θα πρέπει να αγοράσετε μια κεραία με ορατή κλίμακα ανύψωσης. Επίσης ελέγξτε εάν το πιάτο χρησιμοποιεί δύο ζεύγη στηριγμάτων.
* Δουλέψτε ομαδικά και εγκαταστήστε μια γραμμή επικοινωνίας μεταξύ των προσώπων που βρίσκονται στο δέκτη και στην εγκατάσταση του πιάτου.
* Βρείτε τη νότια κατεύθυνση (στο Νότιο ημισφαίριο θα πρέπει να βρείτε το Βορρά) με τη χρήση μιας πυξίδας, μιας συσκευής GPS ή των κατασκευαστικών σχεδίων ή περιμένετε το μεσημέρι, εκείνη την στιγμή ο ήλιος θα βρίσκεται στο Νότο (στο Βορρά για το Νότιο ημισφαίριο).
* Βρείτε τα τοπικά γεωγραφικά δεδομένα σας χρησιμοποιώντας ένα λογισμικό όπως το Google Earth, ή εάν διαθέσιμα από μια συσκευή GPS. Επίσης μπορείτε να χρησιμοποιήσετε τα δεδομένα μιας μεγαλύτερης κοντινής πόλης, και προσθέστε ή αφαιρέστε εμπειρικά 1° για κάθε 100km που βρίσκεστε μακριά από αυτή την θέση.
Δεύτερο βήμα: Βρείτε το σήμα μετακινώντας αργά την κεραία σας
Τώρα παρατηρείστε εάν ο ιστός στήριξης έχει τοποθετηθεί απολύτως κάθετα και εάν η θέση του είναι καλή, εγκαταστήστε το πιάτο σας στον ιστό στήριξης και τοποθετήστε το αρχικά στο Νότο (ή στο Βορρά). Τώρα χρειάζεστε ένα πρόσθετο ζεύγος στηριγμάτων που εγκαθιστάτε κάτω από το στήριγμα της κεραίας, έτσι ώστε το πιάτο να μην μπορεί να κυλίσει προς τα κάτω. Φυσικά μπορείτε να τα αφαιρέσετε όταν ολοκληρωθεί η εγκατάσταση. Το δεύτερο πρόσωπο θα πρέπει τώρα να ανοίξει το δέκτη και να τον συντονίσει σε ένα έγκυρο κανάλι από τον επιθυμητό δορυφόρο. Μετακινήστε αργά το πιάτο προς την Ανατολή ή τη Δύση μέχρι να φτάσετε στην επιθυμητή θέση, η οποία υπολογίστηκε από FXPOS για τη γωνία του αζιμουθίου σας. Τώρα ο δέκτης θα πρέπει ήδη να παρουσιάζει ένα σήμα, εάν όχι, τότε μετακινήστε το πιάτο σας λίγο ακόμα. Εάν δεν βρίσκεται κάποιο έγκυρο σήμα, τότε πιθανότατα η γωνία ανύψωσής σας δεν έχει ρυθμιστεί σωστά, γι’ αυτό μετακινήστε το πιάτο σας πίσω στο Νότο, ρυθμίστε την ανύψωση κατά 1,2 ή ακόμα και 3 μοίρες και επαναλάβετε όλη τη διαδικασία πάλι έως ότου λάβετε τελικά ένα σήμα.
Τρίτο βήμα: Ακριβής ρύθμιση του πιάτου σας για βελτίωση των αποτελεσμάτων λήψης
Το τελευταίο βήμα για την τέλεια λήψη σημάτων είναι η ακριβής ρύθμιση της κεραίας σας. Είναι απαραίτητο να γίνει με μεγάλη ακρίβεια έτσι ώστε το πιάτο σας να λειτουργεί και σε περίπτωση κακών καιρικών συνθηκών και να λαμβάνει όλους τους διαθέσιμους αναμεταδότες.
* Σχεδόν κάθε ψηφιακός δέκτης εμφανίζει μια μπάρα ένδειξης ποιότητας ή μια αριθμητική τιμή (κανονικά πατώντας το κουμπί info), έτσι θα πρέπει να βασιστείτε και σε αυτές τις τιμές καθώς ρυθμίζετε με ακρίβεια την κεραία.
* Εάν δεν υπάρχει κάποιος για να σας βοηθήσει μπορείτε να χρησιμοποιήσετε έναν από εκείνους τους φτηνούς δορυφορικούς μετρητές, τον οποίο θα πρέπει να εγκαταστήσετε μεταξύ της κεραίας σας και του δέκτη με τη χρήση των βυσμάτων F, έτσι ώστε να τροφοδοτείτε από το δέκτη σας. Η ευαισθησία τους δεν είναι αρκετά υψηλή όσο αυτή ενός επαγγελματικό μετρητή, αλλά είναι αρκετή για να σας βοηθήσει να βρείτε την καλύτερη θέση για το δορυφόρο σας.
* Εάν θέλετε να αλλάζετε συχνά τη θέση των πιάτων σας για διαφορετικούς δορυφόρους, καλό θα ήταν να αγοράσετε ένα μοτέρ DiSEqC. Αυτά τα μοτέρ λειτουργούν με ακρίβεια και βήμα 1/10° και μπορείτε εύκολα να λάβετε όλους τους διαθέσιμους δορυφόρους με μόλις ένα απλό LNB. Επιπλέον χρησιμοποιούν πάντα δύο ζεύγη στηριγμάτων.
Πηγή: http://www.tele-satellite.gr/
Διαβάστε περισσότερα...
Τρίτη 28 Ιουνίου 2011
Σωστός εξαερισμός case
Καθώς τους καλοκαιρίνους μήνες η θερμοκρασία αγγίζει υψηλά επίπεδα, επιρεάζει πέρα από τους ανθρώπους, και τα μηχανήματα, οπότε αποφάσισα να φτοιάξω ενα οδηγό για το σωστό airflow (ρεύμα αέρα) μέσα στα κουτιά μας, πράγμα απαραίτητο για την απρόσκοπτη λειτουργία των σύγχρονων επεξεργαστών και συστημάτων που γίνονται όλο και πιο ενεργοβόρα!
Τα περισσότερα cases που αγοράζουμε έχουν ενσωματωμένους ανεμιστήρες εμπρός και πίσω, διαστάσεων 80mm ή 120mm, κάποια διαθέτουν εξτρά ανεμιστήρες (συνήθως 80mm ή και μεγαλύτερους στο πλάι) και κάποια και στην οροφή!
Ο οδηγός αυτός απευθύνεται σε αυτούς που δεν προνοησαν να επενδύσουν ενα καλό χρηματικό ποσό στο case του υπολογιστή τους και σαν αποτέλεσμα απέκτησαν ενα κουτί με 1 ή κανένα ανεμιστήρα!
Η θερμοκρασία των υποσυστημάτων (κάρτες γραφικών, πολλαπλοί σκληροί δίσκοι, μνήμες RAM, overclocked CPUs κλπ) σε αυτα τα case συνήθως ειναι αρκετά υψηλότερη απο το κανονικό
καθώς η θερμότητα που αποβάλουν τα υποσυστήματα αυτά δεν μπορεί να απομακρυνθεί απο το εσωτερικό του case (παγιδεύετε) με αποτέλεσμα το pc μας να γίνεται "φούρνος"!
Αυτό, έχει ώς αποτέλεσμα πολύ σοβαρές επιπτώσεις στην απόδοση του υπολογιστή μας και στην διάρκεια ζωής των υποσυστημάτων μας!
Αρχίζοντας λοιπόν θα πρέπει απαραίτητα να έχουμε τουλάχιστον 2 ανεμιστήρες (fans) στο case μας που θα δημιουργούν το απαραίτητο airflow!
Η πράξη έχει αποδείξει ότι θέλουμε έναν ανεμιστήρα στο πίσω μέρος του κουτιού, διάστασεων από 80mm και άνω (προτείνω 120mm) ο οποίος σε συνδυασμό με το τροφοδοτικό θα απομακρύνουν το θερμό αέρα απο το εσωτερικό. (από την φυσική στο σχολείο θυμόμαστε πως ο θερμος αερας ανεβαινει προς τα πάνω ενω ο ψυχρος κρατιέται χαμηλότερα!)
Για το μπροστά μέρος του κουτιού χρειαζόμαστε έναν ανεμηστήρα 120mm κατα προτημηση ο οποίος θα αναλάβει και την ψυξη των σκληρων δισκων. (κάποια case διαθέτουν βάσεις για περισσότερους απο 1 ανεμιστήρα στο μπροστινό μέρος του case).
Με αυτούς τους 2 ανεμιστήρες μπορούμε να πετύχουμε το απαραίτητο και μόνο airflow για το case μας το οποίο πλέον θα είναι ετσι:
Σημαντικό!:
Οι ανεμιστήρες, για να μην μπερδευτείτε με την φορά που φυσάνε κατά την τοποθέτηση τους, φυσάνε προς την πλευρά που περνάνε τα καλώδια τους!
Κάποια case έχουν και εξτρά ανεμιστήρες πχ στο πλάι. Aυτοί οι ανεμιστήρες ειναι αρκετά χρήσιμοι όταν για την ψύξη του επεξεργαστή έχουμε τις κλασικές ψύκτρες.
Σε αυτές τις ψύκτρες οι πλαϊνοί ανεμιστήρες βοηθάνε δίνοντας φρέσκο αέρα απευθείας από το περιβάλλον και όχι μέσα ανακυκλώνοντας τον αέρα από το κουτί!
Κάποια case διαθέτουν ανεμιστήρες και στην οροφή τους για την απεγκλωβισμό του θερμού αέρα από το πάνω μέρος και για την δημιουργία airflow στην περιοχή που ειναι οι μνήμες μας!
ΒΑΣΙΚΟΤΑΤΟ!!!!
Το ακατάστατο εσωτερικό του υπολογιστή εχει σαν αποτέλεσμα το airflow να καταστρέφεται καθώς προσπαθεί ο αέρας να περάσει μέσα απο τα καλώδια!
Για σωστά αποτελέσματα φροντίστε να έχετε το εσωτερικό του κουτίου σας τακτοποιημένο, με τα καλώδια τοποθετημένα με τέτοιο τρόπο που να μην εμποδίζουν την κίνηση του αέρα όπως πχ το πλαινό:
Όπως θα διαπιστώσατε δεν αναφέραμε τίποτα για την υδρόψυξη καθώς αυτή θα μας απασχολήσει σε ξεχωριστό άρθρο. Διαβάστε περισσότερα...
Δευτέρα 27 Ιουνίου 2011
Καθαρίζοντας τη σκόνη από τον υπολογιστή
Η σκόνη είναι ένας ύπουλος για τον υπολογιστή εχθρός και μπορεί να μαζευτεί γύρω από τον επεξεργαστή του υπολογιστή, επάνω στο τροφοδοτικό του και να κλείσει τα ανοίγματα εξαερισμού (ιδίως αν μιλάμε για φορητό). Οι υπολογιστές μπορεί να γίνουν παράδεισος για τη σκόνη όταν δεν καθαρίζονται συχνά με αποτέλεσμα κακή ψύξη, υπερθερμάνσεις, θορύβους και σε ιδιαίτερες περιπτώσεις κάψιμο του μηχανήματος.
Μην ανησυχείτε όμως. Δεν θα χρειαστεί να περάσετε ώρες για να καθαρίσετε τον υπολογιστή σας. Τουλάχιστον αν τον καθαρίζετε συχνά!
Αν ο υπολογιστής μας βρίσκεται σε ένα καθαρό περιβάλλον δεν χρειάζεται καθάρισμα παραπάνω από 2 ή 3 φορές τον χρόνο. Ένα καθαρό περιβάλλον, είναι αυτό χωρίς καπνό, μακριά από κατοικίδια ζώα, και μακριά από το δρόμο, ιδίως αν είναι δρόμος με μεγάλη κυκλοφορία ή αν γίνονται έργα κοντά στο χώρο μας.
Ο καθαρισμός:
Θα πρέπει να εξοπλιστούμε με μια φιάλη πεπιεσμένου αέρα και είμαστε έτοιμοι να ξεκινήσουμε. Η όλη διαδικασία δεν θα διαρκέσει περισσότερο από 25 – 30 λεπτά και αυτά μόνο αν έχει μαζευτεί πολύ σκόνη μέσα στο κουτί μας.
1) Απενεργοποιουμε τον υπολογιστή μας και τον βγάζουμε από την πρίζα.
2) Αφαιρούμε το πλαϊνό κάλυμμα του κουτιού για να αποκτήσουμε πρόσβαση στη μητρική και τα άλλα εξαρτήματα του υπολογιστή μας.
3) Ελέγχουμε καλά όλα τα καλώδια για τυχόν εμφανείς φθορές και αν είναι καλά συνδεδεμένα. Αν κάποιο από αυτά είναι φθαρμένο θα πρέπει να αντικατασταθεί αμέσως.
4) Τώρα είναι ώρα για τον πεπιεσμένο αέρα. Φυσάμε τα πάντα πάνω στη μητρική, δίνοντας ιδιαίτερη προσοχή στην ψύκτρα και τον ανεμιστήρα πάνω στον επεξεργαστή μας. Η περιοχή αυτή συγκεντρώνει πολύ σκόνη. Κάποιες άλλες περιοχές που συγκεντρώνουν, επίσης, πολύ σκόνη είναι οι κάρτες γραφικών (ειδιαίτερα αν έχουν ανημηστηράκι), οι κάρτες ήχου, το τροφοδοτικό, το πάνω μέρος των σκληρών δίσκων και το dvd-rom. Μια μικρή ηλεκτρική σκούπα μετά μπορεί να μας βοηθήσει να απορροφήσουμε τα υπολείμματα της σκόνης. Προσοχή: Θα πρέπει να ακολουθούμε τις οδηγίες χρήσης του πεπιεσμένου αέρα και ΠΟΤΕ να μην ψεκάζουμε το υλικό σε κοντινή απόσταση.
5) Εάν παρατηρήσουμε σκόνη ανάμεσα στις θύρες PCI και AGP, θα πρέπει να αφαιρέσουμε τις κάρτες και να φυσήξουμε μέσα στις υποδοχές τους.
6) Αν το κουτί μας έχει κάποιο φίλτρο αέρα, το αφαιρούμε το και πλένουμε το με προσοχή σε χλιαρό νερό. Μετά το σκουπίζουμε με κάποιο μαλακό πανί, κατά προτίμηση κάποιο που να μην αφήνει χνούδια.
7) Επανατοποθετουμε το πλαϊνό κάλυμμα στη θέση του αφού ελέγξουμε πρώτα ότι δεν υπάρχουν καλώδια μπροστά στους αεραγωγούς.
Παρακάτω υπάρχουν μερικές φωτογραφίες για τι μπορεί να αντιμετωπίσετε αν το κάνετε αυτό για πρώτη φορά στον υπολογιστή σας:
Διαβάστε περισσότερα...
Σάββατο 25 Ιουνίου 2011
Αύξηση εικονικής μνήμης για καλύτερες επιδόσεις / How to Increase Virtual Memory
Αν τρέχουμε πολλά προγράμματα ή έχουμε κάποιο παλιό μηχάνημα το οποίο δεν έχει πολύ RAM εγκατεστημένη τότε θα πρέπει να σκεφτούμε την περίπτωση να αυξήσουμε την εικονική μνήμη (virtual RAM) προκειμένου να έχουμε καλύτερες επιδόσεις.
Η εικονική μνήμη είναι η μνήμη που θα χρησιμοποιήσει ο υπολογιστής μας από τον ελεύθερο χώρο του σκληρού μας δίσκου στην περίπτωση που όλη η RAM είναι δεσμευμένη από διάφορα προγράμματα.
Πώς θα την αυξήσουμε?
1) Δεξί κλικ στο Υπολογιστής και επιλέγουμε Iδιότητες
2) Στο νέο παράθυρο επιλέγουμε Ρυθμίσεις συστήματος για προχωρημένους
3) Στην καρτέλα για προχωρημένους και κάτω από τις επιδόσεις επιλέγουμε Ρυθμίσεις.
4) Στο παράθυρο Επιλογές επιδόσεων επιλέγουμε πάλι την καρτέλα Για προχωρημένους
5) Κάτω από την εικονική μνήμη επιλέγουμε Αλλαγή
6) Αν είναι ενεργοποιημένη η επιλογή Αυτόματη διαχείριση μεγέθους αρχείου σελιδοποίησης την απενεργοποιούμε
7) Επιλέγουμε το Προσαρμογή μεγέθους
8) Στο κουτάκι Αρχικό μέγεθος βάζουμε μία τιμή μεταξύ 1000 και 15000 και για το μέγιστο μέγεθος μία τιμή μεταξύ 2000 και 2500.
9) Πατάμε την επιλογή Ορισμός και κλείνουμε όλα τα παράθυρα
10)Κάνουμε επανεκκίνηση τον υπολογιστή μας
Όσο περισσότερο χώρο έχουμε στον δίσκο μας τόσο πιο αποτελεσματικά θα λειτουργήσει η εικονική μνήμη. Διαβάστε περισσότερα...
Παρασκευή 24 Ιουνίου 2011
.xlsx file opens as read-only / Αρχεία .xlsx ανοίγουν μόνο για ανάγνωση.
Αν σας έχει τύχει χρησιμοποιώντας μια παλαιότερη έκδοση του Excel (πριν το office 2007) με το compatiblity pack εγκατεστημένο,το αρχείο .xlsx να σας ανοίγει ως read only με την μορφή xl0000001.xls και δεν σας αφήνει να το αποθηκεύσετε παρά μόνο σαν xls τότε θα πρέπει να κάνετε τα εξής:
Κάντε δεξί κλικ πάνω στο αρχείο xlsx και επιλέξτε "Open With...". Το πιο πιθανό είναι οτι ειναι προεπιλεγμένο το Microsoft Open XML Converter.
Επιλέξτε το Microsoft Office Excel και τσεκάρετε το "Always use the selected program to open this kind of file.
Από δω και πέρα όλα τα φύλλα του excel θα ανοιγουν κανονικά
Διαβάστε περισσότερα...
Τετάρτη 22 Ιουνίου 2011
Desert Rifle 2. Ενα παιχνίδι για λίγους
Ενα παιχνίδι για όλους εσάς που έχετε τον πόλεμό στο αίμα σας.
Αποκρούστε τα κύματα των αντιπάλων μαχητών. Αναβαθμίστε οπλοστάσιό σας και χρησιμοποιήστε στο πεδίο της μάχης τις νάρκες για επιπλέον δύναμη πυρός!
Παιζετε με το ποντίκι και το πληκρολόγιο Διαβάστε περισσότερα...
Τρίτη 21 Ιουνίου 2011
Reduce pdf size / Μείωση μεγέθους αρχείων pdf
Στην δουλειά μου έχω αρκετές φορές εργαστεί με αρχεία pdf στα οποία το μέγεθός τους είναι τέτοιο που να δυσκολεύει τη διαχείρησή τους. Βέβαια, θα μπορούσε να πει κάποιος πως υπάρχει η δυνατότητα PDF Optimizer που έχει το Adobe Acrobat (αλλά δεν υπάρχει και στο Acrobat Reader).
Υπάρχει όμως ένας τρόπος με τον οποίο μπορείτε να μικρίνετε το μέγεθος των αρχείων pdf μόνο με δύο click.
Ο ευκολότερος τρόπος λοιπόν για να συρρικνωθεί ένα αρχείο PDF είναι η.... εκτύπωση του αρχείου PDF πάλι... σε ένα αρχείο PDF.
Ακούγεται περίεργο; Είναι!
Βασικά, μπορείτε να ανοίξετε το αρχείο PDF στο Adobe Reader και να το εκτυπώσετε στον εκτυπωτή Adobe PDF ή σε oποιοδήποτε άλλο εικονικό pdf εκτυπωτή που μπορει να έχετε εγκατεστημένο στον υπολογιστή σας (πηγαίντε File > Print, επιλέξτε Adobe PDF ή όποιο άλλο pdf printer από τη drop down list πχ novaPDF).
Με το παραπάνω έχω πετύχει συρρίκνωση από τα 20 MB στα 3 MB (χωρίς απώλεια στην ανάλυση) πράγμα που κάνει την μέθοδο αυτή ιδανική για αρχεία με μεγάλο αριθμό των εικόνων που τρώνε πολύ χώρο Διαβάστε περισσότερα...
Σάββατο 18 Ιουνίου 2011
ΦΤΟΙΑΞΤΕ ΤΡΙΛΙΖΑ ΣΤΟΝ ΥΠΟΛΟΓΙΣΤΗ ΣΑΣ
Ακολουθήστε τα παρακάτω βήματα για να δημιουργήσετε το γνωστό παιχνίδι της Τριλιζας ( Tic-Tac-Toe) στον υπολογιστή σας μόνο με την χρήση του Notepad (παιζει μέσω της γραμμής εντολών).
α) Ανοίξτε το notepad
β) Καντε copy / paste τον παρακάτω κώδικα στο notepad.
Κάντε clik για να ανοιξει ο κώδικας:
@echo off
title V's Tic Tac Toe
title Noughts and Crosses
setlocal enabledelayedexpansion
::~ ^^^ Stops all commands appearing on screen, sets the title and enables the use of ! for environment variable
:menu
cls
echo Main Menu
echo To Play A 1-Player Game, Enter 1
echo To Play A 2-Player Game, Enter 2
echo To Exit, Enter 3
set /p menu=
if not defined menu goto menu
if /i %menu% equ 1 (
set menu=
cls
goto 1p
)
if /i %menu% equ 2 (
set menu=
cls
goto 2p
)
if /i %menu% equ 3 (
goto end
)
set menu=
goto menu
::~ ^^ The menu system, gives all the options, allows the user to input a number using "set /p menu="
:~ If the user didn't enter a value, it 'goto's back to ask again.
::~ Checks the Menu variable, tests to see if it matches 1, 2 or 3, then 'goto's the appropriate place.
:1p
set turns=0
set x1=0
set x2=0
set x3=0
set x4=0
set x5=0
set x6=0
set x7=0
set x8=0
set x9=0
set o1=0
set o2=0
set o3=0
set o4=0
set o5=0
set o6=0
set o7=0
set o8=0
set o9=0
::~ Sets the number of turns taken so far to 0
::~ Sets all the places on the noughts and crosses grid to 0
set d1=1
set d2=2
set d3=3
set d4=4
set d5=5
set d6=6
set d7=7
set d8=8
set d9=9
::~ Sets the display characters for game to their appropriate number
set rnumber=%random%
set rnumber2=%rnumber%
set /a rnumber= %rnumber% / 2
set /a rnumber= %rnumber% * 2
::~ Sets a variable "rnumber" to a random number
::~ Sets a variable "rnumber2" to the same number as "rnumber"
::~ Divides "rnumber" by two, then multiplies by two.
::~ If the number was even, it would be equal to "rnumber2", if it was odd it would end up one less than "rnumber2"
::~ This is the method I use to create a 50% chance, as there's a 50% that a random number will be odd or even
if %rnumber%==%rnumber2% (
echo Crosses go first
echo You are noughts
pause>nul
set rnumber=
set rnumber2=
set go=1xgame
goto 1display
) else (
echo Noughts go first
echo You are noughts
pause>nul
set rnumber=
set rnumber2=
set go=1ogame
goto 1display
)
::~ This tests to see if the numbers are equal, then sets the "go" variable to whichever possibility came out and deletes the "rnumber" variables
::~ Then 'Goto's the display
:1display
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
if /i %turns% equ 9 (goto draw)
echo.
echo Your Turn
echo.
goto %go%
::~ ^^ Displays the current status of each place in the grid. At the start these will all just be numbers.
::~ Checks that the turns hasn't reach nine. If it has, all the spaces on the grid have been used up and nobody has won, so the game is a draw.
:1ogame
echo Choose the number of the space you'd like to choose
set guess=
set /p guess=
if not defined guess goto 1display
set guess=%guess:~0,1%
if /i not %guess% leq 9 goto 1display
if /i not %guess% gtr 0 goto 1display
if /i !d%guess%! neq %guess% goto 1display
goto 1o%guess%
::~ Asks the user to input the number of the space they want to choose and allows them to using "Set /p"
::~ If the user didn't input or entered something that wasn't a number between 1 and 9, it 'goto's back, to ask again
::~ Checks that the number hasn't been already chosen by checking that !d%guess%! is equal to guess. This works becauseif the user guesses 1, d1 should equal 1.
::~ If it has already been chosen, d1 would be a O or a X, so it would not be equal.
::~ 'Goto's the number chosen.
:1o1
set o1=1
set x1=1000
set d1=O
goto 1oprocess
:1o2
set o2=10
set x2=1000
set d2=O
goto 1oprocess
:1o3
set o3=100
set x3=1000
set d3=O
goto 1oprocess
:1o4
set o4=1
set x4=1000
set d4=O
goto 1oprocess
:1o5
set o5=10
set x5=1000
set d5=O
goto 1oprocess
:1o6
set o6=100
set x6=1000
set d6=O
goto 1oprocess
:1o7
set o7=1
set x7=1000
set d7=O
goto 1oprocess
:1o8
set o8=10
set x8=1000
set d8=O
goto 1oprocess
:1o9
set o9=100
set x9=1000
set d9=O
goto 1oprocess
::~ The space of the number chosen on the display grid is changed to the correct letter (X or O) and a number is added to the %x-% grid and the %o-% grid.
::~ These two grids are used to work out whether someone has won, and allows the computer to work out which place to go next.
:1oprocess
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 111 (goto owin)
set /a line2= %o4% + %o5% + %o6%
if /i %line2% equ 111 (goto owin)
set /a line3= %o7% + %o8% + %o9%
if /i %line3% equ 111 (goto owin)
set /a line4= %o1% + %o5% + %o9%
if /i %line4% equ 111 (goto owin)
set /a line5= %o3% + %o5% + %o7%
if /i %line5% equ 111 (goto owin)
set /a line6= %o1% + %o4% + %o7%
if /i %line6% equ 3 (goto owin)
set /a line7= %o2% + %o5% + %o8%
if /i %line7% equ 30 (goto owin)
set /a line8= %o3% + %o6% + %o9%
if /i %line8% equ 300 (goto owin)
::~ This section of code adds up all of the possible winning combinations on the %o-% grid i.e. each row, column and diagional, to check if the player has got three Os in a row. If so 'goto's the owin section.
set go=1xgame
set guess=
set /a turns= %turns% + 1
goto 1display
::~ Sets the go to the computer's and adds one to the number of turns taken
::~ 'Goto's the display.
:1xgame
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 101 (
set guess=2
goto 1ac
)
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %x4% + %x5% + %x6%
if /i %line1% equ 11 (
set guess=6
goto 1ac
)
set /a line1= %x4% + %x5% + %x6%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %x4% + %x5% + %x6%
if /i %line1% equ 110 (
set guess=4
goto 1ac
)
set /a line1= %x7% + %x8% + %x9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %x7% + %x8% + %x9%
if /i %line1% equ 101 (
set guess=8
goto 1ac
)
set /a line1= %x7% + %x8% + %x9%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %x1% + %x5% + %x9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %x1% + %x5% + %x9%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %x1% + %x5% + %x9%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %x3% + %x5% + %x7%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %x3% + %x5% + %x7%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %x3% + %x5% + %x7%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %x1% + %x4% + %x7%
if /i %line1% equ 2 (
if /i %d1% equ 1 (
set guess=1
goto 1ac
)
if /i %d4% equ 4 (
set guess=4
goto 1ac
)
if /i %d7% equ 7 (
set guess=7
goto 1ac
)
)
set /a line1= %x2% + %x5% + %x8%
if /i %line1% equ 20 (
if /i %d2% equ 2 (
set guess=2
goto 1ac
)
if /i %d5% equ 5 (
set guess=5
goto 1ac
)
if /i %d8% equ 8 (
set guess=8
goto 1ac
)
)
set /a line1= %x3% + %x6% + %x9%
if /i %line1% equ 200 (
if /i %d3% equ 3 (
set guess=3
goto 1ac
)
if /i %d6% equ 6 (
set guess=6
goto 1ac
)
if /i %d9% equ 9 (
set guess=9
goto 1ac
)
)
::~ ^^^ These sections add up all the %x-% grid and checks to see if there is a way the computer can win this turn.
::~ If so, it sets the guess to the correct number and 'goto's the 1ac section.
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 101 (
set guess=2
goto 1ac
)
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %o4% + %o5% + %o6%
if /i %line1% equ 11 (
set guess=6
goto 1ac
)
set /a line1= %o4% + %o5% + %o6%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %o4% + %o5% + %o6%
if /i %line1% equ 110 (
set guess=4
goto 1ac
)
set /a line1= %o7% + %o8% + %o9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %o7% + %o8% + %o9%
if /i %line1% equ 101 (
set guess=8
goto 1ac
)
set /a line1= %o7% + %o8% + %o9%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %o1% + %o5% + %o9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %o1% + %o5% + %o9%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %o1% + %o5% + %o9%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %o3% + %o5% + %o7%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %o3% + %o5% + %o7%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %o3% + %o5% + %o7%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %o1% + %o4% + %o7%
if /i %line1% equ 2 (
if /i %d1% equ 1 (
set guess=1
goto 1ac
)
if /i %d4% equ 4 (
set guess=4
goto 1ac
)
if /i %d7% equ 7 (
set guess=7
goto 1ac
)
)
set /a line1= %o2% + %o5% + %o8%
if /i %line1% equ 20 (
if /i %d2% equ 2 (
set guess=2
goto 1ac
)
if /i %d5% equ 5 (
set guess=5
goto 1ac
)
if /i %d8% equ 8 (
set guess=8
goto 1ac
)
)
set /a line1= %o3% + %o6% + %o9%
if /i %line1% equ 200 (
if /i %d3% equ 3 (
set guess=3
goto 1ac
)
if /i %d6% equ 6 (
set guess=6
goto 1ac
)
if /i %d9% equ 9 (
set guess=9
goto 1ac
)
)
::~ This section checks that there is no way the noughts can win next turn by adding up the %o-% grid. If so it sets the guess to the right number and 'goto's 1ac.
set guess=%time:~9,1%
::~ If there is no way that the computer OR the player can win next turn, the computer chooses a random number as its guess. The random number I use is the millisecond digit of the clock.
:1ac
if /i %guess% equ 0 goto 1display
echo !d%guess%!
if /i NOT !d%guess%!==%guess% goto 1display
goto 1x%guess%
::~ Checks that the place hasn't already been taken (as explained above) and 'goto's the corresponding place below.
:1x1
set x1=1
set o1=1000
set d1=X
goto 1xprocess
:1x2
set x2=10
set o2=1000
set d2=X
goto 1xprocess
:1x3
set x3=100
set o3=1000
set d3=X
goto 1xprocess
:1x4
set x4=1
set o4=1000
set d4=X
goto 1xprocess
:1x5
set x5=10
set o5=1000
set d5=X
goto 1xprocess
:1x6
set x6=100
set o6=1000
set d6=X
goto 1xprocess
:1x7
set x7=1
set o7=1000
set d7=X
goto 1xprocess
:1x8
set x8=10
set o8=1000
set d8=X
goto 1xprocess
:1x9
set x9=100
set o9=1000
set d9=X
goto 1xprocess
::~ This section, as for the noughts, changes the display character of the chosen place, and adds numbers to the %x-% grid.
:1xprocess
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 111 (goto xwin)
set /a line2= %x4% + %x5% + %x6%
if /i %line2% equ 111 (goto xwin)
set /a line3= %x7% + %x8% + %x9%
if /i %line3% equ 111 (goto xwin)
set /a line4= %x1% + %x5% + %x9%
if /i %line4% equ 111 (goto xwin)
set /a line5= %x3% + %x5% + %x7%
if /i %line5% equ 111 (goto xwin)
set /a line6= %x1% + %x4% + %x7%
if /i %line6% equ 3 (goto xwin)
set /a line7= %x2% + %x5% + %x8%
if /i %line7% equ 30 (goto xwin)
set /a line8= %x3% + %x6% + %x9%
if /i %line8% equ 300 (goto xwin)
set go=1ogame
set /a turns= %turns% + 1
goto 1display
::~ Sets the turn to the player, increases the turns variable by one. 'Goto's the display.
::#######################################################
::~ Two player is exactly the same as one player, apart from the computer is replaced by a second player, the code is otherwise identical and does not need explaining again.
:2p
set turns=0
set x1=0
set x2=0
set x3=0
set x4=0
set x5=0
set x6=0
set x7=0
set x8=0
set x9=0
set o1=0
set o2=0
set o3=0
set o4=0
set o5=0
set o6=0
set o7=0
set o8=0
set o9=0
set d1=1
set d2=2
set d3=3
set d4=4
set d5=5
set d6=6
set d7=7
set d8=8
set d9=9
set rnumber=%random%
set rnumber2=rnumber
set /a rnumber= %rnumber% / 2
set /a rnumber= %rnumber% * 2
if %rnumber%==%rnumber2% (
echo Crosses go first
pause>nul
set rnumber=
set rnumber2=
set go=2xgame
goto 2display
) else (
echo Noughts go first
pause>nul
set rnumber=
set rnumber2=
set go=2ogame
goto 2display
)
:2display
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
if /i %turns% equ 9 (goto draw)
echo.
if /i "%go%"=="2ogame" (
echo Nought's Turn
) ELSE (
echo Cross's Turn
)
echo.
goto %go%
:2ogame
echo Choose the number of the space you'd like to choose
set guess=
set /p guess=
if not defined guess goto 2display
set guess=%guess:~0,1%
if /i not %guess% leq 9 goto 2display
if /i not %guess% gtr 0 goto 2display
if /i !d%guess%! neq %guess% goto 2display
goto 2o%guess%
:2o1
set o1=1
set d1=O
goto 2oprocess
:2o2
set o2=10
set d2=O
goto 2oprocess
:2o3
set o3=100
set d3=O
goto 2oprocess
:2o4
set o4=1
set d4=O
goto 2oprocess
:2o5
set o5=10
set d5=O
goto 2oprocess
:2o6
set o6=100
set d6=O
goto 2oprocess
:2o7
set o7=1
set d7=O
goto 2oprocess
:2o8
set o8=10
set d8=O
goto 2oprocess
:2o9
set o9=100
set d9=O
goto 2oprocess
:2oprocess
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 111 (goto owin)
set /a line2= %o4% + %o5% + %o6%
if /i %line2% equ 111 (goto owin)
set /a line3= %o7% + %o8% + %o9%
if /i %line3% equ 111 (goto owin)
set /a line4= %o1% + %o5% + %o9%
if /i %line4% equ 111 (goto owin)
set /a line5= %o3% + %o5% + %o7%
if /i %line5% equ 111 (goto owin)
set /a line6= %o1% + %o4% + %o7%
if /i %line6% equ 3 (goto owin)
set /a line7= %o2% + %o5% + %o8%
if /i %line7% equ 30 (goto owin)
set /a line8= %o3% + %o6% + %o9%
if /i %line8% equ 300 (goto owin)
set go=2xgame
set guess=
set /a turns= %turns% + 1
goto 2display
:2xgame
echo Choose the number of the space you'd like to choose
set guess=
set /p guess=
if not defined guess goto 2display
set guess=%guess:~0,1%
if /i not %guess% leq 9 goto 2display
if /i not %guess% gtr 0 goto 2display
if /i !d%guess%! neq %guess% goto 2display
goto 2x%guess%
:2x1
set x1=1
set d1=X
goto 2xprocess
:2x2
set x2=10
set d2=X
goto 2xprocess
:2x3
set x3=100
set d3=X
goto 2xprocess
:2x4
set x4=1
set d4=X
goto 2xprocess
:2x5
set x5=10
set d5=X
goto 2xprocess
:2x6
set x6=100
set d6=X
goto 2xprocess
:2x7
set x7=1
set d7=X
goto 2xprocess
:2x8
set x8=10
set d8=X
goto 2xprocess
:2x9
set x9=100
set d9=X
goto 2xprocess
:2xprocess
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 111 (goto xwin)
set /a line2= %x4% + %x5% + %x6%
if /i %line2% equ 111 (goto xwin)
set /a line3= %x7% + %x8% + %x9%
if /i %line3% equ 111 (goto xwin)
set /a line4= %x1% + %x5% + %x9%
if /i %line4% equ 111 (goto xwin)
set /a line5= %x3% + %x5% + %x7%
if /i %line5% equ 111 (goto xwin)
set /a line6= %x1% + %x4% + %x7%
if /i %line6% equ 3 (goto xwin)
set /a line7= %x2% + %x5% + %x8%
if /i %line7% equ 30 (goto xwin)
set /a line8= %x3% + %x6% + %x9%
if /i %line8% equ 300 (goto xwin)
set go=2ogame
set /a turns= %turns% + 1
goto 2display
:draw
echo.
Echo It's A Draw!
pause>nul
goto menu
:owin
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
Echo Noughts Win!
pause>nul
goto menu
:xwin
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
Echo Crosses Win!
Pause>nul
goto menu
:end
set d1=
set d2=
set d3=
set d4=
set d5=
set d6=
set d7=
set d8=
set d9=
set o1=
set o2=
set o3=
set o4=
set o5=
set o6=
set o7=
set o8=
set o9=
set x1=
set x2=
set x3=
set x4=
set x5=
set x6=
set x7=
set x8=
set x9=
set guess=
set turns=
set line1=
set line2=
set line3=
set line4=
set line5=
set line6=
set line7=
set line8=
title V's Tic Tac Toe
title Noughts and Crosses
setlocal enabledelayedexpansion
::~ ^^^ Stops all commands appearing on screen, sets the title and enables the use of ! for environment variable
:menu
cls
echo Main Menu
echo To Play A 1-Player Game, Enter 1
echo To Play A 2-Player Game, Enter 2
echo To Exit, Enter 3
set /p menu=
if not defined menu goto menu
if /i %menu% equ 1 (
set menu=
cls
goto 1p
)
if /i %menu% equ 2 (
set menu=
cls
goto 2p
)
if /i %menu% equ 3 (
goto end
)
set menu=
goto menu
::~ ^^ The menu system, gives all the options, allows the user to input a number using "set /p menu="
:~ If the user didn't enter a value, it 'goto's back to ask again.
::~ Checks the Menu variable, tests to see if it matches 1, 2 or 3, then 'goto's the appropriate place.
:1p
set turns=0
set x1=0
set x2=0
set x3=0
set x4=0
set x5=0
set x6=0
set x7=0
set x8=0
set x9=0
set o1=0
set o2=0
set o3=0
set o4=0
set o5=0
set o6=0
set o7=0
set o8=0
set o9=0
::~ Sets the number of turns taken so far to 0
::~ Sets all the places on the noughts and crosses grid to 0
set d1=1
set d2=2
set d3=3
set d4=4
set d5=5
set d6=6
set d7=7
set d8=8
set d9=9
::~ Sets the display characters for game to their appropriate number
set rnumber=%random%
set rnumber2=%rnumber%
set /a rnumber= %rnumber% / 2
set /a rnumber= %rnumber% * 2
::~ Sets a variable "rnumber" to a random number
::~ Sets a variable "rnumber2" to the same number as "rnumber"
::~ Divides "rnumber" by two, then multiplies by two.
::~ If the number was even, it would be equal to "rnumber2", if it was odd it would end up one less than "rnumber2"
::~ This is the method I use to create a 50% chance, as there's a 50% that a random number will be odd or even
if %rnumber%==%rnumber2% (
echo Crosses go first
echo You are noughts
pause>nul
set rnumber=
set rnumber2=
set go=1xgame
goto 1display
) else (
echo Noughts go first
echo You are noughts
pause>nul
set rnumber=
set rnumber2=
set go=1ogame
goto 1display
)
::~ This tests to see if the numbers are equal, then sets the "go" variable to whichever possibility came out and deletes the "rnumber" variables
::~ Then 'Goto's the display
:1display
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
if /i %turns% equ 9 (goto draw)
echo.
echo Your Turn
echo.
goto %go%
::~ ^^ Displays the current status of each place in the grid. At the start these will all just be numbers.
::~ Checks that the turns hasn't reach nine. If it has, all the spaces on the grid have been used up and nobody has won, so the game is a draw.
:1ogame
echo Choose the number of the space you'd like to choose
set guess=
set /p guess=
if not defined guess goto 1display
set guess=%guess:~0,1%
if /i not %guess% leq 9 goto 1display
if /i not %guess% gtr 0 goto 1display
if /i !d%guess%! neq %guess% goto 1display
goto 1o%guess%
::~ Asks the user to input the number of the space they want to choose and allows them to using "Set /p"
::~ If the user didn't input or entered something that wasn't a number between 1 and 9, it 'goto's back, to ask again
::~ Checks that the number hasn't been already chosen by checking that !d%guess%! is equal to guess. This works becauseif the user guesses 1, d1 should equal 1.
::~ If it has already been chosen, d1 would be a O or a X, so it would not be equal.
::~ 'Goto's the number chosen.
:1o1
set o1=1
set x1=1000
set d1=O
goto 1oprocess
:1o2
set o2=10
set x2=1000
set d2=O
goto 1oprocess
:1o3
set o3=100
set x3=1000
set d3=O
goto 1oprocess
:1o4
set o4=1
set x4=1000
set d4=O
goto 1oprocess
:1o5
set o5=10
set x5=1000
set d5=O
goto 1oprocess
:1o6
set o6=100
set x6=1000
set d6=O
goto 1oprocess
:1o7
set o7=1
set x7=1000
set d7=O
goto 1oprocess
:1o8
set o8=10
set x8=1000
set d8=O
goto 1oprocess
:1o9
set o9=100
set x9=1000
set d9=O
goto 1oprocess
::~ The space of the number chosen on the display grid is changed to the correct letter (X or O) and a number is added to the %x-% grid and the %o-% grid.
::~ These two grids are used to work out whether someone has won, and allows the computer to work out which place to go next.
:1oprocess
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 111 (goto owin)
set /a line2= %o4% + %o5% + %o6%
if /i %line2% equ 111 (goto owin)
set /a line3= %o7% + %o8% + %o9%
if /i %line3% equ 111 (goto owin)
set /a line4= %o1% + %o5% + %o9%
if /i %line4% equ 111 (goto owin)
set /a line5= %o3% + %o5% + %o7%
if /i %line5% equ 111 (goto owin)
set /a line6= %o1% + %o4% + %o7%
if /i %line6% equ 3 (goto owin)
set /a line7= %o2% + %o5% + %o8%
if /i %line7% equ 30 (goto owin)
set /a line8= %o3% + %o6% + %o9%
if /i %line8% equ 300 (goto owin)
::~ This section of code adds up all of the possible winning combinations on the %o-% grid i.e. each row, column and diagional, to check if the player has got three Os in a row. If so 'goto's the owin section.
set go=1xgame
set guess=
set /a turns= %turns% + 1
goto 1display
::~ Sets the go to the computer's and adds one to the number of turns taken
::~ 'Goto's the display.
:1xgame
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 101 (
set guess=2
goto 1ac
)
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %x4% + %x5% + %x6%
if /i %line1% equ 11 (
set guess=6
goto 1ac
)
set /a line1= %x4% + %x5% + %x6%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %x4% + %x5% + %x6%
if /i %line1% equ 110 (
set guess=4
goto 1ac
)
set /a line1= %x7% + %x8% + %x9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %x7% + %x8% + %x9%
if /i %line1% equ 101 (
set guess=8
goto 1ac
)
set /a line1= %x7% + %x8% + %x9%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %x1% + %x5% + %x9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %x1% + %x5% + %x9%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %x1% + %x5% + %x9%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %x3% + %x5% + %x7%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %x3% + %x5% + %x7%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %x3% + %x5% + %x7%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %x1% + %x4% + %x7%
if /i %line1% equ 2 (
if /i %d1% equ 1 (
set guess=1
goto 1ac
)
if /i %d4% equ 4 (
set guess=4
goto 1ac
)
if /i %d7% equ 7 (
set guess=7
goto 1ac
)
)
set /a line1= %x2% + %x5% + %x8%
if /i %line1% equ 20 (
if /i %d2% equ 2 (
set guess=2
goto 1ac
)
if /i %d5% equ 5 (
set guess=5
goto 1ac
)
if /i %d8% equ 8 (
set guess=8
goto 1ac
)
)
set /a line1= %x3% + %x6% + %x9%
if /i %line1% equ 200 (
if /i %d3% equ 3 (
set guess=3
goto 1ac
)
if /i %d6% equ 6 (
set guess=6
goto 1ac
)
if /i %d9% equ 9 (
set guess=9
goto 1ac
)
)
::~ ^^^ These sections add up all the %x-% grid and checks to see if there is a way the computer can win this turn.
::~ If so, it sets the guess to the correct number and 'goto's the 1ac section.
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 101 (
set guess=2
goto 1ac
)
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %o4% + %o5% + %o6%
if /i %line1% equ 11 (
set guess=6
goto 1ac
)
set /a line1= %o4% + %o5% + %o6%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %o4% + %o5% + %o6%
if /i %line1% equ 110 (
set guess=4
goto 1ac
)
set /a line1= %o7% + %o8% + %o9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %o7% + %o8% + %o9%
if /i %line1% equ 101 (
set guess=8
goto 1ac
)
set /a line1= %o7% + %o8% + %o9%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %o1% + %o5% + %o9%
if /i %line1% equ 11 (
set guess=9
goto 1ac
)
set /a line1= %o1% + %o5% + %o9%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %o1% + %o5% + %o9%
if /i %line1% equ 110 (
set guess=1
goto 1ac
)
set /a line1= %o3% + %o5% + %o7%
if /i %line1% equ 11 (
set guess=3
goto 1ac
)
set /a line1= %o3% + %o5% + %o7%
if /i %line1% equ 101 (
set guess=5
goto 1ac
)
set /a line1= %o3% + %o5% + %o7%
if /i %line1% equ 110 (
set guess=7
goto 1ac
)
set /a line1= %o1% + %o4% + %o7%
if /i %line1% equ 2 (
if /i %d1% equ 1 (
set guess=1
goto 1ac
)
if /i %d4% equ 4 (
set guess=4
goto 1ac
)
if /i %d7% equ 7 (
set guess=7
goto 1ac
)
)
set /a line1= %o2% + %o5% + %o8%
if /i %line1% equ 20 (
if /i %d2% equ 2 (
set guess=2
goto 1ac
)
if /i %d5% equ 5 (
set guess=5
goto 1ac
)
if /i %d8% equ 8 (
set guess=8
goto 1ac
)
)
set /a line1= %o3% + %o6% + %o9%
if /i %line1% equ 200 (
if /i %d3% equ 3 (
set guess=3
goto 1ac
)
if /i %d6% equ 6 (
set guess=6
goto 1ac
)
if /i %d9% equ 9 (
set guess=9
goto 1ac
)
)
::~ This section checks that there is no way the noughts can win next turn by adding up the %o-% grid. If so it sets the guess to the right number and 'goto's 1ac.
set guess=%time:~9,1%
::~ If there is no way that the computer OR the player can win next turn, the computer chooses a random number as its guess. The random number I use is the millisecond digit of the clock.
:1ac
if /i %guess% equ 0 goto 1display
echo !d%guess%!
if /i NOT !d%guess%!==%guess% goto 1display
goto 1x%guess%
::~ Checks that the place hasn't already been taken (as explained above) and 'goto's the corresponding place below.
:1x1
set x1=1
set o1=1000
set d1=X
goto 1xprocess
:1x2
set x2=10
set o2=1000
set d2=X
goto 1xprocess
:1x3
set x3=100
set o3=1000
set d3=X
goto 1xprocess
:1x4
set x4=1
set o4=1000
set d4=X
goto 1xprocess
:1x5
set x5=10
set o5=1000
set d5=X
goto 1xprocess
:1x6
set x6=100
set o6=1000
set d6=X
goto 1xprocess
:1x7
set x7=1
set o7=1000
set d7=X
goto 1xprocess
:1x8
set x8=10
set o8=1000
set d8=X
goto 1xprocess
:1x9
set x9=100
set o9=1000
set d9=X
goto 1xprocess
::~ This section, as for the noughts, changes the display character of the chosen place, and adds numbers to the %x-% grid.
:1xprocess
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 111 (goto xwin)
set /a line2= %x4% + %x5% + %x6%
if /i %line2% equ 111 (goto xwin)
set /a line3= %x7% + %x8% + %x9%
if /i %line3% equ 111 (goto xwin)
set /a line4= %x1% + %x5% + %x9%
if /i %line4% equ 111 (goto xwin)
set /a line5= %x3% + %x5% + %x7%
if /i %line5% equ 111 (goto xwin)
set /a line6= %x1% + %x4% + %x7%
if /i %line6% equ 3 (goto xwin)
set /a line7= %x2% + %x5% + %x8%
if /i %line7% equ 30 (goto xwin)
set /a line8= %x3% + %x6% + %x9%
if /i %line8% equ 300 (goto xwin)
set go=1ogame
set /a turns= %turns% + 1
goto 1display
::~ Sets the turn to the player, increases the turns variable by one. 'Goto's the display.
::#######################################################
::~ Two player is exactly the same as one player, apart from the computer is replaced by a second player, the code is otherwise identical and does not need explaining again.
:2p
set turns=0
set x1=0
set x2=0
set x3=0
set x4=0
set x5=0
set x6=0
set x7=0
set x8=0
set x9=0
set o1=0
set o2=0
set o3=0
set o4=0
set o5=0
set o6=0
set o7=0
set o8=0
set o9=0
set d1=1
set d2=2
set d3=3
set d4=4
set d5=5
set d6=6
set d7=7
set d8=8
set d9=9
set rnumber=%random%
set rnumber2=rnumber
set /a rnumber= %rnumber% / 2
set /a rnumber= %rnumber% * 2
if %rnumber%==%rnumber2% (
echo Crosses go first
pause>nul
set rnumber=
set rnumber2=
set go=2xgame
goto 2display
) else (
echo Noughts go first
pause>nul
set rnumber=
set rnumber2=
set go=2ogame
goto 2display
)
:2display
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
if /i %turns% equ 9 (goto draw)
echo.
if /i "%go%"=="2ogame" (
echo Nought's Turn
) ELSE (
echo Cross's Turn
)
echo.
goto %go%
:2ogame
echo Choose the number of the space you'd like to choose
set guess=
set /p guess=
if not defined guess goto 2display
set guess=%guess:~0,1%
if /i not %guess% leq 9 goto 2display
if /i not %guess% gtr 0 goto 2display
if /i !d%guess%! neq %guess% goto 2display
goto 2o%guess%
:2o1
set o1=1
set d1=O
goto 2oprocess
:2o2
set o2=10
set d2=O
goto 2oprocess
:2o3
set o3=100
set d3=O
goto 2oprocess
:2o4
set o4=1
set d4=O
goto 2oprocess
:2o5
set o5=10
set d5=O
goto 2oprocess
:2o6
set o6=100
set d6=O
goto 2oprocess
:2o7
set o7=1
set d7=O
goto 2oprocess
:2o8
set o8=10
set d8=O
goto 2oprocess
:2o9
set o9=100
set d9=O
goto 2oprocess
:2oprocess
set /a line1= %o1% + %o2% + %o3%
if /i %line1% equ 111 (goto owin)
set /a line2= %o4% + %o5% + %o6%
if /i %line2% equ 111 (goto owin)
set /a line3= %o7% + %o8% + %o9%
if /i %line3% equ 111 (goto owin)
set /a line4= %o1% + %o5% + %o9%
if /i %line4% equ 111 (goto owin)
set /a line5= %o3% + %o5% + %o7%
if /i %line5% equ 111 (goto owin)
set /a line6= %o1% + %o4% + %o7%
if /i %line6% equ 3 (goto owin)
set /a line7= %o2% + %o5% + %o8%
if /i %line7% equ 30 (goto owin)
set /a line8= %o3% + %o6% + %o9%
if /i %line8% equ 300 (goto owin)
set go=2xgame
set guess=
set /a turns= %turns% + 1
goto 2display
:2xgame
echo Choose the number of the space you'd like to choose
set guess=
set /p guess=
if not defined guess goto 2display
set guess=%guess:~0,1%
if /i not %guess% leq 9 goto 2display
if /i not %guess% gtr 0 goto 2display
if /i !d%guess%! neq %guess% goto 2display
goto 2x%guess%
:2x1
set x1=1
set d1=X
goto 2xprocess
:2x2
set x2=10
set d2=X
goto 2xprocess
:2x3
set x3=100
set d3=X
goto 2xprocess
:2x4
set x4=1
set d4=X
goto 2xprocess
:2x5
set x5=10
set d5=X
goto 2xprocess
:2x6
set x6=100
set d6=X
goto 2xprocess
:2x7
set x7=1
set d7=X
goto 2xprocess
:2x8
set x8=10
set d8=X
goto 2xprocess
:2x9
set x9=100
set d9=X
goto 2xprocess
:2xprocess
set /a line1= %x1% + %x2% + %x3%
if /i %line1% equ 111 (goto xwin)
set /a line2= %x4% + %x5% + %x6%
if /i %line2% equ 111 (goto xwin)
set /a line3= %x7% + %x8% + %x9%
if /i %line3% equ 111 (goto xwin)
set /a line4= %x1% + %x5% + %x9%
if /i %line4% equ 111 (goto xwin)
set /a line5= %x3% + %x5% + %x7%
if /i %line5% equ 111 (goto xwin)
set /a line6= %x1% + %x4% + %x7%
if /i %line6% equ 3 (goto xwin)
set /a line7= %x2% + %x5% + %x8%
if /i %line7% equ 30 (goto xwin)
set /a line8= %x3% + %x6% + %x9%
if /i %line8% equ 300 (goto xwin)
set go=2ogame
set /a turns= %turns% + 1
goto 2display
:draw
echo.
Echo It's A Draw!
pause>nul
goto menu
:owin
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
Echo Noughts Win!
pause>nul
goto menu
:xwin
cls
echo %d1% %d2% %d3%
echo %d4% %d5% %d6%
echo %d7% %d8% %d9%
Echo Crosses Win!
Pause>nul
goto menu
:end
set d1=
set d2=
set d3=
set d4=
set d5=
set d6=
set d7=
set d8=
set d9=
set o1=
set o2=
set o3=
set o4=
set o5=
set o6=
set o7=
set o8=
set o9=
set x1=
set x2=
set x3=
set x4=
set x5=
set x6=
set x7=
set x8=
set x9=
set guess=
set turns=
set line1=
set line2=
set line3=
set line4=
set line5=
set line6=
set line7=
set line8=
γ) Κάνουμε Save το αρχείο αλλά με κατάληξη .bat (όχι .txt)
δ) Τρέχουμε το αρχείο που δημιουργήθηκε και ακολουθούμε τις οδηγίες. Διαβάστε περισσότερα...
Crack a WEP encrypted wifi network with Aircrack / Ελληνικός Οδηγός χρήσης Aircrack
Σε αυτό το άρθρο μας θα αναφερθούμε στο πως μπορεί κάποιος με την χρήση ειδικών εφαρμογών να ξεκλειδώσει ασύρματα δίκτυα wifi τα οποία είναι προστατευμένα με κρυπτογράφηση WEP.
Πριν προχωρήσουμε θα πρέπει να πούμε πως η παρακάτω διαδικασία παρουσιάζετε μόνο για εκπαιδευτικούς σκοπούς που αφορούν το να τεστάρουμε την ασφάλεια του δικτύου μας και σε καμία περίπτωση δεν θα πρέπει να την χρησιμοποιήσουμε σε τρίτους. Τέλος θα πρέπει να αναφέρουμε πως την μέγιστη προστασία αυτή την στιγμή προσφέρει η κρυπτογράφηση WPA2 (δες αντίστοιχο άρθρο στο παρόν blog).
H εφαρμογή που θα χρησιμοποιήσουμε λέγετε aircrack και βρίσκετε στην διανομή linux backtrack (http://www.backtrack-linux.org/). Το aircrack μπορεί να εγκατασταθεί σε άλλες εφαρμογές linux αλλά για την παρουσίαση μας θα χρησιμοποιήσουμε το backtrack που έρχεται με την εφαρμογή προεγκατεστημένη. Για να λειτουργήσει το aircrack είναι απαραίτητη η χρήση συμβατής κάρτας WLAN με το συγκεκριμένο λογισμικό (πχ TP LINK TL-WN322g). Μπορείτε να ελέγξετε την συμβατότητα της κάρτας σας στις παρακάτω σελίδες: hardware compatibility page , Tutorial: Is My Wireless Card Compatible?.
Κατεβάζουμε λοιπόν το iso του backtrack στον υπολογιστή μας και ή το καίμε σε ένα cd ή USB και bootαρουμε από αυτό ή το κάνουμε mount για να μπούμε στo intrerface του.
Αφού bootάρουμε το backtrack θα μας ζητήσει username και password όπου και βάζουμε root και toor (τρέχει πάντα με root access) και στην συνέχεια πληκτρολογούμε startx και enter.
Έχοντας πλέον φορτώσει το γραφικό περιβάλλον του backtrack 5 στον υπολογιστή, ανοίγουμε την κονσόλα, και δίνουμε την εντολή:
airmon-ng
Το interface μου αναγνωρίστηκε ως wlan0. Άλλα πιθανά ονόματα που μπορεί να δείτε είναι το ath0, ra0 κτλ
Στη συνέχεια θα βάλουμε την κάρτα μας σε κατάσταση ανίχνευσης (monitor mode) , δίνουμε λοιπόν την εντολή:
airmon-ng start (interface)
όπου interface βάζω το wlan0
το συστημα απαντά λέγοντας: monitor mode enabled on mon0. Από δω και πέρα όπου αναφέρει interface θα βάζουμε το mon0
Για να ξεκινήσουμε την ανίχνευση δικτύων δίνω την εντολή:
airodump-ng (interface)
Η ανίχνευση ξεκινά και αμέσως μας εμφανίζει τα δίκτυα που υπάρχουν γύρω μας. Εμάς μας ενδιαφέρουν αυτά που έχουν κρυπτογράφηση WEP (στήλη ENC).
Πατάμε control c ταυτόχρονα για να σταματήσει η ανίχνευση δικτύων.
Αφού εντοπίσουμε το δίκτυο μας, από αυτό θα κρατήσουμε τη mac address του (στήλη BSSID) και το κανάλι του (στήλη CH)
Θα πρέπει να τονίσουμε πως καλό θα ήταν το δίκτυο που επιλέξαμε να έχει εκείνη την ώρα κίνηση (Στήλη #Data), δηλαδή κάποιος να το χρησιμοποιεί ασύρματα εκείνη την ώρα, για πχ σερφάρισμα. Αυτό είναι απαραίτητο για να “πιαστούν” πακέτα, επειδή σε εκείνα τα πακέτα κρύβετε και η πληροφορία που θέλουμε να αποσπάσουμε.
Για να ξεκινήσουμε και να κλειδώσουμε την αναζήτησή μας στο συγκεκριμένο δίκτυο δίνουμε την εντολή:
airodump-ng -c (channel) -w (filename) --bssid (bssid) (interface)
Στο (channel) βάζουμε το κανάλι του δικτύου (στο παράδειγμα είναι το 3). Στο (filename) δίνουμε ένα όνομα για το αρχείο που το σύστημα θα δημιουργήσει και από εκεί θα κάνει ανάλυση των κωδικών (για το παράδειγμα το ονομάσαμε wep). Επίσης όπου (bssid) δίνουμε το bssid του καναλιού.
Όπως είπαμε και πιο πάνω θα χρειαστεί να συλλέξουμε όσο το δυνατόν περισσότερα “πακέτα” (στήλη #Data) έτσι θα δημιουργήσουμε και θα στείλουμε “τεχνητά” πακέτα ώστε να δουλέψει πιο γρήγορα το crack. (λειτουργία injection)
Ανοίγουμε λοιπόν μία καινούργια κονσόλα. Προσοχή! ΔΕΝ κλείνουμε την ήδη υπάρχουσα, δηλαδή αφήνουμε την προηγούμενη εντολή να τρέχει.
Δίνουμε την εντολή:
aireplay-ng -1 0 -a (bssid) (interface)
Ξαναπροσπαθούμε μέχρι να δούμε το μήνυμα Association successful και μία γελαστή φατσούλα.
Στην συνέχεια δίνουμε την εντολή:
aireplay-ng -2 -p 0841 -c FF:FF:FF:FF:FF:FF -b (bssid) (interface)
Στην συνέχεια θα μας ρωτήσει: Use this packet? Πατάμε Υ και θα ξεκινήσει η δημιουργία και αποστολή των τεχνητών πακέτων (injection)
Περιμένουμε… Σε λίγο τα #data στην πρώτη κονσόλα θα αυξάνονται πολύ γρήγορα.
Όταν τα πακέτα φτάσουν παραπάνω από 10000, σε μια άλλη (τρίτη) κονσόλα δίνουμε την εντολή:
aircrack-ng (filename)*.cap
Στο filename βάζουμε το όνομα του αρχείου που είχαμε δώσει πιο πάνω. Στο αρχείο αυτό συλλέγονται τα πακέτα και η εντολή αυτή ξεκινάει την αποκρυπτογράφηση του κλειδιού.
Η αποκρυπτογράφηση αρχίζει....
Μετά από λίγο (εξαρτάται πάντα από τον αριθμό των πακέτων και την πολυπλοκότητα του κωδικού) αν όλα πάνε καλά, θα μας δοθεί το wep password, (θα το βάλουμε χωρίς τις άνω και κάτω τελείες).
Αν μας βγάλει μήνυμα αποτυχίας απλά περιμένουμε για περισσότερα πακετα data.
Κάνε κλικ εδώ για οδηγίες εγκατάστασης σε Virtual Box
Διαβάστε περισσότερα...
Εγγραφή σε:
Αναρτήσεις (Atom)


































