mdx8.bas

利用遗传算法来改进神经网络程序,神经网络与遗传算法

Attribute VB_Name = "Mdx8"
'parte grafica
Global DX As New DirectX8
Global D3DX As New D3DX8
'////////////////////////////////
'//////PARTE GRAFICA////////////
'//////////////////////////////
Global D3D As Direct3D8  'direct 3d
Global device As Direct3DDevice8  'spazio in cui si rappresenta
Global dSprite As D3DXSprite 'gestisce gli sprite
Global matWorld As D3DMATRIX 'rappresenta il mondo
Global matView As D3DMATRIX 'rappresenta la camera
Global matProj As D3DMATRIX 'rappresenta come la camera rappresenta il mondo
Global Const rad1 = 3.14 / 180 'il pi greco
     



Sub CreaSchermo(dxWidth As Long, dxHeight As Long, Fhwnd As Long)
'qui si crea lo schermo
    Dim D3DWindow As D3DPRESENT_PARAMETERS 'descrive la vista
    Set D3D = DX.Direct3DCreate() 'crea D3d
'imposto le variabili di creazione dello schermo( lezione uno)
    D3DWindow.SwapEffect = D3DSWAPEFFECT_FLIP
    D3DWindow.BackBufferCount = 1
    D3DWindow.BackBufferFormat = D3DFMT_R5G6B5 'colore
    D3DWindow.BackBufferWidth = dxWidth
    D3DWindow.BackBufferHeight = dxHeight
    D3DWindow.hDeviceWindow = Fhwnd  'propriet