Kazalo po Svet elektronike forumu Svet elektronike
Revija za prave elektronike
 
AlbumAlbum   Pomoč pogostih vprašanjPomoč pogostih vprašanj   IščiIšči   Seznam članovSeznam članov   Skupine uporabnikovSkupine uporabnikov   Registriraj seRegistriraj se 
 Tvoj profilTvoj profil   Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil   PrijavaPrijava 

HM-TRP modul- program

 
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Programska oprema
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
marko11
Profesionalec


Pridružen/-a: Ned Jan 2004 18:00
Prispevkov: 112
Kraj: Ponikve

PrispevekObjavljeno: Pon Feb 26, 2018 6:18 pm    Naslov sporočila: HM-TRP modul- program Odgovori s citatom

Hi

V SE sem nabavil omenjena modula, ker sem totalni začetnik na temu področju me zanima sledeče:
- ali so moduli že tovarniško sprogramirani ali je potrebno še kaj nastaviti...?
- kako dolga naj bi bila žička za anteno 868MHz in ali je nujno potrebna?
- ali se kaj nastavi, da je sprejemnik oziroma oddajnik?

V uredništvu sem dobil Bascom program za krmiljenje modulov, pa se popolnoma nič ne znajdem, nekaj sem poskušal programirati, pa prosim, če mi kdo pokomentira, pove kaj ni dobro.

V bistvu rabim samo, da mi oddajnik pošlje izmerjeno zunanjo temperaturo (Tz) na sprejemnik in jo izpiše na LCD.

Koda za oddajnik:

Koda:

'///////////////////////// ODDAJANJE ///////////////////////////////////

$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40


Dim Rssi_value As Byte
Dim Parameter As Word

Parameter = &HFAAA

Dim A As Byte
Dim Stevec As Byte
Dim Tz As Integer                                           'Zunanja temp.


Do

   If Stevec = 10 Then
      Stevec = 0

         Rssi_value = &H87                                  ' vklopi Rssi
            Waitms 100
               Print "Zunanja temp: " ; Tz
            Waitms 100
         Rssi_value = &H78                                  ' izklopi Rssi

   End If

Loop
End


Koda za sprejemnik:
Koda:

'/////////////////////// Program za HOPE modul HM-TRP 868 ///////////////

'///////////////////////// SPREJEMNIK ///////////////////////////////////

$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40


Dim Rssi_value As Byte
Dim Parameter As Word

Parameter = &HFAAA

Dim Tz As Integer                                           'Zunanja temp.


Do

   Rssi_value = &H87                                        ' vklopi Rssi
   Waitms 100

   Tz = Inkey()
      Locate 1 , 1 : Lcd "Zunanja temp: "
      Locate 1 , 14 : Lcd Tz
   Waitms 100
   Rssi_value = &H78                                        ' izklopi Rssi

Loop
End


Po spodnji shemi bo priključeno vezje.
In hvala lepa za kakršno koli pomoč
Marko
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Jure
Urednik


Pridružen/-a: Pon Jan 2004 12:51
Prispevkov: 2038
Kraj: Ljubljana

PrispevekObjavljeno: Pet Mar 02, 2018 8:09 am    Naslov sporočila: Odgovori s citatom

Marko,

dolžina antene naj bo lambda/4 kar pomeni približno 8,6 cm. Anteno moraš imeti, sicer ne bo nič. Na ebay-u imaš tudi že ustrezne antene za 868 MHz, najdejo se pa tudi pri nas v AXu.

Kar HM-TRP-ju pošlješ po UART-u na TX priključek, to bo on oddal, sprejemni HM TRP bo pa sprejel.

Program in shema izgledata OK.

Lp
Jure
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
marko11
Profesionalec


Pridružen/-a: Ned Jan 2004 18:00
Prispevkov: 112
Kraj: Ponikve

PrispevekObjavljeno: Ned Mar 04, 2018 6:05 pm    Naslov sporočila: Odgovori s citatom

Hi

Kaj moram še dodati programu, da se ti parametri vpišejo v modul in upam, da so pravilni? Mogoče bi tukaj vskočil Jure.

Hvala za pomoč in Lp, marko


Koda:


Dim Frequency As Double
Dim Data_rate As Word
Dim Bandwidth As Double
Dim Deviation As Word
Dim Out_power As Word
Dim Uart_speed As Word


Dim Parameter As Word
Parameter = &HAAFA

'------------------ Vpis parametrov v HM-TRP iz datasheet stran 4 - 6 --------

Frequency = &HD233BCA100                                    '868000000Hz - operate frequency
Data_rate = &H1E00002580                                    '9600Kbps - UART date rate
Bandwidth = &HB40069                                        '105kHz - receive bandwidth
Deviation = &HA523                                          '35kHz - Module deviation
Out_power = &H9607                                          '+20dBm - Output power
Uart_speed = &HC300002580                                   '9600Kbps  - Modulate data rate

Dim Rssi_value As Byte

Do



Loop
End

Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Jure
Urednik


Pridružen/-a: Pon Jan 2004 12:51
Prispevkov: 2038
Kraj: Ljubljana

PrispevekObjavljeno: Pon Mar 12, 2018 10:57 am    Naslov sporočila: Odgovori s citatom

Marko,

za vpis parametrov v modul potrebuješ Hope program. V Virtualni Trgovini poišči HM-TRP, tam je link do HM TRP navodila, na tem linku se nahaja program za nastavljanje HM-TRP.

Program se poveže preko COM porta - isto, kot terminal na HM-TRP. Edino v datasheet-u preberi, kako mora biti postavljen priključek Config zato, da boš lahko nastavljal parametre modula.

Lp
Jure
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Programska oprema Časovni pas GMT + 1 ura, srednjeevropski - zimski čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
You cannot attach files in this forum
You cannot download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group