اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


مجید آرتا

چالش " خودتو با کد توصیف کن "

10 ارسال در این موضوع قرار دارد

سلام به برو بچ انجمن

ان شاء الله که خوبید ؟

خب دیدیم روز جمعس و مهدی ایزدی هم یه دو سه روزی توی انجمن نیست و به قول گفتنی مجردی حال کنیم تا نیومده :دی :DD:

خب خب

این چالش کوچیک و بزرگ نمیشناسه، همه باید شرکت کنن.

به چه شکل هستش حالا ؟

آقا شما بیا یه توصیفی از خودت واس ما به زبان کد نویسی بگو، توصیف امروزت، دیروزت، یه هفته پیش یا کلا یه توصیفی از احوالاتت بگو :دی ولی به زبان برنامه نویسی :viannen_44:

حالا به هر زبانی میخوایید توصیف کنید :DD:

به مهران محمودی هم اجازه شرکت در این چالش رو نمیدم :دی دلیلشم مهم نیست :دی :DD:

خب ببینم چیکار می کنید، زود زود بیایید بگید ببینم در چه حال و احوالید برنامه نویسای انجمن.:hi:

 

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

خب اول از خودم شروع می کنم

آقا این حکایت هر روز من هستش :دی میرم بانک یا گیر میدن یا میفرستنم پیش یکی دیگه :DD:

بعدش هم خونه و شام و ناهار و جلوی تلویزیون و لپ تاپ :DD:

Sub Year
	Private MA As MajidArta
End Sub
Sub EveryDay
	MA.Initialize("MA")
	MA.StartMachine
	MA.GoToBankForVaam   ':D
	MA.SendDocumnet
End Sub
Sub MA_DocumentResponse(Staff As Boolean, AngryPercent As Double)
	If Staff Boolean Then
		MA.ForwardMeToAdmin
	Else
		MA.GoBackToHome
		Log("i Very Very Angry :|" & AngryPercent)
	End If
End Sub
Sub MA_HomeMood()
	MA.ListenToEatTime ':D
	MA.LookAtTV
	MA.LittleTimeProgramming ':D
End Sub
Sub MA_EatTime(dateTime As DateTime)
	If dateTime = "12:00:00 AM" Then
		EatTimeStatus
	Else If dateTime = "21:00:00 PM" Then
		EatTimeStatus
	Else If 
End Sub
Sub EatTimeStatus
		MA.JumpToSofre ':D
		Dady.isCrazyBoy = True
		Momy.MyKhoshtipBoy ':D
		Brother.Zart = True
		Sister = Null ':|
End Sub
Sub MA_Programming(WorkingTime As Hour, EsterahatTime As Hour)
	Log("WorkingTime : " & WorkingTime ) 'Display - > WorkingTime : 10 Minute :| 60 / 6 :)
	Log("EsterahatTime : " & EsterahatTime) 'Display - > EsterahatTime : 24 Hour :P 24 * 1 :)
End Sub
Sub MA_Error()
 MA.Release
 MA.Close
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

منم میخواستم همون کدهای مجید جان رو تکراری کنم ، البته قسمت ماشین رو خالی کنم ولی گفتم مختصر بگم:DD:

مدیونید اگه اشکال داشته باشم و زیادی بخندین:oops:

Sub Process_Globals
	
	Dim ma As majidarta
	Dim sa As SeyyedAmir
	Dim rs As rezasabouri
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("chalesh_page")
	If File.Exists(File.DirInternal,"refaghat.db") = False Then
		File.Copy(File.DirAssets,"refaghat.db",File.DirInternal,"refaghat.db")
	End If
	
	If ma.IsInitialized = False Then
		ma.Initialize(File.DirInternal,"refaghat.db",True)
	End If
	
	sa = ma.ExecQuery("SELECT * FROM anjoman")
	
	For i = 0 To sa.RowCount-1
		sa.Position = i
		Ma= koshteye oun kodnevisisham
		Sa= naboud shodam ba tarifet
		Rs=StartActivity(nafare badi)
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

بنظر من تمام این کد نویسی و اینا بهونه هستش 

مجید جون میخواست بگه من وضعم خوبه میرم بانک:bigsmile:

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

کدهای بیسیک من خطا دادند از آقا آرتا پرسیدم گفتن باس کتابخونشو wrap کنی

واس همین Batch نوشتم

البته من همیشه نام پروفایلم تو تلگرام بر همین مبنا انتخاب میشه

@echo off
set feeling=%*
IF %feeling%=="Love"(
    C:\Amin>Cd To Love
)ELSE IF %feeling%=="animosity"(
	C:\Amin>Cd To Hate
)ELSE IF %feeling%=="ennui"(
	C:\Amin>Cd To Change
)ELSE IF %feeling%=="loneliness"(
	C:\Amin>Travel
)ELSE IF %feeling%=="chagrin"(
	C:\Amin>Change Music
)ELSE(
	C:\Amin>Write Code
)

:53::53::53:

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

حدودا همین رواله

حالا ببخشید کمی اینور اونور شده متدا همینجا نوشتمش:دی:DD::crazy:

 

protected void onCreate(...){
	GrayMind benyamin;
	benyamin = new Graymind();
	if (IsTired(benyamin)){
		Toast.MakeText(LifeLoop.this,"Film And Serial Mibinam :|",Toast.Length_Long).show;
	}else{
		do{
			AndroidStudio().open("Projects And Write Code");
		}
		While (IsTired(benyamin))
	}
public Boolean IsTired(GrayMind benyamin){
	if (benyamin.equalIgnorCase("Tired")){
		return true;
	}
	return false;
}

 

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در ۱ ساعت قبل، majerajoo گفته است :

مجید جون میخواست بگه من وضعم خوبه میرم بانک:bigsmile:

شیرمون خشک شده واسه یه وام  چهل پنجاه تومنی :DD:

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

خب بریم سراغ زندگی پر پیچ و خم خودمون.:DD:

public class mylife extends LifeActivity{
Ensan me;
@Overraide
protected void onStart(int day){
me=new Ensan(this,day);
me.WakeupTime=7:05;
me.GoToworke=8;
me.State=khoshalokhandoon;
}

@Overraide
protected void onResume(){
me.State=neshasteroosandali;  //:D
me.work=AndroidProgramming;
me.endtimeworking=14;
}
@Overraide
protected void onStope(){
me.State=Khaste_Koofte_Goshne;  //:D
me.State=lunch;
me.gotosleep=true;
me.wakeupagantime=17;
}

@Overraide
protected void onDestroy(){
me.State=WorkeOnPayanName&&DidaneSerial;  //:D
me.gotosleepagain=2;
}
}

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

ما ورژنمون پایینه با همون cmd کار میکنیم. :l 

moein /startnow

دیگه الباقی خودش کار میکنه :l :دی

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

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

دارای حساب کاربری هستید؟ از اینجا وارد شوید

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