با سلام.لطفا به من یه لینک بگید ويژوال رو دانلود کنم..
Printable View
با سلام.لطفا به من یه لینک بگید ويژوال رو دانلود کنم..
از اینجا بگیر :نقل قول:
تورنت هست. راحت و مطمئن. :10:کد:http://thepiratebay.org/torrent/5245975/Visual_Basic_6.0_Enterprise_Edition_With_Serial_-_BL4CKH4ND
با سلام،
من میخواهم تو ویژال بیسیک جدید 2008 برای عناصر (مثلا Button ها ) در آرایه قرار دهم.
در ویژال قدیمی وقتی نام دوتا از عناصر را هم نام قرار می دادی یه پیغام می داد که وقتی yes رو می زدی آنها را به صورت آرایه قرار می داد اما در ویژال بیسیک جدید این طوری نیست و با انجام این کار فقط ERROR می ده !
کسی می دونه تو ویژال جدید چی کار باید کرد ؟
لفا بهم جواب بدید که شدیدا نیاز دارم!
خیلی ممنون
خیلی ممنون واقعا بدردم خورد
کسی نیست جوابی بده؟؟؟!!!
مثل اینکه تو ویژال بیسیک جدید آرایه را تعریف نکردن!!!
لطفا هر کی هر چی در مورد تعریف آرایه برای عناصر تو ویژال 2008 جدید می دونه بده که شدیدا لازمه!!!
ممنون می شم کسی پیدا بشه یه کمک کوچولو بکنه!!!
منتظرم بازم ممنون.......
دوستان من با کنترل winsock مشکل دارم
- پروتکل رو UDP انتخاب کردم
و اینم برنامه:
Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strReceive As String
txtReceive.text = winsock1.GetData
End Sub
Private Sub Command1_Click()
winsock1.SendData txtSend.Text
End Sub
Private Sub Form_Load()
A.RemoteHost = "192.168.3.4"
A.RemotePort = 1001
winsock1.Bind 1002
End Subحالا وقتی متنی رو وارد می کنم و کلید ارسال رو میزنم در سیستم گیرنده ارور argument not optionalمیاد
چیکار باید بکنم؟
سلام...
من اینExplorerBarXP2) OCX) رو از اینترنت دانود کردم ،ولی نمیتونم باهاش کار کنم ...
هر کاری کردم فرم شیشه ای نشد ...
لطفا راهنمایی کنید یا یه Sample بذارید
ممنون
شما ActiveX رو بذاريد...! (آپ كنيد يه جا و لينكش رو بذاريد اينجا...!) تا دوستان بتونن كمك كنن...!؟!نقل قول:
ممنون...!
از خود سایتش میشه ورژن Trial رو پیدا کرد ....اینم لینکش :نقل قول:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
چجوری میتونم دوتا رکورد رو تو DataGrid جا به جا کنم؟
کسی نبود جواب بده؟:41:
ببینید من میخوام رکورد های یک بانک اطلاعاتی رو بر اساس یک فیلد مرتب کنم
حتی نمیدونید چجوری رکورد های یک جدول رو میشه جا به جا کرد؟؟:37:
از چه نوع بانک اطلاعاتی استفاده می کنید ؟ منظورمو کنترلرشه ... Data ؟
از Microsoft Office Access استفاده میکنم
یه DataGrid دارم که میخوام رکورد هاش رو مرتب کنم>>>>> Sort
یا اگه مرتب نمیشه حد اقل بگید چجوری میتونم رکوردها رو جابه جا بکنم؟؟؟؟؟
مثل اینکه اینجا همه...
نمیشد این جواب ساده رو بدید؟؟
کد:
"ADO.Recordset.sort="Field name
سلام
یه سوال دارم
من یه نرم افزار ساختم اما رو کامپیوتر دوستم اجرا نمیشه و این ارور رو میده چیکار کنم؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
آقا من خیلی خیلی مبتدی هستم!
چند تا سوال
1-ویژوال بیسیک چی هست؟باید دانلود کرد؟از کجا باید گیرش آورد؟
اگه دانلودی هست لینکش رو بدید
2-یه مقاله ی PDF میخوام که از اول تا آخرش رو توضیح داده باشه و توش آموزش بده چه طور چیزی بنویسیم
3-بین چیز های برنامه نویسی کدوم از همه بهتره؟
یه زبان برنامه نویسی شی گرا + سطح بالا + رویدادگر + غیره و زالک هست :31:که با هدف آموزشی توسعه پیدا کرده.نقل قول:
من فایل تورنتش رو دارم (Visual Basic 6 + MSDN library) :
با مقاله نمیشه برو بیرون کلاس عمومی ویژوال بیسیک هست ثبت نام بکن اگه باهوش باشی با پنج شیش جلسه برنامه مینیویسی.کد:http://up.--------.com/Files0/b15b8632ac264e1caba4.zip
کتاب هم من این رو پیشنهاد میکنم که بخونی :
بین چیزهای برنامه نویسی همشون خوبه برو یاد بگیر :31:کد:http://forum.p30world.ir/showthread.php?t=448872
کسی میدونه چطوری میشه یه موزیک پس زمینه گذاشت که خودش به طور اتوماتیک اجرا بشه؟
راه های زیادی هست...!؟! بهترین راه استفاده از کتابخانه هایی ه که واسه این کار ساخته شده...!؟! مثل کتابخانه های Windows Media Player ...!؟! :20:نقل قول:
یه راه ساده تر هم هست... ولی... فقط به درد پخش فایل های Wav می خوره...!؟! (پسوند های دیگه رو نمی شه باهاش پخش کرد...!؟!) :2:
روش استفاده ش هم به این صورت ه که... اول... باید تابع sndPlaySound رو از کتابخانه winmm.dll فراخوانی کنید...!؟! به این صورت...!؟! :
بعد هم دو تا ثابت زیر رو تعریف کنید...!؟! :کد:Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
بعد هم تابع sndPlaySound رو هر جا که خواستید... فراخوانی کنید...!؟! همین...!؟! :27: :31:کد:Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
فراخوانی ش هم به این صورته...!؟! :
مقدار متغییر FileName رو باید برابر مسیر فایلی که می خواید پخش کنید... قرار بدید...!؟! :20:کد:FileName = "C:\Sound.wav"
sndPlaySound Filename, SND_ASYNC Or SND_NODEFAULT
موفق باشید...!؟! :46:
با این نوشتم و جواب داد :
کد:Me.MMControl1.FileName = ("c:\Windows\media\Windows XP Logon Sound.wav")
Me.MMControl1.Command = "Open"
Me.MMControl1.Command = "Play"
ولی با عوض کردن مسیر فایل موزیک دیگه کار نمیکنه! بنابراین روی کامپیوتر دیگه هم کار نخواد کرد! باید یه جوری فایل موزیک رو داخل فایل exe جاسازی بکنم. میخوای یه چیزی شبیه با کیجین درست کنم که وقتی اجرا میکنه شروع بکنه به پخش آهنگ!
سلام بر اساتید
من یه برنامه نوشتم با این زبان در برنامه ام قابلیت گرفتن نسخه پشتیبانی از Data Base را قرار دادم بعد وقتی از Data Base نسخه پشتیبان میگیرم یهو اسکین انگار پاک میشه و برنامه ارور میده.
مشکلش چی هست؟ باید چه کرد؟
خب... این آهنگ تو پوشه ویندوزه...!؟! پس یعنی می تونی... اون کد رو با این عوض کنی...!؟! :نقل قول:
خب... این یه راهش بود...!؟! یه راهش هم اینه که فایل رو به صورت Resource به برنامه اضافه کنی... و...!؟! :27:کد:Me.MMControl1.FileName = ( Environ("WinDir") & "\media\Windows XP Logon Sound.wav")
Me.MMControl1.Command = "Open"
Me.MMControl1.Command = "Play"
البته باز کردن و پخش کردنش... (از راه دوم) سرعت رو میاره پایین...!؟! :13:
واسه کیجن ها و... از یه سری ماژول خاص استفاده میشه... که حجم خیلی خیلی کمی دارن...!؟! :27:
مثلاً این...!؟! :
تو خودش چند تا مثال داره...!؟! :13:کد:http://magic.shabgard.org/V2mPlayer-VB-Delphi.zip?Reload
اگه مشکل خاصی داشتی... پ.خ بزن... برات چند تا مثال بفرستم...!؟! :20:
موفق باشی...!؟! :46:
راه ساده تری برای اضافه کردن فایل موزیک به ریسورس داخل فایل exe وجود داره؟
از این ساده تر...؟؟؟ :31:نقل قول:
فکر نمی کنم...!؟! :13:
شما با کدوم قسمتش مشکل دارید...؟؟؟ بگید تا راهنمایی تون کنم...!؟! :20:
مثلا اگه نخوام از یه سری ماژول خاص که گفتی استفاده بکنم :
باید چی کار کنم؟! :31:نقل قول:
واسه کیجن ها و... از یه سری ماژول خاص استفاده میشه... که حجم خیلی خیلی کمی دارن...!؟! :27:
خب... فایل موزیک رو به صورت ریسورس به برنامه تون اضافه کنید... و بعد از اجرای برنامه... به فایل تو یه پوشه مثل temp بسازید... و اون فایل رو به صورت باینری بازش کنید... و فایل موزیک رو هم از داخل ریسورس باز کنید... و توی اون فایل بریزید...!؟! بعد هم با استفاده از همون تابع... (sndPlaySound) آهنگ رو اجراش کنید...!؟! به همین سادگی...!؟! :27: :31:نقل قول:
موفق باشید...!؟! :46:
ببینم این رو خودت استفاده کردی؟ جواب داده؟ من که کارهای زیر رو انجام دادم ولی هیچ اتفاقی نمیفته. ببین اشکال از کجای کارم هست؟ :
از VB6_With_Dll استفاده کردم.
VB --> Standard EXE
Project Menu --> Add Module --> MagicV2mEngine.bas
Ctrl+D --> MagicV2mEngine.res
کد زیر رو به داخل فرم زدم :
کد:
Private Sub Form_Load()
V2m_Init
End Sub
Add-Ins --> Add-In Manager --> VB 6 Resource Editor --> Loaded/Unloaded
Tools --> Resource Editor --> Add Custom Resource
بعد فایل موزیکم رو انتخاب کردم بعد 102 به زیر پوشه "CUSTOM" اضافه شد.
(حجم فایل موزیک 800 کیلو بایت و با فرمت wav هستش.)
روی فرم یه دکمه گذاشتم و توش این کد رو نوشتم :
کد:
Private Sub Command1_Click()
V2mPlayRes 102, "CUSTOM", True
End Sub
خب... این فقط واسه پخش فایل های V2M هستش...!؟! نه فایل های Wav ...!؟! :27: :31:نقل قول:
تو خود برنامه... یه آرشیو از فایل های V2M هست... که می تونید ازشون استفاده کنید...!؟! :21:
آهنگ هاش... همه ش مثل آهنگ های کیجن و پچ و... ست...!؟! :13:
واسه پخش فایل های Wav خودتون باید دست به کار بشید و... یه چند تا تابع بنویسید...!؟! :31:
من اگه وقت کردم... براتون می نویسم...!؟! :20:
روش نوشتنش رو بالا گفتم...!؟! :13:
موفق باشید...!؟! :46:
بفرمایید...!؟! :11:
یه Module به پروژه تون اضافه کنید... و این کد ها رو توش بنویسید...!؟! :
اگه مشکلی بود... من در خدمتم...!؟! :20:کد:Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Function ExtractResFile(FileName As String, ResID, ResType) As Long
On Error GoTo Err_
ExtractResFile = 1
Dim FileBytes() As Byte
Dim FNum As Integer
FileBytes = LoadResData(ResID, ResType)
FNum = FreeFile
Open FileName For Binary As #FNum
Put #FNum, , FileBytes()
Close #FNum
Exit Function
Err_:
ExtractResFile = 0
End Function
Public Function PlayResWav(ResID, ResType) As Long
Dim RndFileName As String
PlayResWav = 1
RndFileName = Environ("TEMP") & "\" & Rnd(65535) * 65535
If ExtractResFile(RndFileName, ResID, ResType) Then
sndPlaySound RndFileName, SND_ASYNC Or SND_NODEFAULT
Else
PlayResWav = 0
End If
End Function
موفق باشید...!؟! :46:
سلام من یه سوال در رابطه با WebBrowser دارم
من چطوری میتونم یک صفحه رو submit بکنم؟
با سلام از comboboox بگید که چطوری میتونم که با انتخاب یکی از اعداد در 1 comboboox عدد مورد نظرم در2 comboboox انتخاب بشه
میشه یه کم بیشتر توضیح بدی که دقیقا میخوایی چی کار کنی؟ من که اصلا متوجه نشدم میخوایی چی کار کنی. دو تا کنبوباکس داری محتویاتشون رو بگو که چی هست.نقل قول:
combobox1
1
2
3
4
combobox2
a
b
c
d
---------- Post added at 11:36 PM ---------- Previous post was at 11:32 PM ----------
وقتی عدد یک را انتخاب کردم
a را نمایش بده
و وقتی 2 را انتخاب کردم
b را نمایش بده و ...
---------- Post added at 11:40 PM ---------- Previous post was at 11:36 PM ----------
و بلعکس هم صادق باشه
وقتی a را انتخاب کردم
1 را نمایش بده
و وقتیb را انتخاب کردم2 را نمایش بده و ....
---------- Post added at 11:41 PM ---------- Previous post was at 11:40 PM ----------
و بلعکس هم صادق باشه
وقتی a را انتخاب کردم
1 را نمایش بده
و وقتیb را انتخاب کردم2 را نمایش بده و ....
و بلعکس هم صادق باشه
وقتی a را انتخاب کردم
1 را نمایش بده
و وقتیb را انتخاب کردم2 را نمایش بده و ....
ببین این کارت رو راه میندازه :
(دقت کن که باید توی Click بریزی نه توی Change)
توی کلیک اولی بنویس :
کد:Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
Combo2 = Combo2.Text
End Sub
توی کلیک دومی بنویس :کد:Private Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
Combo1 = Combo1.Text
End Sub
توضیحش هم که خیلی مشخص هست که داره چی کار میکنه.
سلام
بچه ها من این ماشین حساب رو نوشتم
ولی توانش کار نمیکنه
کسی میتونه کمک کنه تا توانش هم راه بیافته؟
ممنون
کد:http://www.mediafire.com/?4vtvebv9llep0h2
این ماشین حساب رو خودت نوشتی؟ احساس میکنم کدهای تکراری و اضافی زیاد داره.
به هر حال کد داخل دکمه توان رو پاک بکن و به جاش این خط رو بنویس تا کار بکنه :
کد:Text1.Text = Val(Text1.Text) ^ 2
اگه دلیل خاصی داره که کدهاش رو این طوری نوشتی بگو تا منم یاد بگیرم.
دستت درد نکنه
آره خودم نوشتم
حالا فعلا موقع امتحان هاست
میام بیشتر با هم کار میکنیم و یاد میگیرم
البته این فقط توان 2 هستش
می خواستم تو یه کلید همه اینا با هم راه بیافتن
ولی خیلی کمک کردی
با تشکر
با عرض سلام و خسته نباشید به همه دوستان.
من 1 سوال داشتم.
آیا با ویژوال بیسیک می توان یک مکعب مربعی ایجاد کرد و سپس چند صفحه را با این مکعب قطع داده و تعیین کرد که چند فضای محصور در این مکعب مربع ایجاد خواهد شد؟
ممنون می شوم اگر جواب بدهید.