Samdreamth

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

Πάντως, βλέποντας τις υπογραφές τρομοκρατήθηκα... Ανακαλώ όσα είπα σε προηγούμενο ποστ. Πιστεύω ότι πρόκειται για την ανακάλυψη της δεκαετίας...

Έλεος πια με τις μούφες που μας έχουν κατακλύσει τον τελευταίο καιρό!!!

Παιδιά, τώρα τελευταία λόγω της αναδουλειάς που υπάρχει λόγω κρίσης έχουν βαλθεί όλοι να μας τρελάνουν:

α) Διορθωτής συνημιτόνου

β) Λέβητας ιόντων

γ) Μαγνητάκια

Δεν νομίζετε ότι η κοροϊδία όσο πάει και αυξάνεται?

Και για να απαντήσω στο θέμα, συμφωνώ ασφαλώς με τον Ροδόπουλο για το πετρέλαιο.

Επίσης, έχω την ίδια άποψη με τον ckiriako:

Όλα τα R & D τμήματα των αυτοκινητοβιομηχνιών δηλ. τί κάνουν? Σε αυτούς και το 0,1% αποτελεί σημαντική βελτίωση και δεν θα είχαν δοκιμάσει αυτό? Ας μην κοροϊδευόμαστε.

Άλλη μια "greek" πατέντα που σκαρφίστηκαν κάποιοι μπας και κονομήσουν κάνα φράγκο..

Ελάτε μωρέ, είδανε κρίση τα παιδιά και είπαν να παίξουν με τον πόνο του κοσμάκη.... Όλο και κάποιο κορόϊδο θα τσιμπήσει...

Το άλλο το πετυχημένο το είδατε? Με 5 KW θα ζεσταθεί σπίτι 90 m2?

Λοιπόν, τα 5 ΚW, αντιστοιχούν περίπου σε 4300 Kcal/h. Το σπίτι μου στη Θεσ/κη, που είναι περίπου αυτά τα τετραγωνικά θέλει 9300 Kcal/h για να ζεσταθεί....

Ακόμα και με το COP 1.57 => τα 5 KW θα γίνουν 7,85 KW ή 6750 Kcal/h.

Μπορώ λοιπόν να ζεστάνω το σπίτι μου? ΟΧΙ!!!!!

ΥΓ: Βασικά μοιάζει με το άλλο ανέκδοτο του διορθωτή συνημιτόνου...

Ένα από τα βολικά πράγματα του excel είναι η δημιουργία add-ins. Τα add-ins είναι πρόσθετα όπως μαρτυρά και η λέξη τα οποία αναβαθμίζουν κατά κάποιον τρόπο τις διάφορες λειτουργίες του excel. Για νά κάνετε ένα add-in απλά σώνετε ώς xlam ή xla το αρχείο σας. Φυσικά, ΔΕΝ έχει νόημα να κάνετε ένα αρχείο add-in αν δεν περιέχει κώδικα VBA.

Ο δικός μου πειραματισμός ήταν ο εξής:

Πριν από κάποιους μήνες είχα ανεβάσει αυτό το excel-όφυλλο το οποίο ήταν ένας μετατροπέας μονάδων. Πρόσφατα θέλησα να το έχω μόνιμα στο excel μου οπότε με λίγο προγραμματισμό το μετέτρεψα σε ad-in.

Αυτό το add-in λοιπόν μπορείτε να το κατεβάσετε από εδώ. Δουλεύει μόνο σε excel 2007 και 2010.

Εγκαταστήστε το ως εξής:

1. Κατεβάστε το αρχείο.
   
2. Ανοίξτε το excel (αν δεν είναι ανοιχτό).
   
3. α. Πατήστε File -> Options -> καρτέλα Add-Ins -> Go... (κουμπί). β. Εναλλακτικά κάντε κλίκ στην καρτέλα Developer (αν την έχετε εμφανίσει) και πατήστε το κουμπί που λέει Add-Ins button. γ. Φυσικά ο ευκολότερος τρόπος είναι να πατήστε το συνδιασμό ALT + TI.
   
