Integer to nie jest zmienna tekstowa. Sprawdź w helpie jaki zakres ma ten typ zmiennej.
Witam Niedawno zauważyłem że masz tam coś namącone przy wyświetlaniu cyfr bo jest tam procedura "pokaztemp" a w niej obsługa przerwania. nie wiem o so chodzi :?: Sprawdź to, ale poustawiaj se końcówki wg. siebie mnie to chodziło na AT90S2313 : '*****1 Wire na wyświetlaczu LED na Płytce testowej *********** Config 1wire = Portd.5 Config Timer0 = Timer...
Witam Trochę dziwnie napisany masz ten program. Poniżej masz mój programik który mierzy temperature i wyświetla na 4 wyświetlaczach., powinien ci trochę zmienić tok myślenia (bez urazy):D Oczywiście musisz go dostosować do swojego projektu. '*****1 Wire na wyświetlaczu LED na Płytce testowej *********** $regfile "2313def.dat" $crystal = 4000000...
No bo zmiennej I2_single przypisujesz wartość całkowitą. I2 jest przecież bez części ułamkowej.
Myślę, że jest to naturalne. Zmienna typu Long zajmuje 4 bajty a Integer tylko 2. Nie da się ciężarówki zaparkować w garażu dla malucha. W helpie jest informacja, że można dokonywać konwersji typów. Oto fragment: Dim I As Integer, S As Single S = 100.1 'przypisujemy liczbę zmiennoprzecinkową I = S 'ta instrukcja zmieni liczbę typu single na Integer...
Nie będę sie rozpisywał: Dim T1 As Single , T2 As Integer ... T1 = -123.50 T2 = T1 'bez części ułamkowej T2 = Round(T1) 'zaokrągli zgodnie z prawami arytmetyki ... Pozdrawiam Piotrek
Tak jak sivex napisał,zadeklarowałeś A jako integer. Nie pamiętam jak jest w języku basic (odległe czasy), ale w Qbasic są takie deklaracje: INTEGER A 16-bit signed integer variable. LONG A 32-bit signed integer variable. SINGLE A single-precision 32-bit floating-point variable. DOUBLE A double-precision 64-bit floating-point variable. STRING * n% A...
Mam rozwiązanie. Niech klawisz "0" nazywa się "C0" wtedy: Private Sub C0_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) C0.BackColor = &H80000010 ' Zmieniamy kolor przycisku End Sub Dla klawisza "1", który nazywa się "C1" Private Sub C1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,...
Histereza jest zadeklarowana jako Single. Zmień to na Integer bo szkoda miejsca. Po tym ustaw Histereza = 20 i powinno jakoś działać. Temperatura 60st.C to u Ciebie I1 = 600 a przecinek jest dorysowywany funkcją Format. Dlatego różnica stopnia to różnica równa 10 a nie jeden.
Może jednak wędkę potrzebujesz: http://bfy.tw/2mse [syntax=vbscript]Sub Rand100(ByRef tb() As Single) Dim y, x As Integer For y = LBound(tb, 1) To UBound(tb, 1) For x = LBound(tb, 2) To UBound(tb, 2) tb(y, x) = Int(10 * Rnd()) Next x Next y End Sub Sub Test1() Dim a() As Single ReDim a(1 To 3, 1 To 3) Rand100 tb:=a MsgBox ("Pasuje: " & CountIf(a, "=9"))...
więc kanał możesz otworzyć tak: Open "COM1:" for RANDOM as #1 Szybkość ustawiasz za pomocą polecenia BAUD lub $BAUD na początku programu jeśli nie masz zamiaru tego zmieniać w programie Liczba 123,45 nie jest liczbą typu integer tylko single. Liczby typu integer są to liczby całkowite. przykład nadajnik: Dim a as integer Dim al as byte...
[syntax=vb] Sub Generuj() Dim i As Integer Sheets("Liczby").Select Randomize For i = 1 To 4 Cells(2, i + 1) = Int(Rnd() * 30) + 15 'B2:E2 Next End Sub Sub CommandButton2_Click() Call Generuj Range("F20").FormulaLocal = "=SUMA(B2:E2)" Call Mnozenie MsgBox "Oto suma: " & Range("F20") End Sub Sub Mnozenie() Dim Mnoznik As Single, i As Integer Mnoznik =...
Stwórz tablicę za pomocą: Dim Zmienna(5) As Byte 'lub Word, Integer, Long, Single, Double... Przed zapisem aktualnej wartości do Zmienna(1), przesuń wartości z 1, 2, 3, 4 o jeden indeks (na 2, 3, 4, 5). Pamiętaj aby zrobić to tak, by nie "zamazać" wartości przy przesuwaniu. Potem zapisujesz aktualną wartość do Zmienna(1) i masz komplet, który...
... Może ktoś wie jak to zrobić bez sztucznego sprawdzania i dopisywania końcówek. PL Ja chyba wiem ;) 'dla Frm = 0 , kompiluje Fusing() 'dla Frm = 1 , kompiluje Format() 'teraz mozna porównać "pamięciożerność" Const Frm = 0 Dim A As Single , B As Integer , C As String * 10 A = 1.1625 B = A * 10 #if Frm C = Str(b)...
Bardzo przepraszam za odkopywanie tematu. Ale mam pytanie Czy tak samo można robić ze zmiennymi single -> integer i odwrotnie. Czy konieczne jest do tego typu operacji angażowanie kolejnej zmiennej ? Czy istnieje inny sposób ?
W Twojem przykladze Dim pn As Integer wtedy 2+0,5=2 (0,5 jest Single)
A coś więcej??
Poprawiłem - nie sprawdzałem. Dim Odczyt(2) As Byte dim T As Integer dim T1 As Single dim T2 As Single Dim Temp As Long Do Ds18b20 Print Temp Wait 1 Loop End Sub Ds18b20 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 750 1wreset 1wwrite &HCC 1wwrite &HBE Odczyt(1) = 1wread(2) T = Odczyt(2) Shift T , Left , 8 T = T + Odczyt(1)...
Przy przepisywaniu danych masz jeden błąd, pierwsza dana z linii DATA nie zostanie przepisana do tablicy. Numeracja elementów w tablicy DIM zaczyna się od 1, a numeracja elementów danych pobieranych przez Lookup zaczyna się od 0 :) . W BASCOMIE od wersji 2.0.0.0 można zmienić w jaki sposób będą numerowane elementy w tablicy DIM: A gdybym chciał przechowywać...
Ja bym zrobił to tak mam zmienną "a" typu single np potem dziele ją przez 10 a = a / 10 potem przepisuje ją do zmiennej typu np integer np "b" , ktora to automatycznie odcina, zostawia mi tylko liczby całkowite a potem znów mogę ją przepisać do a lub innej a = b zienną typu single można by potraktować tylko jako pomocniczą do obliczeń ale są zapewne...
Ten twój kod jest niezbyt optymalny i w dodatku zgubiłeś warunek dodatkowy w ostatnich dwóch edycjach. Przy okazji zalecam stosowanie Syntax bo inaczej prędzej czy później moderacja się do tego doczepi. U mnie wychodzi 503316480 wyników (iloczyn wielkości przedziałów). Oczywiście po przejściu przez 9 pętli zoptymalizowanych poprzez liczenie maksymalnej...
Coś nie mogę znaleźć właściwego tematu. Wypróbuj taki przykładowy Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub proba() Dim a As Integer Dim startuj As Single, koniec As Single startuj = Timer For a = 1 To 3 MsgBox "Przebieg " & a Sleep 500 Next koniec = Timer MsgBox ("wykonano...
Stworzyłem coś takiego niestety nie chodzi poprawnie, nie pokazuje kątów 30, 60, dopiero przy 180 coś zaczyna się dziać. Dim X2 As Integer Dim Y2 As Integer Dim Newx As Integer Dim Newy As Integer Dim Newxx As Integer Dim Newyy As Integer Dim Kat As Single Dim Kat2 As Single Dim X As Integer Dim Y As Integer Dim T As Single Dim Z As Single Dim O As...
Witam! Mam tu taki kawałek kodu: Dim Tick_time As Single Dim Length As Single Dim Mps As Integer Dim Fps As Integer Dim Fff As Single Dim Tick_count As Integer Dim Czas As Single Tick_time = 0.000096 Czas = Tick_count * Tick_time Mps = Length / Czas Fff = Length / Czas Fff = Fff * 10 Fps = Fff / 3 Tick_count = 0 Cls Lcd Mps Lcd " m/s " Lowerline...
Kod wydaje się sprawować prawidłowo. Przecinek jest względny. Operacje na zmiennych z przecinkiem są męczące dla mikrokontrolera. Jesli nie jest to konieczne to należy ich unikać. Zauważ że sam DS nie wysyła Single tylko Integer. Każda zmienna z jednym miejscem po przecinku pomnożona przez dziesięć da liczbę całkowitą. Tutaj przecinek jest "wirtualny"...
http://cpu.userbenchmark.com/Compare/Int... "Single Core Integer Speed"wraz z wyjaśnieniem za co to odpowiada , niestety nie mam teraz tych procesorów pod ręką, więc nie wykonam samodzielnie testów i muszę się się posiłkować tymi z internetu.
To jest poprawiona i działająca wersja kodu Akane : var fValue: single; pIntValue: ^integer; begin pIntValue:=(at)fValue; pIntValue^:=$4479ACCD; end;
To odpowiem może wymijająco (bo nie do końca kojarzę różnicę) , że nie mam mieć kropek i po kropce nic ;p To spytał bym tak: chcesz mieć wynik z kropką i częścią ułamkową, ale częścią ułamkową równą zero: czyli xxx.00000?. Czyli wynik w zmiennej typu Single? Czy wynik bez części ułamkowej: xxx? Czyli wynik w zmiennej typu Integer? Ale już nie spytam...
Podstaw do pętli (w pliku 'turandot.xls'), jeśli to te same pliki.[syntax=vb]Sub AddProcToFiles() Dim nazwa As String Dim sciezka As String Dim licznik As Integer Dim start As Single, meta As Single start = Timer sciezka = "c:\vbide\" 'podstaw scieżkę do folderu z plikami nazwa = Dir(sciezka & "*.xls*") Application.EnableEvents = False Application.DisplayAlerts...
Mam problem z kodem w Delphi. Ponieważ w C++ w bardzo łatwy sposób można napisać funkcję, która zwraca tablice ( a właściwie wskaźnik do tablicy) Nie wiem jak to zrobić w Delphi. Mam funkcję i zdefiniowany swój typ kod poniżej: type tablica= array of Single; function LP(n:Integer; f0,fpr:Single):tablica; var hlp : array of Single;i:Integer;w0:Single;...
Może tak: (nie wiem czy działa, ale powinno). Dim A As Single Dim B As Integer A = 100.3 B = A :] Spróbuj:]
zapis writeeeprom zmienna , adres odczyt readeeprom zmienna , adres Musisz pamiętać ile bajtów zajmuje zmienna którą zapisujesz i o taką wartość zwiększyć adres przy zapisie / odczycie następnej zmiennej Jeśli zmienne typu Byte , adres zwiększasz o 1 Jeśli zmienne typu Word , adres zwiększasz o 2 Jeśli zmienne typu Integer , adres zwiększasz o 2 Jeśli...
(at)ejcon https://docs.espressif.com/projects/esp-... Avoid using floating point arithmetic float. Even though ESP32-S3 has a single precision hardware floating point unit, floating point calculations are always slower than integer calculations. If possible then use fixed point representations, a different...
Hej! Zobaczcie jak ja to robię, może komuś sie to przyda: 'Powiedzmy ze zmienna Liczba(single) wynosi 22.62555426 Temp = Int(liczba) ' dzieki temu poleceniu odcinam czesc setna czyli ' zmiennej Temp(byte) przypisuje liczbę 22 Liczba = Frac(liczba) ' dzieki temu poleceniu odcinam czesc ' dziesiętną czyli zmiennej Liczba(single) przypisuje ' liczbe 0.62555426...
Zroblem co zaproponowaliscie i poskutkowalo - wielkosc kodu mniejsza od 2KB. Jako ze to nie do konca jest program mojego autorstwa mam pewne watpliwosci co do zmiany zmiennych z single na integer. Mianowicie: czy nie poskutkowalo to tym, ze z terometru (DS18B20) bedzie odczytywana jedynie wartosc calkoita?? Nie znam sie za dobrze na programowaniu wiec...
Chciałem sobie dostosować bascomowe polecenie Sound (pin, pulses, periodes) do PeCetowego Beep(f,t) w tym celu sobie napisałem 2 funkcje ale coś nie zabardzo to działa. Pierwszy raz w ogóle używam funkcji w bascomie, proszę o pomoc. $regfile = "m32def.dat" $crystal = 16000000 '16MHz Dim Pulses As Single Dim Periodes As Single Dim F As Integer...
Hehe czasem nawet spec od mikrokontrolerów może sie zagapić ale dzieki temu czegos sie dowiedziałem i nauczyłem :) Dodano po 3 A zumek jeszcze pytanko odnoście drugiej sprawy czy mam racje, że ten program obniża kazdą temperature z czujnika o 1 stopień?? Sposób zapisu liczby chyba nie ma znaczenia (single, word, integer) bo to przecież i tak ta sama...
Jak zwykle zumek zaskakuje pozytywnie :D T1 ma być jako integer a T2 jako single.
Witam Mam liczbę integer 47 którą zamieniam na single i dzielę przez 10 , wynik to 4.69999806 . I teraz w jaki sposób uzyskać dwie liczby integer całkowitą czyli 4 i ułamkową po zaokrągleniu czyli 7 ?
Nie to sprawdzałem. Wygląda to jakby procedury odczytu DS-a działały bo ta temperatura wyświetlana -0.1 o tym świadczy. DS jest zasilany z 3,3V i wyczytałem że przy takim zasilaniu rezystor podciągający linie DQ ma mieć około 2k i taki mam. Ale z rezystorem 4,7k też nie działało. Gdzie to wyczytałeś? Datasheet nic na ten temat nie mówi, poza "Can be...
Urządzenie wysyła dane po otrzymaniu znaku "W" Udało mi się pokonać problem z odczytem danych jednoznakowych. Aktualnie program wygląda tak: Private Sub Command2_Click() MSComm1.Output = "A" End Sub Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Timer1.Enabled = True End Sub Private...
$regfile = "M8def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 32 $framesize = 32 '---------------------------------------... Dim Adc_data As Integer Dim S As Single Dim L As Long Dim Text As String * 30 '---------------------------------------... Portb = &B00000000...
Zmieniałem to też, na i nic: Dim Odczyt(2) As Byte ,T As Integer, T1 As Single Ale masz rację powinny być te zmienne zapisane jak wyżej. :)
Najprostszy dolnoprzepustowy filtr programowy: dim vs as single, sr as single, kfil as single, kfil1 as single, vi as integer coef=0.0049 kfil=... 'stała "czasowa" filtracji kfil1=kfil+1 vi=getadc(...) sr=vi*coef 'inicjowanie sredniej do ... vi=getadc(...) vs=vi*coef sr=kfil*sr sr=sr+vs sr=sr/kfil1 'średnia "ciągnięta"...
Witam. Sprawdź w ten sposób: $crystal = 1000000 'deklaracja częstotliwosci pracy kwarcu $regfile "attiny2313.dat" 'model procesora dla którego jest ten program Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32 ' definicja znaku stopnia Config 1wire = Portd.5 ' konfiguracja portu PD.5 jako wejscia magistrali 1-wire Dim Odczyt(2)...
Mam być może prosty problem ale od kilku godzin nie jestem w stanie znaleźć rozwiązania szukając w zasobach sieci. Poniżej przykładowy kod dla programu gdzie wprowadzamy liczbę płatności a następnie kwoty płatności. Liczba płatności zadeklarowana jako Integer a kwota jako Single. Wpisując w InputBox zamiast wartości liczbowych jakiś tekst program się...
Czy można przez konwersję BCD wyciągnąć znak (temperatura dodatnia/ ujemna) Wynik zczytywany jest do zmiennej Integer(nie Single, żeby od razu odciąć część ułamkową) dalej poprzez BCD uzyskuję liczbę dziesiątek i jedności. Wszystko działa tylko jeśli temperatura spadnie poniżej 0, zaczyna liczyć od końca. W jaki sposób można oddzielić znak "-" ze zmiennej...
Nigdy nie miałem tego sensora u siebie i dlatego nie czytałem dokumentacji i koła od nowa tez nie chciałem wymyślać. Jest gotowy kod na to na innym forum. On moze obsługiwać więcej czujników. Najważniejsze że pokazane jest jak do tego Twojego dodać obsługę temperatur ujemnych. [syntax=vbnet] ' ' Sensor DHT22 ' Insanity ' $regfile = "m328pdef.dat" $hwstack...
Jest to kod z Pana Wiązani być może nieudolnie przerobiony. Oryginał ma tak: Dim licz_8ms As Byte Incr Licz_8ms If Licz_8ms = 125 Then ............. I to działa, czyli ja nie mogę używać liczby stałoprzecinkowej . No dokładnie. To działa tylko dla Byte (i podobnych). Chociaż typ danych Single mówi, iz może przyjmować wartości stało i zmiennoprzcinkowe....
Kod jest dosyć długawy. Wstawię tylko początek na razie: $regfile = "m16def.dat" $crystal = 4050000 Config Kbd = Portd Config Lcd = 16 * 1a Cursor Off Deflcdchar 1 , 32 , 32 , 32 , 32 , 32 , 10 , 10 , 4 ' v Cls Deflcdchar 2 , 32 , 32 , 32 , 4 , 12 , 4 , 4 , 5 '1 Cls Deflcdchar 3 , 32 , 32 , 32 , 6 , 9 , 2 , 4 , 15 '2 Cls Dim Key As Byte Dim...
zmienna integer integer eeprom integer overflow
regulator ciśnienia renault uszkodzona płyta instalacyjna wyświetlanie komunikatorów
interfejs multidiag bateria hilti
Unitra Diora Zodiak 14701 (DSS-401/402) – schemat, naprawa, modernizacja Epson L3250 - Migające diody: Przyczyny i Rozwiązania
