singel integer

[bascom] Konwersja single na integer w Bascom - utrata części ułamkowej?

Integer to nie jest zmienna tekstowa. Sprawdź w helpie jaki zakres ma ten typ zmiennej.

Atmega8 Bascom: Porównanie Integer i Single w instrukcji if..then

No bo zmiennej I2_single przypisujesz wartość całkowitą. I2 jest przecież bez części ułamkowej.

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Operacje na zmiennych różnych typów w Bascom AVR - integer i long

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...

[Bascom] Problem z obsługą przycisków i przerwania.

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

[Bascom] Jak zamienić zmienną word na byte przy zapisie do EEPROM?

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 ?

Sterownik pompki C.O. w BASCOM - histereza nie działa poprawnie

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.

[BASCOM] Prosta komunikacja dwóch mikrokontrolerów

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...

Jak obciąć cyfry do 0.1 w Bascomie bez błędów zmiennoprzecinkowych?

... 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)...

Atmega16, Bascom, pomysł na zapis i wyświetlanie zmiennej.

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...

[Visual Basic/Excel] Visual Basic Excel – jak pomnożyć zakres komórek i zapisać wynik w F20?

[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 =...

BASCOM AVR – jak przekonwertować integer na single do funkcji Fusing()?

A coś więcej??

Excel makro kalkulator - Kod do Enter nie zapisuje danych z textboxa

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,...

Basic - Jak wyświetlić liczbę z 4 miejscami po przecinku?

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...

intel core 2 duo e8400 - Gdzie sprawdzić kiedy procesor miał premierę.

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.

Konwersja HEX 44 79 AC CD z Modbus na float 998.7 w Delphi – jak napisać procedurę?

To jest poprawiona i działająca wersja kodu Akane : var fValue: single; pIntValue: ^integer; begin pIntValue:=(at)fValue; pIntValue^:=$4479ACCD; end;

[BASCOM][ATMEGA32][DS18B20] jak usunąć wynik po przecinku

Zrób obliczenia na Single a przed wysłaniem przepisz je do Integer lub Long i po kłopocie. S = -74.5 'S-Single I = S 'I-Integer lub Long Print I

Excel VBA - Jak przypisać zakres tabeli do funkcji z argumentem rng?

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"))...

[ATMEGA8][BASCOM] - Termostat. Pomiar temperatury w przerwaniu.

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"...

Jak zwrócić i użyć tablicę z funkcji w Delphi?

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;...

Termometr Attiny2313 i DS18B20 - błędne odczyty temperatury, co sprawdzić?

Czyli zmienić typ zmiennej i usunąć fusing, tak? Dodano po 31 Niestety nic to nie dało zmieniłem zmienną T1 z single na integer i long i wtedy termometr pokazuje tylko zero i nie mierzy temperatury, może ktoś ma jakiś pomysł na zaokrąglenie wyniku do liczby całkowitej.

BASCOM jak sie wyswietla zmienną tylko do 1 miejsca po przec

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...

Optymalizacja kodu BASCOM dla termometru 2-liniowego - jak zmniejszyć rozmiar?

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...

Jak napisać makro VBA do optymalizacji wartości X w Excelu?

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...

DS 1820 na ATtiny2313 - odczyt temperatury zawsze 0°C, co robię źle?

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...

[Atmega8][LCD nokia 6100] obrót trójkąta o dowolny kąt

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...

[Bascom] Różnice między funkcjami ROUND i INT w zaokrąglaniu liczb

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...

[Bascom] Jak dostosować Sound do Beep? Problem z funkcjami w Bascomie

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...

[bascom][atmega8] polecenie lookup dziwnie działa ?

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ć...

[VB] SerialPort - sprawdzanie czy coś dotarło. RS232

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...

[Mega8] Atmega8 + DS18b20: Brak odczytu temperatury w Bascomie, co sprawdzić?

Jak zwykle zumek zaskakuje pozytywnie :D T1 ma być jako integer a T2 jako single.

Excel VBA – błędne zliczanie godzin tygodniowo przy określonych warunkach w makrze

W Twojem przykladze Dim pn As Integer wtedy 2+0,5=2 (0,5 jest Single)

[ATTINY2313][BASCOM] Mikroprocesorowy sterownik wentylatora

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. :)