4. Στο παράθυρο διαλόγου που θα εμφανιστεί πατήστε το κουμπί Browse. Βρείτε το αρχείο που κατεβάσατε με την ονομασία Units Converter Add-In.xlam και πατήστε ΟΚ.
   
5. Βάλτε ένα τικ δίπλα στο όνομα του add-in και είστε έτοιμοι!
   

Αν κάνατε όλα τα βήματα σωστά θα δείτε ένα νέο εικονίδιο στην καρτέλα home. Πατώντας το εικονίδιο εμφανίζεται μια φόρμα στην οποία μπορείτε να επιλέξετε τις μονάδες για μετατροπή. Μάλιστα μπορείτε να συνεχίσετε να δουλεύετε στο φύλλο (πχ να εισάγετε τιμές σε κάποιο κελί) χωρίς να κλείσετε την φόρμα.

Ελπίζω να σας χρησιμεύσει....

ΥΓ: Για τους πιο μυημένους στην VBA να πω ότι πλέον με το ribbon είναι ΔΥΣΚΟΛΟΤΕΡΟ να κάνετε custom interface γιατί απαιτεί γνώσεις XML. Βέβαια, αυτό το δωρεάν εργαλείο διευκολύνει κάπως την όλη διαδικασία.

Ευχαριστώ, θα το δω αυτό το UDF

Να προσθέσω κάτι χρήσιμο για τις user defined functions:

Έστω ότι κάποιος έχει αναπτύξει την παρακάτω συνάρτηση:

>
Option Explicit

Function FrictionFactor(Roughness As Double, Diameter As Double, Velocity As Double, Viscosity As Double)

'This function calculates the friction factor of a pipe using Churchill's equation (1977)
'This equation is valid for all types of flows (from laminar to turbulent)

Dim Reynolds As Double
Dim A As Double
Dim B As Double

Reynolds = (Diameter * Velocity) / Viscosity

A = ((2.457 * WorksheetFunction.Ln(1 / ((Roughness / (3.7 * Diameter)) + ((7 / Reynolds) ^ 0.9)))) ^ 16)

B = (37530 / Reynolds) ^ 16

