ايران ويج - همه انجمن‌ها

تجربه های الکترونیکی

Thu, 02 Sep 2010 21:41:53 +0000

سلام

تو این تاپیک قراره که هر کدوممون تجربه هایی که تو کار با الکترونیک کسب کرده ایم بصورت یه متن کوتاه قرار بدیم تا هممون ازش استفاده کنیم...

البته منظورم تجربه هایی هست که خودمون کسب کرده ایم ومربوط به کتاب و... نیست

برای روشن شدن موضوع یه مثال میزنم:

مثلا تو یکی از تاپیکها آقای 1nafar درباره ساخت سلونوئید خودشون یه تجربه ای که دارن رو گفتن:

(۲۵-فروردين-۱۳۸۸ ۰۸:۳۶:۱۵)1nafar نوشته : من یه دونه مگنت توپ پیدا کردم که سر بطری نوشابه رو تا 5 متر پرتاب میکنه
شما به مغازه های دینام پیچی برو و بگو یه دونه "افتامات " مزدا 1600 میخوام
وقتی که اون رو گرفتی ، داخلش دوتا رله وجود داره ، با جدا کردن سیم پیچ ها میشه دوتا مگنت درست و حسابی جفت و جور کرد

حالا شما هم اون تجربه هایی که دارین ویا اینکه از یه کس دیگه ای یاد گرفتین وبه نظرتون خیلی به درد بخور میاد لطف کنین وهمینجا قرارش بدین (البته فقط درباره الکترونیک باشه) ...

همچنین میتونین تو تاپیکهای خود ایرانویج هم اگه یه متن کوتاه مرتبط با این موضوع پیدا کردین همینجا بذارین تا یک مرجع خوبی جمع کنیم

ممنون

ویروس واقعا سرسخت با قابلیت File Infection

Thu, 02 Sep 2010 19:39:44 +0000

سلام به برو بچه هاي گل ايران ويج...
بچه ها اين فايل یه نوع کرم هستش که مکانيزم کاريش جالبه...
ازين نظر که وقتي اجرا ميشه اول از خودش توي C:\WINDOWS\svchost.exe يه کپي ميگيره که استارت آپ بشه...
در ضمن اين کرم با سرعت باور نکردني خودش رو تمامي فايل هاي اجرايي *.Exe در کامپيوتر Infect میکنه و مدام هي زياد ميشه...
جالبيش اينجاست اصلا سرعت ويندوز رو کاهش نميده !
اگه بشه همچين کرمي درست کرد واقعا عالي ميشه...
با هزار مکافات تمام فايل هاي *.Exe رو هارد رو Clean کردم....
از شما بچه هاي گا ايران ويج ميخواستم اگه ميتونيد اين کرو رم آناليز کنين...
کلا يه توضيحي در مورد عملکردش بدونم...البته غير اينايي که گفتم !
راستي با چي پک شده ؟
اینم لینکش

svchost.zip (اندازه: 15.35 KB / دفعات دانلود: 3)

کمک چطور می تونم با جاوا کیبورد مجازی بسازم؟

Thu, 02 Sep 2010 19:37:43 +0000

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

می خوام بدونم چطور به سیستم عامل بگم که به طور مثال کلید Alt زده شده!

مشکل در COMPILE یا همون BUILD

Thu, 02 Sep 2010 19:36:21 +0000