[ATMEGA8] [ATMEGA8][bascom] Niestabilne odczyty amperomierza przy pomiarze spadku na oporniku 0,1Ω

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"...

[90s8515] Jak podzielić integer na część całkowitą i ułamkową w Bascom?

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 ?

VB6 - Jak poprawnie obsłużyć zmienne z portu RS w TextBox?

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...

Jak umieścić tablice struktur w SDRAM na Xplaind z ATxmega128A1?

Musisz jakoś wymusić aby ta sekcja nie znajdowała się w pliku hex (podobnie jak sekcja .bss). Jak to zrobić z linii komend - nie wiem (; W skrypcie linkera dodajesz "(NOLOAD)" zaraz za nazwą sekcji (już wewnątrz SECTIONS { }). Swoją drogą wg dokumentacji ld składnia której powinieneś użyć wygląda trochę inaczej: --section-start=sectionname=org Locate...

Atmega128[Bascom] - Działania na zmiennych single i word.

Napisałem taki prosty program do rysowania na LCD graficznym przy użyciu panelu dotykowego, podłączonego do ADC: Wszystkie operacje matematyczne mogą być przeprowadzane na liczbach typu Single. Można także dokonywać konwersji (niejawnej) z typu Single na Integer lub Word, i odwrotnie: Dim I As Integer, S As Single S = 100.1 'przypisujemy liczbę zmiennoprzecinkową...

[Atmega8][BASCOM] RC5 i temperatura w zegarze cyfrowym

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...

ATmega8 dzielenie zmiennych i wyświetlanie wyniku z przecinkiem na LCD

Andy74 podany przez Ciebie sposób niby działa, ale... po zamianie zmiennej single na int i przypisaniu jej wartości znowu do zmiennej single wyświetlana wartość będzie w postaci np. 5.0. Zeby się pozbyć tego zera po przecinku zmienna do której przypisujemy musi być typu integer , np. Dim A As Single , B As Integer A = 20 / 4 Lcd "n1= " ; A...

FreePascal - Wyświetlanie liczby WORD w oknie MessageBox

Dzięki. Aby to zadziałało musiałem w programie zadeklarować moduł SYSUTILS. Potem pomęczyłem się z dzieleniem (INTEGER musiałem przekształcić na SINGLE i potem zastosowałem ROUND by wyświetlić część całkowitą wyniku z dzielenia).

VBA Excell - wprowadzanie danych o prawidłowym typie

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ę...

EXCEL VBA - Przypisanie MsgBox w BeforeSave do wielu skoroszytów

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...

[Atmega8] [Atmega8][Bascom] ADC pokazuje 1,8V bez podłączenia napięcia, dlaczego?

Problem był z deklaracją zmiennej :) Takie małe przeoczenie :idea: $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0 , Deflcdchar 0 , 21 , 14 , 14 , 31 , 31 , 14 , 14 , 21 ' replace ? with number (0-7) Config...

Analiza napięcia zmienn.w czasie z przetwornika A/C - rozkład na częstotliwości

Przetestuję i zobaczę, ale dla częstotliwości zegara taktującego atmegę równej 16MHz to powinno dość krótko chyba trwać. Zobaczę i zmierzę w praktyce. Szczerze mówiąc nie wiem, ile będzie trwało. Nie wiem też, jak to skompiluje Bascom. Najlepiej sprawdź. Tablicę można zrobić, tylko do tablicy nie mogę wpisywać wartości Single, a zmienna całkowita Integer...

DHT22 - Jak dodać obsługę ujemnych temperatur w programie? BASCOM

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...

Jak zaimplementować funkcje sin i cos w Bascomie dla kalkulatora?

Udało mi się zrobić sinusa. Niestety programik jest troche zagmatwany no ale w miarę działa. Liczy z dość dużą dokładnością jeśli podamy mu kąt w zakresie od -180 do 180: $large 'Sin(x) Dim X As Single Dim Wynik As Single Dim Liczba As Integer Dim Silnia As Long Dim Sin As Single Declare Sub Silnia(liczba As Integer) Declare Sub Sin(x...

