
Program pro medomet?
Kedze moj otec tiez vceralci a mam uz par hodin nabehanych z medometom, tak ja mam taky nazor, ze ajtak najlepsi je rucny pohon
Samozrejme pri rozumnom pocte ramikov. Dost casto sa stava, ze ramiky maju diametralne odlisnu hmotnost a neviem si predstavit to vytacat elektronicky, na zaciatku to strasne hadze. A uz pri malom prekroceni medznych otacok sa plasty vylamuju. tot moj nazor.

Ručne, ak má kto pomáhať. Zlepšovák - keď ručne tak na zotrvačník. T.j. odmontuje sa kritka vzadu ako končí pri ozubení hriadeli s kľukou. Potom sa kôš roztočí, ako náhle sa prestane kľukou otáčať, ozubenie sa vysunie a kôš sa zotrvačnosťou otáča niekoľko minút. Ale potom ho treba zabrzdiť napr remeňom. Ja som modernejší používam frekvenčný menič. Dá sa využiť programovací modul. Neskúšal som, ale na 12V by sa asi dal použiť menič z 12V na 230V.
Ale to je asi už prekombinované.
Ozaj, nie ja táto téma trošku o inom, ako je toto fórum.
WWW.vcely.sk http://jjvcela.sweb.cz/ http://www.vcely.or.cz/konference.pl?type=brief
Príjemný deň Miro

Ozaj, nie ja táto téma trošku o inom, ako je toto fórum.