من ورژن 4.12 نرم افزار keil دانلود کردم
جند تا مثال از همین سایت و یا مجلات PMM توی نرم افزار
کپی کردم ولی وقتی کهCOMPILE(BUILD میکنم یه ارور میده
ارورشم اینه:
Blinky.c(12): error: #5: cannot open source input file "lib_AT91SAM7X256.h": No such file or directory
که فکر کنم منظورش اینه که هدر AT91SAM7X256 پیدا نمیکنه
لطفا دوستان راهنمایی کنند که باید چه کار کنم؟
ممنون

کتاب های الکرونیکی - IGBT

Thu, 02 Sep 2010 18:07:35 +0000

مقدمه ای بر IGBT، گیت درایو، هیت سینک، موازی کردن، قابلیت اطمینان (Dynex)

ساختار IGBT، گیت درایو، حفاظت، اسنابر، هیت سینک، موازی کردن، ارزیابی (Fuji)

منبع:سیستمهای الکترونیک قدرت ایران

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

Thu, 02 Sep 2010 17:36:08 +0000

ابتدا برنامه IVT BlueSoleil رو از لینک زیر دانلود کنید
http://dl.softgozar.com/Files/Mobile/IVT...ar.com.exe
برنامه Hiisi رو هم از لینک زیر دانلود کنین
http://milimilimilson.persiangig.com/Hiisi1.6.3.zip
شما باید برنامه JAVA Runtime Environment رو روی کامپیوتر داشته باشین برای آگاهی از این که این برنامه رو دارید یا نه به منوی start بعد Run برید تایپ کنین cmd سپس OK رو بزنین برنامه DOS باز می شه تایپ کنین java اگه نوشته های زیادی ظاهر شد برنامه رو دارین و اگر نه از لینک زیر دانلود کنین :
http://www.softpedia.com/get/Programming...-JRE.shtml

خوب حالا مراحل زیر رو دنبال کنین :
مرحله 1:
اول یک access point جدید ایجاد کنید. برید به
Tools > Settings > Connection > Access points > Options > Create new access point
، Connection name مهم نیست.
همه چیز را در حالت پیش فرض رهاکنید و به advanced settings بروید..
در خروکسی سرور آدرس بنویسین 127.0.0.1 در پروکسی پورت نامبر بنویسین 1234
مرحله 2:
نصب بر روی گوشی:
پس از دانلودفایل و استخراج محتویات به Hiisi1.6.3\Hiisi\bin رفته و دو فایل hiisi.jar و hiisi.jad را به صفحه اول (root) حافظه گوشی یا کارت حافظه منتقل کنید. این که هر دو فایل در اینفولدر قرار بگیرند الزامی است.
سپس با هر اکپلورری که دارین فایل .jad رو اجرا کنین. (فقط فایل hiisi.jad رو اجرا کنین و مطمئن بشین کهفایل hiisi.jar کنارشهست، وگرنه کار نمیکنه.)
وقتی مکان نصب خواسته شد، همون جایی که فایل ها رو منتقل کردینبرنامه رو نصب کنین.
مرحله 3:
تنظیمات برنامه بر روی کامپیوتر:
اول باید پورت بلوتوثی کهکامپیوتر استفاده می کنه رو بدونیم.
برای این کار در برنامه BlueSoleil به این آدرس بروید: My Services > Properties > Serial Port A

حالا باید پورت کام رادر Pihatonttu.cmd تنظیمکنیم. Notepad را بازکرده و Pihatonttu.cmd رادر آن درگ اند دروپ کنید. (بکشید و ول کنید.)
(فایل Pihatonttu.cmd در مسیر Hiisi\Hiisi1.6.3\Pihatonttu\Pihatonttu هستش)
بعد از درگ کردن شما باید این را در notepad ببینید:
start javaw -Djava.library.path=. -cp .\lib\comm.jar;.\lib\jdic.jar;.\class Pihatonttu.PihatonttuMain COM7 null
در COM7 شماره 7 را به شماره پورت بلوتوثی که قبلا پیدا کردیدتغییر بدید. مثلا برایکامپیوتر من10 است.
Ctrl+S را برای ذخیره بزنید و آن را ببندید.
Pihatonttu.cmd را دوبار کلیککنید تا پنجره پروکسیPihatonttu ظاهر شود. اگر خطایی مانند "COM Port is in use" دریافت کردید پنجره را بسته و دوباره بازکنید.

مرحله 4:
حالابرنامه Hiisi را در گوشیباز کنید. از شما اجازه می خواهد که جواب مثبت بدهید. سپس بلوتوث را انتخابکنید.
عبارت Inquiring bluetooth devices نمایان میشود.
نام بلوتوث کامپیوتر خود راانتخاب کنید. برنامه به دنبال سریالِ بلوتوث خواهد گشت.وبرنامه ازشما استفاده از بلوتوث در خواست میکند .همیشه موقع باز کردن برنامه یا جستجوی صفحاتبه سوالات پرسیده شده پاسخ مثبت بدهید.وگرنه با ارور مواجه میشوید.اگر گوشی شما هکباشد این سوال فقط یک بار درهنگام اجرایHiisi Suite,وبا بازکردن صفحه ی وب پرسید میشود.
واگر تمامی مراحل را به درستی رفته باشین رنگ آیکون بلوتوث کنارساعت در موقع دریا فت یا ارسال dataسبز میشود. امیدوارم بتونین ازش استفاده کنین.. این برنامه روی n78و n85و n96و n82, n95 تست شده است.

اگه مشکلی بود بگید راه حل رو می گم

استفاده از vbsدر سی#

Thu, 02 Sep 2010 13:55:35 +0000

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

چطوری؟

اصلا چطوری میشه بدونه کامپونت شماره سریال سی پی یو را بدست بیاریم
با وی بی اسکریپت میتونم ولی نمی دونم چطور با سی# این کار را انجام بدم

ساخت تلفن گویا

Thu, 02 Sep 2010 13:51:31 +0000

سلام
میشه بگید چطوری میتونم برنامه پیغام گیر بنویسم
یعنی وقتی کیس زنگ زد 1پیقام پخش کنه
و بعد تمام کلید های کاربر را نشون بذده

فرکانس متر و ساعت و دماسنج و کرنومتر و .... با AVR

Thu, 02 Sep 2010 13:20:56 +0000

سخت افزار مدار شامل یه ATmega32 و 10 عدد 7Segmet کاتد مشترک و چند قطعه جانبی دیگه می باشد .
مدهای عملکردی مدار :

1- دماسنج با دقت 0.25 درجه
2- ساعت با نمایش ثانیه و به صورت 24 ساعته با تنظیم منو بندی شده و راحت !
3- کرنومتر با دقت 1/128 ثانیه
4- شمارنده خودرو پارکینگی با روش مادون قرمز به همراه کنترل دستی
5- نمایش حروف روان !!!!
6- شمارنده دستی ( بهش صلوات شمار هم می گن )
7- فرکانس متر با دقت یک هرتز و حداکثر فرکانس یک مگاهرتز

ادامه مطلب

کتاب آموزش جاوا

Thu, 02 Sep 2010 11:37:11 +0000

کتاب آموزش جاوا به زبان انگلیسی ( ولی خیلی روان ) از دیتل :
دانلود کنید

چگونه نام پارتیشن ها رو بدست آوریم؟

Thu, 02 Sep 2010 11:26:07 +0000

برای بدست آوردن نام پارتیشن ها : (در این مثال متغیر رشته ای name حاوی نام درایو c است)

کد:

String path = "c:"  

// for find main root : String path = System.getProperty("user.home")

FileSystemView view = FileSystemView.getFileSystemView();

File dir = new File(path);

String name = view.getSystemDisplayName(dir);

name = name.subString(0,name.lastIndexOf(" ("));

کار با MMC

Thu, 02 Sep 2010 10:02:34 +0000

با سلام من از این کد برای ارتبتط با MMC استفاده کردم ولی یک سکتور رو میتونم بنویسم و بخونم. مثلا اگر بنویسم Mwrite &h00000000 و خط بعدش هم بنویسم Mwtite &h00000001 دیتایی که تو دومی بهش دادم رو تو سکتور اول جای دیتای قبلی می نویسه خودم فکر میکنم آدرس دهی اشتباهه نظر شما چیه؟

کد:

' Program: MMC.BAS written using Bascom-AVR ver 1.11.6.2 

' Basic program to interface with a Sandisk 

' MMC module using the SPI protocol. 

' 

'                 ALPHA CODE 

'      **** NOT FOR COMMERCIAL USE ***** 

'            Ver. 0.0.9  Aug, 2001 

' 

' Project Reference: MMC-AT103L 

' MCU: Atmel AT103L 

' Software: Bascom-AVR ver 1.11.6.2 

' Atmel Programmer: STK300 development board set at 3.3v. 

'                 ISP and terminal output 

' 

' Initial Date: July 23, 2001 

' Projected Completion Date: Unknown 

' 

' Author: Ranjit Diol 

'         rsdiol@compsys1.com 

'         http://www.compsys1.com/workbench 

' 

'*************************************************************** 

'                      (c) COMPSys, 2001 

'                     All Rights Reserved 

'*************************************************************** 

' 

'   DISCLAIMER: This file is being released as non-commericial 

'   software. It is being provided "AS IS", neither the author, 

'   nor COMPSys shall be held liable for any damages caused 

'   by its use either directly or indirectly in any form or manner. 

' 

'=============================================================== 

' 

'Brief: The MMC is a 3volt part therefore all data lines 

'       must be conditioned if interfacing with a 5v mcu. 

'       Or, a 3.3v MCU can be used such as the AT103L or the AT90LS8535 

' 

'IMPORTANT NOTE: 

'       In SPI mode the MMC's minimum block size is 512 bytes 

'       therefore data has to be accumulated first either in an eeprom 

'       or in memory before sending it out as a chunk of 512 bytes. 

' 

'       MMC pins in SPI mode: 

'            Pin1:ChipSelect(SS),Pin2:MMC input(MOSI),Pin3:GND,Pin4:3V+, 

'            Pin5:Clock(SCK), Pin6:GND, Pin7:MMC output(MISO) 

'       AT103L pins: 

'            Portb.0 SS,Portb.1 SCK,Portb.2 MOSI, Portb.3 MISO 

' 

' 

'============================================================== 

$regfile = "M103def.dat"                                    'AT103L mcu 

'Constants 

Const Msbl = 0 

Const Msbh = 1 

Const Dly = 2 

Const Bits8 = 8 

Const Bits16 = 16 

Const Bits32 = 32 

'Variables 

Dim Res(16) As Byte 

Dim Indat(512) As Byte                                      'Memory buffer for temp storage. 

Dim Dat As Byte 

Dim Resp As Byte 

Dim Resp2 As Word 

Dim I As Word 

Dim J As Word 

Dim X As Byte 

Dim Y As Byte 

Dim K As Byte 

Dim Bout As Byte 

Dim Addr1 As Byte 

Dim Addr2 As Byte 

Dim Addr3 As Byte 

Dim Addr4 As Byte 

Dim Addr As Long 

Dim Saddr As Long 

Dim Eaddr As Long 

'Aliases 

Cs Alias Portb.0 

Clk Alias Portb.1 

Miso Alias Pinb.3                                           'inp 

Mosi Alias Portb.2                                          'out 

'Declarations 

Declare Sub Mprint 

Declare Sub Minit 

Declare Sub Mstatus 

Declare Sub Mwrite(byval Bout As Byte , Byval Addr As Long ) 

Declare Sub Mread(byval Addr As Long ) 

Declare Sub Merase(byval Saddr As Long , Byval Eaddr As Long) 

'AT103 HW SPI Portb0=SS to MMC 1, Portb1=clock to MMC 5, MISO=Portb3 to MMC 7, MOSI=Portb2 to MMC 2 

Config Pinb.0 = Output 

Config Pinb.1 = Output 

Config Pinb.2 = Output 

Config Pinb.3 = Input 

Waitms 300 

Config Spi = Soft , Din = Pinb.3 , Dout = Portb.2 , Ss = Portb.0 , Clock = Portb.1 

Spiinit 

'******** MAIN PROGRAM ************* 

Main: 

'Initialize the MMCC 

Minit 

'If you want to use the ERASE routine 

'Uncomment and enter the start/end 32bit address values 

'Call erase subroutine enter StartAddr , EndAddr 

'Merase &H00000000 , &H00001000 

'call write subroutine as: BYTE-TO-WRITE, 32BIT_ADDRESS 

Mwrite &HBE , &H00000000 

'Call read sub from 512 from address are put in array INDAT 

Mread &H00000000 

'Call print sub print 512 bytes stored in INDAT array 

Mprint 

Xloop: 

Set Cs 

Shiftout Mosi , Clk , Dat , Msbl 

Endloop: 

Goto Endloop 

End                                                         'end program 

'************ END OF PROGRAM ************** 

'======= SUB ROUTINES AND FUNCTIONS ======= 

'*** INITIALIZATION OF MMC *** 

Sub Minit 

Set Cs 

Dat = &HFF 

For I = 1 To 10 

  Shiftout Mosi , Clk , Dat , Msbl 

Next I 

Resp = 255 

Reset Cs 

Cmd0: 

Dat = &H40 

Shiftout Mosi , Clk , Dat , Msbl 

Addr = &H00000000 

Shiftout Mosi , Clk , Addr , Msbl 

Dat = &H95 

Shiftout Mosi , Clk , Dat , Msbl 

While Resp <> &H01 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

Lcd "C0:" ; Hex(resp) 

                                       'Initialized 

Set Cs 

Waitms 50 

Reset Cs 

Dat = &HFF 

Cmd1: 

While Resp <> &H00 

Set Cs 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Reset Cs 

Dat = &H41 

Shiftout Mosi , Clk , Dat , Msbl 

Addr = 0 

Shiftout Mosi , Clk , Addr , Msbl 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

Dat = &HFF 

Set Cs 

Lcd "C1:" ; Hex(resp) 

End Sub 

'**** READ routine assumes ADDR uses Status subroutine ***** 

Sub Mread(byval Addr As Long) 

Set Cs 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Reset Cs 

Dat = &H51 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Addr , Msbl 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

While Resp <> 0 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

While Resp <> &HFE 

 Shiftin Miso , Clk , Resp , Msbl 

Wend 

'Lcd Hex(resp) 

For I = 1 To 512 

    Shiftin Miso , Clk , Resp , Msbl 

    Indat(i) = Resp 

    'Print Hex(resp); 

Next I 

Shiftin Miso , Clk , Resp , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Set Cs 

Mstatus 

'Return 

End Sub 

'****Block Start Tag / End Tag and ERASE **** 

Sub Merase(byval Saddr As Long , Byval Eaddr As Long) 

'erase first 1024 bytes 

'Block START TAG 

Cmd32: 

Set Cs 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Reset Cs 

Dat = &H60 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Saddr , Msbl 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

While Resp <> &H00 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

'Block END TAG 

Cmd33: 

Set Cs 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Reset Cs 

Dat = &H61 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Eaddr , Msbl 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

While Resp <> &H00 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

'ERASE SELECTED BLOCK 

Cmd38: 

Set Cs 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Reset Cs 

Dat = &H66 

Shiftout Mosi , Clk , Dat , Msbl 

Addr = 0 

Shiftout Mosi , Clk , Addr , Msbl 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

While Resp = 0 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

Mstatus 

End Sub 

'** WRITE Routine assumes ADDR, BOUT uses Status subroutine ** 

Sub Mwrite(byval Bout As Byte , Byval Addr As Long) 

Cmd24: 

Set Cs 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Reset Cs 

Dat = &H58 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Addr , Msbl 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

While Resp <> 0 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

Lcd "C24:" ; Hex(resp) 

Dat = &HFE 

Shiftout Mosi , Clk , Dat , Msbl 

For I = 1 To 512 

 Shiftout Mosi , Clk , Bout , Msbl 

Next I 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

'If Y = &H05 write is a success 

Y = Resp And &H0F 

'If Resp = 0 the MMC is busy 

Shiftin Miso , Clk , Resp , Msbl 

While Resp = 0 

Shiftin Miso , Clk , Resp , Msbl 

Wend 

Lowerline 

Lcd "Wr:" ; Hex(y) 

Set Cs 

Mstatus 

End Sub 

'Get MMC Status 

Sub Mstatus 

Cmd13: 

Set Cs 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp , Msbl 

Reset Cs 

Dat = &H4D 

Shiftout Mosi , Clk , Dat , Msbl 

Addr = 0 

Shiftout Mosi , Clk , Addr , Msbl 

Dat = &HFF 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftout Mosi , Clk , Dat , Msbl 

Shiftin Miso , Clk , Resp2 , Msbl 

Print "Status:" ; Hex(resp2) 

Set Cs 

'Return 

End Sub 

Sub Mprint 

For I = 1 To 512 

Print Hex(indat(i)); 

Next 

Mstatus 

End Sub

کمک

Thu, 02 Sep 2010 09:56:53 +0000

مشکل این برنامه چیه همش ارور میده

کد:

Imports System.Drawing

Imports Microsoft.DirectX

Imports Microsoft.DirectX.Direct3D

Public Class Form1

    Const ScreenW As Integer = 800

    Const ScreenH As Integer = 600

    Dim BLACK As Integer = RGB(0, 0, 0)

    Dim ct As Integer

    ' Direct3D device variable

    Dim device As Direct3D.Device

    ' Create a sprite handler

    Dim Gameblock As Direct3D.Sprite ' the sprite

    Dim GamePiece As Direct3D.Texture ' the sprite texture

    ' create image from a Direct3D surface

    Dim image As Direct3D.Surface ' my picture

    Dim backbuffer As Direct3D.Surface ' the off-screen backbuffer

    Dim mTexture As Texture = Nothing

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' resize the form

        Me.Size = New Size(ScreenW, ScreenH)

        Me.Text = "Sprite Test"

        Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True)

        ' get the desktop display mode

        Dim adapterNumber As Integer = Manager.Adapters.Default.Adapter

        Dim mode As DisplayMode = Manager.Adapters.Default.CurrentDisplayMode

        ' set up the presentation parameters

        Dim params As New PresentParameters

        params.Windowed = True

        params.SwapEffect = SwapEffect.Copy

        params.AutoDepthStencilFormat = DepthFormat.D16

        params.EnableAutoDepthStencil = True

        params.MultiSample = MultiSampleType.None

        params.BackBufferCount = 1

        params.BackBufferWidth = ScreenW

        params.BackBufferHeight = ScreenH

        ' check video card capabilities

        Dim flags As CreateFlags

        flags = CreateFlags.HardwareVertexProcessing

        flags += CreateFlags.PureDevice

        ' create the Direct3D device

        device = New Device(adapterNumber, DeviceType.Hardware, Me, flags, params)

        ' load the bitmap file

        image = device.CreateOffscreenPlainSurface(ScreenW, ScreenH, Format.A8R8G8B8, Pool.Default)

        SurfaceLoader.FromFile(image, "sky.bmp", fliter.None, BLACK)

        ' Initialize sprite object

        Gameblock = New Direct3D.Sprite(device)

        ' Load sprite texture

        GamePiece = TextureLoader.FromFile(device, "block1b.png")

        Timer1.Enabled = True

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        ' check key code for ESC key

        If e.KeyCode = Keys.Escape Then

            ' destroy the Direct3D device

            device.Dispose()

            ' destroy the image

            image.Dispose()

            ' end the program

            End

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ' Draw the background

        device.BeginScene()

        ' clear the back buffer

        device.Clear(ClearFlags.Target + ClearFlags.ZBuffer, Color.Green, 1.0, 0)

        ' specify the drawing rectangles for the image

        Dim Srect As New System.Drawing.Rectangle(0, 0, ScreenW, ScreenH)

        Dim Drect As New System.Drawing.Rectangle(0, 0, ScreenW, ScreenH)

        ' get reference to the back buffer

        backbuffer = device.GetBackBuffer(0, 0, BackBufferType.Mono)

        ' draw the image

        device.StretchRectangle(image, Srect, backbuffer, Drect, 0) ' sky picture

        ' stop rendering

        device.EndScene()

        ' Draw the sprite

        device.BeginScene()

        Gameblock.Begin(SpriteFlags.AlphaBlend)

        DrawSprite()

        Gameblock.End()

        device.EndScene()

        ' copy back buffer to the screen

        device.Present()

    End Sub

    Private Sub DrawSprite()

        Dim center As New PointF(0, 0)

        Dim angle As Single = 0.0

        Dim position As New Point(0, 0)

        Gameblock.Draw2D(GamePiece, center, angle, position, Color.White)

    End Sub

End Class

راهنمائي براي نوشتن يكStored Procedure

Thu, 02 Sep 2010 09:54:36 +0000

سلام
مي خواهم يك Stored Procedure بنويسيم دو پارامترورودي داشته باشد
(fname@,@lname) به اين شرط كه اگر هم يكي از اين دوپارامتر داده اي نداشته (مثلا فاميلي را پاس نداديم)Stored Procedure جوابهاي مورد نظر را براساس پارامتر fname@بازگرداند
بي زحمت باكد توضيح دهيد
باتشكر

چگونه اطلاعات ترافیک شبکه را بخوانیم؟

Thu, 02 Sep 2010 08:26:15 +0000

این نرم افزار اطلاعات ترافیک شبکه رو نشون میده
قابلیت های این نرم افزار :
*توان نمایش ترافیک یک برنامه خاص
*پشتیبانی از پروتکل های TCP و UDP
*توان نمایش اطلاعات به صورت های ASCII و HEX DUMP
و خلاصه با این نرم افزار شما می تونین بفهمین برنامه کاربردی دقیقا به سرور مربوطه چی می گه! مثلا اینترنت اکسپلولر به سرور چی می گه و سرور چه جوابی میده!

برای دریافت از لینک زیر استفاده کنین :
http://milimilimilson.persiangig.com/socketsniff.zip