[Bascom] tworzenie menu i wyrażenia arytmetyczne (nawiasy)

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...

[AT90S2313] Czy schemat z AT90S2313 i ADS1110 do pomiaru napięcia jest poprawny?

Ty to jednak masz głowę do wyszukiwania błędów! :) Teraz jest wszystko ok! Fejnie by było obciąć kilka zer po przecinku, ale raczej jest to niemołżiwe przy tym procesorze. Dim Napiecie As Single , Pga As Integer Dim Addressw As Byte , Addressr As Byte , Pomiarh As Byte , Pomiarl As Byte Addressr = &B10011011 Pga = 1 'Odczytu Cls Do Gosub Odczyt 'Odczyt...

[Atmega328] Atmega328 i DS18b20 - odczyt temperatury pokazuje -0.1, co sprawdzić w kodzie?

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...

Jak zrobić woltomierz i amperomierz na Atmega8 z wyświetlaczem 16x2?

$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...

Atmega16 - niestabilność przy wewnętrznym oscylatorze RC 4MHz, fusebity

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...

Grzałka sterowana 70 - 150 st. Celsjusza - szukam schematu

Ja to zrobiłem na Attiny13, temperatura jest określona na stałe, taka byłą specyfika mojego projektu laminatora (do folii UV). Kod był zaczerpnięty z sieci, lekko go zmodyfikowałem. Pamiętam, że teoria nie pokrywała się z praktyką i musiałem wpisać temperaturę z przesunięciem o kilka stopni. [syntax=vbnet]' Uk³ad z sam¹ diod¹ dzia³ao...

flaga przerwania wewnetrznego i wyswietlanie co 0,5s

Kombinuje z tym formatem i juz mam prawie rozwiazany problem tylko jak wyswietlić liczbe bez przecinka i zera po nim czyli zamiast 12.0 ma byc 12 ? Ok już po problemie-zacmiło mnie bo późno i piwo czeka:-) wystarczyło odpowiednie zmienne zrobic jako word i integer:-) Oto moja procedurka formatujaca liczby do dowolnej ilosci mejsc po przecinku bez uzycia...

Atmega8 ADC Bascom - Niewłaściwe Odczyty Napięcia przez Dzielnik 47k/100k

Sprawdziłem przed chwilą na mojej ATMEGA32 kod: [syntax=basic4gl]$regfile = "m32def.dat" ' specify the used micro $crystal = 11059200 ' used crystal frequency $baud = 115200 ' use baud rate Dim W As Integer Config Adc = Single , Prescaler = Auto , Reference = Avcc Config Porta = Input Porta = 0 Start Adc Do W = Getadc(0) Waitms 200 Print W Loop End[/syntax]...

[ATmega8] Jak wyświetlić temperaturę 20.5°C na 7-segmentowym LED z ATmega8?

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...

Jak podłączyć więcej czujników DS1820 do 89S8252 i wyświetlić na LCD?

$large Config 1wire = P1.1 Dim Ar1(9) As Byte , Tmp As Byte , A As Byte , T1 As Byte Dim T As Single Dim Licznik As Byte Dim Temperatura(4) As Integer Licznik = 0 Cls Main: Waitms 25 Incr Licznik If Licznik = 1 Then Config 1wire = P1.1 1wreset 1wwrite &HCC 1wwrite &H44 Config 1wire = P1.2 1wreset 1wwrite &HCC 1wwrite &H44 Config 1wire = P1.3 1wreset...

[ATMega16] Jak poprawić kod termostatu na ATMega16 z LCD i LED w BASCOM?

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...

[BASCOM] Pulsein na kilku portach - jak poprawnie odczytać wiele kanałów?

Witam Wziąłem się za mikser kanałów do modelu zdalnie sterowanego. Po długich poszukiwaniach i kilku (no dobra - kilku set ;) ) próbach znalazłem instrukcję pulsein. Wiem, że to softwarowe itd, ale z odbiornika w modelu dobrze odczytuje sygnały PWM. Więc podłączyłem serwo i programowo połączyłem je z tym co pulsein odczytuje. Na serwo wysyłam długość...

