Ł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)....
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ś...
Opis jest w kodzie, ale pozwolę sobie wytłumaczyć mój tok myślenia bo kiedy coś nie działa to wtedy łatwiej naprawić jeśli wie się co autor miał na myśli ;) Kiedy naciskasz przycisk to ustalany jest czas opóźnienia "Czekaj" na 20 czyli 500ms. Ten czas to taki Timeout. Jest odliczany w dół i dopóki zmienna nie ma wartości zero to nie miga. Zaczyna migać...
Po kilku dniach pracy urządzania stwierdziłem że jednak przydało by się żeby serwerek dodatkowo wysyłał dane do "https://thingspeak.com/" chociaż z termometru domowego. Próbowałem na rożne sposoby ale nie mam pojęcia jak to zrobić. Może ktoś z Was jest w stanie zmodyfikować kod ? Może kolega (at)bart-projects czyta ten temat? ;) (to ten sam kod co w...
Po całym dniu walki słabo opisałem mój problem bo już po prostu nie miałem siły :D Wyjaśniam... Zrobiłem sobie mikro serwerek LANowy na Atmedze32 i układzie ENC28J60. Z doświadczenia z tym układem i Atmegą wiem że znacznie stabilniej wszystko pracuje gdy mikroporocesor (Atmega) jest taktowana zegarem 25MHz z gotowego modułu ENC a nie własnym kwarcem....
witam, a mi ten program nie działa. pinguje układ ale nie wyswietla mi strony oto kod: [syntax=basic4gl]$regfile "m32def.dat" $lib "i2c_twi.lbx" $crystal = 11059200 Config 1wire = Portc.2 $baud = 19200 ' use baud rate $hwstack = 64 ' default use 32 for the hardware stack $swstack = 64 ' default use 10 for the SW stack $framesize = 200 Dim T1 As Byte...
Witam podaję kod, który działa poprawnie, oczywiście należy go dopasować do swoich potrzeb. [syntax=vbnet] 'Sterownik swiatel V2.2 '10-06-2015 'Roman Biadała $regfile = "m128def.dat" $crystal = 11059200 '$lib "fp_trig.lbx" '******** Ustawienia portów ****************************************... '******** Sterowanie 74HC541 - przekaźniki *************************************...
Próbuję przeanalizować kod samplowy: $crystal - częstotliwość rezonatora $baud - prędkość transmisji po UART $regfile - deklaracja typu procesora b). konfiguracja automatyczna na podstawie wybranego uP: Loaderchip - stała - deklaracja, jaki uP będzie wykorzystany W zależności od tego ustawione zostaną zmienne: $loader - adres pod jakim znajduje się...
Witam Korzystając kodu Tuxgraphics zmodyfikowanego przez Kolegę Mundi1970 , chciałem również postawić prosty serwer pokazujący temperatury z kilku czujników oraz wilgotność i ciśnienie. Po zmianach regfile i pinu CS nie mogę go jednak skompilować. Występują trzy błędy: Error 46 Line: 363 Assignment Error Enc28j60_linkup Erroe 229 Line: 450 End Sub or...
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]
[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...
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...
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...
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...
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...
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.
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...
[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,...
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...
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 ...)
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]
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...
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...
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...
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;...
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]
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.
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]
Sorry, Chodzi o to aby makro: zaznaczyło zakres C5:F50 https://obrazki.elektroda.pl/6322808800_... https://obrazki.elektroda.pl/2228596900_...
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...
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 +...
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>...
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)?
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...
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...
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')...
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 =...
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...
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...
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ż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...
Nadal błąd tym razem zmodernizowałem kod i dla próby zrobiłem miniaturkę mojego programu w którym chodzi o to by dane były wpisywane do arkusza poprzez formularz i po kliknięciu na formularzu przycisku oblicz wynik został wpisany do pola wynik w komórce D5 arkusza i zarazem pojawiał się na formularzu w TextBox4. Mimo że nie wywala błędu , tym razem...
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...
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.
Wychodzi na to, że jednak nie miałem racji (; Anyway - w przypadku post-inkrementacji (X++) operator ten ma wyższy priorytet niż operator *X ( http://pl.wikibooks.org/wiki/C/Operatory... ), a działa w taki sposób, że zwraca aktualną wartość X, a potem sobie ją powiększa, dlatego operator *X operuje na poprzedniej...
*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 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...
motorola select input select alias select
arduino akwarium awaria telefon samsung słuchawka regulacja głośność mikrofon
Chromecast nie odtwarza filmów dla dorosłych - jak to zmienić? Citroën C4 Picasso 2009 - Nie działa lewa lampa mijania