FrictionFactor = 8 * ((((8 / Reynolds) ^ 12) + ((A +  ^ (-3 / 2))) ^ (1 / 12))

End Function

Αν θέλει να δώσει περιγραφή στην συνάρτηση και τα ορίσματα της UDF τότε μπορεί να χρησιμοποιήσει την παρακάτω υπορουτίνα, αρκεί να ΕΧΕΙ OFFICE 2010. Η περιγραφή των ορισμάτων είναι νέο χαρακτηριστικό του excel 2010. Όποιος έχει παλιότερο office μπορεί να δώσει περιγραφή μόνο για την συνάρτηση και ΟΧΙ για τα ορίσματα.

Η υπορουτίνα είνα η εξής:

>
Option Explicit

Sub DescribeFunction()

'Ορισμός μεταβλητών
Dim FuncName As String
Dim FuncDesc As String
Dim FuncCat As Long

'Αναλόγως με τα πόσα ορίσματα - arguments έχει η συνάρτηση
'ορίζουμε και τις αντίστοιχες μεταβλητές πχ 4 ορίσματα - 4 μεταβλητές
Dim Arg1Desc As String
Dim Arg2Desc As String
Dim Arg3Desc As String
Dim Arg4Desc As String

'Αναλόγως την συνάρτηση που έχουμε αλλάζουμε και το όνομα
FuncName = "FrictionFactor"

'Εδώ δίνουμε την περιγραφή που θα εμφανίζεται στο φύλλο όταν ο χρήστης
'θα επιλέγει την συνάρτησή μας
FuncDesc = "This function calculates the friction factor of a pipe using Churchill's equation"

'Διαλέγουμε την κατηγορία στην οποία θα εμφανίζεται η συνάρτησή μας
'και η οποία πλέον ΔΕΝ θα εμφανίζεται στην κατηγορία user defined function
'Πχ το 15 είναι η κατηγορία engineering
FuncCat = 15

'Εδώ δίνουμε την περιγραφή των ορισμάτων
Arg1Desc = "Pipe Roughness in m"
Arg2Desc = "Pipe Diameter in m"
Arg3Desc = "Fluid Velocity in m/s"
Arg4Desc = "Fluid Viscosity in m2/s"

'Χρησιμοποιώντας τη μέθοδο MacroOptions "περνούν" οι περιγραφές των ορισμάτων και της συνάρτησης
Application.MacroOptions _
Macro:=FuncName, _
Description:=FuncDesc, _
Category:=FuncCat, _
ArgumentDescriptions:=Array(Arg1Desc, Arg2Desc, Arg3Desc, Arg4Desc)

End Sub

Για όσους έχουν παλιό office (πριν το 2010 δηλαδή) μπορούν να δώσουν μια περιγραφή στις συναρτήσεις που δημιουργούν μέσω VBA ως εξής:

Πατάμε Alt + F8 -> στο μενού, εκεί που λέει macro name πληκτρολογούμε το όνομα της συνάρτησής μας πχ FrictionFactor -> αν έχουμε γράψει σωστά το όνομα της συνάρτησής μας (χωρίς να πατήσουμε enter) θα δούμε ότι το κομπί "options" μπορούμε πλέον να το επιλέξουμε -> πατάμε λοιπόν options και στο description γράφουμε μια περιγραφή για την συνάρτηση μας. Η συνάρτηση θα εξακολουθεί να βρίσκεται στην κατηγορία user defined functions. Κατηγορία μπορούμε να αλλάξουμε μόνο μέσω VBA...

st2, δυο σκέψεις που μου ήρθαν στο μυαλό (θεωρώντας ότι έχεις office 2010):

Σώζεις πχ το excel που έχεις ώς template - macro enabled και μετά το format δουλεύεις με το template.

Επίσης, μπορείς να κάνεις export τις ρυθμίσεις του ribbon και μετά το format να τις κάνεις import. Πως?

Δεξί κλικ πάνω στο ribbon -> Customize the Ribbon -> Κάτω δεξιά στην καρτέλα που ανοιγεί έχει ένα κουμπί που λέει import/export.

Επίσης, με ένα πρόχειρο search στο google βρήκα τα εξής:

http://office.microsoft.com/en-us/help/save-your-office-xp-settings-HA001034748.aspx

http://support.microsoft.com/kb/826809

http://office.microsoft.com/en-us/office-2003-resource-kit/managing-the-save-my-settings-wizard-HA001140190.aspx

Νομίζω ότι σε αυτά τα links θα βρεις κάτι που να σε βοηθησει...

Edit: Βρήκα και κάτι ακόμη. Δες αυτό το προγραμματάκι της Microsoft:

http://windows.microsoft.com/en-US/windows7/products/features/windows-easy-transfer

Και δες πώς δουλεύει σε αυτό το video:

http://res2.windows.microsoft.com/resbox/en/Windows%207/main/6/8/68bf92d4-4f31-4837-8096-0728e174e8dd/68bf92d4-4f31-4837-8096-0728e174e8dd.wmv

Μπορείς να μεταφέρεις πολλά πράγματα οπότε ίσως μπορείς να μεταφέρεις και τις ρυθμίσεις του office..

Μήπως όμως εννοεί σώματα τύπου panel?

Ενδεικτικά, για 90/70/20 και 1 m μήκος panel θα είναι περίπου:

11/900 1580 Kcal/h

22/900 2840 Kcal/h

33/900 4010 Kcal/h

Οι τιμές είναι ενδεικτικές και όχι απόλυτες...

μέσα στο ΤΕΕ;

Ναι! Στο περιοδικό του ΤΕΕ/ΤΚΜ. Για δες εδώ στο μέσο περίπου της σελίδας...

Κοίτα terry, όσο και να σου φανεί παράξενο δεν μπορώ να διαβάζω πολυσέλιδα κείμενα από τον υπολογιστή. Πραγματικά στο λέω, υπάρχουν φορές που τυπώνω έστω και μερικές σελίδες γιατί δεν μπορώ!! Οκ είναι προσωπικό το πρόβλημα, δεν λέω ότι το κάνουν όλοι. Αυτό που λές με την διάταξη των σελίδων στο pdf του ΤΕΕ, έχεις δίκιο. (καλά εκεί τα βλέπω όλα)

Δοκίμασε αυτό.

Το πήρα πρόσφατα και έλυσα το πρόβλημα του διαβάσματος στο PC...

Και η εκτύπωση δεν είναι λύση...

Πάντως καλύτερα αν το βγάζουν μόνο ηλεκτρονικά μπας και γλιτώσει κανένα δεντράκι..

Τα συγχαρητήριά μου στα ΕΛΠΕ!!!

Μπράβο, φοβερά διαφανής η όλη διαδικασία! Παράδειγμα προς μίμηση! Μπαίνεις στο site, βλέπεις τον κωδικό σου και όλα ωραία και καλά! Συγχαρητήρια!

Γιατί:

α) Σε μια διαδικασία όπου ΔΕΝ φαίνονται ονοματεπώνυμα.