Jak wyświetlać wartości jako liczby, a nie daty? Import danych z pliku CSV.

Hmm, ciekawy przypadek. Podziel przez 10 i zwróć dzien + mies jako liczbę... Np [syntax=vbscript]Function DataS(str As String) As Double Dim tbl As Variant, dta As Variant, i As Integer Dim dzien As Integer, mies As Single tbl = Array("sty", "lut", "mar", "kwi", "maj", "cze", "lip", "sie", "wrz", "paź", "lis", "gru") dta = Split(str, ".") dzien = dta(0)...

Timer0 w ATtiny2313 nie zlicza na zboczu opadającym - co poprawić?

Problem z zliczaniem impulsów rozwiązany ale mam nowy problem z wyświetlaniem wyniku zdjęcia w załączniku. $regfile = "2313def.dat" $crystal = 8000000 Config Timer0 = Counter , Edge = Falling Config Timer1 = Timer , Prescale = 256 Load Timer1 , 31256 Config Portd.4 = Input Set Portd.4 Dim Dr As Single Dim Licz As Byte Dim D1 As Single Dim...

[Bascom][Atmega8] Woltomierz/amperomierz-nieprawidłowe odczyty z ADC.

Oto nowy kod: [syntax=basic4gl]$regfile = "m8def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portb.6 , E = Portd.1 , Rs = Portd.0 Config Lcd = 16 * 2 Cls Cursor Off '****CONFIG**** Config Adc = Free , Prescaler = Auto , Reference = Avcc '****KONIEC CONFIG**** '****CONFIG ZMIENNYCH**** Dim Wynik...

4 bajty ---> Single, jak w Bascom'ie polaczyc ??

Witam ! Przesylam uartem sobie zmienna single(4bajty) a w drugim procku ją odbieram, dostaje 4 bajty ktore nie mam pojecia jak wbic do zmiennej single i jak to zrobic najszybciej. Probowalem uzywac SHIFT Zmienna, left ale dziala to tak jak powinno jedynie na zmiennych: byte, integer, word, long. bede wdzieczny za pomoc. Pozdrawiam !

DS1820 Źle pokazuje temperaturę w całym zakresie. Błąd we wsadzie.

po co to: Enable Interrupts Wait 1 Disable Interrupts ?? warto dac tez czas ok 750ms na konwersje dsowi ja polecam cos takiego Dim Odczyt(2) As Byte , T As Integer , Tt As Single , Napis As String * 5 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 750 1wreset 1wwrite &HCC 1wwrite &HBE Odczyt(1) = 1wread(2) T = Odczyt(2) Shift T , Left , 8 Tt = T + Odczyt(1)...

[Bascom] Błąd w rysowaniu linii pionowych na wyświetlaczu Siemens S65 w Bascom

Witam. Mam program do obsługi wyświetlacza z siemensa S65 na sterowniku LS020... ściągnięty ze [url=http://evertdekker.com/?p=304]stron... Program działa poprawnie poza rysowaniem linii w pionie. Zauważyłem to już dawno przy okazji uruchamiania innego programu na inny wyświetlacz oczywiście program z jego strony. Pisałem nawet do autora ale bez odzewu....

Jak odczytać temperaturę z DS18B20 na ATmega16 w Bascom?

spróbuj tego: Temp: Deflcdchar 1 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32 Dim H As String * 5 Dim Odczyt As Integer Dim T As Single 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 250 Waitms 250 1wreset 1wwrite &HCC 1wwrite &HBE Odczyt = 1wread(2) T = Odczyt - 16 T = T * 10 T = T \ 16 T = T \ 10 Locate 1 , 1 H = Fusing(t , "#.#") Lcd H ; Chr(1) ; "C" Return

Atmega32 - Znikająca dolna linia na wyświetlaczu 2x16 po 2-3 dniach pracy

Witam Napisałem drobny program do sterowania pompką ciepłej wody. Program działa poprawnie ale po 2-3 dniach mam problem z wyświetlaczem - znika mi dolna linia, prośba o informację czy ktoś spotkał się z podobnym problemem. Dodam tylko tyle że reszta działa poprawnie. Kod programu poniżej http://obrazki.elektroda.pl/2312168600_1... [syntax=basic4gl]...

Jak wyświetlić wynik przerwań timer1 na LED 7-segmentowym z Atmega8?

Własnie poskładałem wszystko i działa : serdeczne dzieki za pomoc 'woltomierz na 2 led 0-2,5v wsk 0..99 102 $regfile = "m8def.dat" $crystal = 8000000 Config Portd = Output Config Portc = Output Portb = &B00000000 Portc = &B00000000 Dim , X As Integer Config Adc = Single , Prescaler = Auto , Reference = Internal Do Start Adc 'uruchomienie pomiaru...

Dlaczego błąd OUT OF INTERNAL MEMORY w BASCOM 51 na AT89C51RD2?

Mam problem. Wydaje mi się że PRAWIE wiem o co chodzi, ale PRAWIE robi wielką różnicę:) Kompiluję Program i wyskakuje mi błąd OUT OFF INTERNAL MEMORY jeśli dobrze myślę to oznacza to poza zakresem wewnętrznej pamięci RAM. I w tym sęk. Jeśli dobrze kombinuję to ram powinien być zajmowany tylko przez zmienne??? A jeśli tak, to dla czego przy ilości zmiennych...

każda marka i model - Jak sprawdzić na jakim biegu jest samochód?

Musisz przeciąć na płytce ścieżki łączące ELM z układem UART/USB. Następnie w linie RX i TX musisz się wlutować mikrokontrolerem i możesz już bezpośrednio odpytywać ELM kodami sterującymi. Masz poniżej wstawkę z bascoma, której z 10 lat temu używałem ;) [syntax=vbnet] Dim Templ As Byte Dim Tempm As Byte Dim Temp As Integer Dim Stemp As Single Dim Dane...

Ładowanie programu do AT89C2051 i EEPROM 4KB - jak to zrobić?

z tymi procedurami w bascomie to bym sie zastanowił. bascom bardzo rozwlekle pisze odwołanie do porcedur. raczej trzeba by sie pozbyć zmiennych single i najlepiej zrobić 2 zmienne byte ewentualnie integer, longi też sie mulą. napewno zmień te długie ify bo to ci żre tyle co niemiara. jak troche pomyślisz to ten kod sie zmiesic 2 kilo i jeszcze będzie...

Jak zmierzyć prędkość auta RC w km/h za pomocą Atmega8 i Bascom?

Witam po długim poszukiwaniu w sieci natknąłem sie na taki układzik do pomiaru prędkości pocisku. Pierwsza myśl była żeby go przerobić do potrzeb modelarskich, przeróbka Hardware nie ma problemu. ale przy programowaniu bym potrzebowałem pomocy. Mam tylko fragment kodu w bascom który powinien mierzyć czas pomiędzy dwoma fototranzystorami na porcie d2...

Mikroprocesorowa wytrawiarka PCB

Naprawdę nie wiem o co się kłócicie? przecież samo aktywowanie wyświetlacza zajmuje już pewien obszar pamięci związany bynajmniej ze sterownikiem wyświetlacza, nie mówiąc o wyświetlanym tekście. Normalnie to ten program nawet w Bascomie nie powinien zająć więcej niż 2kb z napisami... Coś jest na rzeczy. Szkoda że go nie chcesz pokazać. Być może programowe...

Jak dokładnie mierzyć napięcie w Atmega32 z użyciem ADC i Bascom?

Poprawilem wzór, kombinowałem z różnymi ustawieniami i dalej to samo. Zauważyłem coś ciekawego: napięcie zasilania mam 5.18V, napięcie na PCF8583 mam 4.48 (zmniejszone ponieważ puściłem przez diodę). Przylutowałem przewód bezpośrednio z nużki procka do nużki tego PCF i tu ciekawostka. Procek pokazuje napięcie na tej nużce 5.11V ale jak przyłożę końcówkę...

[delphi] Jak w Delphi odczytać plik WAV (PCM) i wyświetlić przebieg fali?

