Jump to content

Infotech

Premium Members
 View Profile  See their activity

  • Posts

    501

  • Εγγραφή

  • Τελευταία Επίσκεψη

 Content Type 

Everything posted by Infotech

  1. Infotech

    Η Seagate σπάει το ρεκόρ του μεγαλύτερου...μικρού σκληρού δίσκου

    Το μέλος Infotech σχολίασε στην δημοσίευση του SirMomus στην ενότητα Ειδήσεις

    Αυτό που δεν μπορώ να καταλάβω είναι η λογική των εγγυήσεων. 5 χρόνια για desktop computing και gaming και μόνο 3 χρόνια για NAS datacenter και DVRs? Ανάποδα δεν θα έπρεπε να είναι;
  2. Infotech
    Βλακείες του υπαλλήλου. Πήγαινε σε ένα κατάστημα του παρόχου σου και ζήτα ένα έγγραφο που να πιστοποιεί ότι ο αριθμός τάδε είναι στο όνομά σου και πες τους ότι το θέλεις για την τράπεζα. Είτε συμβόλαιο έχεις είτε καρτοκινητό τα στοιχεία σου είναι καταχωρημένα στο νούμερο αυτό εδώ και χρόνια. Αν θυμάσαι κάποτε που μας έτρεχαν όσοι είχαμε καρτοκινητά τότε να πάμε να δηλώσουμε τα στοιχεία ταυτότητας στα καταστήματα για να μην χάσουμε το νούμερο.
  3. Infotech

    Διαγωνισμός - 13 Χρόνια TheLab.gr - Εβδομάδα 4η

    Το μέλος Infotech σχολίασε στην δημοσίευση του DJD στην ενότητα Ειδήσεις

    Λοιπόν ένα παγκόσμιο φαινόμενο στον κλάδο της πληροφορικής και των gadgets είναι ο φανμποισμός(fanboy). Πόσα μα πόσα threads από άρθρα ή νέα δεν έχουν καταλήξει σε μονομαχίες fanboys με αντιπαλότητες AMD vs Intel ή ATi vs NVidia κ.ο.κ Δεν θυμάμαι κάποιο συγκεκριμένο άρθρο γιατί είναι αρκετά όλα αυτά τα χρόνια αλλά ένα πρόσφατο που είχα διαβάσει ήταν αυτό:
  4. Infotech
    Να κάνετε πολύ συχνά backup και να ενεργοποιείτε το Previous versions στους δίσκους σας. Δυστυχώς οι περισσότεροι ransomware κρυπτογραφούν το αρχικό αρχείο σας και σβήνουν το αρχικό. Οπότε είναι δύσκολη και η ανάκτηση σβησμένων αρχείων γιατί ο δίσκος έχει πολλές εγγραφές κατά την διάρκεια αυτή ειδικά αν είναι και γεμάτος. Για να δοκιμάσετε αποκρυπτογράφηση δεν παίζει . Π.χ. Ο Zepto χρησιμοποιεί RSA-2048 key (AES CBC 256-bit encryption algorithm) Επίσης μην πετάξετε τα κρυπτογραφημένα αρχεία σας, κρατήστε τα κάπου μαζί με κάποιο αυθεντικό που ίσως διασώσετε με την ελπίδα ότι κάποια στιγμή θα βγει λογισμικό αποκρυπτογράφησης όπως έχει γίνει με τους Rakhni, Agent.iih, Aura, Autoit, Pletor, Rotor, Lamer, Lortok, Cryptokluchen, Democry, Bitman και άλλους.
  5. Infotech

    Διαγωνισμός - 13 Χρόνια TheLab.gr - Εβδομάδα 3η

    Το μέλος Infotech σχολίασε στην δημοσίευση του karmen1983 στην ενότητα Ειδήσεις

    Προσπαθούσα ανεπιτυχώς να βρω τα σχόλια από μία είδηση που είχε ανεβεί με θέμα σχετικά με την ποινικοποίηση της οδήγησης ακούγοντας psychedelic trans κάπου στον κόσμο και όλοι από κάτω είχαμε γράψει τα απίστευτα. Οπότε το επόμενο που μου ήρθε είναι το: *** ΕΙΜΑΙ ΓΥΝΑΙΚΑ ΛΕΜΕ... ΑΝ ΜΕ ΠΕΙΣ ΦΙΛΕ ΘΑ ΣΕ ΠΩ ΜΑΡΙΚΑ ***
  6. Infotech
    Γι'αυτό η Yahoo μέχρι να κάνεις login σου ζητάει μόνιμα να αλλάξεις password.
  7. Infotech

    Διαγωνισμός - 13 Χρόνια TheLab.gr - Εβδομάδα 2η

    Το μέλος Infotech σχολίασε στην δημοσίευση του DJD στην ενότητα Ειδήσεις

    Και πάλι χρόνια πολλά! Και ξανά και ξανά και ξαναμανά! Άντε όλοι αντιγραφούληδες Arial ήταν!
  8. Infotech
    Αν βρεθεί τρόπος αξιοποίησης σε καθημερινής χρήσης μπαταρίες με κόστος προσιτό τότε εκτός από τεχνολογική ανακάλυψη θα είναι και μεγάλη οικολογική ανακούφιση.
  9. Infotech

    Διαγωνισμός - 13 Χρόνια TheLab.gr

    Το μέλος Infotech σχολίασε στην δημοσίευση του DJD στην ενότητα Ειδήσεις

    Τα καλύτερα εύχομαι για το καλύτερο "Εργαστήριο" του διαδικτύου και της καρδιάς μας! Άντε και μία θεματική τηλεοπτική άδεια εύχομαι!
  10. Infotech

    Βοήθεια με VBA σε EXCEL

    Infotech απάντησε στο θέμα του Infotech topic στην ενότητα Programming - Scripting & Databases

    Κατ' αρχήν να ευχαριστήσω για τον χρόνο σας. Λοιπόν δοκίμασα να κάνω Worksheets("RTABLES").Activate αλλά παρατήρησα ότι όχι μόνο δεν μου δούλευε πάλι αλλά είχα και τελείως διαφορετική αντιμετώπιση στον υπολογισμό της ClrRow. Επειδή όμως και activate να μην είχα κάνει αρκεί να δηλώσω όλο το worksheet().range() οπότε και δεν υπήρχε πρόβλημα. Το πρόβλημα λύθηκε πολύ απλά βάζοντας τις δύο παρακάτω γραμμές εντός των IF και επιπροσθέτως (ίσως όχι απαραιτήτως) ορίζοντας tables από το Excel (τα κρατάει σαν αντικείμενα). ClrRow = Application.WorksheetFunction.Match(Vclr, Worksheets("RTABLES").Range("clrtable")) + 1 rpclc = Application.WorksheetFunction.HLookup(Vclt, Worksheets("RTABLES").Range("table02"), ClrRow, 0) Ιδού και το τελικό για τα πρακτικά και για όποιον θέλει να εξασκηθεί: Function rpclc(CLRT, CLR, WT) Dim Vclt, Vclr As String Dim Vw As Single Dim ClrRow As Integer Vw = WT Vclr = CLR Vclt = CLRT If (Vw >= 0.2) And (Vw < 0.299) Then ClrRow = Application.WorksheetFunction.Match(Vclr, Worksheets("RTABLES").Range("clrtable")) + 1 rpclc = Application.WorksheetFunction.HLookup(Vclt, Worksheets("RTABLES").Range("table02"), ClrRow, 0) Else rpclc="No Data from Tables" If (Vw >= 0.3) And (Vw < 0.399) Then ClrRow = Application.WorksheetFunction.Match(Vclr, Worksheets("RTABLES").Range("clrtable")) + 1 rpclc = Application.WorksheetFunction.HLookup(Vclt, Worksheets("RTABLES").Range("table03"), ClrRow, 0) end if End If End Function
  11. Infotech

    Βοήθεια με VBA σε EXCEL

    Infotech απάντησε στο θέμα του Infotech topic στην ενότητα Programming - Scripting & Databases

    Βασικά εκτός των απλών μεταβλητών που δουλεύουν σωστά δεν μπορώ να ελέγξω τις άλλες (clrrow, wtable) γιατί ενώ έχω βάλει breakpoints στις γραμμές τους φαίνεται ότι εκεί δεν γίνεται κάτι οπότε και το compile τερματίζει απλά προσπερνώντας τες. Υποψιάζομαι ότι κάτι δεν κάνω καλά στην χρήση και κλήση των πινάκων. Για παράδειγμα αν είχατε αυτό (χωρίς τα IF): =HLOOKUP(C2;'TR.xlsm'!TABLE02;MATCH(B2; RTABLES !$A$4:$A$7)+1;FALSE) Πώς θα το υλοποιούσατε; Φαντάζομαι πως είναι κάτι πολύ απλό απλά κάποια λεπτομέρεια τεχνική ως προς την κλήση των πινάκων δεν κάνω καλά.
  12. Infotech

    Βοήθεια με VBA σε EXCEL

    Infotech απάντησε στο θέμα του Infotech topic στην ενότητα Programming - Scripting & Databases

    Το είχα κάνει αυτό για να δω σε ποιά if μπαίνει και τι τιμή δίνει πριν φτάσει στο τέλος και είχα βάλει και breakpoints σε διάφορα σημεία για να βλέπω τι τιμές δίνει. Όταν μπαίνει στην if παίζει κανονικά, μετά μάλλον την χαλάει κάτι που ίσως δεν γράφω σωστά στους ορισμούς των ranges.
  13. Infotech

    Βοήθεια με VBA σε EXCEL

    Infotech απάντησε στο θέμα του Infotech topic στην ενότητα Programming - Scripting & Databases

    Λοιπόν έγινε το εξής αλλά πάλι αποτέλεσμα δεν παίρνω If (Vw > 0.2) And (Vw < 0.299) Then Set wtable = Sheets("RTABLES").Range("B3:E7") ElseIf (Vw > 0.3) And (Vw < 0.399) Then Set wtable = Sheets("RTABLES").Range("G3:J7") Else Set wtable = Sheets("RTABLES").Range("b3:e7") End If
  14. Infotech

    Βοήθεια με VBA σε EXCEL

    Infotech απάντησε στο θέμα του Infotech topic στην ενότητα Programming - Scripting & Databases

    Σωστά! θα το διορθώσω αλλά το θέμα είναι ότι και στο πρώτο if που μπαίνει δεν μου δουλεύει.
  15. Infotech
    Χαιρετώ σας! Θα ήθελα λίγη βοήθεια σε ένα θεματάκι όσον αφορά την μετατροπή ενός αλγόριθμου που έφτιαξα στο Excel. Επειδή δεν μπορώ κάθε φορά να κάνω copy paste και να μου χαλάνε διάφορα references σε cells θέλω να γράψω τον αλγόριθμο που έφτιαξα σε VBA function και να το αποθηκεύσω ώστε να μπορώ να το χρησιμοποιώ σαν απλή function του Excel. Δυστυχώς έχουν περάσει αρκετά χρόνια από την τελευταία φορά που έγραψα VB αντιμετωπίζω κάποια προβλήματα που θα ήθελα μία βοήθεια. Κατ'αρχάς ο αλγόριθμος είναι ο εξής: =HLOOKUP(C2;IF(D2<0,3;'TR.xlsm'!TABLE02;'TR.xlsm'!TABLE03);MATCH(B2; RTABLES !$A$4:$A$7)+1;FALSE) Το παραπάνω μου δουλεύει μιά χαρά. Το πρόβλημα όμως είναι στην υλοποίηση που έκανα σε VBA. Άνοιξα VBA στο Excel και έκανα δημιουργία ενός module και έγραψα το παρακάτω: Function rpclc(CLRT, CLR, WT) As Single Dim wtable As Range Dim Vclt, Vclr As String Dim Vw As Single Dim ClrRow As Integer Vw = WT Vclr = CLR Vclt = CLRT If Vw > 0.2 Then Set wtable = Sheets("RTABLES").Range("B3:E7") ElseIf w > 0.3 Then Set wtable = Sheets("RTABLES").Range("G3:J7") Else Set wtable = Sheets("RTABLES").Range("b3:e7") End If ClrRow = Application.WorksheetFunction.Match(Vclr, Sheets("RTABLES").Range("A4:A7") + 1) rpclc = Application.WorksheetFunction.HLookup(Vclt, wtable, ClrRow, 0) End Function Δεν ξερω για ποιό λόγο δεν μου δουλεύει. Δεν επιστρέφει καμία τιμή. Σίγουρα κάτι δεν κάνω καλά στις δηλώσεις των Ranges. Όποιος μπορεί ας βοηθήσει. Ευχαριστώ!
  16. Infotech
    Ναι αλλά σπεκς έχει πουθενά να κατεβάσουμε;
  17. Infotech

    Μην το πετάτε, χαρίστε το εδώ...Πρωταπριλιά..

    Infotech απάντησε στο θέμα του Prodromos topic στην ενότητα Off topic

    Ευχαριστώ μπαμπά!!
  18. Infotech
    Όχι δυστυχώς. Δεν βιάζομαι, ούτως ή άλλως στο συρτάρι είναι πολύ καιρό. Αν σε βγάζει ο δρόμος σου καμιά μέρα από ελτα.
  19. Infotech
    Γειά, μήπως σου είναι εύκολο να μου ταχυδρομήσεις τον έναν; Έχω 2 μητρικές 775 και δεν ξέρω αν δουλεύουν επειδή δεν έχω επεξεργαστή. Αν δεν σου κάνει κόπο βέβαια και εννοείται για τα έξοδα μου δίνεις έναν αριθμό λογαριασμού τραπ. και σου τα καταθέτω. Ευχαριστώ.
  20. Infotech
    Φίλε μου αν δεν κανονίσετ τελικά με τον alex το θέλω γιατί θέλω να τραβήξω αρκετά ψιψιψόνια από το συγκεκριμένο.
  21. Infotech
    Σας ευχαριστώ όλους. Το πρόβλημα το έλυσα εχθές αργά το βράδυ απλά επειδή σήμερα δούλευα και έπρεπε να ξυπνήσω 6 δεν την πάλευα να γράψω report. Θα γράψω όμως μόλις βρώ λίγο χρόνο και αν δεν καταστραφεί ο πλανήτης και μας φάνε οι ακρίδες με το αποτέλεσμα των εκλογών ;-)
  22. Infotech
    Έχω απεγκαταστήσει ήδη αρκετές εφαρμογές, ούτε chrome έχω. Επίσης ξέχασα να αναφέρω ότι όντως είχα απενεργοποιήσει τις αυτόματες ενημερώσεις από παλαιότερα λόγω του ότι ο διαθέσιμος χώρος είναι περιορισμένος. Αυτό που βλέπω όμως είναι ότι , όσες φορές και να ελευθερώσω χώρο, όσο χώρο και να ελευθερώσω, πάλι κάτι "αόρατο" γίνεται και γεμίζει πλήρως.
  23. Infotech
    Καλησπέρα σας, έχω το Samsung GT-S5570 εδώ και κάποια χρόνια και παρά τους περιορισμούς του λόγω παλαιότητας κάνω την δουλειά μου. Έχω εγκαταστήσει κάποιες επαγγελματικές εφαρμογές (όχι παιχνίδια και αγνώστου προέλευσης) εδώ και χρόνια με τις οποίες δουλεύω και ποτέ δεν είχα πρόβλημα. Σήμερα το πρωί, το android κρασάρει μόνιμα κλείνοντας διάφορες υπηρεσίες και λέγοντάς μου ότι δεν υπάρχει διαθέσιμος εσωτερικός χώρος αποθήκευσης. Απεγκατέστησα εφαρμογές ελευθερόνοντας περίπου 25ΜΒ (από τα 181ΜΒ). Έπειτα δούλεψε έτσι για λίγο έχοντας ανοιχτό το wifi και χρησιμοποιόντας το internet μέσω κάποιων εκ των εφαρμογών και έπειτα πάλι τα ίδια. Με τα χίλια ζόρια απεγκατέστησα το Youtube και μία ακόμη εφαρμογή και απελευθέρωσα άλλα 15ΜΒ. Δυστυχώς μετά από λίγο και χωρίς την χρήση του τηλεφώνου, παρά μόνο για κλήσεις, συνέβη πάλι το ίδιο. Περιττό να σας πώ ότι ούτεν μυνήματα δεν μπορούσα να λάβω. Υποθέτω ότι για κάποιο λόγο κάποια εφαρμογή ή υπηρεσία γράφει junk data στον εσωτερικό χώρο αποθήκευσης αλλά δεν μπορώ να το επαληθεύσω, ούτε να προσπελάσω τα δεδομένα εκεί. Έχει ποτέ κάποιος αντιμετωπίσει αντίστοιχο πρόβλημα; Τι μου προτείνετε;
  24. Infotech

    #labxmas2014 day 17 gift 28

    Infotech απάντησε στο θέμα του DJD topic στην ενότητα Thelab.gr Νέα και σχόλια

    Λοιπόν και εγώ συμφωνώ στην απάντηση ότι υπάρχουν 204 τετράγωνα (όχι παραλληλόγραμμα) n(n+1)(2n+1) Sum = ------------ = 204 6(όπου n=8)
  25. Infotech

    #labxmas2014 day 16 gift 27

    Infotech απάντησε στο θέμα του astrolabos topic στην ενότητα Thelab.gr Νέα και σχόλια

    15 pins
×
×
  • Δημιουργία...

Important Information

Ο ιστότοπος theLab.gr χρησιμοποιεί cookies για να διασφαλίσει την καλύτερη εμπειρία σας κατά την περιήγηση. Μπορείτε να προσαρμόσετε τις ρυθμίσεις των cookies σας , διαφορετικά θα υποθέσουμε ότι είστε εντάξει για να συνεχίσετε.