امتیاز موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
مشکل در برنامه نویسی بسکام
#1
سلام من تازه شروع به یاد گیری میکرو کردم، دارم رو یه برنامه کار میکنم که میخوام به تعداد nتا ورودی بگیره بعد بیاد با توجه به تعداد ورودیهای دریافتی عدد اول دریافتی رو در 10 به توان n ضرب کنه و عدد دوم دریافتی رو  در 10 به توان n-1 ضرب کنه الی آخر و در نهایت همه این عداد با هم جمع شه.
من تقریبا همه برنامه رو نوشتم فقط تو قسمت ضرب کردن مشکل دارم و هر نوع متغیری انتخاب میکنم باز ارورSource variable does not match the target variable رو میده.
X = 0
For I = 0 To N
J = Peek(i
L = J *(10 ^(n -i))
X = L + X
 Next
این هم اون تیکه برنامه است، میخوام این ارور رفع بشه تا بتونم تو پروتئوس شبیه سازی کنم و بقیه ایرادای برنامه رو رفع کنم.
ممنون میشم اگه کسی منو راهنمایی کنه.

 
پاسخ
#2
من فکر میکنم مشکل رو فهمیده باشم من داشتم مستقیم تو رجیسترهای cpu میریختم(با دستور poke و peek) اعداد رو به همین دلیل برنامه خطا میداد، دارم روش کار میکنم تا اصلاح کنم.
ممنون میشم باز منو راهنمایی کنید.
 
پاسخ
#3

مشکل دستور من:

$regfile = "m16def.dat"
$crystal = 5000000
Config Pina.1 = Input
Config Pina.2 = Input
Config Portc = Output
Set Porta.1
Set Porta.2
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.7 , Db5 = Porta.4 , Db6 = Porta.6 , Db7 = Porta.5 , E = Porta.3 , Rs = Portb.3
Dim B As Bit
Cls
Locate 1 , 5
Lcd "start"


Waitms 300
Do
If Pina.1 = 0 And Porta.2 = 0 Then
Set Portc.1
Reset Portc.2
Reset Portc.3
Cls
Lcd "finder"


Elseif Pina.1 = 1 And Pina.2 = 0 Then
Set Portc.1
Reset Portc.2
Set Portc.3
Cls
Lcd "ran0"


Elseif Pina.1 = 1 And Pina.2 = 1 Then
Set Portc.1
Reset Portc.2
Set Portc.3
Cls
Lcd "ran1"

 Else
Reset Portc.1
Set Portc.2
Reset Portc.3
Cls
Lcd "abpash"

End If
Loop

End

 
پاسخ
 سپاس شده توسط mo2_star
#4
سلام بعد از شروع حلقه یعنی دستور DO
If Pina.1 = 0 And Porta.2 = 0 Then
هست که فکر کنم باید اینجوری باشه
If Pina.1 = 0 And Pina.2 = 0 Then

موفق باشید 





 

اگه 3 حالتت اولیت بندی نداره برای هر 3 از if استفاده کن بجای else if
پاسخ
#5
یعنی چی ساده تر میشه بگین


 


فایل‌های پیوست تصاویر بندانگشتی
       
پاسخ
#6
استفاده کردم ارور می دهد

 


فایل‌های پیوست تصاویر بندانگشتی
   
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ ها بازدید آخرین ارسال
  مشکل در بلوتوث sim808 محمود خادمی 0 160 7-11-1396، 03:01 عصر
آخرین ارسال: محمود خادمی
  مشکل در کامپایل کردن کدویژن hossein.ka 0 153 8-5-1396، 12:44 صبح
آخرین ارسال: hossein.ka
  مشکل درایور پروگرامر shahabM72 0 212 2-3-1396، 06:27 عصر
آخرین ارسال: shahabM72
  مشکل در شناسایی پرو گرامر shahabM72 0 173 2-3-1396، 11:57 صبح
آخرین ارسال: shahabM72
  مشکل در کد گذاری data برای ارسال بیسیم با پروتکل USART cortex-m3 1 563 10-10-1395، 07:49 عصر
آخرین ارسال: h.kiya
  فارسی نویسی در LCD گرافیکی xubin 0 337 13-10-1394، 12:22 عصر
آخرین ارسال: xubin
Photo مشکل با GLCD KS0108 sinapc 0 334 20-7-1394، 10:39 عصر
آخرین ارسال: sinapc
Question یادگیری برنامه نویسی AVR diegoyasan 2 573 24-6-1394، 01:21 عصر
آخرین ارسال: iman d
  مشکل با اشغال شدن حافظه مگا 128 بیش از 25درصد sajjad.saiedi 0 392 17-6-1394، 08:05 عصر
آخرین ارسال: sajjad.saiedi
  مشکل در ساخت زمان 1ثانیه با تایمر 0 tabasoomtz 2 548 9-4-1394، 03:02 عصر
آخرین ارسال: Last_Days

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان