Schattenlicht Geschrieben 26. Februar 2010 Autor Geschrieben 26. Februar 2010 1. Programm fertig! ^-^ Hab mir nen Buch mit ner Anleitung zu VB gekauft und kann nur sagen: .oO°PROGRAMMIEREN IST GEIL!!°Oo. Ich hab die Anleitung genutzt und das Programm "Gedächtnis" geschrieben. EIn Gedächtnis Test. Das ist doch auch Programmieren oder?^^ Naja ich werde Vb erstmal 2 Monate Benutzen Tschau Tschau! (Wer war nommal der gesagt hat das ich es nicht schaffe?:floet:)
SiTt Geschrieben 26. Februar 2010 Geschrieben 26. Februar 2010 Wer war nommal der gesagt hat das ich es nicht schaffe? ähm keiner?! Es wurde dir nur gesagt, das es nicht so einfach ist wie du dir das vorgestellt hast... aber poste mal dein Spiel hier, wenn du es fertig hast, dann kannste den Satz da oben leicht abgeändert nochmal posten viel Erfolg!
Schattenlicht Geschrieben 26. Februar 2010 Autor Geschrieben 26. Februar 2010 Lalala Ok ich gebe es zu. Ich weiß net wo es gespeichert ist und schaue mal^^
Schattenlicht Geschrieben 26. Februar 2010 Autor Geschrieben 26. Februar 2010 Lalala Ok ich gebe es zu. Ich weiß net wo es gespeichert ist und schaue mal^^ VERSION 5.00 Begin VB.Form Form1 Caption = "Gedächtnis Test -By SL- Go!" ClientHeight = 4755 ClientLeft = 165 ClientTop = 855 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 4755 ScaleWidth = 4680 StartUpPosition = 3 'Windows-Standard Begin VB.CommandButton Feld Height = 735 Index = 19 Left = 3360 Style = 1 'Grafisch TabIndex = 19 Top = 2640 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 18 Left = 2640 Style = 1 'Grafisch TabIndex = 18 Top = 2640 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 17 Left = 1920 Style = 1 'Grafisch TabIndex = 17 Top = 2640 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 16 Left = 1200 Style = 1 'Grafisch TabIndex = 16 Top = 2640 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 15 Left = 480 Style = 1 'Grafisch TabIndex = 15 Top = 2640 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 14 Left = 3360 Style = 1 'Grafisch TabIndex = 14 Top = 1920 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 13 Left = 2640 Style = 1 'Grafisch TabIndex = 13 Top = 1920 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 12 Left = 1920 Style = 1 'Grafisch TabIndex = 12 Top = 1920 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 11 Left = 1200 Style = 1 'Grafisch TabIndex = 11 Top = 1920 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 10 Left = 480 Style = 1 'Grafisch TabIndex = 10 Top = 1920 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 9 Left = 3360 Style = 1 'Grafisch TabIndex = 9 Top = 1200 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 8 Left = 2640 Style = 1 'Grafisch TabIndex = 8 Top = 1200 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 7 Left = 1920 Style = 1 'Grafisch TabIndex = 7 Top = 1200 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 6 Left = 1200 Style = 1 'Grafisch TabIndex = 6 Top = 1200 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 5 Left = 480 Style = 1 'Grafisch TabIndex = 5 Top = 1200 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 4 Left = 3360 Style = 1 'Grafisch TabIndex = 4 Top = 480 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 3 Left = 2640 Style = 1 'Grafisch TabIndex = 3 Top = 480 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 2 Left = 1920 Style = 1 'Grafisch TabIndex = 2 Top = 480 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 1 Left = 1200 Style = 1 'Grafisch TabIndex = 1 Top = 480 Width = 735 End Begin VB.CommandButton Feld Height = 735 Index = 0 Left = 480 Style = 1 'Grafisch TabIndex = 0 Top = 480 Width = 735 End Begin VB.Label Label2 Caption = " Anzahl der Paare" Height = 615 Left = 2520 TabIndex = 21 Top = 3960 Width = 1575 End Begin VB.Label Label1 Caption = " Anzahl der Züge" Height = 615 Left = 480 TabIndex = 20 Top = 3960 Width = 1455 End Begin VB.Menu Start Caption = "Start" Begin VB.Menu newgamel Caption = "Neues Spiel" Shortcut = {F5} End End Begin VB.Menu Ende Caption = "Ende" Begin VB.Menu Programmend Caption = "Programm beenden" Shortcut = ^S End End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim zaehler As Integer Dim ind(1) As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim zuege As Integer Dim paare As Integer Dim high As Integer Private Sub feldinit() Feld(0).Caption = "4" Feld(1).Caption = "7" Feld(2).Caption = "3" Feld(3).Caption = "1" Feld(4).Caption = "0" Feld(5).Caption = "2" Feld(6).Caption = "4" Feld(7).Caption = "5" Feld(8).Caption = "6" Feld(9).Caption = "7" Feld(10).Caption = "9" Feld(11).Caption = "8" Feld(12).Caption = "6" Feld(13).Caption = "3" Feld(14).Caption = "0" Feld(15).Caption = "9" Feld(16).Caption = "5" Feld(17).Caption = "8" Feld(18).Caption = "2" Feld(19).Caption = "1" End Sub Private Sub Feld_Click(Index As Integer) Feld(Index).BackColor = vbWhite Feld(Index).Refresh ind(zaehler) = Index If zaehler = 1 Then zaehler = 0 zuege = zuege + 1 Label1.Caption = zuege Sleep 1000 Feld(ind(0)).BackColor = vbBlack Feld(ind(1)).BackColor = vbBlack If Feld(ind(0)).Caption = Feld(ind(1)).Caption Then Feld(ind(0)).Visible = False Feld(ind(1)).Visible = False paare = paare + 1 Label2.Caption = zuege If paare = 10 Then MsgBox ("Spiel beendet in " & zuege & " Zügen.") Call feldinit End If End If Else zaehler = zaehler + 1 End If End Sub Private Sub Form_Load() Call feldinit End Sub Private Sub newgamel_Click() Dim antwort As Integer antwort = MsgBox("Neues Spiel starten?", vbQuestion + vbYesNo) If antwort = vbYes Then Call feldinit Call feldinit zuege = 0 paare = 0 Label1.Caption = zuege Label2.Caption = paare Label1.Font.Size = 16 Label2.Font.Size = 16 Dim I As Integer For I = 0 To 19 Feld(I).Font.Size = 16 Feld(I).BackColor = vbBlack Feld(I).Visible = True Next I End Sub Private Sub Programmend_Click() Dim antwort As Integer antwort = MsgBox("Spiel wirklich beenden?", vbQuestion + vbYesNo) If antwort = vbYes Then End End Sub Ka da ist der Code bekomms Programm aus Vb net weg
lupo49 Geschrieben 26. Februar 2010 Geschrieben 26. Februar 2010 (Wer war nommal der gesagt hat das ich es nicht schaffe?:floet:) Willst du das 0815 VB mit 3D-Grafikprogrammierung vergleichen?
Schattenlicht Geschrieben 27. Februar 2010 Autor Geschrieben 27. Februar 2010 'hmm' Wenn ich VB schaffe. Dann sollte doch 3D kein Eisenstein sein Man KANN es vergleichen MUSS man aber nicht^^ Ich denke schon das das mein 1. Schritt zum Erfolg des Erlernens Wird.
MrTOBE Geschrieben 1. März 2010 Geschrieben 1. März 2010 (bearbeitet) Ich habe gamedesigne studiert! wir haben mit Maya, 3Ds Max und XSI gearbeitet. Allerdings muss ich dir gleich vorweg sagen das es nicht so leicht ist wie du es dir Vorstellst! Die sprache in der branche ist nun mal englisch und deshalb ist die Software auch english und wenn du dir Tuts im netz suchst sind die meisten auch nur mit englischer software (begründung: Schlechte übersetzung macht programmteile unverständlich oder sind oft anders positioniert als im Orginal) Progrmaiert wurde in C++ da ich aus dem bereich der Wirtschaftsinformatik kam hatte ich schon vorkenntinsse hab mich dann aber nur für den grafischen zweig entschieden! ich kann dir nur eins raten such dir ein programm wie blender is freeware such im netz soo viele tuts wie möglich und arbeite diese durch! es gibt genau so tuts fürs programieren musst nur googlen! such dir eine Engine als basis und dann viel spaß wenn du nur en paar 3d modelle animieren willst solltest du Riggen lehrnen, das is das Digitale skellet ohne das werden die figuren sich nicht bewegen können. Is aber teilweise noch komplexer als en 3d modell an sich! und du musst physikkentnisse haben, damit die gelenke auch das maachen was du willst! und dann kannst du eine sequenz aus der 3Dsoftware renden. hast dann gleich en Filmchen oder einzelbilder. aber für nur mal so hast du dir echt was vorgenommen. Bearbeitet 1. März 2010 von MrTOBE
Empfohlene Beiträge