OnExit - wywoływane jest przy "wyjściu" (w jakikolwiek sposób - Tab, kliknięcie itp.) z kontrolki
Zamiast wysyłać przez RS232 binarnie - co często przy przesyłaniu większych porcji danych przez początkujących będzie się kończyło samymi problemami - to nie łatwiej ci zamieniać przesyłane liczby na stringi a po odebraniu ze stringów na liczby. Dzięki temu twoja ramka będzie mogła być po ludzku zakończona znakiem ENTER a co za tym idzie wszystko co...
dodano "Informuj i blokuj liczby które się powtarzają." + czyszczenie + zlikwidowałem buga który siedział w tym kodzie i przez który zmarnowałem pół godziny lub więcej. Stare Delphi 7. ehh Spakowane rar :arrow:
A sprawdź jaki będzie wynik odejmowania tych dwóch prawie równych liczb, jeśli nie zero, to w takim razie to jest problem "standardowy" z liczbami zmiennoprzecinkowymi polegający na niejednoznaczności liczby i nieciągłości zbioru. Tak na szybko znalazłem taki tekst http://www.cygnus-software.com/papers/co...
Jak byś pisał program do procka w C, to byś w prosty sposób sobie to "naprawił" ;) wynik = UDR - '0'; po prostu wysyłasz z delphi przecież panie kolego nie liczbę a znak ASCII - nie prawdaż ??? Zatem znak ASCII w postaci cyfry np "2" będzie miał wartość 50, znak cyfry "1" będzie miał wartość 49 - to chyba normalne. Zatem musisz od odebranej liczby (znaku...
mod nie operuje na int64, próbowałem przed załozeniem tematu. Jak odzyskac najmłodszy bajt z liczby 8 bajtowej? Lo(x) nie działa. To ciekawe bo u mnie (D7) mod dziala na int64
Najpierw 'wykrywasz' dla ktorego komponentu przeznaczona jest odebrana dana i w zaleznosci (przy zalozeniu ze nie odbierasz w ramce, w moim poscie wyzej jak odejmiesz jeden od kazdej liczby to bedziesz mial kod dla danych bez ramki): progressbar [syntax=delphi] Progressbar1.Position:=strtoint(copy(str... [/syntax] checkboxy [syntax=delphi]...
Niestety nie podałeś jaki jest błąd. Nie pamiętam dużo z pascala, ale na 99% czepia się tego, że pierwiastek z liczby nie jest raczej liczbą całkowitą i trudno to zapisać w typie integer bez konwersji. Masz dwie możliwości: -Konwersja pierwiasta do typu integer (bodajże funkcja Round) , ale wtedy tracisz całą wartość ułamkową... -Zmiana typu integer...
Nie wiem czy te najnowsze Delphi mają wbudowaną obsługę portu szeregowego czy trzeba dodać jakiś komponent jak to w starym było. Takie komponenty są dostępne w dość dużej liczbie i znalezienie w miarę sensownego to zawsze problem. Generalnie, Delphi działając na Windows jest niewolnikiem systemu i od niego wszystko zależy. Dane przychodzą asynchronicznie,...
Po odblokowaniu portu wszystko powinno chodzic poprawnie A co do wykonania okreslonej liczby krokow przez silnik to moge podpowiedziec ze nalezy wykonac jedynie okreslona (zalezna od liczy krokow) liczbe petli sterujacych silnikiem Pozdrawiam
zamień sobie początek procedury Button2Click na var cena:real; sztuki:integer; wynik:real; rabat:real; rabatwynik:real; begin cena:=strtofloat(edit1.Text)... sztuki:=strtoint(edit2.Text)... rabat:=strtofloat(edit3.Text)... wynik:=cena*sztuki; problem leżał w tym że do zmiennej typu integer chciałeś...
Otwórz w Access tabele do której chcesz wkleić dane, ctrl +a, ctrl+c, otwórz excel nowy arkusz ctrl+v, wytnij wszystkie wiersze oprócz nagłówków kolumn (pierwszy wiersz) , edytuj dane dodawaj, zmieniaj co chcesz, kolumnę id pozostaw pusta. Gdy skończysz zaznacz i skopiuj arkusz, w Access zaznacz ostatni wiersz w tabeli i ctrl+v, jeśli typy danych itd...
nie bardzo rozumiem co ten program szuka Celowo przekreśliłem "i mniejsze" by pokazać, że tego nie szuka. Jeśli masz zamiar szukać liczby większe i mniejsze to jest to równoznaczne z szukaniem liczb innych niż ta wpisana. Dodatnie warunku by szukał też mniejszych jest banalne i taki wysiłek to akurat mógł byś uczynić :P Ogólnie to nie rozumiem sensu...
Można też użyć stylów kontrolki EDIT z WinAPI: SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE) or ES_NUMBER);
Sam Sung dobrze Ci napisał. Bo w tej Twojej procedurze Piotrd po wylosowaniu liczby są trzy możliwości 1. Albo wylosowano 0 2. Albo wylosowano 1-4 i trafi na edit z textem 3. Albo wylosowano 1-4 i i trafi na pusty edit więc jak widzisz tylko ostatnia z możliwości zrobi to co chcesz aby robiło za każdym uruchomieniem procedury. Spróbuj tego: procedure...
Luźne uwagi: -termin z kryptografii: „funkcja skrótu”, -jeśli będzie to przepisywane przez człowieka problemem jest rozróżnienie litery „O” od cyfry „0”, podobnie „l”, „I”, „1” (małe „L”, wielkie „i”, cyfra „1”), -wygodne i jednoznaczne będą liczby...
Zacząłbym od tego: Otrzymujesz wartość zmiennej temperatura równą np. 1871819,25. Jak przemnożysz to przez 16 to okaże się, że wyrażenie (temp1 + (temp2*256)) zwraca wartość 29 949 108. Teoretycznie zmienne temp1 i temp2 nie powinny przyjmować wartości większych od 255, więc wartość maksymalna wyrażenia (temp1 + (temp2*256)) = (255 + (255*256)) = 65535....
Witam , Mam problem w Delphi . Który brzmi : ''Napisz program znajdujący wszystkie liczby pierwsze, które można stworzyć z podzbiorów cyfr podanej liczby całkowitej. Przykład: pytamy ile liczb pierwszych można stworzyć z cyfr liczby 1379? Możemy znaleźć aż 31 liczb pierwszych zanurzonych w liczbie 1379. Uwaga: budując liczbę pierwszą możemy każdą cyfrę...
Zmodyfikowałem odrobinę twój program, dział na 100% z Delphi 2009/2010. Zmieniłem procedurę odczytu plików, w formacie czytelnym dla człowieka :) Kolejne liczby zapisujesz po przecinkach. Twój plik źródłowy może teraz wyglądać np. tak : 1,2,3,4,5 7,8,9,10,234 65,58,29,352,45 -6,78,0,34,53 365,22,8,-3,2 program Project6; {$APPTYPE CONSOLE}...
Zadanie banalne - nieco pewniej można zrealizować, a dodatkowo jeśli chcesz tylko nazwę ulicy, to: var i,p2: Integer; begin with Memo1.Lines do for i:=0 to Count-1 do if (Copy(Strings[i],1,Pos&#... -',Strings[i]))=Edit1.Te... then begin p2:=Pos('- ',Strings[i])+2; Edit2.Text:=Copy(Strings[i&#...
1. tak MAX232 może konwertować w obydwie strony (jest do tego stworzony) 2. nie trzeba programowo sklejać na PC w pascalu bitów w bajty (odczytujesz z odpowiedniego portu całe "przyjeżdżające bajty" ;) i tak samo wysyłasz. 3. bity startu , stopy etc - to sa tylko parametry które trzeba raz ustawić przed transmisją przez port COM ;) 4. Wspomniałeś, że...
Przecież masz ten kod podany u siebie :/ [syntax=delphi]function code( liczba : double):string; begin result:=SysUtils.Format('%.*d', [6, trunc(liczba) mod 1000000]); end; begin liczba:=234244434.73727; Memo3.Lines.Add(code( liczba)); end;[/syntax]
Będę musiał o tym pomyśleć jak to wykonać, bo obecnie wartości liczbowe mam w postaci pliku .txt. Pozycji jest niestety kilkanaście tysięcy. I tu trzeba każdą pozycję z każdą porównać i określić, czy te 5 liczb jest takich samych czy nie. Do tej pory robiłem tak, że otwierałem plik do odczytu, brałem pierwszą czy też dowolną pozycję i odczytywałem poszczególne...
W pascalu takie cos (lub podobne) robiło z reala np 2.12345 liczbe 2.12 Czy w Delphi6 da sie cos podobnego zrobic? Czy trzeba do tego cala procedurke pisac (wsumie juz ja napisalem, ale zastanawiam sie czy latwiej sie nie da :) Albo inne pytanie - czy jest jakis prosty sposob zaokraglania realów do np 2 liczb po przecinku ? Zamykam. - arnoldziq
Dopiero teraz miałem chwilę aby usiąść przed tym. Używam Delphi 7 bodajże z 2002r Zaraz biorę się za pisanie. Edit... Chłopaki dzięki wielkie, powoli idę do przodu :)
Mirek - czemu akurat bąbelkowe? Zacznijmy od tego - jakim algorytmem to potrzebujesz sortować, bo jest ich wiele i w zależności od ilości danych oraz ich wstępnego układu, można dobrać w ten sposób najlepszy.
var p:array[1..100] of longint; function min(x,y:longint):longint... begin if x<y then min:=x else min:=y end; procedure printit(t:longint); var i:longint; begin for i:=1 to t do write(p[i]); writeln end; procedure pp(n,k,t:longint); var j:longint; begin p[t]:=k;...
1. Dodajesz do listy (TList lub wygodniej: TList<integer> (tylko nowsze Delphi)) wszystkie liczby z zakresu (czyli pętla for, dodajesz licznik) 2. W kolejnej pętli o długości odpowiadające ilości do wylosowania losujesz indeks z podanego wcześniej przeze mnie zakresu. 3. Wyciągasz liczbę z wylosowanej pozycji z listy ( los := Integer(lista[i])...
Wielkie dzięki. Teraz wszystko gra.
wpisz sobie w przegladarce http://4programmers.net/ i poczytaj troche Delphi jest tak latwym srodowiskiem programistycznym ze szypko znajdziesz sam rozwiazanie na swoj problem :P przeczytaj o tablicach troche ... a ile dajesz za napisanie <hahaha>
Cześć Robię grę w delphi i mam mały problem bo potrzebuje zrobić coś takiego: Jest np. takie działanie s(300)-ca(24)=s(276) (ta sama liczba tylko mniejsza o 24) a następnie potrzebuje do s (276)+350=626 i jak to zrobić jak ta liczba s jest zapisana w pliku ini bo mi to nie chce wyjść a bez tego nie dam rady dalej robić :| . A wiec proszę o pomoc. Z...
Witam Słabo programuję ale chcę zrobić wykres w Delphi 7. Dane czytam z dysku ( to umię ), są to liczby od 1 do około 400. Jak to przenieś na wykres. Okno wykresu ma zajmować około 1/2 ekranu. Może ktoś z Szanownych postowiczów podpowie (może parę linii kodu). Dzięki
https://obrazki.elektroda.pl/7656017200_... O komputerach jednopłytkowych czy stare komputery były lepsze od współczesnych platform rozwojowych i SBC? Nie lubię Arduino I to jest jak najbardziej prawda. Arduino to platforma, która miała dać łatwy dostęp do programowania elektroniki ludziom, którzy nie znają się ani na elektronice,...
Witam jak wygenerować 16bitową liczbę w pamięci z przedziału od 1..9999999999999999 i następnie zapisać ją do pliku tekstowego. Tylko jedno dodam : to zupełnie nie ma sensu. Indeks tej "liczby" będzie taki sam jak sama liczba. Może raczej kolega powie dokładnie czemu to ma służyć, bo generowanie pliku tekstowego o pojemności kilkuset terabajtów zawierającego...
Witam, generując liczby losowe w Delphi zazwyczaj otrzymujemy rozkład dalece odbiegający od rozkładu normalnego. Tutaj: http://logicalgenetics.com/random-number... znalazłem świetny generator liczb losowych w rozkładzie normalnym, ale są to liczby z zakresu Dodano po 18 Właśnie zauważyłem, że wartości których nie ma w zakresach generowałem...
W Delphi masz gotowa klasę Complex dla liczb zespolonych. A tu masz uniwersalny unit, to operacji na liczbach zespolonych. Masz tam także rekord opisujący liczbę zespoloną... Utwórz tablicę takich rekordów i po problemie :) [syntax=pascal]{ unit for complex numbers based on C_reords ----------------------------------------... they are efficient on arrays...
Witajcie, niestety ale nie jestem dobrym programistą w Delphi - w sumie to nie znam tego języka. Jednak stanąłem teraz przed potrzebą napisania prostej aplikacji. Z procesora (por RS-232) wysyłam sobie do programu zmienne typu int16_t dzieląc je na dwa bajty i wysyłam w odpowiedniej kolejności. W programie po stronie PC odebrane trafiają do tablicy...
Generalny schemat w pseudokodzie [syntax=delphi] liczba = 0; repeat { pobierz cyfra liczba = liczba*10+(cyfra-'0') } while są cyfry.[/syntax] Przypilnuj nazw zmiennych. Wydaje mi się że piszesz 'liczba' a myślisz 'cyfra' i źle się potem myśli.
witam. Ostatnio zajmuję sie pisaniem programów sterujących portem lpt. Gdzieś wyczytałem że najprostszy sposób na wyliczenie liczb binarnych to wybrać profesjonalny tryb w opcjach kalkulatora windows , kliknąć bin , wpisać i kliknąć dec , powinien pojawić się wynik który muszę wpisać w kompilatorze. Jednak mam problem bo kompilator nie przyjmuje liczb...
1. Ja używam zazwyczaj Delphi 5 (w robocie) i jestem zadowolony. 2. TList ma wbudowane automatyczne sortowanie, więc dodawanie jakichś wymyślnych sortowań, jest kompletnie bez sensu. 3. Możesz wstawić TGauge w dowolnej części programu która coś wylicza. Np tutaj : for I := 0 to SL.Count - 1 do begin // tutaj elem:=sl.Elementy(I); RichEdit2.Lines.add('Liczba...
Witam Mam problem. Jak obliczyc w delphi o ile procent wzrosła jedna liczba od drugiej. Chodzi mi o podanie wzoru do obliczenia. Podaje przykład. Liczba A = 2,57 Liczba B = 2,62 Pytanie: O ile procent wzrosła liczba B od liczby A. Dzięki
W przykładzie program dodaje kolejne liczby a co jeżeli te liczby są różnej wielkości i ich liczba z góry nie jest wiadoma.?
Nie wiesz gdzie zapisujesz te liczby do pliku? To ty nie pomocy potrzebujesz, zaś odwalenia pracy za ciebie. Za darmo - nie będzie (przynajmniej z mojej strony).
Skleiłeś jakieś 3 fragmenty kodu i w ogóle nie wiesz, co one robią. Skoro wkleiłeś:[syntax=pascal] for i:=0 to 4 do memo1.lines.add(IntToStr(t[i]));[/syntax... to ile liczb ma się wyświetlać, jak nie 5? Jak podajesz w edicie 4, to tylko 4 pierwsze liczby są losowane od 0 do 99 (a nie 100) - czemu piąta miałaby też być wylosowana? Na piątym miejscu w...
1 234 567 890 czyli z odstępami co 3 znaki? Jeśli liczby całkowite to na przykład taką funkcją: [syntax=delphi] function IntToStrSepSp(i: int64): string; var ii: int64; s, s1, sign: string; begin if i < 0 then begin i := abs(i); sign := '-'; end else begin sign := ''; end; s := ''; repeat ii := i mod 1000; s1 := IntToStr(ii); i := (i - ii) div 1000;...
Pascal jest podobny do delphi a że nie mam skąd wziąć delphi to robię to w pascalu i tak chodzi tylko i wyłącznie o kod środkowy. Mam ten program tylko że w C++ a potrzebuje to mieć w delphi albo pascalu :/ [syntax=c] #include <iostream> using namespace std; int main() { int wp; //Wprowadzana liczba std::string suma; //Czy liczyc sume std::string...
No przecież w tą stronę to banalne. Troszkę trudniej na odwrót. Przeciez wartości najbardziej na prawo są najmniej znaczące (16 do potegi 0), bardziej na lewo 16 do 1, potem 16 do 2, itd. Wymnażasz tylko te wagi przez wartosc cyfry na tej pozycji (0, .... ,9, A znaczy 10, B to 11) itd i sumujesz wszystkie liczby
Shift+Ctrl+Esc PS. Delphi 7 niestety twierdzi, że wykonanie operacji dzielenia 64-bitowej liczby w ALU (div) jest niemożliwe :( Może wina 32-procka albo samego Delphi... To akurat trzeba by sprawdzić.
Witam! Jako, że jestem kompletnym początkującym jeżeli chodzi o programowanie, a program, który tu opisze jest mi bardzo potrzebny, zwracam się z prośbą o pomoc w napisaniu takiego oto programu: Chodzi o program, który dzieli liczby w zakresie od 2,00 do 12,00 przez stałą liczbę, którą jest 0,85. Dobrze by było gdyby ten program miał możliwość ponownego...
Widzę, że koledze trudno użyć google. Są to funkcję do konwersji łańcuchów (stringów) na liczby lub odwrotnie. StrToInt - String To Integer - Konwertuje ciąg podany jako parametr na liczbę całkowitą Integer (32 bity ze znakiem) StrToFloat - String To Float - Konwertuje ciąg podany jako parametr na liczbę zmiennoprzecinkową Float; FloatToStr - Float...
Wystarcz użyć opcji SZUKAJ. Są tysiące wątków na ten temat. Np. tutaj : [url=http://www.elektroda.pl/rtvforum/to... z delphi - kalkulator
liczby parzyste textbox liczby liczby przedział
kopia zapasowa telefonu pomiar indukcyjności wnioski ogniwo peltiera ogniwo
silnik wycieraczek ekspres krups problemy
Building a Laser Cutter with DVD-RW Laser Diode Volkswagen Passat CC 2.0 2016 - Wysokie spalanie 20,4 l/100km
