کمک در مورد کار با متغیر ها در زبان بیسیک

[blue_pulse]

پاسخ : کمک در مورد کار با متغیر ها در زبان بیسیک

فرض از 5 به 1

dim a as string*17,b as byte,c as byte


for b=4 to 0 step -1
a=lookupstr(b,matn)
c=val(a)
matn:
data: "1","2","3"4","5"

[shs_micro2]

پاسخ : کمک در مورد کار با متغیر ها در زبان بیسیک

فرض از 5 به 1

dim a as string*17,b as byte,c as byte


for b=4 to 0 step -1
a=lookupstr(b,matn)
c=val(a)
matn:
data: "1","2","3"4","5"

خیلی ممنون از پستتون ولی میشه برنامه ای رو که نوشتین یکم باز کنید؟من هنوز یه جورایی تازه کارم.ممنون میشم

[mahdi8866]

پاسخ : کمک در مورد کار با متغیر ها در زبان بیس&#174

سلام دوست عزیز
خیلی سادست
این دستور به معنی استخراج از جدول رشته هست
دستور اصلی
var=lookupstr( value ,labale )l
خب var هکمون متغیری که از نوع استرینگ هست که باید بعد از انتخاب ازون رشته جدولی درش قرار بگیره
labale اسم یا نام برچسب جدول هست
value هم شماره اعداد جدول( عدد 0 اولین مقدار جدول را فراخوانی میکند)
در برنامه زیر
dim var as string*17,value as byte


for value=4 to 0 step -1
var=lookupstr(value,lable)

lable:
data: "5","2","7","3& quot;,"8"
خب در جدول طبق شماره از سمت چپ که شروع میشه یعنی اولین مقدار که عدد 0 و بعدی 1 وبعدی 2و بعدی 3 و اخر هم 4 هست و در حلقه اومدیم طبق حرف شما که از راست باید بخونیم پس از 4 باید شروع کنیم تا 0 رو در هر بار چرخش حلقه بخونیم پس با دستورهای بالا اول چهارمین کارکتر خونده میشه یعنی ععد 8 بعد سومین کارکتر که میشه عدد3 تا صفرمین کارکتر که میشه عدد 5
انشاالله که متوجه شده باشید
وشما بعد از این دستور متغیر var رو ارسال کنید بترتیب از عدد8 تا 5 رو ارسال میکنه
در ضمن میتونه بجای عددهای ذکر شده از حروف انگلیسی هم استفاده کرد مثل

lable:
data: "k","m","h","b& quot;,"x
تمام

[shapour]

پاسخ : کمک در مورد کار با متغیر ها در زبان بیسیک

ممنون دوستان خیلی زحمت کشیدین.این برنامه هم عالیه فقط مشکل من اینه که میخوام اعدادی که از رشته جدا میشن توی یه متغیر واحد بریزن نه چند تایعنی:
number=8
number=3
number=7
من میخوام محتویات یه رشته رو از راست تک به تک بریزم توی یه متغیر و بعد انتقال بدم به پورت ها.یعنی اولین کاراکتر سمت راست رشته رو بخونه بریزه به پورت بعد یه وقفه بعد کاراکتر بعدی و همینطوری ادامه بده تا کل رشته تموم بشه.و لازم دارم که توی رشته از اعداد دسیمال و حروف انگلیسی استفاده کنم.یعنی توی برنامه نباید نوع چیزی که توی رشته هست مهم باشه.

باسلام

بیا فقط به جای ارایه متغیر Number سپس هرکاری خواستی با آن مقدار انجام بده ( یعنی به جای " Print "Number" ; Cunt ; " = " ; Number " )

$regfile = "m8def.dat"
$crystal = 11059200
$baud = 9600                        ' use baud rate

Dim Str_1 As String * 17
Dim Str_2 As String * 1
Dim Number As Byte
Dim Cunt As Byte
Dim Temp As Byte


Str_1 = "12324365475682738"
Print "Number = " ; Str_1

For Cunt = 1 To 17
  Temp = 18 - Cunt
  Str_2 = Mid(str_1 , Temp , 1)
  Number = Val(str_2)
[ Print "Number" ; Cunt ; " = " ; Number]
Next

End

[blue_pulse]

پاسخ : کمک در مورد کار با متغیر ها در زبان بیسیک

خیلی ممنون از پستتون ولی میشه برنامه ای رو که نوشتین یکم باز کنید؟من هنوز یه جورایی تازه کارم.ممنون میشم

خواهش میکنم دوست عزیز

dim a as string*17,b as byte,c as byte

در این دستور 2 متغیر از نو byte که محدوده تغیزات ان ها از 0 تا 255 و یک متغیر به اسمه a تعریف شده با طول تغیرات 17 کلمه

for b=4 to 0 step -1
a=lookupstr(b,matn)
c=val(a)
next

در اینجا یک حلقه for تعریف شده (که دفعه پیش یادم رفته بود در اخر for عبارت next بزارم)با این شرط که از 4 به صفر بره منطور از step-1 گام به عقبه یعنی 4.3.2.1.0
بعد از دستور lookupstr استفاده شده ای دستو ر این کارو انجام میده :
متغیر a مقدار بگیرد از جدول matn بر طبق مقدار b
یعنی وقتی b=4 میشه a=5 میشه
b=3 بشهa=4 میشه الا اخر
دستور val:
این دستور کلمه عدد میگیره اون به مقدار عددی تبدیل میکنه
فرض: a="212"
c=val(a)
c=212
:agree:
موفق یاشید

[shs_micro2]

پاسخ : کمک در مورد کار با متغیر ها در زبان بیسیک

خواهش میکنم دوست عزیز

dim a as string*17,b as byte,c as byte

در این دستور 2 متغیر از نو byte که محدوده تغیزات ان ها از 0 تا 255 و یک متغیر به اسمه a تعریف شده با طول تغیرات 17 کلمه

for b=4 to 0 step -1
a=lookupstr(b,matn)
c=val(a)
next

در اینجا یک حلقه for تعریف شده (که دفعه پیش یادم رفته بود در اخر for عبارت next بزارم)با این شرط که از 4 به صفر بره منطور از step-1 گام به عقبه یعنی 4.3.2.1.0
بعد از دستور lookupstr استفاده شده ای دستو ر این کارو انجام میده :
متغیر a مقدار بگیرد از جدول matn بر طبق مقدار b
یعنی وقتی b=4 میشه a=5 میشه
b=3 بشهa=4 میشه الا اخر
دستور val:
این دستور کلمه عدد میگیره اون به مقدار عددی تبدیل میکنه
فرض: a="212"
c=val(a)
c=212
:agree:
موفق یاشید

خیلی ممنون همگی زحمت کشیدین.خیلی کمک کردین.ممنون