سوال در مورد برنامه نویسی avr با بیسیک

[beautifulmind_i]

سلام دوستان
من برای برنامه نویسی avr از نرم افزار bascom و زبان بیسیک استفاده می کنم .
من یک متغیر به نام number از نوع integer دارم و میخوام این متغیر رو به یک متغیر دیگر از نوع string وصل کنم
مثلا :
number = 12
و میخوام روی lcd نشون بده :
i have 12 apple
و 12 رو از روی number بخونه .
لطفا کمکم کنید .

[vahid2010]

پاسخ : سوال در مورد برنامه نویسی avr با بیسیک

Dim Number As Integer
Number = 12
Lcd "i have" ; Number ; "apple"

[nimaahmadi]

پاسخ : سوال در مورد برنامه نویسی avr با بیسیک

سلام دوستان من یه پروژه التراسونیک برداشتم میخوام اگه فاصله ارزیک متر کمتر شد بلنگو یک بوق و اگر بیشتر از یکمتر شد دو بوق بزنه اینم برنامه کاملشاگه میتونید بخش بوقشو کمکم کنید ممنون

$regfile = "m8def.dat"

$crystal = 8000000

'--------------------------------------------

Config Lcd = 16 * 2

Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0

Config Portd.4 = Output

Trigger Alias Portd.4

Trigger = 0

'--------------------------------------------

Config Portd.5 = Input

Config Portd.7 = Output

Led Alias Portd.7

Config Portd.0 = Input

Config Portd.1 = Input

'--------------------------------------------

Dim A As Word

Dim Temp As Single

Dim S As Single

Const K = 0.1725

Temp = 100

Waitms 50

Cursor Off

Cls

Lcd "nima ahmadi33"

Locate 2 , 1

Lcd "electronics"

'--------------------------------------------

Led = 1 : Waitms 400

Led = 0 : Wait 3

'--------------------------------------------

Do

Debounce Pind.0 , 1 , Up , Sub

Debounce Pind.1 , 1 , Down , Sub

Trigger = 1

Waitus 15

Trigger = 0

Waitus 10

Pulsein A , Pind , 5 , 1

S = A * K

S = S * 10

Cls

Locate 1 , 1

Lcd "dis:"

Locate 1 , 5

Lcd Fusing(s , "###.##")

Locate 1 , 11

Lcd "cm"

Debounce Pind.0 , 1 , Up , Sub

Debounce Pind.1 , 1 , Down , Sub

Locate 2 , 1

Lcd "set:"

Locate 2 , 5

Lcd Temp

Locate 2 , 11

Lcd "cm"

If S < Temp Then

Sound , Portb.0 , 200 , 500

Led = 1

Waitms 20

Led = 0

End If

Waitms 100

Loop

End

Up:

Temp = Temp + 1

If Temp >= 550 Then Temp = 0

Return

Down:

Temp = Temp - 1

If Temp <= 0 Then Temp = 0

Return