PDA

View Full Version : does this work?



igor@24
- 11th June 2005, 19:50
I am a total newbie. I'm 14 yrs old and i like to code (I know Visual Basic and I'm learning C++). I do not have any microcontroller, I just know what's that :)))

But I like to code ...

So, I wonder if this works:
(send message to lcd display):

lcdout "Hello"

And, one more question; here is the code:

'=========================
'=========================
'by Branko Zupan
'=========================

VarB X
VarB Y

Low B1
Low B2

Sound B3, 1000, 300, 1200, 200
Pause 1000
Beep B3


Naprej:
Y = 1

Do

X = 1
Do
Pulsout B1, 180
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 25

X = 1

Do
Pulsout B1, 120
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 25

X = 1

Do
Pulsout B1, 120
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 25

X = 1

Do
Pulsout B1, 180
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 25

Inc Y
Loop until Y = 10

GoTo Naprej

Inter 0

Sound B3, 1000, 200, 1200, 100
Beep B3

Y = 1
Do

X = 1
Do
Pulsout B1, 180
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 15

X = 1
Do
Pulsout B1, 180
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 15

X = 1
Do
Pulsout B1, 120
Pulsout B2, 120
Inc X
Pause 10
Loop until X = 15

X = 1
Do
Pulsout B1, 120
Pulsout B2, 180
Inc X
Pause 10
Loop until X = 15

Inc Y
Loop until Y = 3

EndInter

I want to know what is "pulsout". And one more question :)
Pulsout B1,120
What does this number (120) means? Steps? (this is a code for robot)

Please help me!

Darrel Taylor
- 11th June 2005, 20:32
Hi Igor,

Yes, lcdout "Hello" would work with PBP.

However, the rest of your program appears to be written for PROTON+

A better place to ask your question would be at ...

http://www.picbasic.org/forum/

Best regards,
   Darrel

igor@24
- 11th June 2005, 21:03
Darrel, thank you a lot!
But now I have more questions?
1. What is PROTON+ (programming language?) ?
2. What is this for and how to use it :
Expi+
Expo
LookUp &LookDown
Beep (beep sound?)
(how to use it - i mean to write me something like this: LookDown something something...)
Is this code right:

counter var word
pulse var word

for counter = 1 to 50
gosub walk_left
gosub walk_right
next


Sound 35,120
walk_left:
for pulse = 0 to 10
pulsout 15, 820
pause 20
next
for pulse = 0 to 10
pulsout 14, 600
pause 20
next
Beep 35
return

walk_right:
for pulse = 0 to 10
pulsout 15, 680
pause 20
next
for pulse = 0 to 10
pulsout 14, 900
pause 20
next
return

lcdout "Hello"
lcdout "visit http://www.igorbogetic.co.sr"

Darrel Taylor
- 11th June 2005, 22:34
Yes Proton is a programming language. It is very similar to PicBasic Pro, with some added functionality.

You can find out everything about it at

http://www.picbasic.org/proton_compiler.php

I have no idea what Expi+ and Expo are. But for the rest, download the user guide at the above link.

Darrel

sougata
- 12th June 2005, 07:35
It seems that you are learning VB and C++ and having great fun. You dropped into this forum and it interested you. I will try to explain a little bit on microcontroller (the PIC micro) and what PICBasic or Proton is through a personal email. If you need to have a taste of the same. You will need a few tools to build the electronics and have more fun. I am on very tight schedules but would love to hep you get into microcontrollers.

Regards

Sougata

mister_e
- 12th June 2005, 10:26
Igor,

i wish one day i could go back in time and learn all of what you already and will learn with the age you have. You can't imagine how many future job are waiting for you. In the past, computer language and MicroController was really different than now. I remind really well to save/load my program on/from an audio tape... sorry fellows here if i make you feel older now ;o)

Welcome to the PIC world and good luck!

igor@24
- 12th June 2005, 19:37
Sougata, Mister_e, Thank you!
I want to learn and learn ...
This is the best forum i have ever seen.
I will check my mail now.

igor@24
- 13th June 2005, 16:51
Hi! I have made another programme. Sample files (PBP compiler) helped me doing that.

Code:

char var byte

start: Hserout ["http://www.igorbogetic.co.sr", 13, 10]

slanje: Hserout [char]

lcd: Lcdout $fe, 1
Lcdout "Hi!"
Pause 500

Lcdout $fe, 1
Lcdout "Visit http://www.igorbogetic.co.sr"
Pause 500

LED: High 0
Pause 200

Low 0
Pause 200

SO con 0
B con 5
N2400 con 4

B0 var byte

B0 = 0
loop: Button B,1,10,5,B0,0,notp
Goto lcd
Goto LED
Goto slanje
notp: Serout SO,N2400,[#B0,13,10]
Pause 100
Goto loop
End

Can that work? If there is any error please write!
Thank you on your help.
Igor

mister_e
- 13th June 2005, 19:19
when posting, let us know wich pic you're using, the crystal speed. and then we can give a hand on that.