MMB Message ex maker

peyman136

peyman136

کاربر متخصص مولتی مدیا بیلدر
شاید شما هم نرم افزار MBMرو که برای ساخت پیام در ام ام بی هست رو دیدید البته این نرم افزار با دلفی ساخته شده و حالت اخر پیام MMBرو نمیتونه در پیش نمای خودش نشون بده
من یه مدت بود داشتم فکر میکردم این کار چه طوری انجام میشه با کمک یکی از دوستان تونستم این کاررو بکنم میدونم برای حرفهای ها اسونه ولی من این مثال رو برای تازه کارهایی مثل خودم گذاشتم امید وارم مفید باشه در ضمن تمامی پیام هایی که برنامه میده رو با خود نرم افزار نوشتم در زیر هم یه توضیح مختصر از اسکریپت نویسی دادم
تا بعد خدا حافظ

:wink:
 
silvercover

silvercover

کاربر متخصص
با اجازه، این هم برنامه MMB Message Box Maker :

از این برنامه برای ساخت کادر های پیغام در MMB استفاده میشه.
 

پیوست ها

  • MBM.rar
    178.2 کیلوبایت · بازدیدها: 119
peyman136

peyman136

کاربر متخصص مولتی مدیا بیلدر
اینم اموزش:
**=========================صفحه==========
c2=1
c=0
ScriptTimer("Script","100")
b1=1
i1=1
t1=1
m1=1
g1=1
**======================================

**==============SCript=========
For i=1 To Infinity
RunScript("Script1")
RunScript("Script2")
RunScript("Script3")
RunScript("Script4")
RunScript("Script5")
RunScript("Script6")
RunScript("Script7")
Next i
**==============================

**==============Script1=========
w$=code1$+code2$+code4$+code5$
DisplayValue("a","w$")

**==============================
**==============Script2=========

If (b1=1) Then
Show("b1")
Hide("b2")
Hide("b3")
Hide("b4")
Hide("b5")
Hide("b6")
Hide("b7")
a$='0'
DisplayValue("code1","a$")
End
If (b2=1) Then
Show("b2")
Hide("b1")
Hide("b3")
Hide("b4")
Hide("b5")
Hide("b6")
Hide("b7")
a$='1'
DisplayValue("code1","a$")
End
If (b3=1) Then
Show("b3")
Hide("b2")
Hide("b1")
Hide("b4")
Hide("b5")
Hide("b6")
Hide("b7")
a$='2'
DisplayValue("code1","a$")
End
If (b4=1) Then
Show("b4")
Hide("b2")
Hide("b3")
Hide("b1")
Hide("b5")
Hide("b6")
Hide("b7")
a$='3'
DisplayValue("code1","a$")
End
If (b5=1) Then
Show("b5")
Hide("b2")
Hide("b3")
Hide("b4")
Hide("b1")
Hide("b6")
Hide("b7")
a$='4'
DisplayValue("code1","a$")
End
If (b6=1) Then
Show("b6")
Hide("b2")
Hide("b3")
Hide("b4")
Hide("b5")
Hide("b1")
Hide("b7")
a$='5'
DisplayValue("code1","a$")
End
If (b7=1) Then
Show("b7")
Hide("b2")
Hide("b3")
Hide("b4")
Hide("b5")
Hide("b6")
Hide("b1")
a$='6'
DisplayValue("code1","a$")
End

**==============================
**==============Script3=========

If (i1=1) Then
Show("i1")
Hide("i2")
Hide("i3")
Hide("i4")
Hide("i5")
a$='0'
DisplayValue("code2","a$")
End
If (i2=1) Then
Show("i2")
Hide("i1")
Hide("i3")
Hide("i4")
Hide("i5")
a$='16'
DisplayValue("code2","a$")
End
If (i3=1) Then
Show("i3")
Hide("i2")
Hide("i1")
Hide("i4")
Hide("i5")
a$='32'
DisplayValue("code2","a$")
End
If (i4=1) Then
Show("i4")
Hide("i2")
Hide("i3")
Hide("i1")
Hide("i5")
a$='48'
DisplayValue("code2","a$")
End
If (i5=1) Then
Show("i5")
Hide("i2")
Hide("i3")
Hide("i4")
Hide("i1")
a$='64'
DisplayValue("code2","a$")
End

**==============================
**==============Script4=========
If (c=0) Then
Show("c-1")
Hide("c-2")
Else
Show("c-2")
Hide("c-1")
End
**==============================
**==============Script5=========
If (t1=1) Then
Show("t1")
Hide("t2")
Hide("t3")
a$='0'
DisplayValue("code4","a$")
End
If (t2=1) Then
Show("t2")
Hide("t1")
Hide("t3")
a$='256'
DisplayValue("code4","a$")
End
If (t3=1) Then
Show("t3")
Hide("t2")
Hide("t1")
a$='512'
DisplayValue("code4","a$")
End
**--------------------------
**==============Script6=========
If (m1=1) Then
Show("m1")
Hide("m2")
Hide("m3")
a$='0'
DisplayValue("code5","a$")
End
If (m2=1) Then
Show("m2")
Hide("m1")
Hide("m3")
a$='4096'
DisplayValue("code5","a$")
End
If (m3=1) Then
Show("m3")
Hide("m2")
Hide("m1")
a$='8192'
DisplayValue("code5","a$")
End