Witam szanowne grono. Mam podobny problem a właściwie brakuje tylko finału, mam odczyt Wav, nagłówek i mimo, że przewertowałem wczoraj do 3 właściwie już rano, mimo że pisze jak wół na stronie: https://ccrma.stanford.edu/courses/422/p... tylko ja tego nie wiedzę. Wynik działania programu: Naglówek fPlikWav.Position:44 fPlikWav.Size:...

Zapis i odczyt typu Long w EEPROM w BASCOM – jak poprawnie to zrobić?

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...

Jak spowolnić pętlę For w VB6 przy wysyłaniu danych na serwer?

Twoja pętla przypisuje kilkukrotnie te same wartości tym samym zmiennym. Dla mnie to nie ma sensu. Zobacz ten przykład działania pętli Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub proba() Dim Tekst As String Dim wartosc As Variant Dim a As Integer Dim startuj As Single, koniec As Single startuj...

atmega16 + 2xDS1820, kłopot z temperaturami ujemnymi.

Witam wszystkich forumowiczow. Mam problem z termometrem dwu punktowym na DS1820. Problem polega na tym ze jesli temp jest dodatnia to wszystko jest ok ale problem mam z ujemnymi. Rozdzielczosc jest do 0.1 stopnia. Jezeli temperatura spadnie ponizej zera to jej wartosc wynosi 0.1 czyli -1 stopien. Wydzielilem z 0.1 jedynke i jest Ok ale jezeli temp...

[BASCOM] Jak zaprogramować licznik obrotów góra/dół na ATTINY2313 w BASCOM?

Witam. Żeby trochę usystematyzować: - posiadam enkoder 100pulsów/obrót - spodziewam się wyniku na wyświetlaczu z rozdzielczością powiedzmy 1/10 obrotu Poczyniłem taki krok, że zmienną Encounter zmieniłem jak Single. Dodatkowo wstawiłem linijkę Encounter=Encounter/100 poza pętlą Do...Loop według sugestii Kolegi. Niestety nadal wyświetlana jest ilość...

[Atmega8] [Atmega8][Bascom] Jak użyć ADC i timer do odliczania czasu?

Witajcie. jestem nowy i nie bardzo wiem jak to zrobic, na wejsciu PINC.0 pojawia sie stan HI wysoki zaczyna sie odliczanie czasu ktore jest ustawiane za pomaca ADC na ktorym jest potenciometr 10 Kohm miedzy Vcc a masa. po uplywie ustawionego czasu na wyjsciu PORT D.6 pojawia sie stan wysoki oto moje wypoziny ktore i tak nie dzialaja. $regfile "m8def.dat"...

Atmega 8 + DS18B20 - brak zmiany wskazań temperatury, program w Bascomie

Witam. Napisałem program w bascomie, zwykły termometr z wyjściem na Mikroprocesor to Atmega8 + lcd + DS18b20. Wskazuje tylko tem:25.5oC ,brak reakcji na tem.Nie wiem ,gdzie zrobiłem błąd. Może jakaś podpowiedż. Poprawiłem SYNTAX - następnym razem proszę robić to prawidłowo: Instrukcja: http://www.elektroda.pl/rtvforum/viewtop...

Termometr jednopunktowy - błąd wyświetlania napisów na LCD

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)...

Bascom, DS18B20 – jak zastąpić waitms 750 obsługą Timer0 przy odczycie temperatury

Witam, pozwoliłem sobie na drobną modyfikacje Twojego kodu. Dobrze się przyglądnij, porównaj działanie w symulatorze a zobaczysz gdzie jest błąd. Powodzenia!!! $regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config...

[Mega32][Bascom] Timer1 a Timer0 - Multiplexowanie i PWM

Witam! Napisałem a właściwie złożyłem sobie taki programik termometru na Wyświetlaczach 7 segmentowych i działa ok (na Timer1). Jednak dodatkowo chciałbym użyć 3 kanałów pwm więc za Multiplexowanie musi odpowiadać Timer0. Próbowałem różne wartości prescale i load i nie chce mi to działać na Timer0. Działający kod na Timer1: $regfile = "m32def.dat"...

[Bascom] Mega16 ADC6 i LCD na porcie A - brak odczytu napięcia

