Pytania, kody i porady dotyczące nie tylko Bascom.
-
grzeniu 73
- Posty: 31
- Rejestracja: 07 lip 2019, 0:32
Post
autor: grzeniu 73 » 05 lip 2024, 17:37
Siema! Krucze kto pomoże.
If Value < 4095 Then Incr Value
' Wysłanie danych do MCP4725
I2cstart
I2cwbyte 196 ' adres ukladu
I2cwbyte &H40 ' ustawienie normalnego trybu
I2cwbyte Low(value)
I2cwbyte High(value)
I2cstop
Print Value
Co ja tu zle robie? Gdy wysyłam jak powyżej co jakieś 200 value napięcie jest 0 i znowu skokowo leci do 5 v i tak cały czas.
Gdy zamiennie LOW z HIGH miejscami to idzie równo do końca ale maksymalne napiecie to 312 mV
-
niveasoft
- Posty: 1228
- Rejestracja: 17 sie 2015, 12:13
-
Kontakt:
Post
autor: niveasoft » 05 lip 2024, 22:43
Muszę zerknac do noty. Tak z wbudowanej ciekawości.
-
grzeniu 73
- Posty: 31
- Rejestracja: 07 lip 2019, 0:32
Post
autor: grzeniu 73 » 05 lip 2024, 22:52
Jutro podepnę pod arduino i sprawdzę z jakimś gotowcem. Ale wydaje mi sie, ze ja źle wysyłam komendy . 0 to 0v i 4095 to około 5v. Tylko te pośrednie nie działają tak jak powinny
-
niveasoft
- Posty: 1228
- Rejestracja: 17 sie 2015, 12:13
-
Kontakt:
Post
autor: niveasoft » 05 lip 2024, 22:57
Ja go używam i działa jak złoto. Nie wiem co by tu mogło nie działać'
-
grzeniu 73
- Posty: 31
- Rejestracja: 07 lip 2019, 0:32
Post
autor: grzeniu 73 » 06 lip 2024, 11:58
Już wiem co nie działa
![Szczęście, dobry humor :)](./images/smilies/icon_e_smile.gif)
. Zle zdefiniowałem High i low byte. Zrobielm BYTE zamiast WORD i caly czas jakies glupoty mi wyliczal.
Dim Value As Word
Dim Highbyte As Word
Dim Lowbyte As Word
Dim Temp As Byte
If Value < 4095 Then Incr Value
Highbyte = Value / 16
Temp = Value And &HF
Lowbyte = Temp * 16
' ' Wysłanie danych do MCP4725
I2cstart
I2cwbyte &HC4 ' adres ukladu
I2cwbyte &H40 ' ustawienie normalnego trybu
I2cwbyte Highbyte
I2cwbyte Lowbyte
I2cstop
Teraz działa tak jak powinno. Zostawię tu , może ktoś będzie szukał, bo nie znalazłem wcześniej niczego w Bascom.
-
niveasoft
- Posty: 1228
- Rejestracja: 17 sie 2015, 12:13
-
Kontakt:
Post
autor: niveasoft » 07 lip 2024, 20:48
Używam tego 14bit MPC4726 i o nim częściowo było tutaj ->
viewtopic.php?f=16&t=64#p289
Faktycznie Bascom wyśle pewnie dwa bajty jak uzyjesz Word, ale ja tam klasycznie Overlay na Word i wysyłam dwa bajty.
'DAC at
'&B11000000 192 (&HC0)
'&B11000010 194 (&HC2)
'&B11000100 196 (&HC4)
'&B11000110 198 (&HC6)
'&B11001000 200 (&HC8)
'&B11001010 202 (&HCA)
'&B11001100 204 (&HCC)
'&B11001110 206 (&HCE)
Dim Zmienna As Word
Dim Dac_bytes(2) As Byte At Zmienna Overlay
Sub Set_dac
I2cstart
If Err = 0 Then
I2cwbyte Dac_address 'DAC I2C Address
If Err = 0 Then
I2cwbyte Dac_bytes(2)
I2cwbyte Dac_bytes(1)
End If
End If
I2cstop
End Sub