ايران ويج

سلام
من به کمک شما عزیزان دارم
من میخوام یه برنامه به زبان بیسیک بنوبسم که بتونیم کد هایی که از خروجی ایسیMT8870می یاد کنار هم بگذارم به نهوی که دو عدد پشت سر هم وارد کردیم (مثلا 55)درست نشان بده دوستان هر کی اطلاعاتی داره بگذاره Biggrin

از دوست عزیزمونA.N.Tهم تشکر مخصوص میکنم Happy

ممنون . لطف دارين .

خوب عدد اول رو بگير و در 10 ضرب كن و بعلاوه عدد دوم كن .

مي توني به رشته تعريف كني و عدد دريافتي رو بعلاوه 48 كني ( واسه تبديل به كد اسكي ) و تو رشته ذخيره كني .
عدد دوم هم همينكارو كن و بعلاوه اون رشته كن .

(۱۵-دى-۱۳۸۷, ۱۹:۰۳:۴۷)terip2008 نوشته است: [ -> ]ممنون . لطف دارين .

سلام
خواهش میکنم !!! Biggrin

من هم همین کار رو کردم من برنامشو برات میزارم اگه میشه ببین کجاش مشکل داره؟ Laugh

کد: 
$regfile = "m32def.dat"

$crystal = 4000000

'*******************************************************************************************

Config Lcdpin = Pin , Db4 = Pina.0 , Db5 = Pina.1 , Db6 = Pina.2 , Db7 = Pina.3 , _

E = Pina.4 , Rs = Pina.5

Config Portb = Input

'***************************************************************************************

Ddrb.0 = 0 ': Portb.0 = 1

Ddrb.1 = 0 ': Portb.1 = 1

Ddrb.2 = 0 ': Portb.2 = 1

Ddrb.3 = 0 ': Portb.3 = 1

Ddrb.4 = 0 ': Portb.4 = 1

'*******************************************************************************************

Dim A As Long , B As Long , C As Long , D As Long , E As Long , F As Word , _

G As Integer , H As Integer , I As Byte , J As Byte , K As Byte , L As Byte , _

M As Long

'***********************************************************************************************

A = 0 : B = 0 : C = 0 : D = 0 : E = 0 : F = 0 : G = 0 : H = 0 : I = 0 : J = 0

K = 0 : L = 0 : M = 0

Cls

Do

'*********************************************

If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 0 And Pinb.3 = 1 And Pinb.4 = 1 Then A = 1

If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 1 And Pinb.3 = 0 And Pinb.4 = 1 Then B = 2

If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 1 And Pinb.3 = 1 And Pinb.4 = 1 Then C = 3

If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 0 And Pinb.3 = 0 And Pinb.4 = 1 Then D = 4

If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 0 And Pinb.3 = 1 And Pinb.4 = 1 Then E = 5

If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 1 And Pinb.3 = 0 And Pinb.4 = 1 Then F = 6

If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 1 And Pinb.3 = 1 And Pinb.4 = 1 Then G = 7

If Pinb.0 = 1 And Pinc.1 = 0 And Pinb.2 = 0 And Pinb.3 = 0 And Pinb.4 = 1 Then H = 8

If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 0 And Pinb.3 = 1 And Pinb.4 = 1 Then I = 9

If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 1 And Pinb.3 = 0 And Pinb.4 = 1 Then J = 0

'If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 0 And Pinb.3 = 1 And Pinb.4 = 1 Then K = "*"

'If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 1 And Pinb.3 = 0 And Pinb.4 = 1 Then L = "#"

Cls

If Pinb.4 = 1 Then Gosub Chidan

'*************************************************************************************************

Loop

'********************************************

Chidan:

A = A * 1000000000 '1

B = B * 100000000 '2

C = C * 10000000 '3

D = D * 1000000 '4

E = E * 100000 '5

F = F * 10000 '6

G = G * 1000 '7

H = H * 100 '8

I = I * 10 '9

J = J * 1 '0

'**********************************************

M = A + B : B = 0

B = M + C : C = 0

C = B + D : M = 0

M = C + E : B = 0

B = M + F : A = 0

A = B + G : M = 0

M = A + H : C = 0

C = M + I : A = 0

A = C + J

'*******************************************************************************************************************

Home U

Lcd A

A = 0 : B = 0 : C = 0 : D = 0 : E = 0

F = 0 : G = 0 : H = 0 : I = 0 : J = 0

K = 0 : L = 0 : M = 0

Return

'*************************************************************************************************************

لطفا ایراداتشو به من بگو اگه میشه!!!!!!!!! 034

راستی یکی از ایراد های اون اینکه دو عدد رو نمیشه پشتسر هم زد در ضمن همان یک رقمی ها رو هم درست نشون نمیده
مثلا 1 رو 1000000000 نشون میده Angry

با تشکر

من كه نفهميدم چي كار كردي ؟

نقل قول: مثلا 1 رو 1000000000 نشون میده

اين كد چي كار مي كنه ؟

کد: 
A = A * 1000000000

در كل از برنامه ات هيچي نفهميدم .
ولي منظورم اين روش بود :

کد php: 
$regfile = "m32def.dat" : $crystal = 4000000

Config Lcdpin = Pin , Db4 = Pina.0 , Db5 = Pina.1 , Db6 = Pina.2 , Db7 = Pina.3 , E = Pina.4 , Rs = Pina.5
Config Lcd = 16 * 2 : Cursor Off : Cls

Ddrb = 0

Dim A As Byte , W As Word , C As Byte
'===================================================================
Do
   W = 0
   For C = 1 To 4
      Gosub Read_data
      W = W * 10 : W = W + A
      Home : Lcd "    " ; W ; "      "
   Next
   Wait 1
Loop
'===================================================================
Read_data:
   Bitwait Pinb.4 , Reset
   A = Pinb And 15
   If A > 9 Then A = 0
Return 

الان اين تا 4 رقم رو مي گيره و نشون مي ده و يه ثانيه منتظر مي مونه و دوباره از اول .

سلام
منظور من از A = A * 1000000000 این بود که عددی را که در متغیر aوجود دارد در عدد 1000000000 ضرب کنه ودر همان متغیر بریزه بقیه هم همین طور Shy

در اون قسمتی هم که پر از ifتشخیص میده که چه عددی وارد شده است و در متغیر مربوط به ان می گذارتش Smile

به همین سادگی Biggrin

ازت خیلی ممنونم که جوابمو میدی Smile

راستی منظورت از
A = Pinb And 15
If A > 9 Then A = 0
و
W = W * 10 : W = W + A
چی بود در کل اگه برنامه رو توضیح بدی ممنونت می شم Clap

خدانگه دار Happy

نقل قول: در اون قسمتی هم که پر از ifتشخیص میده که چه عددی وارد شده است و در متغیر مربوط به ان می گذارتش

خوب اين برنامه هم كار مي كنه ؟

کد php: 
A = Pinb And 15
If A > 9 Then A = 0 

نقل قول: منظور من از A = A * 1000000000 این بود که عددی را که در متغیر aوجود دارد در عدد 1000000000 ضرب کنه ودر همان متغیر بریزه بقیه هم همین طور

واسه چي اين كار رو بكنه .
عددد رو بگيره و در 10 ضرب كنه و بعلاوه عدد بعدي بشه .
مثل اين برنامه .

کد php: 
W = W * 10 : W = W + A 

سلام
از اینکه جوابمو دادی خیلی خیلی ممنونم
خدا نگه دار Whistle

ايران ويج

amiraliforoozandeh

t3r!p3000

amiraliforoozandeh

t3r!p3000

amiraliforoozandeh

t3r!p3000

amiraliforoozandeh