Przerzuciłem LCDka na PORTB i jest ok, zauważyłem też że jak wyprowadzenia podpina od pinu zerowego danego portu to wtedy działa ok. No ale ADC jak nie działał tak nie działa....mam obecnie podłączone to tak http://obrazki.elektroda.pl/4282158500_1... a kod tak: [syntax=basic4gl]$regfile = "m16def.dat" $crystal = 1000000 Config Lcdpin...

[VB] Jedna operacja na wielu elementach tej samej struktury

Witam! Napisałem sobie program do komunikacji ze sterownikiem PLC. Wszystko działa jak należy, tylko nie daje mi spokoju jedna sprawa. Czy istnieje jakiś sposób wykonania tej samej operacji na wielu zmiennych (typu structure)? Chodzi mi mianowicie o to, że zadeklarowałem sobie taką strukturę: [syntax=vb] Structure DI 'Zmienne typu DigitalIn Dim Nazwa...

ATMEGA 8: Jak porównać napięcia na PD6 i PD7 z potencjometrami?

atom1477 Czy to juz wszystko czy sa tutaj jakies bledy myslales o czyms takim $crystal = 8000000 $regfile "m8def.dat" Config Portd.6 = Output Config Portd.7 = Output Config Pinc.0 = Input Config Pinc.1 = Input Dim Adc0 As Integer Dim Adc1 As Integer Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Do Adc0 = Getadc(0)...

Dlaczego DS18B20 pokazuje zaniżoną temperaturę o 4°C? Algorytmy i podłączenie

Dla DS 1820 Dim Temp As Integer Dim Temperatura As Single Dim Wynik(9) As Byte Dim T As Single Dim Tp As Single Temp = Makeint(wynik(1) , Wynik(2)) Temperatura = Temp / 2' Temperatuta - temperatura z dokładnością do 0,5'C T = Wynik(8) - Wynik(7) T = T / Wynik(8) Temperatura = Temperatura - 0.25...

VBA Excel - Jak uniknąć nadpisywania danych przy wgrywaniu makrem?

Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]

Atmega8 i Bascom - błędne odczyty dziesiątek z woltomierza, jak poprawić?

Cursor Off For Z = 1 To 10 P = P + Getadc(3) Next T '----pobieranie P = P / 10 V = P / 204.5 A = Frac(v) V = Int(v) A = A * 100 R = Int(a) + 0 C = V Home Upper Lcd "5v. : V = " Lcd C Lcd "." Lcd R P = P / 10 A = P * 1.955 A = Frac(v) V = Int(v) A = A * 100 R = Int(a) +...

Jak dodać pasek postępu w Excel VBA do wpisywania nazw w komórkach E7:N7?

Witam Chciałbym zapytać jak przerobić poniższy kod, tak aby pasek postępu działał analogicznie do wykonywanej funkcji. Przykładowo w komórkach (w każdym arkuszu) od E7:N7 wpisywanie są nazwy poprzez naciśnięcie przycisku i chodzi o to, aby pasek postępu pokazywał faktyczny stan. Tych nazw jak i arkuszy docelowo jest dużo i na wolniejszym komputerze...

[Bascom] [Bascom][atmega8] Wyświetlacz LCD - powtarzający się tekst temperatury

wITAM. Napisałem program bo pomiaru temp. Problem mam taki, że na wyświetlaczu pojawia się więcej tekstów coś w tej formie: Temp = 21,1C Temp = 21,1C Temp = 21,1C Temp = 21,1C i tak przez cały wyswietlacz i przesuwa się w prawo. kod: $regfile = "m8def.dat" $crystal = 16000000 Config 1wire = Portb.1 'port do którego podpięty jest termetr Config Lcdpin...