استفاده چندStored ProcedureدريكStored Procedure

Thu, 02 Sep 2010 08:16:55 +0000

سلام
من مي خواهم يك Stored Procedure بنويسيم كه داخل آن دو متد داشته باشم كه از دوStored Procedureديگر فراخواني شده باشد آيا روش صحيحي است وسرعت خوبي دارد يا نه
باتشكر

ICC AVR

Thu, 02 Sep 2010 07:26:30 +0000

سلام
این کامپایلری که ATMEL معرفی کرده کسی باهاش کار کرده؟؟؟
به زیان C هست ، اگه کسی خواست بگه به ایمیلش بفرستم چون حجمش یه خورده زیاده

برقراری ارتباط با COM

Thu, 02 Sep 2010 07:12:52 +0000

با سلام
من قصد یک سری اطلاعات را از پورت کام دریافت کنم و اونو داخل یک Text نمایش بده اما نمیدونم به چهشکلی باید این کارو انجام بدم لطفا منو راهنمایی کنید
با تشکر

Telerik

Thu, 02 Sep 2010 05:22:09 +0000

سلام مي خواستم بگم كسي با Telerik كار كرده اگه كار كرده بگه چه جوري بايد از radCarousel استفاده كرد؟
--------------------------
حتما بازديد كنيد

