Zamień Sheets("Obliczenia").Select na Sheets("Obliczenia").Activate A najlepiej jeszcze uprość te makro [syntax=vb]Sub kopiuj() Sheets("Obliczenia").Range("A3:A506").Co... Sheets("Wynik").Activate End Sub [/syntax]
Najpierw musisz wyciagnąć 10 najnowszych (top i order), a następnie na tym wyniku obliczyć średnią. Czyli pierwszy select ma wyciagnać średnią z (FROM) wyników drugiego selecta SELECT ... FROM (SELECT ... FROM ...)
Access nie obsługuje 'case when'. Trzeba użyć 'IIF'. Na przykład tak: [syntax=sql]SELECT Kontrole.Operator, Format(Sum(IIf([Rodzaj błędu]="brak błędu",0,1))/Count([Rodzaj błędu]),"0%") AS [Procent błędu] FROM Kontrole GROUP BY Kontrole.Operator; [/syntax]
Czy coś takiego wystarczy? [syntax=sql]SELECT MONTHS_BETWEEN(SYSDATE, TO_DATE('2009-05-07', 'YYYY-MM-DD')) / 12 as roznica_lat FROM DUAL[/syntax]
[syntax=sql]SELECT Data, Sum(tabela1.Ilość) AS I, Round(Sum(Ilość*WartośćParametru)/Sum(Il... AS W FROM Tabela1 GROUP BY Data ORDER BY Data; [/syntax]
Najprościej Nr.tygodnia mod 3 Wtedy (Select Case): 1 = trzecia zmiana 2 = druga 0 = pierwsza Tyle, że 48 mod 3 = 0 (3x16) Pierwsza, a nie trzecia jak piszesz...
Oczywiście możesz tez zmienić, żeby traktował inną kolumnę jako źródło: Range("A2").Select <-- zamiast A2 wstawiasz pierwszą (z góry) komórkę z listy "źródłowej" ActiveCell.Offset(0, 1).Formula = .... <-- tutaj możesz zdefiniować, gdzie ląduje wynik. W przykładzie 0 określa ten sam wiersz (-1 będzie wiersz wyżej, 1 będzie wiersz niżej, 2 będzie...
Dobre podejście do Select Case pewnie załatwiłoby sprawę ;) [syntax=basic4gl] Select Case Wartosc_napiecia Case 1000 To 1200 ' <- każda z tych wartości może być zmienną ... case 1201 To 1400 ... End Select [/syntax]
Witam. Mam problem ze skryptem php. [syntax=php]print " TESTOWO<br> <SELECT NAME=\"rok\"> <option value=5> Zielony </option> <option value=0> Czarny </option> <option value=1>Czerwony </option> <option value=2>Brazowy </option> <option value=3>Pomaranczowy </option> <option value=5>Zielony...
Dot. ostatnie pytanie kol. marek003 Wydłubane (i ciut przerobione) gdzieś z Elektrody (może się przydać) Sub otwórz() Dim fdiag As FileDialog Dim plik As Variant Set fdiag = Application.FileDialog(msoFileDialog... With fdiag .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" If .Show = -1 Then For...
Prąd maksymalny zależy od przyjętego prądu tętnień i prądu wyjściowego. Ten pierwszy zazwyczaj przyjmuje się na poziomie 30% maksymalnego prądu wyjściowego. Później można go optymalizować (zmniejszać) kosztem innych elementów układu lub zakresu regulacji, stabilności, itp. Może to się przyda? https://training.ti.com/practical-compar...
Kurcze, znowu wpisałem tę Twoją drugą formułę i tym razem się udało. Bardzo dziękuję za zainteresowanie się moim problemem:) Dodano po 24 Niestety dalej robiąc ten projekt napotkałem na problem z obliczeniami: Select Case Cells(w, "D").Value Case Is = "1": Cells(w, "E").Value = "0" Case Is = "2": Cells(w, "E").Value = "0.18 * "D" - 556.02" Case Else:...
Na pewno błąd jest w wierszu: [syntax=vbscript]Progresywne = Progres + Progres[/syntax] Nie zachowujesz dotychczas obliczonych składników, tylko ostatni pomnożony przez 2. Powinno być: [syntax=vbscript]Progresywne = Progresywne + Progres[/syntax]Nie wykluczam, że mogą być też inne błędy, ale do dokładnej analizy potrzebny jest załącznik w pliku.
Może pomyśl o tym jak o prawdziwej aplikacji, w VBA też tak można zrobić (swoją drogą robiłem trochę obliczeń w VBA i nie zauważyłem tej niskiej wydajności). Są dane (tabela, wiele tabel?) i formularz do wypełnienia. Przycisk Start: pokazuje się formatka. Algorytm jest prosty: skanujesz, wynik zapisuje się w (aktywnym) polu tekstowym formularza, w drugim...
Z tym atmelem to chyba nie jest źle wystarczy na to spojrzeć: http://www.nasdaq.com/aspx/dynamic_chart... Nakradli patentów i narzucili lichwiarskie ceny na półprzewodniki i od razu im notowania skoczyły.
Mając trochę wolnego czasu napisałem parę funkcji do obsługi układu PCF8583. Funkcja która ustawia godzinę i datę zapisuje też dane potrzebne do obliczenia pełnego roku, dzień tygodnia jest obliczany automatycznie na podstawie daty. Funkcje Pcf8583_write i Pcf8583_read można wykorzystać do zapisywania/odczytywania danych z wolnej pamięci ram. Dostępne...
No ja myślę, że wypadało by pobierany zakres podstawić gdzieś i rozebrać na czynniki. Czyli ilość wierszy, i ilość kolumn odkąd dokąd. Później już z górki. W pętli machasz generatorkiem liczb pseudolosowych czyli .... ( co więcej od razu możesz w momencie wstawiania liczby liczyć już sumę kwadratów, żeby skrócić kod ) ... Przykladowo zaznaczyles C5:F10...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Tak ta tabela jest na stałe i wartości w niej obliczone tez muszą w niej zostać. Zrób więc (np.) tak: - dodaj dodatkową kolumnę do tabeli (ALTER TABLE) - następnie wpisz wartości do tak utworzonej kolumny (UPDATE) Przykładowy kod: [syntax=vb]Dim str As String str = "ALTER TABLE WZN ADD COLUMN DA TEXT(25) " DoCmd.RunSQL str str = "UPDATE WZN Set DA...
Nikt się jakoś nie garnie :) Sprawa wg mnie prosta. Wystarczy Select Case. Napisz w którym miejscu (miejscach) ma się to wyliczanie odbywać. Na marginesie uwaga: nigdzie nie masz Application.quit. Sprawdzałeś w menedżerze ile masz instancji Excela w pamięci (po zamknięciu formularza)?
*adamas_nt dzieki, sprawdze co do pkt.2 cos mam, ale bede mial prosbe o weryfikacje oraz pomoc w dodaniu kilku rzeczy. mam takie makro: Sub Arkusz3_Przycisk1_Kliknięcie() Dim LastRow As Long Range("B2:AI2").Se... Selection.Copy 'Sheets("Arkusz3").Sel... If WorksheetFunction.CountA(Cells) >...
Tak, jak już pisałem, nie tędy droga. Trzeba zrozumieć, ze Menu czyli interfejs programu z człowiekiem powinno być tylko jego nakładką graficzną. Nie może być tak, że kiedy jesteś w Menu to program zaniedbuje cały system, na przykład nie pilnuje zadanych temperatur. Pomyśl co by było gdyby termostat sterował grzałką w akwarium a Ty sobie radośnie wszedłeś...
Mam tabelę z takimi danymi : http://obrazki.elektroda.pl/1684543900_1... Daję takie zapytanie : http://obrazki.elektroda.pl/6643562700_1... Wynik zawiera pełne godziny i odrzuca jakiekolwiek wartości po przecinku.
Ze względu na to, że będę potrzebował obliczyć z tych samych zakresów co średnią odchylenie standardowe, to wolałbym skorzystać z funkcji average. Stworzyłem coś takiego: [syntax=vb]Set sh1 = Worksheets("Archiwum") With ThisWorkbook.Worksheets("Archiwum") Suma = Application.WorksheetFunction.CountA(.Ro... End With For kolumna = 2 To Suma + 1 a =...
Mniej więcej tak: http://lam4.webpark.pl/access.jpg lub, przez widok SQL: SELECT avg(cech) AS srednia, miasto FROM miasta GROUP BY miasto; Musisz mieć grupowanie na kolumnie nadrzędnej.
Jeżeli chcesz wyliczyć tylko odchylenie standardowe, to spróbuj zrobić zapytanie: comm = new SqlCommand("SELECT STDEV(Wyniki) " + "FROM BazaWyniki " + "WHERE NazwaFunduszu LIKE 'AIG' ", conn); Do sumy masz SUM(), do średniej AVG(), po co potem ręcznie to wyliczać? Jeżeli masz do odbioru tylko jedno pole,...
Witam. Mam problem z napisaniem programu obliczającego rezystancji termicznej radiatora z wzoru: Rthra= (Temp. radiatora - Temp. pokojowa)/Moc grzejnika czyli np.: Rthra= (80 - 20)/10 = 60/10 = 6°C /W (z Elektroniki Dla Wszystkich, 07/ 2011). Zrobiłem na razie coś takiego: http://obrazki.elektroda.pl/4197217800_1... Lecz z kodem utknąłem....
W datasheet jest co następuje (odsyłam do datasheet do oryginału i zamienników, wszędzie jest dokładnie tak - jeśli ktoś nie wierzy): Oscillator Components For all ranges of frequency a 100kΩ resistor is recommended and the capacitor is selected from the equation: f = 0.45 / RC For 48kHz Clock (3 Readings/sec), C 100pF. I to jest cały zonk. O...
Po ciężkich bojach udało mi się dopisać kolejny przycisk niveasoft zrobił by to lepiej ale jak na moją maluczką wiedzę :) to i tak jestem z siebie dumny :D bo zaczyna mi wreszcie powoli wychodzić dopisywanie dodatkowych funkcji.
Aktualnie już raczej nie produkuje się glukometrów z możliwością kasowania wyników pomiarów zapisanych w pamięci, a do ewidencji i obliczeń jeśli nie interesuje Cię oprogramowanie producenta sprzętu można w prosty sposób wykorzystać choćby excela, na bieżąco wpisując wyniki albo przepisując je z pamięci aparatu (ten konkretny aparat ma opcję obliczania...
Warto wspomnieć, że najmniejsze szachy w c++ napisał Pan Toledo: A najmniejsze szachy w HTML / JS: https://nanochess.org/chess4.html Więcej pod adresem: https://nanochess.org/ <script>//(c)2009 Oscar Toledo G. var B,i,y,u,b,I=[],G=120,x=10,z=15,M... ,9,9,9,9,9,9,13,11,12,14,10,12,11,13,0,9...
Witam, Napisałem program w C# ale gdzieś jest błąd i nie wiem gdzie. Poniżej jest kod w VE 2010. Dodatkowy plik games.xml jest w załączniku rar. Chodzi o to, że po wyborze formy płatności program powraca do wyboru gry zamiast obliczyć kwotę do zapłacenia. [syntax=csharp]using System; using System.Collections.Generic; using System.Linq; using System.Text;...
Co do pytania nr1, co ma wyliczyć ? Opisz / dodaj obrazek / jakiś przykład Co do pytania nr2, nie podałeś jak wygląda twoja baza danych (pola, typy, co w nich zapisujesz) PS Niepotrzebnie mieszasz programowanie obiektowe ze strukturalnym, poza tym teraz używa się PDO, a SELECT * jest mało optymalne
http://ww1.microchip.com/downloads/en/de... - przeczytaj strony 9 i 10, tam znajdziesz więcej szczegółów. The eighth bit of the device address is the read/write operation select bit. A read operation is initiated if this bit is high and a write operation is initiated if this bit is low.
Witam, to mój pierwszy post. Przepraszam za odświeżenie tematu ale jednak był pomocny więc dodam też coś od siebie, a jednocześnie serdecznie dziękuję poprzednikom za pomoc. Gotowiec dla MySQL na podstawie kodu poli (tabele należy utworzyć te same): [syntax=php]function stworz_link_xml($string) { $year = date('Y'); $end = substr($string,45,6); $podciag_srodek=...
Nie wiem czy moduł nawigacji w telefonie htc wildfire s musi przejść jakieś badania homologacyjne oraz nie wiem czy też moduł gps w samochodzie volvo s80 ma takowe badania ale chodzi o jako takie potwierdzenie, który pomiar jest bardziej wiarygodny. Z tego co mi wiadomo ( proszę o poprawienie) nawigacja gps oblicza prędkość na podstawie wektora przemieszczenia...
Oto przykładowe makro. Zamiast kolumny F należy wpisać kolumnę w której znajdują się wyniki formuł do zacumowania. Po uruchomieniu makra traci się formułę w tej kolumnie i pozostaje sama liczba, nieczuła na zmiany zmiennych, od których zależała. Czy o coś takiego chodziło? Sub Makro1() Columns("F:F").Sel... Selection.Copy...
Witam, gdzie jest błąd w kodzie tego kalkulatora, nie wyświetla się wynik proszę o pomoc. Poniżej kod: [syntax=php]<input type="text" name="liczba1" size="2"> <select name="znak"> <option>*</option> </select> <input type="text" name="liczba2" size="2">= <input type="submit" value="Oblicz"> <?php $liczba1...
A nie lepiej jako x podawać wektor z wartościami dla ktorych chcesz obliczyc ową funkcje? Najpierw zgromadzić wartości w wektorze, potem obliczać. Jako wynik dostaniesz równiez wektor, na ktorym latwo dalej operować. Eval to armata, nie wiem czy jej potrzebujesz >> help eval EVAL Execute string with MATLAB expression. EVAL(s), where s...
Dalej wstawia datę U mnie po zmianie formatowania daty na dd.mm.rrrr, działa prawidłowo czyli jak anuluje kalendarz data zostaje taka jaka był w komórce [syntax=vbscript]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True DateOut = CDate(ActiveCell) 'SelectedDateIn Me.Hide End If End Sub[/syntax]
Ten kod to tak dawno napisany że wiele by można w nim poprawić. Jednak działa i też dawno temu dochrapał się wersji przenośnej, bateryjnej, na Mega8 albo coś podobnego (nie pamiętam). Służy dzielnie do różnych zadań. Można symulować czujniki Halla w autach i podobne rzeczy :D http://obrazki.elektroda.pl/2071243700_1... Co do przeróbki...
Odczytaj_ds: 1wreset If Err = 0 Then 1wwrite &HCC 1wwrite &HBE Ds_1 = 1wread() Ds_2 = 1wread() Status_temp = 1 If Ds_2 >= 248 Then 'wartość ujemna Ds_1 = 255 - Ds_1 Ds_2 = 255 - Ds_2 Status_temp = 0 End If T1 = Ds_1 / 16 T2 = Ds_2 * 16 T1 = T1 + T2 T1 = T1 + 0.05 'T1 wartość temperatury xx.xx T1 = T1 * 10 'wartość całkowita...
[syntax=vbscript]Sub Oblicz() y = 1 Set a1 = Sheets("Arkusz1") ow = a1.Cells(Rows.Count, "A").End(xlUp).Row Sheets("Wynik").Cells(y, 1) = a1.Cells(1, 1) Sheets("Wynik").Cells(y, 2) = a1.Cells(1, 2) For x = 1 To ow If a1.Cells(x, 1) <> a1.Cells(x + 1, 1) Then y = y + 1 Sheets("Wynik").Cells(y, 1) = a1.Cells(x, 1) Sheets("Wynik").Cells(y, 2) = a1.Cells(x,...
W porządku, dzięki :) To niestety nadal nie rozwiązuje mojego problemu z tablicą i select case. Wydaje mi się, że konstruujący polecenie sam się pogubił w tłumaczeniu :D Jest jakaś szansa na wytłumaczenie jak to zrobić w VBA?
1. Nie wygodniej byłoby zrobić tablicę tablicy rekordów? linetab this - nie dość, że jest tu coś, o czym wspomnę za chwilę, to dodatkowo za każdym razem następuje konkatenacja ciągu z liczbą. Z pewnością szybszym będzie object TempObj=this["line" + selectedLine]; TempObj["pointB"+i]._x... A idąc dalej, można w ten...
Mam Excela, który zawiera 20 000 wierszy. Excel jest wypełniony datami - celem makra ma być wskazanie 50 pozycji od początku listy (C;F) od wiersza 5 do 55 i ich pokolorowanie na jakiś kolor (ma to być wizualny dodatek). Po oznaczenia pierwszych 50 pozycji makro ma sprawdzić datę z komórki D5 i jeżeli komórka nie jest pokolorowana to ma pobrać datę...
Może tanie radiatory ZH-9025/80AL = T-29/80AL 7.9 °C/W i tanie tranzystory STP40NF03L (70W przy 25 °C, -0.467 W/°C, albo 2.14 °C/W, maksymalna temperatura złącza 175 °C)? Przyjmijmy 11 °C/W dla całości, temperaturę otoczenia 65 °C , to można dopuścić 10W na taki zestaw, czyli trzeba ich 15, cena zestawu ze 3 PLN brutto - wyjdzie taniej. Jeśli rzeczywiście...
No bez jaj... Nie spotkałem się, żeby serwer nie zapisywał sesji... Rozumiem pliki .htaccess albo funkcję mail() ale ograniczenia na sesje? Nieeeee... Np. : http://www.streamline.net/ :( Dzieki, jeszcze takie pytanko a zeby nie znikaly wartosci liczbowe te co wpiszemy tylko zostawaly po obliczeniach to jak ? Wiem jak zrobic reseta zeby czyscilo ale...
Sumowanie po nazwisku i wydziale nie jest dobrym pomysłem, bo można trafić na dwie osoby o takim samym imieniu i nazwisku... Jeżeli już, to powinieneś zrobić osobną tabelę na osoby, które były by jednoznacznie identyfikowana przez jakiś unikalny numer, np. numer akt czy pesel. Natomiast samo zapytanie bym tak przerobił (nie testowałem, piszę z głowy):...
Możesz także wykorzystać MSQuery i następującą kwerendę: [syntax=sql]SELECT FORMAT([DateTime], 'YYYY-MM-DD') AS [Date], AVG([Voltage/V]) AS [Average Voltage/V], AVG([Current/A]) AS [Average Current/A], AVG([Power Factor]) AS [Average Power Factor], AVG([Actual Consumption/W]) AS [Average Actual Consumption/W], AVG([Apparent Consumption/W]) AS [Average...
utwórz nową formę na niej 1 * ComboBox1, 1 * DateTimePicer1, 1 * Label2 po czym wrzuć z tyłu to [syntax=vbnet] Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load fill_combo() ' to chyba nie wymaga rozpisywania się ComboBox1.SelectedIndex = 0 ' następnie ustawiamy 0 żeby po włączeniu programu widzieć w combo "wybierz...
Można wykonać przetwarzanie zdarzeń. [syntax=vb] Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Cells.Count <> 2 Then Exit Sub a = Array(0, 0) For Each c In Selection.Cells a(i) = c i = i + 1 Next scieki_oczyszczone = a(0) scieki_nieoczyszczone = a(1) scieki = ((scieki_oczyszczone * 10000) / (scieki_nieoczyszczone +...
Postaram się tak wszystko opisać żeby znowu nie oberwać po głowie :) WSTĘP. W folderze mam (w kolejności alfabetycznej), jak już pisałem ponad 300 plików o nazwach. Czerwone1Bdekon-1, Czerwone1Bdekon-2 ..., Niebieskie1Adekon-1 ..., Zielone1Adenon-1 itd. Na każdym z tych plików muszę dodać kolejne obliczenia (zsumować dane z kilku kolumn), w każdym pliku...
:arrow:marek003 Trochę to "oszukane", bo to nie jest obrazek tylko zmodowany i zablokowany przycisk polecenia :) Kawałek kodu do analizy: Private Sub CmbK_Change() Select Case CmbK.ListIndex Case 0: cmdImage.Picture = LoadPicture("c:\img\prost.j... 'i wszytkie inne polecenia potrzebne do obliczeń Case 1: cmdImage.Picture...
Można też tak, bez użycia jQuery: [syntax=html4strict]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml1... <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pl"> <head> <title>Test</title> <meta http-equiv="Content-type" content="text/html; charset=utf-8" /> <meta...
Nie sprawdzałeś wiadomości prywatnych :P Miałes tam link który mógłby się przydać. [url=http://mirley.firlej.org/node/1159]... Ktoś prosił żeby sprawę multipleksowania opisać więc coś tam naskrobałem a nie chce się powtarzać więc link :) Powinieneś mieć obliczone w pętli głównej wartości dla poszczególnych wyświetlaczy. Wtedy możesz mieć tylko jedną...
Witam Mam do Was pytania Wpisuję wartość w wyznaczoną komórkę wciskam enter lub strzałkę następuje wyszukiwanie i obliczenia 1 - dlaczego szybciej otrzymuję wynik po wciśnięciu enter natomiast po wciśnięciu strzałki jest znaczące opóźnienie (nawet 1-2 sekund) ? 2 - kod wyszukujący kończy się ... ... ActiveCell.Offset(0, 3).Select End If End If End Sub...
Dlaczego więc nie wpompowac ciepła dochłodzenia w dolne źródło? Dzięki za tabelki, skorzystałem z nich przy obliczeniach. Więc tak, aby dochłodzić ciekły czynnik musimy odebrać od niego ciepło i dostarczyć do dolnego źródła. Jeżeli policzysz ile jest tego ciepła, to się okaże że jest go tyle samo o ile wzrośnie moc chłodnicza (wg select 6) i bilans...
Łap. Cały tydzień programuję poważniejsze sprawy i taki programik to dla mnie dosłownie rozrywka :D Bierzesz Tiny85 i programujesz Hexem lub Binem do wyboru. Podłączasz do niego DS18B20 i linijkę na MAX7219 i gotowe... żonka zadowolona. Program ma nawet wyjście diagnostyczne i wypluwa temperaturę na UART 9600bps (to żeby sprawdzić poprawnośc Dallasa)....
Czy możesz proszę przyjrzeć się przykładowej bazie, którą Ci wysłałem i powiedzieć, czy coś nie działa? Ta przykładowa baza działa. Twój problem polega na tym, że łączysz w kwerendach tabele, które nie posiadają łączących je wartości. [syntax=sql]SELECT Technik.[NIP technika], Technik.[Podstawa wypłaty] AS Podstwa, Sum(Płatności.[Kwota płatności]) AS...
Musisz zastosować sterowanie multipleksowe albo jakiś długi rejestr przesuwny (np. 4 układy 4094) żeby obsłużyć 4 cyfry wyświetlacza. To może być coś takiego: $regfile = "attiny26.dat" $crystal = 8000000 Config Portb = Output Config Portd = Output Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim V as Word Dim V_real as Single...
Zrobiłem prosty kalkulator w PHP jestem bardzo początkujący i to mój pierwszy program. Musiałem gdzieś zrobić błąd bo kiedy klikam "oblicz" to wyświetla mi się pusta strona. Jak zrobić aby wynik pojawiał się na dole np. np. "wynik wynosi ..."? Z góry dzięki za pomoc <html> <head> <title>Prosty kalkulator by RP</title> </head>...
Jeśli chodzi o podświetlenie, to wsadź tam dwie białe diody świecące połączone w szereg i dodatkowo z odpowiednim rezystorem (jak to obliczyć - najdziesz na elektrodzie w dziale Optoelektronika). Diody dodatkowo przetrzyj drobnym papierem ściernym lub pilnikiem, by zmatowić im soczewki, co da ci rozproszone światło.
O kurde ale bomba!! Programik super ustawiłem opóźnienie na 50milisekund i otrzymałem kodzik który takie opóźnienie generuje :) movlw .221 movwf Reg_1 movlw .130 movwf Reg_2 decfsz Reg_1,F goto $-1 decfsz Reg_2,F goto $-3 nop nop z tego co wnioskuje to goto $-1 oznacza skok o jeden rozkaz do tyłu a goto $-3 o 3 instrukcje do tyłu. Nie wiem natomiast...
Cześć, Stworzyłem makro do tworzenia Analizy ABC towarów na magazynie. Makro działa dla zakresu towarów od 1 do 10000. A działa następująco: 1. W arkuszu "dane" wklejamy dane dotyczące towarów (symbol/nazwa/j.m./wartość do analizy) 2. Klikamy przycisk "Stwórz Analizę ABC", makro tworzy nowy arkusz o nazwie "ABC" i tam wykonuje wszystkie działania z...
Taki kalkulator bardzo prosto zrobisz samemu, wystarczy nadać kontrolkom odpowiednie numery ID i odwpołać się potem do nich w samym Javascripcie, poniżej masz pełen przykład z prostym sprawdzaniem czy wszystkie pola wypełniono: [syntax=javascript]<?xml version="1.0" encoding="utf-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml1...
Można wyświetlać temperaturę w podmenu "wybór_Ds" ale trzeba zmienić cały program. Chyba nie jest tak trudno zapisać sobie cztery ID czujników i wiedzieć później który gdzie przypisać. Najlepiej osobno podłączać każdy czujnik i na naklejce na kablu przy czujniki zapisać jego ID. Wiedząc gdzie jakie jest ID czujnika można już mu w podmenu przypisać odpowiednią...
Witam, poprawiłem kod, ale dalej mam błędy, mianowicie: 1. With Activesheet.UsedRange działa bez problemu 2. Columns(kW.Column).Select - tu wyrzuca mi błąd (info w komentarzy kodu makra) Czyżby to zaznaczenie nie było potrzebne, aby skopiować formatowanie z kolumny D do kolumn E, F, G. Poprawiłem źródło i kolumny docelowe kopiowania formatowania, ale...
http://obrazki.elektroda.pl/7658273900_1... http://obrazki.elektroda.pl/1949961800_1... Pracuję na "żywym układzie" wytrawianym i polutowanym w domu. Istotne jest to, że na płytce stykowej tak samo się zachowywał. Myślałem, że to wina słabych połączeń tych kabelków z płytką, ale po wykonaniu obwodu drukowanego, niestety...
Witam, potrzebuję makra i nie bardzo potrafię je stworzyć... Ogólnie, mój arkusz wygląda tak: dane pusta kolumna formuły tylko że ilość wierszy w kolejnych arkuszach jest nieregularna, raz jest to 15 linijek a innym razem 150. Zarejestrowane makro wypluło mi coś takiego: Sub wypełnienie() Range("L2:W2").Sel... Selection.AutoFill...
Idea ciekawa. U mnie o tyle będzie prościej iż nie przewiduje rozbicie cennika na poszczególne taryfy dzienna i nocna - jedna stawka przez cały dzień. Jeśli chodzi o silnik to używam MySQL'a. Trochę mnie martwi Twoja propozycja odnośnie cennika gdyż nigdy nie wiemy kiedy będą wprowadzone zmiany. Tak więc okres obowiązywania ostatniej zmiany jest od...
To teraz caly kod wyglada tak "Private Sub CommandButton1_Click() Dim sciezka As String With Application.FileDialog(msoFileDialogOpen... .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excel", "*.xls" .Filters.Add "Wszystkie pliki", "*.*" .FilterIndex = 1 .InitialFileName = "C:\" .Show For lngCount = 1 To .SelectedItems.Count sciezka = .SelectedItems(lngCount)...
Witam Utworzyłem trzy tabele w bazie danych. W jednej są 4 pozycje z wartościami w kolumnie 7,2,1,4 w drugiej 6 pozycji z wartościami 2,1,1,1,2,3 w trzeciej 1 pozycja wartość 3 we wszystkich jest typ INT ustawienia domyślne NULL Utworzyłem kod php do obliczenia sumy, który wygląda tak(fragment): "SELECT SUM(tabela1.ilosc + tabela2.ilosc + tabela3.ilosc)...
(at)Dżyszla dzięki za pomoc, mój mózg już zaskoczył, trochę pobrobowalem i już zaczynam ogarniać kiedy, co warto stosować z partycjonowania ,a stosować warto zachowując zdrowy rozsądek, jest to idealne dla tabel gdzie zapisuje się wyniki, gromadzi duże ilości danych. Przykład tabela na której testowałem miała 5 milionów rekordów, bez partycji prosty...
W skoroszycie główny.xls dodaję nowy arkusz o nazwie "dane" Jak mam z innego skoroszytu (np.: a.xls) skopiować cały pierwszy arkusz i wkleić jego zawartość do arkusza "dane". Skoroszyt a.xls ma stałą ścieżkę (znajduje się na dysku d:\a.xls), są to dane potrzebne do obliczeń i nie będą przesuwane czy modyfikowane. Znajdują się tam puste komórki więc...
1. Powiedzmy, że z bazy danych będzie korzystać wielu wykładowców. Czy byłaby możliwość zrobienia tego tak, aby jeden użytkownik bazy nie miał dostępu do wystawiania ocen "w imieniu" innych użytkowników? W jaki sposób będzie realizowany wielodostęp? MSAccess się do tego celu IMHO nie nadaje. W jaki sposób zrealizować to na bazie SQL-owej (SQL Server,...
A może macie jakiś inny pomysł? Możesz tutaj wykorzystać również wyrażenia regularne :idea: Zastosowanie ich prezentowałem np https://www.elektroda.pl/rtvforum/viewto... :spoko: Inny pomysł - to miałem na myśli inne rozwiązanie odczytu i przetwarzania danych. U mnie jest jeden plik excelowy z makrami i to on otwiera pozostałe...
Witam Dzięki Maciej Gonet za pomoc :D . Dla zainteresowanych [syntax=vb]Sub tworzenie_formuły_tablicowej() ' ' tworzenie_formuły_tablicowej Makro Sheets("generator formuł").Select a = Sheets("generator formuł").Range("A5").Value b = Sheets("generator formuł").Range("A7").Value c = Sheets("generator formuł").Range("A11").Value d = Sheets("generator formuł").Range("A13").Value...
Dla zasady #NAZWA to nie format tylko błąd obliczeń - excel nie zna funkcji o danej nazwie (nazwa po - ). Aczkolwiek dziwne bo u mnie pomimo myślnika nie zmusza excela do obliczeń (chyba że na wstępie jest znak równości ( = ). Formatowanie arkusza jest na ogólne a wkleja wartości ale ... Sama zmiana formatu komórek właściwie nic nie da bo i tak jak...
Cześć, bardzo prosiłabym o pomoc z kodem w VBA. Mianowicie mam napisane makro, którym dodaję nowe rekordy do tabeli (nazwa produktu, cena, sprzedana ilość). Chciałabym, aby w kolejnej kolumnie tj. H o nazwie ''Sprzedaż" była wartość z przemnożenia sprzedanej ilości (kolumna G) i ceny (kolumna F). Nie za bardzo chciałabym, aby było to w formule typu...
To co kolega proponuje to prawdopodobnie wykorzystanie przerwań zewnętrznych i start/stop Timera w przerwaniu. A jak inaczej chcesz liczyć czas trwania "impulsu". Przecież najpierw trzeba go jakoś wprowadzić do MCU, prawda? Reszta będzie realizowana w sposób banalny: Przy pierwszym impulsie - start timera, przy drugim - odczyt jego stanu - i obliczenie...
1. Nie, bo emp występuje tutaj dwa razy. Jedno wybiera wiersze do tego co ma się wyświetlić. Drugie służy do wyciągania średniej i nie zwraca całych rekordów z tabeli. 2. Żeby to odróżnić od pierwszego. Jeżeli odwołujesz się do jakiejś tabeli wiele razy, ale wyciągając różne dane to musisz jakoś je odróżniać. 3. To jest w pewnym sensie powiązanie pierwszego...
A czy stan licznika pokrywa się z km z przejazdów? Bo jak nie to raczej te dane byłby niewystarczające. Jeśli jednak tak, to można jak kolega zaproponował, a więc [syntax=mysql]SELECT p.numer_rej, SUM(t.ilosc_paliwa)*100/SUM(j.km) AS spalanie FROM tabela1 p LEFT OUTER JOIN tabela3 t ON t.id_pojazd = p.id LEFT OUTER JOIN tabela2 j ON j.id_pojazd = p.id...
Witam Mam 7 układów DS18B20 i chciałem dokonywać ich odczytu w kolejności. W przerwaniu od Timer0 ustawiam co 4 sekundy flagę, która ma spowodować wywołanie programu odczytu. Wywołanie od przerwania Timer0 Wywołanie programu pomiaru Podprogram pomiaru Zdefiniowałem zmienne Case nie ma chyba sensu, bo w momencie wyboru z Case, dane jeszcze nie są obliczone.
Po sugerowanych poprawkach kod wygląda następująco: Option Explicit Private Sub CommandButtonImportujPlik_Click()... On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim i, j As Integer Dim fDialog As Office.FileDialog Dim varFile As Variant Set fDialog = Application.FileDialog(msoFileDialog...
Zrobiłem sobie między czasie linijkę do ręcznej zmiany jasności diody: [syntax=csharp] private void Val_trackBar_Scroll(object sender, EventArgs e) { int PWM; PWM = Convert.ToInt32(Val_trackBar.Value); Labe22.Text = Convert.ToString(PWM); PWM = Convert.ToInt32(Val_trackBar.Value); Labe22.Text = Convert.ToString(PWM); port.WriteLine(PWM.ToString());...
Witam napisałem sobie formularz zamawiania węgla jednak brakuje mi pomysłu jak dorobić takie coś że np jak wybiorę: dwie tony groszku i tone miału to podliczy mi sumę ceny. A drugą sprawą jest że nie wiem jak rozwiązać, że mogę zamówić dwa rodzaje węgla w jednym zamówieniu czyli np. groszek 2tony i miał 1 tona. [syntax=php]<?php if (isset($_POST['submitted']))...
Witam, mam napisane makro na kopiowanie całych arkuszy z jednego pliku do nowego. Wszystko mi działa i funkcjonuje poza jednym. W pewnym momencie wyskakuje mi informacja, że zasoby fizyczne do obliczeń są za małe i wyskakuje błąd. Spowodowane to jest tym, że z pliku głównego, gdzie są kopiowane arkusze do nowego pliku podczas mojej procedury początkowo...
Chciałem uprościć kod programu obsługującego trzy czujniki DS18B20. Na razie mam cztery podprogramy ( jeden wywołuje pomiar, a trzy obliczają dane dla każdego DS18B20 ). Mam taki pomysł, żeby tak skonstruować podprogram do obliczeń, aby na wejściu podawać adres DS, a podprogram ( wspólny dla wszystkich ) poda wynik. Coś takiego próbuję zrobić: Jeśli...
zrobilem tak: <html> <head><meta http-equiv="content-type" content="text/html; charset=windows-1250" /> <title>Projekt z php</title> </head> <body BGCOLOR=#6A5ACD> <? echo $_POST['a']; echo $_POST['b']; echo $_POST['dzialanie']; if ($dzialanie == 'dodaj')...
fakt adr__Ewid.adr_TypAdresu=1 trochę przefiltrował wyniki ale to nie to.. ..może łatwiej będzie wyświetlić wszystkie wz i pz które posiadają w swych pozycjach którąkolwiek z palet, a w wyniku wyświetlać tylko ich sumę...tylko jak się za to zabrać :/ teraz jest już dobrze.. SELECT dok__Dokument.dok_NrPelny AS [Dokument], dok__Dokument.dok_DataWyst...
W TYM WPISIE INFORMACJE O KOLEJNYCH ARKUSZACH Kazda edycja głównego jest najpierw zatwierdzana przez administratorów elektro, więc TUTAJ będą wpisy które wymagają szybkich reakcji. ----------------------------------------... ARKUSZ 1 2017-06-27 8:00 od Szymona: E14 łatwy w 40min napisany. Strona CSS z banerem lewy panel prawy...
Proponuję napisać funkcję, która będzie tworzyć grupę na podstawie daty, np przeliczając datę na liczbę dni od początku roku (niestety FB jest tak ubogi w funkcje, że szkoda słów) - trochę matematyki będzie trzeba. NAstępnie otrzymany wynik podzieli przez 3 i taki zwróci. teraz wystarczy zgrupować to tej funkcji. / Możliwe, że umieszczenie jej wprost...
Przed sortowania musisz zastąpić formułę na wartość, ponieważ funkcja LOS() zawsze daje nową wartość w obliczeniach No właśnie, makro, które testowałem działało tylko po wpisaniu konkretnych wartości. Private Sub Worksheet_Change(ByVal Target As Range) Range("AC65:AF65").Select ActiveWorkbook.Worksheets("EW").Sort.Sor... ActiveWorkbook.Worksheets("EW").Sort.Sor...
https://obrazki.elektroda.pl/5922412400_... Budując „inteligentny dom” zawsze chciałem wiedzieć, jak wygląda pobór prądu. Jest to o tyle istotne, że cały dom – z ogrzewaniem łącznie – jest oparty o prąd. Dodatkowo postanowiłem zainstalować panele PV i chciałem wiedzieć, ile energii wprowadzam i pobieram z sieci....
Drugiego kodu jeszcze mój mały rozumek za bardzo nie ogarnia, ale... również pokazuje "śmieci" przy odpowiedzi :( Więc zacząłem poszukiwania. Pierwsze co poszło pod młotek to płytka stykowa już byłem praktycznie pewny, że tam coś musi być, ale nie... Więc wiozłem sobie do serca słowa: Dosyć odważnie sobie poczynasz na mikrokontrolerze mającym 2kB Flash...
(...) ?$filter=business_date eq '${todayDate}'`;\n\nreturn msg;\n","outputs":1,"noerr":0,"initializ... Bezpośrednia odpowiedź na pytanie Aby funkcja „115” w Node-RED odczytywała dane z godziny poprzedniej, trzeba zmodyfikować sposób obliczania indeksu (który wybiera odpowiedni przedział czasowy z Twojej tablicy „value”). Poniższy...
Czyli jednym słowem przedobrzyłem w kombinowaniu. Zazwyczaj robię multipleksowanie na podstawie znalezionego gdzieś wzorca (z instrukcjami SELECT CASE) i działa to OK. Tam jest właśnie wyświetlanie jednej cyfry w jednym przerwaniu. Wpadłem jednak na MAŁO genialny pomysł że można wyświetlenie wszystkich cyfr wwalić w jeden obieg przerwania. I może byłoby...
Prościej jest użyć takiego obliczenia, zajmuje mało pamieci po kompilacji, ja używam w swoim programie takiego podprogramu (używam 10bitowego PWM) [syntax=basic4gl]Dim Moc As Word Dim M As Long Dim M1 As Byte '=======================================... Moc_sub: ' wyswietla moc w procentach jaka ' podaje regulator...
To od tego zacznij - główną "bolączką" tego makra jest to, że wstawiasz kilkanaście kolumn formuł na 600.000 wierszy - to się musi długo liczyć... Na początku skróć zakres do niezbędnego minimum: poleceniem [syntax=vb]ost_w = Cells(Rows.Count, 1).End(xlUp).Row[/syntax]ustalisz sobie w aktywnym arkuszu ostatni numer wiersza (ważne, żeby przedtem zdjąć...
select tytuł select revision select nazwa
podłączyć antena wieża zamek podnosić kabina technics stereo amplifier
szarp niebieski obraz utrzymanie ruchu
Zmiana wysokości dźwięku o pół tonu w Yamaha PSR-330 i GameMaker Czujnik temperatury w spawarce Fronius - diagnostyka i rozwiązania