[Mega8][Bascom][DS18B20 - Brak pomiaru temperatury powyżej 57st.

Witam, Napisałem prosty program do odczytu temperatury z DS18B20 jak poniżej, jednak odczytuje on wartości temperatury jedynie do około 57st.C. Powyżej tej temperatury same jedynki. Przekopałem dokumentację i jedyne co mi przychodzi do głowy, to alarmy, ale odczyt SCRATCHPAD nie wskazuje na to aby były włączone. Czy ktoś ma jakieś sugestie? [syntax=basic4gl]...

Prostownik do ładowania akumulatorów 12/24V na atmega16

Nie wiem na które pcb patrzysz , to ostatnie do pełnej wersji z pomiarem prądu i napięcia ,patrzę i widzę że jest OK . pin40 i pin39 są podpięte do dzielnika kondensator żeby nie pływał pomiar zbytnio. nie widzę tego o czym piszesz . Wieczorem sprawdzę jeszcze raz i podam zaktualizowane . Ok jest wieczór więc zamieściłem na 2 str. schemat i pcb w eagle...

Atmega8535: Przekłamania odczytu DS18B20 przy użyciu RC5 i PWM - jak to naprawić?

Proszę o wyjaśnienie przyczyny przekłamań odczytu temperatury z czujnika DS18B20, program poniżej. Najczęściej układ "kłamie" że jest 55 lub 127,5 °C Dodam że wykorzystuję odbiornik RC5 i PWM do sterowania podświetleniem LCD. Czy przekłamania mogą się brać z tego że kilka komend korzysta z tych samych timerów lub przerwań timerów? jak to obejść z góry...

Atmega 8 - Bascom, prośba o sprawdzenie składni programu- błędy 25 i 97

Po pierwsze, jest zmienna o nazwie "swr" oraz próba deklaracji podprogramu o tej samej nazwie. Najprościej zmienić nazwę podprogramu na inną. Taki kod mi się skompilował: [syntax=vbnet] '---------------------------------------... ' SWR-Meter DL8UA '---------------------------------------... $regfile = "m8def.dat" $crystal...

VB Excel - Jak wyświetlić etykietę po najechaniu na przycisk bez MsgBox?

Witam. Potrzebuję zrobić coś takiego, by po najechaniu kursorem na przycisk wyświetlił się w jakiejś rameczce jakiś tam tekst (coś w stylu jak po najechaniu kursorem na przycisk „cytuj” tu na forum i żeby ta ramka znikała po odsunięciu kursora z przycisku. Próbowałem wykorzystać zdarzenie MouseMove oraz MsgBox Private Sub CommandButton1_MouseMove(ByVal...

[Attiny2313][Bascom] Nie startuje po odłączeniu zasilania

Witam, Wykonałem płytkę jak w załączniku. Po zaprogramowaniu prostym programem, procesor nie uruchamia się. Po kilkukrotnym resetowaniu procesor wstaje. Czy wykorzystywanie pinów SCK, MISO, MOSI jako wejścia może powodować taką reakcję? Czy konieczne jest wprowadzenie dodatkowych zmian w programie/ fusebits? [syntax=basic4gl] $regfile = "attiny2313.dat"...

Konwersja liczb w AVR. Liczba 2-bajtowa na kod BCD.

a)Do czego są potrzebne liczby w formacie BCD :?: b)Co to za tajemnicza liczba 2-bajtowa , to jest WORD,INTEGER czy może SINGLE :?: c)Nie napisałeś , jak masz podłączone wyświetlacze do procka. d)Nie będzie lepiej "pociąć" liczbę na poszczególne cyfry :?: Przykład dla zmiennej typu WORD Dim X As Word , S As String * 5 , S1 As String * 1 , Y(5)...

[Atmega16] BASCOM szybki obrotomierz motocyklowy na INT0

Mam teraz wrzucony taki programik: [syntax=vb]Config Timer1 = Timer , Prescale = 8 'konfiguracja timera Enable Timer1 Config Int0 = Falling 'konfiguracja int0 On Int0 Przeint0 Enable Int0 Enable Interrupts 'włączenie przerwań Dim Obrmin As Single Dim Obrmin1 As Integer Dim Obrmin2 As String * 6 Dim Wynikczas As Word Cursor Off '-------------------------------PETLA...

Jak zrobić prosty przełącznik RC bez mikroprocesora?

Ok zrobiłem takie coś i jedynie co robi to ściemnia diodę :-( Dane z odbiornika podpięte pod ADC0 w Atmega [syntax=vbnet]$regfile = "m8adef.dat" $crystal = 8000000 'zewn. L:FF, H:D9 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim Pomiar As Integer Spiinit Config Portb.1 = Output 'TX ON, disable CLK Start Adc '=======================================...