Ł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...
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 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 *************************************...
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]
Każdy otwarty plik ma swój indeks w kolejności otwierania. Plik, w którym zaczynasz: Workbooks(1), następnie (2), (3) itd. Można otworzyć bodaj 256, ale tego jeszcze nie próbowałem :) :arrow: marek003 Wypróbuj otworzyć kilka takim Sub otwórz() Dim fdiag As FileDialog Dim plik As Variant Dim ostatni As Byte Set fdiag = Application.FileDialog(msoFileDialog...
[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...
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...
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...
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...
[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....
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]
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...
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]
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...
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.
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.
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...
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...
Sorry, Chodzi o to aby makro: zaznaczyło zakres C5:F50 https://obrazki.elektroda.pl/6322808800_... https://obrazki.elektroda.pl/2228596900_...
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;...
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...
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...
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...
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 =...
Tu masz przykład kodu trochę bardziej zaawansowanego, użyte są podprogramy, można by jeszcze zrobic jeden podprogram do obsługi samej 1Wire, ale to już może sam na przykładzie tego będziesz chciał sie nauczyć. Do czego są te podprogramy? Co do kompilatora, leonsocio(at)wp.pl. Z góry dzięki. Gdybym chciał dodać powitanie przed odczytem nr seryjnego...
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...
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.
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...
https://obrazki.elektroda.pl/6354148500_... Jest to typowy, uproszczony układ przetwornicy podwyższającej z tranzystorem przełączającym MOSFET. W artykule EP 7/2012 od strony 92 jest opisany sterownik takiej przetwornicy, zbudowany na ATtiny13 oraz stosowne obliczenia, które są identyczne jak dla układu MC34063. Wykonuję takie obliczenia...
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...
przestudiowałem dokumenty jednak nie znalazłem wzmianki na temat częstotliwości własnej czy też wymiarów urządzenia. No jak nie ma, jak jest? The thruster was designed around a Siemens dielectric resonator type LN89/52B with a dielectric constant (er) of 38. An operating frequency of 2450 MHz was selected to allow a commercial 850 W magnetron to be...
motorola select alias select input select
ustawienie transportera łucznik samoczynny wyłączać włączać telewizor zablokować drzwi tylny
diagbox peugeot elektrotechnika studia
Gdzie kupić laser KSS-213F do odtwarzaczy CD? Kod do kluczyka Renault Laguna I - jak uzyskać?