مهارت برنامه نویسی

[santoz160]

سلام
من میخام یک عدد 2رقمی رو تجزیه کنم
چجوری با برنامه نویسی بیسیک اینکارو بکنم؟
برای مثال
a=78
چجوری عدد 78 را به شکل زیر بنویسم؟

b=7
c=8

[mehdi sobhani]

پاسخ : مهارت برنامه نویسی

سلام
این خدمت شما
با بسکام :

Dim No As Integer Dim Ss As String * 10 Dim S3 As String * 1 Dim A As Byte Dim B As Byte No = 78 Ss = Str(no) S3 = Mid(ss , 1 , 1) A = Val(s3) S3 = Mid(ss , 2 , 1) B = Val(s3)

[alipoor90]

پاسخ : مهارت برنامه نویسی

Dim Ss As String * 10 نیازی نیست و Dim Ss As String * 2 کافیه

[reza_agha]

پاسخ : مهارت برنامه نویسی

اگه مطمئنی که عدد 2 رقم بیشتر نیست:

B = No / 10
C= No Mod 10

[santoz160]

پاسخ : مهارت برنامه نویسی

خیلی ممنون
ولی با دستورات ساده و کمتر نمیشه؟
مثلا دستور
var= int(a) ya
var=frac(b) .ke
که دستور پایینی رو یه کاری کنیم تا 0 و اعشارش از بین بره

[iman-63]

پاسخ : مهارت برنامه نویسی

سلام دادا.
من بیسک کار نمیکنم اما منطقی ترین راخش همونه که آقا رضا گفتن. یعنی بردن عدد به مبنای 10.

[vahidreza1]

پاسخ : مهارت برنامه نویسی

میشه اینکار رو کرد
dim x(10) as string*1
dim z(10)as bayt
dim h as bayt
dim i as bayt
dim s as string*10

a=5687 'bara mesal
s=str(a)
h=lan(s)

for i=1 to h
x(i)=mid(i,1,1)
z(i)=var x(i)
next i

[alipoor90]

پاسخ : مهارت برنامه نویسی

باز خوبه دوستمون گفته بودند میخواهند ساده تر بشه! شما پیچیده ترش میکنی؟؟!!

[santoz160]

پاسخ : مهارت برنامه نویسی

یه کم پیچیده شد
من میخام عدد 35 رو سون سگمنت نمایش بدم
واسه همین میگم میخام اعداد رو جدا کنم و هر 20میلی ثانیه رفرش کنم تا روی 2تا سون سگمنت نمایش داده بشه

[silicon0]

پاسخ : مهارت برنامه نویسی

یه کم پیچیده شد
من میخام عدد 35 رو سون سگمنت نمایش بدم
واسه همین میگم میخام اعداد رو جدا کنم و هر 20میلی ثانیه رفرش کنم تا روی 2تا سون سگمنت نمایش داده بشه

دوست من اینکه کاری نداره همین روشی که اقا رضا گفتن درسته شما باید دهگان رو از یکان جدا کنی - مثلا:

a= عدد مورد نظر (دو رقمی)
y= یکان
d= دهگان

y= a mod 10

d = a / 10

به همین راحتی یکان و دهگان رو جدا میکنی و توی متغیر های y و d میریزی
بعدم با روش مالتی پلکس نشونشون میدی

این روش برای عدد n رقمی هم کاربرد داره