β) ΔΕΝ φαίνονται βαθμολογίες.

γ) Και την αναλυτική σου βαθμολογία ΔΕΝ μπορείς να την μάθεις από το τηλέφωνο που δίνουν για πληροφορίες.

Ε, τι να πω, ΜΠΡΑΒΟ!!!

Αξιοκρατία κύριοι, αξιοκρατία! Και διαφάνεια πάνω απ’ όλα…

Προσέχουν και τα προσωπικά μας δεδομένα...

Ένα μικρό tip και από μένα:

Όταν χρησιμοποιείτε το goal seek, το excel έχει μια προκαθορισμένη ακρίβεια στους υπολογισμούς του. Αυτήν μπορείτε να την αλλάξετε. Πώς?

Βρείτε το εξής:

office 2003: Tools > Options > Calculation tab

office 2010 (λογικά και στο 2007 ίδιο θα είναι): File > Options > Formulas tab

Εκεί υπάρχει το Maximum iterations και το Maximum change που μπορείτε να αλλάξετε στην τιμή που επιθυμείτε. Οι αλλάγες (στο office 2010 που έχω εγώ) αποθηκεύονται μόνο για το συγκεκριμένο φύλλο, ενώ αν πχ ανοίξετε ένα κενό φύλλο θα δείτε ότι τις γυρίζει στις default τους.

Παράδειγμα:

Ανέβασα χθες ένα αρχείο υπολογισμού απωλειών σε σωληνώσεις. Εκεί υπάρχει η εξίσωση Colebrook η οποία είναι της μορφής ...... = 1. Έχοντας τις default τιμές του office, η ακρίβεια που έπαιρνα δεν ήταν 100% ικανοποιητική (πχ πήγαινε ως 0,99....). Μεγαλώνοντας τις τιμές αυτές η ακρίβεια πλησιάζει πλέον κοντά στο 100%.

http://www.levitostasia.net/

Έχει χρήσιμα πράγματα για εγκαταστάσεις θέρμανσης...

Σ' ευχαριστώ Απόστολε, να 'σαι καλά.

Η αλήθεια είναι ότι δεν δοκίμασα με λίστες να δω τι θα γίνει.

Θα το 'χω πάντως στα υπόψη γιατί απ' ότι κατάλαβα οι περισσότεροι έχουν office 2007 και είναι κρίμα να δημιουργούνται μπερδέματα από τέτοιες μικρο-διαφορές των εκδόσεων του office.

Πάντως με την χρησιμοποιήση της επικύρωσης δεδομένων μπορείς να γλιτώσεις σε κάποιες περιπτώσεις από τα combo boxes (που θα απαιτούσαν πχ προγραμματισμό)...

Thanks και πάλι για το tip...

Θα ήθελα να επιστήσω την προσοχή σας στην προς τα πίσω συμβατότητα του office 2010 (αυτήν χρησιμοποιώ εδώ και περίπου ένα χρόνο).

Αυτές τις μέρες λοιπόν είχα ένα πρόβλημα.

Αιτία: η επικύρωση δεδομένων (data validation για τους αγγλομαθής).

Έφτιαξα ένα αρχείο υπολογισμού της πτώσης τάσης σε αγωγό.

