marko11 je napisal/a: |
...... tako kot je narisal Jaka57, pa glej ga zlomka, stvar NE deluje....... |
Citiram: |
Glede na podatkovni list, pa moraš modul konfigurirati. |
mato1111 je napisal/a: |
Katere parametre je treba nastavit boš sigurno našel kak primer na spletu lahko pa pač prebereš podatkovni list omenjenega modula.
Če se modul nastavlja preko UART (rx tx pinov) ubistvu ne raboš nujno USB konverterja lahko tudi v mikrokontroler na začetek programa vpišeš katere ukaze mora poslati na modul. |
mucek je napisal/a: |
Jakova vezava z 1k8 in 3v3 (pazi, ta je proti masi, da nisi upora med seboj zamenjal!!!) preverjeno deluje. Dejansko hmtrp deluje tudi s 5v nivoji, ceprav naj ne bi ... To, da ob priklopu napajanja obe ledici utripneta, je ok in normalno.
Lp, G |
Koda: |
'/////////////////////// Program za HOPE modul HM-TRP 868 /////////////// '///////////////////////// ODDAJANJE /////////////////////////////////// $regfile = "m128def.dat" $crystal = 1000000 $baud = 9600 $hwstack = 32 $swstack = 10 $framesize = 40 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 Dim Stevec As Byte Dim T As Integer 'Zunanja temp. Do If Stevec = 10 Then Stevec = 0 Rssi_value = &H87 ' vklopi Rssi Waitms 100 Print "Zunanja temp: " ; T Waitms 100 Rssi_value = &H78 ' izklopi Rssi End If Loop End |
Koda: |
'/////////////////////// Program za HOPERF modul HM-TRP 868 /////////////// '///////////////////////// SPREJEMNIK /////////////////////////////////// $regfile = "m16def.dat" $crystal = 1000000 $baud = 9600 $hwstack = 32 $swstack = 10 $framesize = 40 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 Dim T As Integer 'Zunanja temp. Do Rssi_value = &H87 ' vklopi Rssi Waitms 100 T = Inkey() Locate 1 , 1 : Lcd "Zunanja temp: " Locate 1 , 14 : Lcd T Waitms 100 Rssi_value = &H78 ' izklopi Rssi Loop End |
Jaka57 je napisal/a: |
Marko, kje pa pošlješ modulu parametre? |
Koda: |
Printbin Parameter ; Rssi_value |