**--------------------------
**==============Script7=========
If (g1=1) Then
Show("g1")
Hide("g2")
Hide("g3")
a$='0'
DisplayValue("code6","a$")
End
If (g2=1) Then
Show("g2")
Hide("g1")
Hide("g3")
a$='262144'
DisplayValue("code6","a$")
End
If (g3=1) Then
Show("g3")
Hide("g2")
Hide("g1")
a$='524288'
DisplayValue("code6","a$")
End
**--------------------------
**==============Preview=========
If (c=1) Then
b$=t$
pto=code3N*1000
pto$=CHAR(pto)
flag=code2N+code1N+code4N+code5N+code6N
z$=mbp$+','+CHAR(flag)+','+pto$
MessageEx("b$","z$")
Else
b$=t$
pto$=CHAR(pto)
flag=code2N+code1N+code4N+code5N+code6N
z$=mbp$+','+CHAR(flag)
MessageEx("b$","z$")
End
**--------------------------
**==============Give code=========
If (c=1) Then
b$=t$
pto$=CHAR(code3N)
flag=code2N+code1N+code4N+code5N+code6N
z$=mbp$+','+CHAR(flag)
file$='c:\code.txt'
*****************************************
string$='pto='+CHAR(code3N)+'*1000'+CHR(13)+CHR(10)+'pto$=char(pto)'+CHR(13)+CHR(10)+'z$='+CHR(39)+mbp$+CHR(39)+CHR(43)+CHR(39)+','+CHR(39)+CHR(43)+CHR(39)+CHAR(flag)+CHR(39)+CHR(43)+CHR(39)+','+CHR(39)+CHR(43)+'pto$'+CHR(13)+CHR(10)+'messageex("'+b$+'","z$")'+CHR(13)+CHR(10)+'*******************************'+CHR(13)+CHR(10)
ReturnVal=StrToFile(file$,string$,TRUE,FALSE)
Else
b$=t$
flag=code2N+code1N+code4N+code5N+code6N
z$=mbp$+','+CHAR(flag)
file$='c:\code.txt'
*****************************************
string$='z$='+CHR(39)+mbp$+CHR(39)+CHR(43)+CHR(39)+','+CHR(39)+CHR(43)+CHR(39)+CHAR(flag)+CHR(39)+CHR(43)+CHR(39)+','+CHR(39)+CHR(13)+CHR(10)+'messageex("'+b$+'","z$")'+CHR(13)+CHR(10)+'*******************************'+CHR(13)+CHR(10)
ReturnVal=StrToFile(file$,string$,TRUE,FALSE)
End
NextPage()
**--------------------------
**==============Aboutَ=========
text$='Software Information:'+CHR(13)+CHR(10)+'Softwarename = MMB Message EX maker'+CHR(13)+CHR(10)+'Freeware = v 1.3'+CHR(13)+CHR(10)+'Home Page = www.peyman136.blogfa.com'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'Programing Information'+CHR(13)+CHR(10)+'Programer = Peyman Seifi (peyman136)'+CHR(13)+CHR(10)+'Graphic = Peyman Seifi (www.Peyman136.blogfa.com)'+CHR(13)+CHR(10)+'Plugin used = Mmbtray'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'Created with MMB 4.9.7.8'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'S P E C I A L T H A N K S: '+CHR(13)+CHR(10)+'Littledemon '+CHR(13)+CHR(10)+'Toofan N.'+CHR(13)+CHR(10)+'www.majidonline.mon'+CHR(13)+CHR(10)+'and'+CHR(13)+CHR(10)+'All who found this software useful'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'Have a nice day'+CHR(13)+CHR(10)+' '+CHR(13)+CHR(10)+' Peyman Seifi'+CHR(13)+CHR(10)+''
timeout=0
flag=64+0+0+4096+0
param$=text$+','+CHAR(flag)+','+CHAR(timeout)
MessageEx("About...","param$")

**--------------------------
**==============ٍExit=========
text$='آيا مايل به خروج از برنامه هستيد؟'
flag=32+4+256+4096+524288
param$=text$+','+CHAR(flag)
MessageEx("خروج","param$")
If (CBK_MsgEx=6) Then
Exit()
End
If (CBK_MsgEx=7) Then
**No
End

**--------------------------
**==============END SCRIPTING=========

خوب مباحث اسکریپت نویسی این برنامه تموم شد برای درک بیشتر میتونید مثال رو از زیر بگیریید علاوه
براون یه فایل اجراییم گذاشتم + یه فایل PDF از اسکریپت نویسی بالا



تمام حقوق این اثر مربوط به سایت مجید انلاین است ارایه این مطلب در هرجا فقط با ذکر ادرس www.majidonline.com نام نویینده PEyman 136бو ادرس اینترنتی http://www.peyman136.blogfa.com مجاز میباشد
 
peyman136

peyman136

کاربر متخصص مولتی مدیا بیلدر
تو کدنویسی بالا من تمامی مراحل را بعد از مساوی گذاشتم یعنی اسم هرکدوم هستش کافی شما کپی کنید
 
peyman136

peyman136

کاربر متخصص مولتی مدیا بیلدر
کسی اگه کاملش کرد بزاره اینجا ما هم استفاده کنیم
بعدا سعی میکنم سورسشم بذارم ولی نمی تونم قول بدم
 
peyman136

peyman136

کاربر متخصص مولتی مدیا بیلدر
اول اون اسم هایی که تو مساوی هست باش یه ابجکت درست کن بعد کد مربوط به اون رو کپی کن توش درست میشه
اگه درست نشد سرفرصت یه مثال برات میزارم:oops: :twisted:
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا