کمک

[amiraliforoozandeh]

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

[t3r!p3000]

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

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

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

[amiraliforoozandeh]

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

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

کد:

$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
'*************************************************************************************************************

لطفا ایراداتشو به من بگو اگه میشه!!!!!!!!!
راستی یکی از ایراد های اون اینکه دو عدد رو نمیشه پشتسر هم زد در ضمن همان یک رقمی ها رو هم درست نشون نمیده
مثلا 1 رو 1000000000 نشون میده
با تشکر

[t3r!p3000]

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

مثلا 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 رقم رو مي گيره و نشون مي ده و يه ثانيه منتظر مي مونه و دوباره از اول .

[amiraliforoozandeh]

سلام
منظور من از A = A * 1000000000 این بود که عددی را که در متغیر aوجود دارد در عدد 1000000000 ضرب کنه ودر همان متغیر بریزه بقیه هم همین طور
در اون قسمتی هم که پر از ifتشخیص میده که چه عددی وارد شده است و در متغیر مربوط به ان می گذارتش
به همین سادگی
ازت خیلی ممنونم که جوابمو میدی
راستی منظورت از
A = Pinb And 15
If A > 9 Then A = 0
و
W = W * 10 : W = W + A
چی بود در کل اگه برنامه رو توضیح بدی ممنونت می شم
خدانگه دار

[t3r!p3000]

در اون قسمتی هم که پر از 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 


[amiraliforoozandeh]

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