Fórum témák

» Több friss téma
Fórum » Bascom-AVR
 
Témaindító: puli122, idő: Ápr 11, 2010
Lapozás: OK   17 / 18
(#) wbt válasza zenebolond hozzászólására (») Aug 18, 2022 /
 
Valami rémlik, táblába a színusz, TIMER szimmetrikus PWM-re, a kimenet meg mondjuk IRF2130. Arra kell még figyelni, hogy csökkenő frekvenciánál a feszültséget is csökkenteni kell, olyan 1/x függvényhez hasonlóan. Másik TIMER meg adja a lépés-megszakítást (sebesség), az INT rutin csak a táblaolvasást meg az adat időzítőbe bepakolását csinálja. A többi már főprogram dolog (fault-kezelés, árammérés, tekerenytűk stb.) Persze van olyan AVR, ami H-L kimenetet is tud generálni dead-time-al.
(#) kalmi.kalmi válasza zenebolond hozzászólására (») Aug 19, 2022 /
 
Azért ez elég speciális. Ha ez csak ennyi lenne akkor mit tettek az eon fűnyíró méretű inverter dobozába? Persze hobbizni lehet.
A hozzászólás módosítva: Aug 19, 2022
(#) Kékróka válasza tépapa hozzászólására (») Aug 21, 2022 /
 
Biztos nem lehetetlen, meg támogatja a BASCOM a gépi kódú betéteket is, de inkább barátkoznék az avrstudióval. Sokkal több példát találni C-ben bármire is.
(#) tépapa válasza Kékróka hozzászólására (») Aug 21, 2022 /
 
Ebben biztosan igazad van, de nekem koromnál fogva sincsenek hosszútávú terveim.
Nagy dolgokra már nem nagyon van időm.
(#) Kékróka válasza tépapa hozzászólására (») Aug 21, 2022 /
 
Ha viszonylag gyors megoldást szeretnél, akkor a konkrét feladatot áruld el az ittenieknek, mire akarod használni ?
(#) tépapa válasza Kékróka hozzászólására (») Aug 21, 2022 /
 
Keringető szivattyút szeretnék akkumulátorról hajtani, ha véletlenül áramszünet lenne.
Ha mondjuk éppen megraktam a kazánt és akkor "megy el az áram", az komoly károkat tudna okozni. Ezt szeretném kiküszöbölni.
Szóval, nem kell túl nagy teljesítmény. Meg egy kis "barkácsolgatás" is közben.
(#) Kékróka válasza tépapa hozzászólására (») Aug 21, 2022 / 1
 
frekiváltó 1-ről 3 fázisra + gagyi ups (szünetmentes) 230v 1 fázisú
levadásznám őket másodkézből, és a tartósság kedvéért a kondikat vizsgálnám /cserélném

Amire te készülsz, jóval drágább lenne, és ha nagyon rá is érsz és kitartó vagy.... lesz benne munkaóra
(#) tépapa válasza Kékróka hozzászólására (») Aug 21, 2022 /
 
Húsz éve tanyán lakunk, így vegyes tüzelésű kazán jöhet szóba.
Természetesen van áramfejlesztőnk erre az esetre.
A mai benzinárak mellett olcsóbb volna, ha akkumulátorról menne a keringető. Na meg jól eltelne az idő egy ilyen próbálkozással.
Néha nem árt, ha az ember tornáztatja az agyát egy kicsit.
(#) asch válasza tépapa hozzászólására (») Aug 21, 2022 / 1
 
Régebben elemeztem ezt a problémát, szerintem érdemes 12V DC szivattyúra váltani, és azt már meg lehet hajtani akksiról valami fixen rákötött intelligens töltővel. Ez a legegyszerűbb módja a szünetmentesítésnek, illetve a gyári 230Vos szünetmentes táp.

Egy színuszos invertert nem egyszerű megtervezni és nem a szoftver lesz a legnehezebb része.
A hozzászólás módosítva: Aug 21, 2022
(#) tépapa válasza asch hozzászólására (») Aug 22, 2022 /
 
Valószínűleg ez lesz a megoldás.
Azért még kell valami ürügy, hogy csinálgassak valami elektronikus dolgot.
(#) pont válasza tépapa hozzászólására (») Aug 22, 2022 / 1
 
Mintha itt a fórumon említette valaki, hogy az újabb pl. Grundfos alpha L2 szivattyú, mivel saját pwm vagy frekiváltó szabályzásuk van simán mennek nem szinuszos szünetmentesről is. Nyilván drágábbak, viszont a fogyasztásuk töredéke a pl. UPS ének, szóval hosszú távon vissza hozza az árát.....
A hozzászólás módosítva: Aug 22, 2022
(#) tépapa válasza pont hozzászólására (») Aug 22, 2022 /
 
Köszönöm szépen a tippet.
(#) zenebolond válasza wbt hozzászólására (») Aug 25, 2022 /
 
Egy gond van, én nem tudom ezt átírni. Visszább van a .hex formátum.
(#) wbt hozzászólása Dec 6, 2022 /
 
Sziasztok!
Frekvenciagenerátorhoz Timer1-el állítgatnom kellene az előosztót.
--------------------------------------
(P-frekvencia Hz-ben van és TOGGLE a kimenet, de ez most nem érdekes)
Select Case P_frekvencia
Case Is >= 123:
A = Tccr1b
A = A And &B1111_1000
A = A Or &B0000_0001 'Előosztó=1
P_oszto = 8000000 / P_frekvencia
Case 16 To 122:
A = Tccr1b
A = A And &B1111_1000
A = A Or &B0000_0010 'Előosztó=8
P_oszto = 1000000 / P_frekvencia
Case Is < 16:
A = Tccr1b
A = A And &B1111_1000
A = A Or &B0000_0011 'Előosztó=64
P_oszto = 125000 / P_frekvencia
End Select
Tccr1b = A
Temp_w = Loww(p_oszto) '16bit
Compare1a = Temp_w
Compare1b = Temp_w

Start Timer1
-------------------------------------------------------------------------------------
Hiába írom a TCCR1B regisztert, nem történik semmi
Mit néztem be?
(alsó 3 bit az előosztó)
(#) kalmi.kalmi hozzászólása Máj 13, 2023 /
 
Egy NEO6M-V2 , GPS modult szeretnék csakis idő vételre használni. Tud valaki mintaprogramot adni?
(#) pont válasza kalmi.kalmi hozzászólására (») Máj 13, 2023 /
 
Min szeretnéd kijelezni? Ugyan a modult nem ismerem, de gondolom szabvány MNEA üzeneteket küld. Az alábbi kód, ha 2km-óránál gyorsabban megy akkor a másodpercek helyett a sebességet írja ki, SPI-n de értelem szerűen a felesleges részeket el lehet hagyni.
  1. $regfile = "attiny85.dat"
  2. $crystal = 1000000
  3. $hwstack = 40
  4. $swstack = 16
  5. $framesize = 32
  6.  
  7. Config Spi = Soft , Dout = Portb.0 , Ss = Portb.1 , Clock = Portb.2
  8. Config Portb.4 = Input
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15. Dim W(2) As Byte                                            'Adat alsó és felső byte
  16. Dim T As Byte
  17. Dim Digit(8) As Word
  18.  
  19. Dim S As String * 78
  20. Dim Nmea As String * 5
  21. Dim Ora As String * 2
  22. Dim Perc As String * 2
  23. Dim Mperc As String * 2
  24. Dim Seb As String * 5
  25. Dim Orasz As Byte
  26. Dim Percsz As Byte
  27. Dim Mpercsz As Byte
  28. Dim Sebsz As Single
  29. Dim Sebsz2 As Byte
  30. Dim Tny As Bit
  31.  
  32. Declare Sub Lakas                                           'kiíratás formátuma
  33. Declare Sub Auto
  34.  
  35. Wait 1
  36.  
  37.  
  38. Spiinit
  39.  
  40. W(1) = 12                                                   'Shutdown On
  41. W(2) = 0
  42. Spiout W(1) , 2
  43. W(1) = 9                                                    'digitek B kóddal vagy szegmensenként
  44. W(2) = 255
  45. Spiout W(1) , 2
  46. W(1) = 10                                                   'Fényerő max
  47. W(2) = 15
  48. Spiout W(1) , 2
  49. W(1) = 11                                                   '# Digits 8
  50. W(2) = 7
  51. Spiout W(1) , 2
  52. W(1) = 15                                                   'Test Off
  53. W(2) = 0
  54. Spiout W(1) , 2
  55. W(1) = 12                                                   ' Shutdown Off
  56. W(2) = 1
  57. Spiout W(1) , 2
  58.  
  59.  
  60. For T = 1 To 8                                              ' minden digit sötétítés
  61. W(1) = T
  62. W(2) = 15
  63. Spiout W(1) , 2
  64. Next T
  65.  
  66.  
  67.  
  68. Tny = Pinb.4
  69.  
  70.  
  71.  
  72. Do
  73.  
  74. 'Open "comb.3:9600,8,n,1" For Output As #1
  75. Open "comb.4:9600,8,n,1" For Input As #2
  76.  
  77.  
  78.  
  79.  
  80.  
  81. Do
  82.  
  83. Kezd:
  84.  
  85. Loop Until Inkey(#2) = 36
  86.  
  87. Input #2 , S
  88.  
  89. Nmea = Mid(s , 1 , 5)
  90.  
  91.  
  92.  
  93. If Nmea <> "GNRMC" Then
  94. Goto Kezd
  95. End If
  96.  
  97.  
  98. Ora = Mid(s , 7 , 2)
  99. Perc = Mid(s , 9 , 2)
  100. Mperc = Mid(s , 11 , 2)
  101. Seb = Mid(s , 46 , 5)
  102.  
  103. Orasz = Val(ora)
  104. Orasz = Orasz + 1                                           'idozona
  105. Orasz = Orasz + Tny                                         'teli vagy nyari
  106. If Orasz = 24 Then
  107. Orasz = 0
  108. End If
  109. If Orasz = 25 Then
  110. Orasz = 1
  111. End If
  112. Percsz = Val(perc)
  113. Mpercsz = Val(mperc)
  114.  
  115. Sebsz = Val(seb)
  116. Sebsz = Sebsz * 1.852
  117. Sebsz2 = Sebsz
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125. 'Print #1 , Orasz
  126. 'Print #1 , Percsz
  127. 'Print #1 , Mpercsz
  128. 'Print #1 , Sebsz
  129. If Sebsz2 > 2 Then
  130. Call Auto
  131. End If
  132.  
  133. If Sebsz2 <= 2 Then
  134. Call Lakas
  135. End If
  136.  
  137.  
  138.  
  139.  
  140.  
  141. 'Close #1
  142. Close #2
  143.  
  144. Loop
  145.  
  146. Sub Lakas
  147.  
  148.   Digit(8) = Orasz / 10
  149.   Digit(7) = Orasz Mod 10
  150.   Digit(6) = 15
  151.   Digit(5) = Percsz / 10
  152.   Digit(4) = Percsz Mod 10
  153.   Digit(3) = 15
  154.   Digit(2) = Mpercsz / 10
  155.   Digit(1) = Mpercsz Mod 10
  156.  
  157.  
  158.  
  159.  
  160.   For T = 8 To 1 Step -1
  161.   W(1) = T
  162.   W(2) = Digit(t)
  163.   Spiout W(1) , 2
  164.   Next
  165.  
  166. End Sub
  167.  
  168. Sub Auto
  169.  
  170.   Digit(8) = Orasz / 10
  171.   Digit(7) = Orasz Mod 10
  172.   Digit(6) = Percsz / 10
  173.   Digit(5) = Percsz Mod 10
  174.   Digit(4) = 15
  175.   Digit(3) = Sebsz2 / 100
  176.   Digit(2) = Sebsz2 Mod 100
  177.   Digit(2) = Digit(2) / 10
  178.   Digit(1) = Sebsz2 Mod 10
  179.  
  180.  
  181.  
  182.  
  183.   For T = 8 To 1 Step -1
  184.   W(1) = T
  185.   W(2) = Digit(t)
  186.   Spiout W(1) , 2
  187.   Next
  188.  
  189. End Sub
  190.  
  191. End
(#) kalmi.kalmi válasza pont hozzászólására (») Máj 13, 2023 /
 
Szia ! Csak az időt szeretném. Dátumot is vételez a modul ?
A hozzászólás módosítva: Máj 13, 2023
(#) kalmi.kalmi válasza pont hozzászólására (») Máj 15, 2023 /
 
Szerintem ez Neo-6m gps modulhoz nem jó.
(#) pont válasza kalmi.kalmi hozzászólására (») Máj 15, 2023 /
 
Mint írtam nem ismerem a modult, de egy gyors keresés után ott van az rs232 kommunikáció. Szerinted miért nem jó?
(#) kalmi.kalmi válasza pont hozzászólására (») Máj 16, 2023 /
 
Ez elkerülte a figyelmem...
(#) pont válasza kalmi.kalmi hozzászólására (») Máj 16, 2023 /
 
Természetesen ki kell ollózni azt ami neked kell, de nem árulod el, mi lesz ez, min szeretnéd kijelezni, így konkrétabban nem tudok segíteni. Ez ebben az órában, több példányban megépített, évek óta üzemelő program. Bővebben: Link
(#) kalmi.kalmi válasza pont hozzászólására (») Máj 16, 2023 /
 
Szia ! Csak az óra adatai kellenek. Esetleg még a dátum. Egy órát szeretnék építeni amiben egy ds1307 ketyeg és néha gps-el szinkronoz.
(#) kalmi.kalmi válasza pont hozzászólására (») Máj 16, 2023 /
 
Te profi vagy ! A GPS Bascom részt még tanulom.
Az mennyire igaz, hogy a idő adatokat épületen belül is fogja ?
(#) pont válasza kalmi.kalmi hozzászólására (») Máj 16, 2023 /
 
A profik nem Bascom-ban programoznak . A gps órája atomóra pontos, (300 000 év alatt késne 1mp-et, ha nem korrigálnák, de folyamatosan korrigálják.)szóval az mellet minden más felesleges. Biztos van olyan épület ami leárnyékolja, de mivel az órához "csak" 4 holdat kell valamilyen mértékben fognia, annyit nem nehéz összeszedni. Nekem a lakásban is van. Ez soros porti kommunikáció, magyarul UART. Először a modulodat kösd össze a számítógépeddel, és egy terminál programmal (pl. Realterm) nézd meg mit küld. Mert ugye abból a szövegből kell kiszedni a karaktereket, A NMEA üzenetek kötött formátumuak, tehát pl. a perc az mindig ugyan ott van a karakterláncban. Utána számmá kell alakítani, mert egy kicsit számolni is kell vele, az időzóna miatt, sztán ki lehet valamin jelezni. A programban ha a ' jeleket kiszeded akkor soros porton küldi vissza, akár pc-re, mert én azon teszteltem.
(#) TÉ288 hozzászólása Márc 31, 2024 /
 
Visual Basic -ben és Bascom -ban szeretnék valamit elkövetni.
Hogyan tudnám ugyanezt USB porton keresztül megoldani?
Visual Basic -ből szeretnék az AVR -nek feladatokat adni, onnan meg eredményeket visszakapni.
Pillanatnyilag a PC és az AVR közötti kommunikáció megoldása a cél.
A hozzászólás módosítva: Márc 31, 2024
(#) Kékróka válasza TÉ288 hozzászólására (») Márc 31, 2024 /
 
A soros port elérése Basic-ben, jópár évvel ezelőtt nekem is fejtörést okozott PC oldalról. (hozzá kell tennem full amatőrként) Nem lehetetlen de... én elengedtem. QBASIC még simán elérte(és elfut még a ), VB meg az Excel-be ágyazott Basic nekem horror volt. A Bascom és a VB nyelvezete nem is hasonlít egymásra.

A megoldás nálam a Processing volt. Ezzel még Androidra is sikerült primitív progit írni. Biztos van más út is.

Másrészt feltételezem nem az USB-t akarod nyektetni H.I.D.-módban hanem valami USB/serial átalakítót használnál.

Mi is lenne a célé pontosabban ? Adatgyűjtés vagy csak pc-ről kapcsolgatni ?
(#) TÉ288 válasza Kékróka hozzászólására (») Márc 31, 2024 /
 
Hogy mit és hogyan akarom, azt még nem tudom.
A VB 6 -al elboldogulok.
A VB.NET -el nem annyira.
A Bascom se az erős oldalam.
Hetven elmúltam, így nagy dolgokba már nem fogok.
Csak időtöltés.
(#) TÉ288 válasza Kékróka hozzászólására (») Márc 31, 2024 /
 
Hogy mi lenne a cél?
A PC -ről "kapcsolgatni". Tényleg így lehetne megfogalmazni.
A Processing nevű valamit most töltöm le.
Ahogy látom, 64 bites Windows kéne hozzá. Nekem meg csak 32 bites van fenn.
Ezen még gondolkodnom kell.
(#) Kékróka válasza TÉ288 hozzászólására (») Márc 31, 2024 /
 
Na ha csak ez a gond :
Töltsd le a 32 bitest.32 bites letöltése
(#) pont válasza TÉ288 hozzászólására (») Márc 31, 2024 /
 
A Bascom az elsősorban arra való, hogy egy kontrollert AVR-t, felprogramozzunk. Ismeri a soros porti kommunikációt, tehát, ha bármilyen másik programnyelven készült program, RS 232 szabvány szerinti nyelven kommunikál ezek után a felprogramozott chippel, akkor teszi amit beprogramoztak neki. Elsősorban tesztelés céljából van a Bascomban is soros monitor, a futás közbeni kommunikációra a pc vel......
Következő: »»   17 / 18
Bejelentkezés

Belépés

Hirdetés
XDT.hu
Az oldalon sütiket használunk a helyes működéshez. Bővebb információt az adatvédelmi szabályzatban olvashatsz. Megértettem