WWW.vcely.sk http://jjvcela.sweb.cz/ http://www.vcely.or.cz/konference.pl?type=brief
Príjemný deň Miro
Pokus vše vysvětlit.Celé zařízení na automatické řízení medomedu včetně medomedu je již funkční a pracuje dobře,ale řídí jeho kroky krokové relé a to je to co mi vadí a protože elektronika a včelaření jsou moje koníčky chtěl bych to udělat nové řízené PICproc.Programoání se teprve učím a neumím to,také se teprve učím prcovat s NB.Pokud má někdo zájem o tuto problematiku budu rád za každou radu.Celý proces vytáčení i medomed do detailu vysvětlým.
Není problém to málo co umím já, je s procesory PICAXE, a nechá se toho s nimi udělat většina co potřebuji od modelařiny až po ty včelky.
Jak to mám navržené:
Procesorové řízení na něj je napojen displej pro zobrazení nastavených parametrů a celé to řídí obousměrný regulátor se zatížitelností 18V 60A trvale a ve špičkách až 320A, samožřejně to bude na pevném stanovišti napájeno spínaným zdrojem (jinak baterie) motor je za stěračů včetně sněkové převodovky a pak převod na koš přes řemen.
Tady je kousek kódu pro Picko:
SYMBOL Sec = w1 ; promenna casu
SYMBOL Otacek = w0 ; promenna Otacek
EEPROM 0,( $33 )
EEPROM 1,( $32 )
EEPROM 2,( $28 )
EEPROM 3,( $0C )
EEPROM 4,( $06 )
EEPROM 5,( $01 )
EEPROM 6,(" Otacek")
EEPROM 16,(" Sekund")
EEPROM 26,("Nastav parametry")
EEPROM 66, ("a stiskni start")
FOR b11 = 0 TO 5 ' Inicializace LCD displeje
READ b11,b12
pause 15
GOSUB SendCmdByte
NEXT
b12=1 ' zapis na prvni radek
GOSUB SendCmdByte
FOR b11 = 26 TO 53 ` zapise prvni hlasku
READ b11,b12
GOSUB SendDataByte
NEXT
b12 = 192 ` zapis na druhy radek
GOSUB SendCmdByte
FOR b11 = 66 TO 83 ` zapise druhou hlasku
READ b11,b12
GOSUB SendDataByte
NEXT
WAIT 1 ` pocka par vterin
FOR b11 = 5 to 5 ` provede reset displeje
READ b11,b12
GOSUB SendCmdByte
next
Main:
if pin0<>0 then telo
pause 100 ` pockej 100uS
gosub GetValues ` nacti nastavene hodnoty
b12 = 2 ` zapis na prvni radek
Gosub SendCmdByte
gosub DisplayOtacek
FOR b11 = 6 TO 12 ' napis "Otacek"
READ b11,b12
GOSUB SendDataByte
NEXT
b12 = 193 ` zapis na druhy radek
Gosub SendCmdByte
gosub DisplaySec
FOR b11 = 16 TO 22 ' napis "Sekund"
READ b11,b12
GOSUB SendDataByte
NEXT
goto main:
SendCmdByte:
b13 = %00000000 ; odesle prikazovy parametr
SendDataByte:
pins = b12 & 240 | b13 ; Put MSB out first %11110000
PULSOUT 1,1 ; preruseni na pinu1 10uS
pins = b12 * 16 | b13 ; Put LSB out second %00010000
PULSOUT 1,1 ; preruseni na pinu1 10uS
b13 = %00000100 ; Send to Data register next
RETURN
GetValues:
readadc 2,w0
w0=w0*20
w0=w0/10
Otacek = w0
readadc 1, w1
w1=w1*71
w1=w1/100
Sec = w1
Return
DisplayOtacek:
Libor
Jak to mám navržené:
Procesorové řízení na něj je napojen displej pro zobrazení nastavených parametrů a celé to řídí obousměrný regulátor se zatížitelností 18V 60A trvale a ve špičkách až 320A, samožřejně to bude na pevném stanovišti napájeno spínaným zdrojem (jinak baterie) motor je za stěračů včetně sněkové převodovky a pak převod na koš přes řemen.
Tady je kousek kódu pro Picko:
SYMBOL Sec = w1 ; promenna casu
SYMBOL Otacek = w0 ; promenna Otacek
EEPROM 0,( $33 )
EEPROM 1,( $32 )
EEPROM 2,( $28 )
EEPROM 3,( $0C )
EEPROM 4,( $06 )
EEPROM 5,( $01 )
EEPROM 6,(" Otacek")
EEPROM 16,(" Sekund")
EEPROM 26,("Nastav parametry")
EEPROM 66, ("a stiskni start")
FOR b11 = 0 TO 5 ' Inicializace LCD displeje
READ b11,b12
pause 15
GOSUB SendCmdByte
NEXT
b12=1 ' zapis na prvni radek
GOSUB SendCmdByte
FOR b11 = 26 TO 53 ` zapise prvni hlasku
READ b11,b12
GOSUB SendDataByte
NEXT
b12 = 192 ` zapis na druhy radek
GOSUB SendCmdByte
FOR b11 = 66 TO 83 ` zapise druhou hlasku
READ b11,b12
GOSUB SendDataByte
NEXT
WAIT 1 ` pocka par vterin
FOR b11 = 5 to 5 ` provede reset displeje
READ b11,b12
GOSUB SendCmdByte
next
Main:
if pin0<>0 then telo
pause 100 ` pockej 100uS
gosub GetValues ` nacti nastavene hodnoty
b12 = 2 ` zapis na prvni radek
Gosub SendCmdByte
gosub DisplayOtacek
FOR b11 = 6 TO 12 ' napis "Otacek"
READ b11,b12
GOSUB SendDataByte
NEXT
b12 = 193 ` zapis na druhy radek
Gosub SendCmdByte
gosub DisplaySec
FOR b11 = 16 TO 22 ' napis "Sekund"
READ b11,b12
GOSUB SendDataByte
NEXT
goto main:
SendCmdByte:
b13 = %00000000 ; odesle prikazovy parametr
SendDataByte:
pins = b12 & 240 | b13 ; Put MSB out first %11110000
PULSOUT 1,1 ; preruseni na pinu1 10uS
pins = b12 * 16 | b13 ; Put LSB out second %00010000
PULSOUT 1,1 ; preruseni na pinu1 10uS
b13 = %00000100 ; Send to Data register next
RETURN
GetValues:
readadc 2,w0
w0=w0*20
w0=w0/10
Otacek = w0
readadc 1, w1
w1=w1*71
w1=w1/100
Sec = w1
Return
DisplayOtacek:
Libor