یک تماس تلفنی در شبکه موبایل چگونه کار می کند؟

Wed, 01 Sep 2010 23:45:22 +0000

زحمت معرفی این مطلب رو دوست عزیزم reza555 (آقا رضا) کشیدن که همینجا ازشون تشکر میکنم....

تا به حال با خودتان فکر کرده اید که فناوری تلفن های همراه چگونه کار می کند؟ نظرتان در مورد نسل اول، دوم و سوم شبکه موبایل چیست؟ آیا در این مورد چیزی می دانید؟ اگر می خواهید به سادگی با همه اینها آشنا شوید این مطلب را از دست ندهید. بارها این اتفاق برایتان رخ داده است که تلفن همراه خودتان را کنار یک بلندگو می گذارید و لحظاتی قبل از دریافت تماس، نویزی با ریتم خاص بر روی بلندگو می شنوید.

‎برای من این سوال وجود داشت که به راستی یک تماس تلفنی از طریق تلفن همراه با این سیگنالهای ارسالی و دریافتی، چگونه کار می کند. شما هم اگر از نحوه کارکرد آنها مطلع نیستید، در مجموعه عکس ها و توضیحات ادامه مطلب می توانید با این موضوع آشنا شوید.

"تلفن های همراه دستگاهای رادیویی هستند که توسط ارسال و دریافت صدا بر روی امواج اقدام به برقراری ارتباط در یک منطقه می کنند."

