Programm(e) mit Effekten programmieren.

  • Allgemein

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von thefiloe.

    Programm(e) mit Effekten programmieren.

    Hallo

    Ich würde gerne Wissen, ob es möglich ist, in Visual Basic einen Webbrowser zu entwickeln der im Vollbild ist wie ein Spiel und Effekte hat.

    Mit Effekten meines ich sowas, was man z.B. in AfterEffects bei Videos einfügen kann, z.B. Staub der über den Webbrowser (im Fenster) fliegt sobald man einen Button drückt, so meine ich das. (Schwer zu erklären)

    Wie kann man sowas bewerkstelligen? :)
    (Edit: Wird sowas wie DirectX benötigt?)
    "Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford

    Danke schon mal für die schnelle Antwort.

    Hmmm... Schade, Ich hätte da wirklich einige tolle Ideen gehabt, wie man ein komplett neuen Webbrowser entwickelt der einfach nur Bombe aussieht und viele neue Funktionen bietet.
    "Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford

    Ich habe dieses Thema mal ausgegraben, weil ich nochmal eine Frage dazu habe.


    Gibt es Effekte die im Visual Studio bereits erhalten sind, oder die man sich runterladen kann?
    Ich meine jetzt so Effekte wie das die Anwendung unscharf wird, wenn man z.B. einen Ladevorgang hat, sowas würde ich nämlich gerne in mein Programm einbauen, um es Optisch etwas besser aussehen zu lassen. :)

    (Oder benötigen solche Effekte auch DirectX? Und wenn ja, was gäbe es denn zum Optischen auf hübschen der eigenen Anwendung?)
    "Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford

    Vultrax schrieb:

    Ich meine jetzt so Effekte wie das die Anwendung unscharf wird

    Schnell zusammengehackt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Using bmp As New Bitmap(Me.Width, Me.Height)
    4. Using g As Graphics = Graphics.FromImage(bmp)
    5. g.CopyFromScreen(Me.PointToScreen(Me.ClientRectangle.Location), New Point(0, 0), Me.ClientRectangle.Size)
    6. End Using
    7. Me.BackgroundImage = generateBlur(CType(bmp.Clone, Bitmap))
    8. End Using
    9. For Each c As Control In Me.Controls
    10. c.Visible = False
    11. Next
    12. End Sub
    14. Private Function generateBlur(img As Bitmap) As Bitmap
    15. Dim conv As New convolutionFilters
    16. Dim grid As convolutionFilters.ConvMatrix
    17. ' get a grid:
    18. grid = conv.GetGrid
    19. ' set the grid as in the web site:
    20. grid.SetAll(1)
    21. grid(1) = 3
    22. grid(3) = 3
    23. grid(4) = 0
    24. grid(5) = 3
    25. grid(7) = 3
    26. grid.Factor = 16
    27. ' process:
    28. conv.conv3x3(img, grid)
    29. Return img
    30. End Function
    31. End Class

    Die convolutionFilters.vb musst du dir selbst anlegen. Der Inhalt ist das hier, einmal durch den C#->VB Converter gejagt: codeproject.com/Articles/2008/…ies-with-C-and-GDI-Part-2

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Runtime.InteropServices
    3. Imports System.Drawing
    5. Public Class convolutionFilters
    7. ' the matrix class
    8. Public Class ConvMatrix
    10. Public Factor As Integer = 1
    11. Public Offset As Integer = 0
    12. 'instead of all those integers, we'll use an array:
    13. Public grid(8) As Integer
    14. ' then we can get it in a for... next loop
    16. Sub New()
    17. ' fill up with defaults
    18. For i As Integer = 0 To 8
    19. grid(i) = 0
    20. Next
    21. grid(4) = 1
    22. End Sub
    24. Public Sub SetAll(ByVal value As Integer)
    25. 'allows us to set all the items in grid to the same value
    26. For i As Integer = 0 To 8
    27. grid(i) = value
    28. Next
    29. End Sub
    31. Default Property item(ByVal index As Integer) As Integer
    32. ' default property means we dont have to use the keyword "item"
    33. ' lets us set the values at grid(value)
    34. Get
    35. Return grid(index)
    36. End Get
    37. Set(ByVal Value As Integer)
    38. grid(index) = Value
    39. End Set
    40. End Property
    42. End Class
    44. Private _grid As ConvMatrix ' for the property:
    46. ' Allow us to get a grid
    47. Public ReadOnly Property GetGrid() As ConvMatrix
    48. Get
    49. Return _grid
    50. End Get
    51. End Property
    53. Sub New()
    54. _grid = New ConvMatrix
    55. End Sub
    57. Public Function conv3x3(ByVal b As Bitmap, ByVal m As ConvMatrix) As Boolean
    59. ' this will always be fairly slow as for each pixel we are reading 9 other pixels to get
    60. ' the final color value. The perpixel filters just read from one pixel.
    62. 'avoid / by 0
    63. If m.Factor = 0 Then Return True
    65. ' We are moving through the bitmap, and changing pixels based on their surrounding
    66. ' pixels. This means that we need a copy of the source bitmap, so that we don't
    67. ' end up using pixels that we have changed (and so filter based on changed pixels)
    68. ' So here is a copy of the input bitmap:
    69. Dim bSrc As Bitmap = CType(b.Clone, Bitmap)
    71. ' So we want Two lockbits now. We lock the source bits
    72. Dim bmSrc As BitmapData = _
    73. bSrc.LockBits(New Rectangle(0, 0, bSrc.Width, bSrc.Height), _
    74. ImageLockMode.ReadOnly, PixelFormat.Format32bppArgb)
    76. ' And we lock the target bits
    77. Dim bmData As BitmapData = _
    78. b.LockBits(New Rectangle(0, 0, b.Width, b.Height), _
    79. ImageLockMode.WriteOnly, PixelFormat.Format32bppArgb)
    81. ' We need the pointers to the start of both images data:
    82. Dim Scan0 As IntPtr = bmData.Scan0
    83. Dim SrcScan0 As IntPtr = bmSrc.Scan0
    85. ' We are storing all the pixels as int32s in arrays:
    86. Dim pixels(b.Width * b.Height - 1) As Integer
    87. Dim pixelsSrc(b.Width * b.Height - 1) As Integer
    89. ' Marshal copy grabs the pixels
    90. Marshal.Copy(Scan0, pixels, 0, pixels.Length)
    91. Marshal.Copy(SrcScan0, pixelsSrc, 0, pixelsSrc.Length)
    93. ' keep a running total (more later)...
    94. Dim total(3) As Single ' store sum of the pixels read from the source
    96. Dim index As Integer
    98. Dim gridValueDivmFactor As Single
    99. Dim ninthOfOffset As Single = CSng(m.Offset / 9)
    101. ' We are manipulating a pixel based on all its surrounding pixels
    102. ' the pixels on the edges don't have all the surrounding pixels
    103. ' so we skip them by staring these loops at 1 and ending at blah -2
    104. For y As Integer = 1 To b.Height - 2
    105. For x As Integer = 1 To b.Width - 2
    107. ' We have defined a 3x3 grid and we apply it to the pixels
    108. ' around the current one: (E is current pixel)
    109. '
    110. ' pixels grid
    111. ' A B C 0 1 2
    112. ' D E F with 3 4 5
    113. ' G H I 6 7 8
    114. '
    115. ' (this is not matrix multiplication)
    116. '
    117. ' We get: (A*1) + (B*2) + (C*3) + (D*4) + (E*5) + (F*6) + (G*7) + (H*8) + (I*9)
    118. ' we then divide this by m.factor and add m.offset...
    119. '
    120. ' e.g. with the starting grid:
    121. ' 000
    122. ' 010
    123. ' 000 we get the result E = the value of the central pixel so no change to the image
    124. '
    125. ' Our For ... Next loop puts the current pixel at (x,y)
    126. ' This means we need to get the pixels in the following positions:
    127. ' (x-1,y-1) ( x ,y-1) (x+1,y-1)
    128. ' (x-1, y ) ( x , y ) (x+1, y )
    129. ' (x-1,y+1) ( x ,y+1) (x+1,y+1)
    130. '
    134. ' Another loop
    135. ' This one loops through a 3x3 grid:
    136. For yy As Integer = -1 To +1
    137. For xx As Integer = -1 To +1
    139. ' the central pixel(x,y) is in the array at this index:
    140. ' (y * b.Width) pixels in the rows above + x pixels in the current row
    141. ' (y * b.width) + x
    143. ' the yyxx for next loop gives us: (-1,-1) (0,-1) (1,-1)
    144. ' (-1,0) (0,0) (1,0)
    145. ' (-1,1) (0,1) (1,1)
    146. '
    147. 'so... the locaion of the pixels in the loop is (x+xx,y+yy)
    148. 'and the position in the array is:
    149. '
    150. index = ((y + yy) * b.Width) + x + xx
    152. 'we want to total the argb of the current pixel * the grid value for its position
    153. 'we'll do the factor here too, and add on 1/9 of offset
    154. 'trying to keep the number of calculations in the loops to a minimum
    156. gridValueDivmFactor = CSng(m.grid(((yy + 1) * 3) + (xx + 1)) / m.Factor)
    158. 'ignore alpha, it messes up with some filters. will just set it to 255
    160. 'total(0) += (((pixelsSrc(index) >> 24) And &HFF) * gridValueDivmFactor) + ninthOfOffset
    161. total(1) += (((pixelsSrc(index) >> 16) And &HFF) * gridValueDivmFactor) + ninthOfOffset
    162. total(2) += (((pixelsSrc(index) >> 8) And &HFF) * gridValueDivmFactor) + ninthOfOffset
    163. total(3) += ((pixelsSrc(index) And &HFF) * gridValueDivmFactor) + ninthOfOffset
    165. Next
    166. Next
    168. For i As Integer = 0 To 3
    169. If total(i) > 255 Then total(i) = 255
    170. If total(i) < 0 Then total(i) = 0
    171. Next
    174. 'finally we set the pixel in the destination bitmap
    176. pixels(y * b.Width + x) = (255 << 24) _
    177. Or (Convert.ToInt32(total(1)) << 16) _
    178. Or (Convert.ToInt32(total(2)) << 8) _
    179. Or Convert.ToInt32(total(3))
    181. 'reset total for next pixel
    182. Array.Clear(total, 0, 4)
    184. Next
    185. Next
    186. Marshal.Copy(pixels, 0, Scan0, pixels.Length)
    187. 'unlock both bitmaps
    188. b.UnlockBits(bmData)
    189. bSrc.UnlockBits(bmSrc)
    192. Return True
    194. End Function
    195. End Class
    Bilder

    • unbenannt.png

      52,54 kB, 684×320, 262 mal angesehen

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Das sieht ja schon mal nicht schlecht aus @vb-checker. Vergleicht man es aber mit WPF hast du hier fast 100 VB-Codezeilen und in WPF eine XAML-Codezeile + vielfache Performance.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

Facebook
Telefonspende