Zaslání 4hodnot A,B,C,D přes RS232 a příjemdo Atmega8 bascom

[AB]

Kupodivu to funguje, i když ty krkolomé převody jsou na první pohled podezřelé.
Ale co když chci poslat číslo 12?

Pro komunikaci s klávesnicí se většinou používá toto:

Kód: Vybrat vše

Dim Rx_int As Integer

   Do
      Input "Zadej číslo[Enter] : " , Rx_int       'ulož do Rx_int
      Print "Stiskl jsi  ";
      Print Rx_int                      ' 4
      Rx_int = Rx_int * Rx_int          ' Provedu nějaký výpočet 4 * 4
      Print Rx_int                      ' vytisknu výpočet 16
   Loop

End

[michalino]

AB

to si pište, že to funguje, v dobrém slova smyslu pomaličku se do toho dostávám.....
mám radost i díky Vám...

Někde něko psal, už nevím kdo a kde, že když vytisknu printem něco na terminál, že už to z toho terminálu nedostanu....pár nocí učení a čtení o AVR a je to tadyyyyyyyyy, dostanu to z terminálu......

ten příklad co píšete....
ano , to máte pravdu, klasicky to provést, jen na druhou stranu, kdo mi tam zmáčkně ten enter, když první MEGA vyšle číslo a druhá ho má úplně samostatně přijmout.... dá se nějak nahradit lidský stisk enteru v tomto případě ?
Pokud ano, pak je to vyřešeno, pokud ne...pak musím jít cestou uvedeného příkladu...jak prosím se to stisknutí enteru dá obejít?


děkuji....

[Návštěvník]

Já se taky umím podrbat levou nohou za pravým uchem, ale jaký to má smysl, když se tam můžu podrbat pravou rukou

[michalino]

No přesně na to se ptám anonyme
Mne už ta levá noha bolí...a jde to nějak prosím vyřešit, rozumně?

[Návštěvník]

S Bascomem ti neporadím, ale to už víš.

[michalino]

bascom, bascom...jo,jo,anonyme...jdu koumat,díky

[Návštěvník]

Prostě ta data vezmi jak jsou uložená v proměnných v paměti a po bytech je přenes na druhou stranu a tam je zase stejně do stejných proměnných v paměti ulož. Jenže to bys musel vědět, jak jsou ty proměnné uložené v paměti a to ty jako pojídač koláčků netušíš, ty vlastně ani nejsi pojídač koláčků, když programuješ v bascomu.

[AB]

kdo mi tam zmáčkně ten enter,

Příkaz Print sám vyšle automaticky nakonec znaky CR LF (to je ten Enter).
Podívej se na help Config Input.

Kód: Vybrat vše

Config Input = Crlf , Echo = Noecho
Dim Cislo1 As Word
Dim Cislo2 As Word
Dim Cislo3 As Word

   Do                                   'procesor 1
      Print Cislo1 ; Cislo2 ; Cislo3
      Wait 1
   Loop


   Do                                   'procesor 2
      If Ischarwaiting() = 1 Then
         Input Cislo1 , Cislo2 , Cislo3
      End If
   Loop
End

[Návštěvník]

AB,

děkuji Vám za odpověď a pomoc. Jako vždy smekám klobouk a mlčím. Funkce config input jsem si nevšiml, zkusím ji prozkoumat a trochu pobádat,dám vědět, jak to dopadlo.

Děkuji Vám moc za Váš čas AB!

[nekmil]

anonym napsal: "když programuješ v bascomu"
A myslíš, že s Pascalem či Céčkem by to vyhrál?
Nebo nedejbože s assemblerem?

[Návštěvník]

anonym napsal: "když programuješ v bascomu"
A myslíš, že s Pascalem či Céčkem by to vyhrál?
Nebo nedejbože s assemblerem?

Při jeho současných znalostech je to jedno. A pojídači koláčků programují v Pascalu, opravdoví programátoři používají Fortran (ti lepší assembler)

[AB]

Zajímalo by mne, jaký praktický přínos v diskuzi
má stále se opakující sdělení tohoto typu:

"Já sice o Bascomu nevím nic, ale vím, že kdo nepíše v tom programu jako já, je úplný ignorant."

[Návštěvník]

Zajímalo by mne, jaký praktický přínos v diskuzi
má stále se opakující sdělení tohoto typu:

"Já sice o Bascomu nevím nic, ale vím, že kdo nepíše v tom programu jako já, je úplný ignorant."

A kde to vidíš?