‎۱- در ابتدا تلفن همراه نزدیک ترین ‎آنتن مخابراتی تلفن همراه ‎را شناسایی می کند. زمانی که شما اقدام به برقراری تماس تلفنی و یا روشن نمودن تلفن همراهتان می کنید، تلفن همراه شما یک پیام به همان آنتن ارسال می کند

‎۲- در این مرحله تماس شما از طریق کابل و یا فیبر نوری به نقطه دسترسی بیسیم، واقع در ‍‍پایین دکل که به یک سویچ چند پرت متصل است، حرکت می کند.

‎۳- تماس شما (به همراهی بقیه تماس ها) ۲ راه برای انتقال به شبکه اصلی را دارد. ‎راه اول که روش معمول انتقال داده هاست، از طریق خطوط T1 ‎و یا T3 ‎بر روی بستر کابلی واقع در زیر زمین انجام می پذیرد.

‎در روش دوم داده ها از طریق یک آنتن بیسیم پرقدرت که در دید مستقیم یکی دیگر از سایتهای دارای اتصال کابلی قرار دارد، توسط امواج ‎ریز موج ‎منتقل می گردند. ‎این روش یا به صورت پشتیبان در زمان ضعف اتصال زمینی استفاده می شود و یا زمانی که از لحاظ فیزیکی خطوط T1 و یا T3 به کلی وجود ندارند.

