ezeket a hibaüzeneteket írja ki.pls help mi lehet a baj.
Segítség
Segítség
Hali annyit szeretnék kérdezni hogy nekem Vista Ultimate operációs rendszerem van de nem működik rajta a Bascom 1.11.9.5 nem működik.
ezeket a hibaüzeneteket írja ki.pls help mi lehet a baj.
ezeket a hibaüzeneteket írja ki.pls help mi lehet a baj.
-
szepnorbee
- Bitmanipulátor
- Hozzászólások: 122
- Csatlakozott: 2009. augusztus 31. hétfő, 6:00
-
Sziasztok! Van egy 93C46 típusú EEPROM-om. Nagyon fontos lenne kiolvasni a tratalmát. Nem tudtok egy egyszerű kapcsolást ami könnyen összedobható? Csak egyszer használatos lenne. Köszi!!
-
szepnorbee
- Bitmanipulátor
- Hozzászólások: 122
- Csatlakozott: 2009. augusztus 31. hétfő, 6:00
-
szepnorbee
- Bitmanipulátor
- Hozzászólások: 122
- Csatlakozott: 2009. augusztus 31. hétfő, 6:00
Jól látom, hogy akár a parallel portos STK200 is jó lehet a célra?
Szerk: Tehát nem
A lancos-os SI-Prog áramköri rajzán az a Jumper a táp választásnál, az mind a 3 pint összezárja ha rajta van (külső áramellátás)? Illetve ha nincs akkor mind szabadon van? Nameg jól gondolom, hogy a sima 7805-is jó ha mondjuk 9V-ról táplálom a kört? (úgy meglenne a stabil 5V)
Szerk: Tehát nem
A lancos-os SI-Prog áramköri rajzán az a Jumper a táp választásnál, az mind a 3 pint összezárja ha rajta van (külső áramellátás)? Illetve ha nincs akkor mind szabadon van? Nameg jól gondolom, hogy a sima 7805-is jó ha mondjuk 9V-ról táplálom a kört? (úgy meglenne a stabil 5V)
-
feherbalint
- DrótVégénSzéndarab
- Hozzászólások: 42
- Csatlakozott: 2008. augusztus 29. péntek, 6:00
Funkcióhívás
Sziasztok!
Igazán nem is tudom, hogy melyik témába illik a problémám. Nem tudom, hogy itt a funkcióhívásnál van a baj, vagy máshol.
Ping ultrahang szenzorral, és egy szervóval dolgozok éppen. Írtam hozzá egy programot, ami annyit csinálna, hogy a főprogramból hívunk egy funkcióhívást, ahol megadjuk, hogy a szervó milyen állásában mérjen az ultrahang (ugyanis az ultrahang rá van építve a szervóra), és a visszatérési érték lenne az ultrahang által mért távolság. A függvény 0-val tért vissza folyamatosan, így a végén már annyit akartam, hogy legalább egy adott számmal térjen vissza, és nem ment. Ha a végeredményt a függvényen belül egy globális változóba írom, akkor tökéletes eredményt kapok, de a függvény visszatérési értékének ezt nem tudom egyszerűen beírni.
Valami ötletetek van esetleg?
A kódban nem túl beszédes változók vannak-egyelőre- , de remélem azért olvasható.
Bálint
Igazán nem is tudom, hogy melyik témába illik a problémám. Nem tudom, hogy itt a funkcióhívásnál van a baj, vagy máshol.
Ping ultrahang szenzorral, és egy szervóval dolgozok éppen. Írtam hozzá egy programot, ami annyit csinálna, hogy a főprogramból hívunk egy funkcióhívást, ahol megadjuk, hogy a szervó milyen állásában mérjen az ultrahang (ugyanis az ultrahang rá van építve a szervóra), és a visszatérési érték lenne az ultrahang által mért távolság. A függvény 0-val tért vissza folyamatosan, így a végén már annyit akartam, hogy legalább egy adott számmal térjen vissza, és nem ment. Ha a végeredményt a függvényen belül egy globális változóba írom, akkor tökéletes eredményt kapok, de a függvény visszatérési értékének ezt nem tudom egyszerűen beírni.
Valami ötletetek van esetleg?
Kód: Egész kijelölése
$regfile = "m32def.dat" ' specify the used micro
$crystal = 16000000 ' used crystal frequency
$baud = 38400
Config Portb.0 = Output
Config Portb.1 = Output
Declare Function M(byval Servo As Integer) As Single
Config Timer0 = Timer , Prescale = 1
On Timer0 Megs
Enable Timer0
Start Timer0
Enable Interrupts
Config Timer2 = Timer , Prescale = 1
Enable Interrupts
Enable Timer2
Stop Timer2
On Timer2 Ultrahanginterrupt
Dim Tav As Single
Dim Cnt As Integer
Dim X As Integer
Dim Distance As Single
Dim Timer2tulcsordulas As Integer
Dim Time1 As Single
Dim Time2 As Single
Dim Time3 As Single
Const T = 0.062745098
Const Tim = 29.154
Do
Tav = M(80)
Print Tav
Print Distance
Waitms 1000
Loop
Function M(byval Servo As Integer) As Single
X = Servo
Config Portc.6 = Output
Set Portc.6
Waitus 5
Reset Portc.6
Config Pinc.6 = Input
Pinc.6 = 1
Bitwait Pinc.6 , Set
Timer2 = 0
Start Timer2
Bitwait Pinc.6 , Reset
Stop Timer2
Time1 = Timer2tulcsordulas * 16
Time2 = T * Timer2
Time3 = Time2 + Time1
Time3 = Time3 / 2
Distance = Time3 / Tim
Timer2tulcsordulas = 0
M = 1 'itt lenne az M=distance sor
End Function
Ultrahanginterrupt:
Incr Timer2tulcsordulas
Return
Megs:
Incr Cnt
If Cnt < X Then Set Portb.2 Else Reset Portb.2
If Cnt = 375 Then Cnt = 0
Return
A kódban nem túl beszédes változók vannak-egyelőre- , de remélem azért olvasható.
Bálint
-
feherbalint
- DrótVégénSzéndarab
- Hozzászólások: 42
- Csatlakozott: 2008. augusztus 29. péntek, 6:00
