Modellieren + Programm +PC Sprachen

[Schattenlicht]

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]

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]

Lalala

Ok ich gebe es zu.

Ich weiß net wo es gespeichert ist und schaue mal^^

[Schattenlicht]

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]

(Wer war nommal der gesagt hat das ich es nicht schaffe?:floet:)

Willst du das 0815 VB mit 3D-Grafikprogrammierung vergleichen?

[Schattenlicht]

'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]

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