‎۴- تماس ورودی از شبکه اصلی به سمت سوییچ باز می گردد و پس از آن به بالا، به سمت آنتن هدایت می شود تا به سمت دستگاه تلفن همراه برود.

‎(در صورتی این اتفاق رخ می دهد که دستگاه تلفن در پوشش همان آنتن باشد)
‎اگر شما جابجا شوید سیگنالی مبتنی بر تغییر سلول از طرف سلول تحت پوشش آنتن جدید به سمت تلفن همراه شما ارسال می گردد، که از آن زمان به بعد آن سلول مسئول برقراری ارتباط شما با شبکه اصلی می باشد.

‎نیکولا تسلا (1865-1943 میلادی)

‎تکنولوژی های بیسیمی که هم اکنون از آنها استفاده می شود بر پایه تئوریهای آقای تسلا می باشد، وی که بر روی روشهای انتقال انرژی به صورت بیسیم در فواصل طولانی تحقیق می کرد، اختراعی در قسمت فرستنده های بیسیم را به نام خودش ثبت کرده است.

‎آنتن های مخابراتی چگونه کار می کنند؟

‎زمانی که شما به یک آنتن مخابراتی تلفن همراه نگاه می کنید، مشاهده می کنید که چندین اسکلت مثلی بر روی نوک آن سوار می باشد.

‎این تعدد مربوط به اپراتورهای مختلفی می شود که به صورت همزمان از یک دکل مخابراتی استفاده می کنند. ‎تعدد اسکلت های مثلثی به ندرت در ایران مشاهده می شود. زیرا اپراتورهای موبایل هر کدام به تنهایی سایتهای اختصاصی خود را دارند‫.‬ در اصطلاح Site Sharing در ایران رواج ندارد.اسکلتهای مثلثی پوشش ۳۶۰ درجه ای خود را به سه قسمت ۱۲۰ درجه ای تقسیم میکنند، که این ۳ بخش نیز می توانند به ۳ قسمت ۴۰ درجه ای دیگر تقسیم شوند.

