|
Νέα για πρωτοετείς
Είσαι πρωτοετής;... Καλώς ήρθες! Μπορείς να βρεις πληροφορίες εδώ. Βοήθεια για τους καινούργιους μέσω χάρτη. Κατεβάστε εδώ το Android Application για εύκολη πρόσβαση στο forum.
Νέα!
Show Posts
|
Pages: 1 [2] 3 4 ... 9
|
18
|
Ηλεκτρονικοί Υπολογιστές και Τεχνικά Θέματα / Windows 7, Vista , XP, 9x, 2000, Office / Re: Απορία για vba σε Microsoft Excel
|
on: March 21, 2016, 11:42:45 am
|
Sub Button17()
Dim number0 As Integer, number1 As Integer, numberhourly As Integer number0 = 2 number1 = 5 numberhourly = 2
Do Until (number1 > 43)
If ThisWorkbook.Sheets("ThermalUnitsData").Cells(number1, 42).Value = "One Block up to Pmax with a MAR" Then
Dim i As Integer, help As Integer help = 0 i = 2
Do While (help = 0) If ThisWorkbook.Sheets("AllThermalOffers").Cells(i, 1).Value = ThisWorkbook.Sheets("ThermalUnitsData").Cells(number1, 3).Value Then help = i End If i = i + 24 Loop
Dim min As Integer min = ThisWorkbook.Sheets("AllThermalOffers").Cells(help, 4).Value
For i = help + 1 To help + 23 If ThisWorkbook.Sheets("AllThermalOffers").Cells(i, 4) < min Then min = ThisWorkbook.Sheets("AllThermalOffers").Cells(i, 4) End If Next
Dim MAR As Integer MAR = ThisWorkbook.Sheets("AllThermalOffers").Cells(help, 3).Value / min
ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 1).Value = "Block Order" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 2).Value = "Supply or Demand" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 3).Value = "Block Order Number" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 4).Value = "Node" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 5).Value = "Area" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 6).Value = "Linked" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 7).Value = "Linked BO" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 8).Value = "Exclusive Group" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 9).Value = "Profile or Regular" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 10).Value = "Minimum Acceptance Ratio" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 11).Value = "Submitted price [€/MWh]" ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 12).Value = "Submitted quantity [€/MW]"
Dim j As Integer j = 1 For i = 13 To 36 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, i).Value = "T" & j j = j + 1 Next
number0 = number0 + 1
ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 1).Value = ThisWorkbook.Sheets("ThermalUnitsData").Cells(number1, 3).Value 'ÂÜæïõìå ôï üíïìá ôçò ìïíÜäáò2 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 2).Value = 1 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 3).Value = 1 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 6).Value = 0 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 7).Value = 0 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 8).Value = 0 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 9).Value = 2 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 10).Value = MAR
Dim submittedprice As Integer, submittedquantity As Integer, pricehelp As Integer
sumbmittedprice = 0 pricehelp = 0
For i = 6 To 15 submittedprice = submittedprice + ThisWorkbook.Sheets("AllThermalOffers").Cells(help, i).Value * ThisWorkbook.Sheets("AllThermalOffers").Cells(help, i + 1).Value pricehelp = pricehelp + ThisWorkbook.Sheets("AllThermalOffers").Cells(help, i).Value Next
submittedprice = submittedprice / pricehelp submittedquantity = min
ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 11).Value = submittedprice ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, 12).Value = submittedquantity
For i = 13 To 36 ThisWorkbook.Sheets("ThermalBlockOffers").Cells(number0, i).Value = 1 Next
ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhourly, 1).Value = "Offer" ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhourly, 2).Value = "Hour" ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhourly, 14).Value = "Offer" ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhourly, 15).Value = "Hour"
j = 1 For i = 3 To 12 ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhourly, i).Value = "sb" & j ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhourly, i + 12).Value = "sb" & j j = j = 1 Next
For i = numberhourly + 1 To numberhourly + 23 ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(i, 1).Value = "S" & number1 - 4 'Ãéá ôçí ðñþôç ìïíÜäá ãéá ðáñÜäåéãìá åßíáé S1 êïê! ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(i, 2).Value = "T" & j ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(i, 14).Value = "S" & number1 - 4 ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(i, 15).Value = "T" & j j = j + 1 Next
Dim numberhelp As Integer numberhelp = numberhourly + 1
For i = help To i = help + 23 ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhelp, 16).Value = ThisWorkbook.Sheets("AllThermalOffers").Cells(i, 4).Value - min 'Ç ðïóüôçôá numberhelp = numberhelp + 1 ThisWorkbook.Sheets("ThermalHourlyOffers").Cells(numberhelp, 3).Value = submittedprice + 0.001 'Ç ôéìÞ! numberhelp = numberhelp + 1 Next
End If
number1 = number1 + 1 number0 = number0 + 2 numberhourly = numberhourly + 26
Loop
Αυτό είναι ένα μέρος το κώδικα. Ενώ δηλαδή δεν μου "εμφανίζει" κάποια λάθη στον κώδικα, όποτε πάω να τον τρέξω, κολλάει και δεν τον τρέχει ποτέ
Any help?
(χρησιμοποίησα excel 2007 αλλά οι εντολές είναι excel 2010, έψαξα για διαφορές μεταξύ 2007 και 2010 αλλά δεν ήταν κάτι το ιδιαίτερο, απ' αυτά που βρήκα τουλάχιστον)
Ευχαριστώ εκ των προτέρων
|
|
|
19
|
Ηλεκτρονικοί Υπολογιστές και Τεχνικά Θέματα / Windows 7, Vista , XP, 9x, 2000, Office / Απορία για vba σε Microsoft Excel
|
on: March 18, 2016, 12:04:28 pm
|
Έχω γράψει έναν κώδικα vba σε αρχείο Microsoft Excel και ενώ όταν πατάω το [play] δεν μου βγάζει ότι έχω κάποιο πρόβλημα στον κώδικα (δηλαδή ότι έγραψα κάτι λάθος), φορτώνει, φορτώνει και τελικά "κολλάει" και δεν συμπληρώνει ποτέ τα φύλλα εργασίας όπως θα έπρεπε... Γνωρίζει κανείς γιατί συμβαίνει αυτό; Δηλαδή γιατί αργεί να τρέξει τον κώδικα vba με αποτέλεσμα τελικά ποτέ να μην τον τρέχει και απλά να δείχνει ότι φορτώνει ώσπου κολλάει; Έψαξα μήπως έχω βάλει κάποια ατέρμονα επανάληψη, που δεν τελειώνει ποτέ, αλλά δεν βρήκα κάποιο λάθος. Ευχαριστώ εκ των προτέρων!
|
|
|
20
|
Τμήμα-Πανεπιστήμιο-Παιδεία / Μαθήματα - Εξεταστικές / Re: Δηλώσεις μαθημάτων εαρινού εξαμήνου ακαδ. έτους
|
on: March 16, 2016, 01:42:38 am
|
Λοιπόν, πήγα στη Σούλα και μου είπε τα εξής: - Αυτή η κενή δήλωση που δημιουργείται σε όλους γίνεται αυτόματα με την ηλεκτρονική δήλωση εξαμήνου που κάνει ο καθένας (λογικά εννοούσε το m.auth.gr).
- Κατά πόσο αυτή η δήλωση αρκεί, εφόσον κάποιος δεν χρωστάει μαθήματα και θέλει να κάνει κενή δήλωση, δεν ήταν σίγουρη και η ίδια για να μου πει με σιγουριά.
- Για καλό και για κακό, αν κάποιος θέλει να έχει το κεφάλι του ήσυχο, μπορεί να βάλει απλά ένα άκυρο μάθημα στην κενή δήλωση που θα έκανε έτσι ώστε να τη δεχτεί το σύστημα.
Εμένα μου επέτρεψε να στείλω κενή δήλωση πάτησες υποβολή και το δέχτηκε δηλαδή; Ναι, μόνο σε μένα το δέχτηκε;
|
|
|
21
|
Τμήμα-Πανεπιστήμιο-Παιδεία / Μαθήματα - Εξεταστικές / Re: Δηλώσεις μαθημάτων εαρινού εξαμήνου ακαδ. έτους
|
on: March 15, 2016, 12:41:17 pm
|
Λοιπόν, πήγα στη Σούλα και μου είπε τα εξής: - Αυτή η κενή δήλωση που δημιουργείται σε όλους γίνεται αυτόματα με την ηλεκτρονική δήλωση εξαμήνου που κάνει ο καθένας (λογικά εννοούσε το m.auth.gr).
- Κατά πόσο αυτή η δήλωση αρκεί, εφόσον κάποιος δεν χρωστάει μαθήματα και θέλει να κάνει κενή δήλωση, δεν ήταν σίγουρη και η ίδια για να μου πει με σιγουριά.
- Για καλό και για κακό, αν κάποιος θέλει να έχει το κεφάλι του ήσυχο, μπορεί να βάλει απλά ένα άκυρο μάθημα στην κενή δήλωση που θα έκανε έτσι ώστε να τη δεχτεί το σύστημα.
Εμένα μου επέτρεψε να στείλω κενή δήλωση
|
|
|
23
|
Τμήμα-Πανεπιστήμιο-Παιδεία / Πρακτική Εξάσκηση / Re: Πρακτική Άσκηση ΤΗΜΜΥ 2010-2020
|
on: March 06, 2016, 17:56:55 pm
|
Να κάνω μια ερώτηση σχετικά με το ΙΒΑΝ; Αν δεν έχουμε λογαριασμό, λόγω των capital controls δεν μπορώ να ανοίξω έτσι; στο pdf λέει λόγω των capital controls να επικοινωνήσουν οι φοιτητές με το γραφείο πρακτικής άσκησης; να περιμένω πρώτα αν επιλέγω, ή χρειάζεται από τώρα;
|
|
|
29
|
Μαθήματα Ενεργειακού Κύκλου / Ηλεκτρονικά Ισχύος ΙΙ / Re: [Ισχύος 2] Ανακοινώσεις και επικαιρότητα 2015-16
|
on: March 01, 2016, 14:38:41 pm
|
- Μας είπε ότι έχουμε έναν DC DC μετατροπέα με είσοδο στα 100 Volt και έξοδο αρχικά θετική (μέση τιμή) αλλά έπειτα με ένα ποτενσιόμετρο ρυθμίζουμε την έξοδο ώσπου αυτή μηδενίζεται και τελικά γίνεται -50 Volt. Αυτή είναι η μέση τιμή εξόδου (Vo). Ήθελε να σχεδιάσουμε την τάση εξόδου ( uo(t) ) χωρίς περαιτέρω εξηγήσεις για τον μετατροπέα.
- Μας είπε να σχεδιάσουμε έναν μικτό μετατροπέα και να σχεδιάσουμε όλα τα ρεύματα (δίοδο, πηνίο, πυκνωτή, διακόπτη) αν δουλεύουμε ακριβώς στο όριο μεταξύ συνεχής - ασυνεχής αγωγής ρεύματος.
- Στην προηγούμενη ερώτηση: Αν αυξήσουμε το L του πηνίου, και μόνο αυτό, χωρίς να μεταβάλλουμε οτιδήποτε άλλο, τότε: α) θα έχουμε ασυνεχή αγωγή ρεύματος, β) συνεχή αγωγή ρεύματος, γ) δεν θα αλλάξει τίποτα, δηλαδή θα συνεχίσουμε να είμαστε στο όριο. Και να το αιτιολογήσουμε.
- Μας περιέγραψε ένα πρόβλημα στο οποίο θέλουμε να έχουμε μια x είσοδο αλλά στην έξοδο θέλουμε να έχουμε γαλβανική απομόνωση. Έχοντας στον μυαλό μας τον μικτό μετατροπέα, τι θα αλλάζαμε για να πετυχαίναμε αυτήν την απαίτηση και πως θα ήταν το καινούριο κύκλωμα. (σχεδιασμός fly back μετατροπέα δηλαδή).
- Μας έδειξε μια κυματομορφή και ήθελε να του πούμε τι θα μπορούσε να ήταν. (έμοιαζε με την κυματομορφή του ρεύματος μιας φάσης σε έναν τριφασικό DC AC από τις διαφάνειες στο ethmmy [διαφάνεια DC-AC 2]) [Χωρίς εξηγήσεις]
- Για την προηγούμενη κυματομορφή, τι διαμόρφωση έχουμε; [Χωρίς εξηγήσεις]
- Για την προηγούμενη κυματομορφή, τι συντελεστή διαμόρφωσης συχνότητας θα μπορούσαμε να έχουμε; [Ένα νούμερο να δώσουμε χωρίς εξηγήσεις]
~ Όλες τις απαντήσεις, τις γράφαμε στις κόλλες μας και τις έβλεπε, χωρίς να ρωτάει έναν-έναν προφορικά (όπως ο κ. Δημουλιάς) ~ Ήταν πολύ χαλαρός και οι ερωτήσεις του ήταν ξεκάθαρες
|
|
|
|
|