Στο αρχείο χρησιμοποίησα την επικύρωση δεδομένων για να δημιουργήσω κάποια κελιά που ο χρήστης θα επιλέγει την τιμή από μια drop down list.

Τα source κελιά βρισκόντουσαν σε ένα άλλο (κρυφό) φύλλο του ίδιου αρχείου.

Το πρόβλημα: Όταν κάποιος με office 2007 δοκίμαζε να ανοίξει το αρχείο, τότε στα κελιά που θα έπρεπε να υπάρχουν αυτές οι drop down lists ΔΕΝ γινόταν τίποτα!

Η λύση: η έκδοση του office 2007 μάλλον δεν υποστηρίζει την επικύρωση δεδομένων όταν τα source κελιά είναι σε άλλο φύλλο.

Αυτό που έκανα λοιπόν ήταν να μεταφέρω τα source κελιά στο ίδιο φύλλο με τα κελιά που ήθελα να επικυρώσω.

Συνεπώς, αν κάποιος χρησιμοποιεί το office 2010 ας το έχει στα υπόψην, ειδικά αν τα αρχεία που δημιουργεί πρόκειται να χρησιμοποιηθούν και σε office 2007.

Α) Έτσι κι αλλιώς τα κρύσταλλα πλέον αποτελούν είδος προς εξαφάνηση όπως μου είπε και κάποιος οπτικός.

Β) Εγώ σήμερα πήγα στο ΤΣΜΕΔΕ και 100 ευρώ μου δικαιολόγησαν...

Γ) Το λέει και στο site του ΤΣΜΕΔΕ:

Γυαλιά

Ο Κ.Υ.Τ. δικαιολογεί στην αγορά γυαλιών οράσεως (φακών και σκελετού ή φακών επαφής) μέχρι ΕΥΡΩ 100,00 ανά διετία και ανά μέλος, με την προσκόμιση των εξής δικαιολογητικών:

1. Βιβλιάριο Υγείας ανά μέλος

2. Πρόσφατη συνταγή του Οφθαλμιάτρου (με τους βαθμούς μυωπίας)

3. Πρωτότυπη απόδειξη του καταστήματος οπτικών ονομαστική

πηγή: http://www.tsmede.eu/%CE%A0%CE%B1%CF%81%CE%B5%CF%87%CF%8C%CE%BC%CE%B5%CE%BD%CE%B5%CF%82%CF%85%CF%80%CE%B7%CF%81%CE%B5%CF%83%CE%AF%CE%B5%CF%82/%CE%91%CF%83%CF%86%CE%AC%CE%BB%CE%B9%CF%83%CE%B7/%CE%9A%CE%A5%CE%A4/%CE%95%CE%BE%CE%B5%CF%84%CE%AC%CF%83%CE%B5%CE%B9%CF%82%CE%BA%CE%B1%CE%B9%CE%95%CF%80%CE%B9%CF%83%CE%BA%CE%AD%CF%88%CE%B5%CE%B9%CF%82/tabid/280/language/el-GR/language/el-GR/Default.aspx

Δηλαδή για έναν καθαρισμό που έκανα να μην κάνω καν τον κόπο να πάω να ζητήσω επιστροφή... Δεν έχουν τσίπα μου φαίνεται...

Ανέβασέ το εσύ στα downloads ακολουθώντας τις οδηγίες που υπάρχουν εδώ και θα φροντίσω να γίνει έγκριση.

Ωραία, σε ευχαριστώ. Ήδη το ανέβασα και ανανέωσα και το παραπάνω ποστ. Περιμένω την έγκριση...

Μιας και είχα χρόνο αυτές τις μέρες ετοίμασα έναν μετατροπέα μονάδων με την βοήθεια του excel και της visual basic.

Οι μονάδες που έβαλα είναι ίσως αυτές που συναντάμε πιο συχνά ως μηχανικοί. Ενδεικτικά:

Γωνίες: μοίρες σε rad

Εμβαδό: στρέμματα σε τετραγωνικά μέτρα

Ενέργεια: Joule σε KWh

Ταχύτητα: m/sec σε km/hour

Μήκος: μέτρα σε ίντσες

Πίεση: bar σε PSI

Θερμοκρασία: Celsius σε Fahrenheit