‎سلول منطقه ایست حول یک آنتن مخابراتی که از لحاظ تئوری یک ۶ ضلعی است که تحت پوشش امواج همان آنتن مخابراتی می باشد.

‎هر کدام از ایستگاه های مرکزی با انتشار امواج با قدرت کم از نفوذ موج به خارج محدوده سلول خودشان جلوگیری می کنند. این ویژگی باعث می شود تا سلولهایی که وجه اشتراکی با هم ندارند از فرکانسهای مشابهی در سطح شهر استفاده کنند.

‎فرکانسهای سلولی

‎در سیستم آنالوگ تلفن های همراه، هر سلول، یک هفتم از کانالهای ۲ طرفه صوتی را مورد استفاده قرار می دهد، از این جهت در یک دسته هفت تایی از سلولها تداخل فرکانسی وجود ندارد، زیرا هر کدام از آنها از یک دسته از فرکانسهای یکتا استفاده می کنند.

‎معمولا یک اپراتور تلفن همراه ۸۳۲ موج فرکانسی را برای استفاده در هر شهر دریافت می کند. هر دستگاه تلفن همراه از ۲ فرکانس برای هر تماس استفاده می کند(یکی برای ارسال و دیگری برای دریافت صدا) بنابراین ۳۹۵ موج فرکانسی برای هر اپراتور وجود دارد.
‎۴۲ موج فرکانسی باقیمانده به عنوان کانال های کنترلی استفاده می شوند. ۸۳۲=۴۲+(۳۹۵x۲)

‎هر سلول که از یک هفتم فرکانسهای موجود (برای جلوگیری از تداخل امواج) استفاده می کند، دارای ۵۶ کانال صوتی آماده به کار است .

‎این بدین معنی است که در هر سلول ۵۶ نفر میتوانند به صورت همزمان با تلفن همراهشان صحبت کنند. ‎سیستم سلولی آنالوگ را اصطلاحا ‎نسل اول ‎می نامند.

‎در روش انتقال دیجیتالی ‎‫(‬نسل دوم‫)‬ ‎تعداد کانالهای در دسترس افزایش می یابد ، که متداولترین روشهای افزایش عبارتند از:

FDMA ‎ ‫-‬ دسترسی چندگانه تقسیم فرکانسی

‎روشی که در آن هر تماس تلفنی بر روی یک فرکانس جدا قرار می گیرد.

TDMA ‎ ‫-‬ دسترسی چندگانه تقسیم زمانی

‎روشی که در آن هر تماس تلفنی در کسری از ثانیه بر روی فرکانس خاص قرار می گیرد.

CDMA ‎ ‫-‬ دسترسی چندگانه تقسیم کدی

‎روشی که در آن به هر تماس تلفنی کدی یکتا اختصاص می یابد و در بین فرکانس های در دسترس پخش می گردد.

‎نسل سوم ‎هم نیز از روشهای مشابهی همچون CDMA2000, WCDMA(UTMS), TD-SCDMAبه منظور افزایش کانال ها استفاده می کند.

‎شبکه های نسل سوم توانایی جابجایی داده ها را تا سرعت ۳ مگابیت بر ثانیه را دارند (با این سرعت می توان یک فایل صوتی ۳ دقیقه ای، با فرمت MP3 را در عرض ۱۵ ثانیه بارگذاری نمود) ‎در حالیکه سریعترین تلفن های نسل دوم می توانند حداکثر با سرعت ۱۴۴ کیلوبیت بر ثانیه داده ها را منتقل کنند (با این سرعت می توان یک فایل صوتی ۳ دقیقه ای، با فرمت MP3 را در عرض ۸ دقیقه بارگذاری نمود)

تلفنهای آزاد (آنلاک)

تلفن های همراهی که اصطلاحا قفل می باشند تنها توانایی شناسایی سیم کارت اپراتور خاصی را دارند. این قفل نرم افزاری می باشد و اغلب امکان از کار انداختن آن توسط کد یا نرم افزارهای خاص وجود دارد. ‎ولی تلفن های همراهی که آزادند و به اپراتور خاصی وابستگی ندارند ، توانایی شناسایی سیم کارت هر اپراتوری را دارند.

منبع