کمک در ساخت برنامه ای که حساب میکنه!!!

[kurd98 50]

کمک در ساخت برنامه ای که حساب میکنه!!!

 

سلام دوستان میخام یه برنامه اینطوری مثلا بسازم:

 

 

 

 

http://s6.picofile.com/file/8196963126/sigar_ptogram.png

 

 

 

 

که وقتی مثلا کاربر میزنه من روز 8 سیگار میکشم و تو هر پاکت سیگارم هم مثلا 28 سیگاره و قیمت سیگارم 500 تومن هست بیاد وقتی رو محاسبه کلیک شد بگه:

 

 

 

شما در ماه مبلغ 4285 تومان و درسال مبلغ 52142 برای سیگار کشیدن هزینه میکنید.

 

 

 

 

 

چطور میشه اینکار رو کرد از کتابخانه خاصی باید استفاده کرد؟؟؟؟؟؟؟؟؟؟؟

[kurd98 50]

ببخشید تو عکس زود زود درست کردم یه غلط املایی داشتم     

[kurd98 50]

از چه متغییر باید استفاده کرد؟؟؟؟؟؟؟؟

[Nemesis 1,846]

از متغیر عددی یعنی int

برای مثال شما از این روش استفاده کن

Dim jamkol as int = edittext1.text * edittext2.text

حالا مقدار jamkol رو هرجایی دوستداشتی استفاده کن

[kurd98 50]

از متغیر عددی یعنی int

برای مثال شما از این روش استفاده کن

Dim jamkol as int = edittext1.text * edittext2.text

حالا مقدار jamkol رو هرجایی دوستداشتی استفاده کن

خیلی ممنون.

 

این کد رو باید در کجاش قرار بدم ؟؟؟؟؟؟

[Nemesis 1,846]

در رویداد کلید محاسبه

[kurd98 50]

در رویداد کلید محاسبه

 

 

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

 

 

این کدمه :

#Region  Project Attributes 
	#ApplicationLabel: sigar
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private btn1 As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private EditText3 As EditText
	Private l1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	 Activity.LoadLayout("sigar")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub btn1_Click
	Dim jam As Int = Edittext1.Text*Edittext2.Text
End Sub

ممنون از راهنمایت.

[Nemesis 1,846]

در رویداد کلید بعد از که مقدار رو گرفتید

L1.text = jamkol

[kurd98 50]

در رویداد کلید بعد از که مقدار رو گرفتید

L1.text = jamkol

 

 

حالا من میخام مثلا رو دکمه کلیک کرد سیگار روزانه رو ضرب 365 (روز های سال) و بعد بیاد روزانه رو ضرب 30 بکنه الان ما سیگار ماه و سال رو پیدا کردیم بعد بیاد اون رقمی رو که از سیگار روزانه با 30 بعد تقسیم عدد سیگار های تو پاکت بکنه و بعد به قیمت ضرب کنه بگه ماهیانه اینقد واسه سیگار پول میدی و بیاد رقم سیگار روزانه رو ضرب 365 بکنه و تقسیم عدد داخل پاکت سیگار بکنه و بعد ضرب قیمت سیگار بکنه بگه سالیانه اینقد پول واسه سیگار میدی این اطلاعات رو فقط با زدن اون دکمه به یه لایوت

[vahidh16 160]

حالا من میخام مثلا رو دکمه کلیک کرد سیگار روزانه رو ضرب 365 (روز های سال) و بعد بیاد روزانه رو ضرب 30 بکنه الان ما سیگار ماه و سال رو پیدا کردیم بعد بیاد اون رقمی رو که از سیگار روزانه با 30 بعد تقسیم عدد سیگار های تو پاکت بکنه و بعد به قیمت ضرب کنه بگه ماهیانه اینقد واسه سیگار پول میدی و بیاد رقم سیگار روزانه رو ضرب 365 بکنه و تقسیم عدد داخل پاکت سیگار بکنه و بعد ضرب قیمت سیگار بکنه بگه سالیانه اینقد پول واسه سیگار میدی این اطلاعات رو فقط با زدن اون دکمه به یه لایوت

دوست شما ای 127 تا پستی که توی انجمن گذاشتی دقیقا چی گذاشتی؟؟؟؟

اینا که همش کارای ساده ریاضیه...فقط باید یه چندتا متغیر درست کنی و توی اونا محاسبات رو انجام بدی آخر کار هم باید متن لیبل رو با اون متغیری که جواب هست برابر کنی...

 

اینجوری که شما صحبت میکنید انگار هیچی از b4a نمیدونید که

[kurd98 50]

دوست شما ای 127 تا پستی که توی انجمن گذاشتی دقیقا چی گذاشتی؟؟؟؟

اینا که همش کارای ساده ریاضیه...فقط باید یه چندتا متغیر درست کنی و توی اونا محاسبات رو انجام بدی آخر کار هم باید متن لیبل رو با اون متغیری که جواب هست برابر کنی...

 

اینجوری که شما صحبت میکنید انگار هیچی از b4a نمیدونید که

بابا ما هم به جيزايي حاليمونه يعني منظورك اينه كه بفهمن دوستان منظور دقيقمو يعني واسه جمع بايد يه متغيير بنويسم اينطوري:-

Dim jam als int

و واسه مثلا ضرب هم بنويسم متغيير رو ؟؟؟.

Dim zarb als Int

????

[مجید آرتا 5,875]

خب اره دیگه.

واسه عمل های مختلف از متغییر استفاده کن یعنی بیا مقادیر رو بریزتوی متغییر مورد نیاز و عمل صرب رو انجام بده و بعد بریز توی لیبل.

[Nemesis 1,846]

خوب برادر بیا یکار بکن با زبان کد این رو برای ما شرح بده

مثال بگو

میخوام مقدار edittex felan در فلان ضرب شه و اونیکی جمع بشه

 

میخوام خودت اینو شرح بدی تا واسط توضیح بدم که چطوری از متغییر استفاده کنی

[kurd98 50]

خوب برادر بیا یکار بکن با زبان کد این رو برای ما شرح بده

مثال بگو

میخوام مقدار edittex felan در فلان ضرب شه و اونیکی جمع بشه

 

میخوام خودت اینو شرح بدی تا واسط توضیح بدم که چطوری از متغییر استفاده کنی

خيلييييييييييي ممنون

حالا من میخام مثلا رو دکمه کلیک کرد سیگار روزانه رو ضرب 365 (روز های سال) و بعد بیاد روزانه رو ضرب 30 بکنه الان ما سیگار ماه و سال رو پیدا کردیم بعد بیاد اون رقمی رو که از سیگار روزانه با 30 بعد تقسیم عدد سیگار های تو پاکت بکنه و بعد به قیمت ضرب کنه بگه ماهیانه اینقد واسه سیگار پول میدی و بیاد رقم سیگار روزانه رو ضرب 365 بکنه و تقسیم عدد داخل پاکت سیگار بکنه و بعد ضرب قیمت سیگار بکنه بگه سالیانه اینقد پول واسه سیگار میدی این اطلاعات رو فقط با زدن اون دکمه به یه لایوت.