και πολλές άλλες….

Το rar το κατεβάζετε από δω:

https://rapidshare.com/files/458151301/Units_Converter.rar

ή εναλλακτικά από εδώ:

http://www.michanikos.gr/downloads.php?do=file&id=1854

Το rar περιέχει δύο αρχεία, ένα για excel 2003 και ένα για νεώτερη έκδοση του excel (2007+).

Για να λειτουργήσει το εκάστοτε φύλλο θα πρέπει να έχετε ενεργοποιημένες τις μακροεντολές.

Για οποιοδήποτε πρόβλημα στείλτε μου είτε pm είτε email.

Gvarth αν θες μπορούμε να το βάλουμε και στα downloads του forum.

Ελπίζω να σας φανεί χρήσιμο...

Στην θέση σου θα κοιτούσα δύο πράγματα:

1) Την μητρική (αν έχει κάποια επιλογή στο Bios).

2) To πληκτρολόγιο (drivers και οδηγίες).

Edit: Έχουν δίκιο τα παιδιά...

Gvarth, απ' όσο το έψαξα, ούτε στο excel 2010 γίνεται κάτι τέτοιο.

Το να μορφοποιηθεί το combo box πχ η γραμματοσειρά του κλπ γίνεται, αλλά η νέα μορφοποίηση θα είναι ίδια για όλες τις τιμές του.

Σ' ευχαριστώ πολύ cdr να 'σαι καλά.

Όχι, ο μετασχηματιστής δεν προορίζεται γιαι φωτοβολταϊκα..

Η ισχύς θα είναι περίπου 250 kVA.

Καλησπέρα.

Έχω δύο ερωτήσεις να κάνω, λίγο άσχετες μεταξύ τους:

1η) Το άρθρο 38 του νόμου 2773/1999 έλεγε:

«1. Η τιμολόγηση της ηλεκτρικής ενέργειας που απορροφάται στο Σύστημα σύμφωνα με τα προηγούμενα άρθρα 35 και 37 θα γίνεται με βάση τα ακόλουθα:

(α) Για την παραγωγή ή συμπαραγωγή ηλεκτρικής ενέργειας από Α.Π.Ε., οι ακόλουθοι όροι έχουν την κάτωθι έννοια:

Χρέωση Ενέργειας είναι το ποσοστό 90% του σκέλους ενέργειας του εκάστοτε ισχύοντος τιμολογίου μέσης τάσης, γενικής χρήσης και,

Χρέωση ισχύος είναι το ποσοστό 50% του σκέλους ισχύος του ίδιου τιμολογίου.»

Το άρθρο αυτό αντικαταστήθηκε με άλλα άρθρα του νόμου 3468/2006. Όσο και αν κοίταξα τον νόμο αυτό, αλλά και τον καινούργιο (3851/2010), δεν βρήκα πουθενά καμία αναφορά στην χρέωση ενέργειας. Η ερώτηση μου είναι η εξής: Τι ποσοστό της παραγόμενης ενέργειας χρεώνει η Δ.Ε.Η.?

2η) Γνωρίζει κανένας ποιο είναι το τυπικό κόστος ενός τριφασικού μετασχηματιστή 400V/20 kV?

Ευχαριστώ εκ των προτέρων...

Όταν τελικώς ξεμπερδέψεις πες μας τον τρόπο για να ξέρουμε. Προσωπικά θέλω να μάθω αν τελικώς αυτό που μου είπαν στο εργοτάξιο ισχύει (στο θέμα του μηχανικού αναφέρομαι). Ποτέ δεν ξέρεις, ίσως χρειαστεί να πιάσουμε δουλειά ως "τσιμπήδες"....

Ως μηχανικός, ο σκόπελος ωρών προϋπηρεσίας δεν ξεπερνιέται? Δηλ. το να κολλήσεις απλά ένα δοκίμιο και να υποβληθεί σε έλεγχο (συνήθως ραδιογραφία) από κάποιον φορέα (πχ Lloyds) δεν γίνεται? Γιατί σε εργοτάξιο έχω ακούσει διάφορα τέτοια. ΔΕΝ ξέρω βέβαια αν ισχύουν...