Zum Inhalt springen

Schattenlicht

Mitglieder
  • Gesamte Inhalte

    0
  • Benutzer seit

  • Letzter Besuch

Beiträge von Schattenlicht

  1. Lalala :D

    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 :D

  2. :D

    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 :D

    Tschau Tschau!

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

  3. Also,

    Jetzt bestelle ich mir Bücher und werde Ganz langsam anfangen mit dem Programmieren.

    Besorge mir ein Buch über "Visual Basic" zum einsteigen von MS und eins um kleine Spiele zu entwickeln :)

    Also Programmieren möchte ich anfangs erst langsam mit Figuren anfangen und mich dann langsam auf Umgebungen aufbauen.

    Also erst langsam fange ich an dann immer größer.

    Figur -> Narbe auf Figur -> Haare ->Klamotten.

    Klamotten -> Haus -> Dachzigel -> usw.

    Kurz:

    Fange erstmal mit Figuren an.^-^

  4. Soo,

    Nachdem ich "Homepage Maker 7 Express" benutzt habe und einen Homepage erstellt habe, (die ich aus finanzielen Gründen nicht hochlade)hab ich innerhalb 4 Tagen gerlernt wie HTML funktioniert ;-)

    Was sollte ich als nächstes für einen Computersprache lernen?

    Bzw. Welches Programm und was soll ich machen?^^

  5. Das hatte ich schon "PiVot".

    Absoluter Flopp!

    Keine Mitgelieferten Materialien und normalerweise arbeiten ALLE

    mit Adobe Flash Player oder sowas.

    Play Tetris'D 3 - Stick Figures - Games and Movies

    Wenn ich ganz einfach anfangen "sollte", dann aber womit?

    Mit den Waffen runterladen und alles ist verrückt genauso, wie die einzelnen Bewegungsabläufe...

    Ich mache jetzt net 500 Bewegungsabläufe für net Fußtritt, damit es flüssig aussieht.

    Gebt mal bessere Programme raus ;-)

  6. 'hust'

    Wer hat gesagt das ich kein Englisch kann?

    Das ist meine Lieblingssprache ! :D

    Mir klingt Deutsch nur Deutlicher ins Ohr rein ^-^

    Wenn ihr wollt dann muss es NICHT DEUTSCH

    sein.

    Also ich möchte mit dem Programm Figuren erstellen können die sich bewegen.

    Ich möchte erstmal kleein fangen aber Figuren erstellen die sich bewegen können und nicht UNBEDINGT einen bestimmten Bewegungsradius besitzen.

  7. Huhu,

    @ Jose: dankeschön :D

    @ Gmi: Ich fühl mich von deinem Link reingelegt aber trotzdem Danke :D

    @ Sturm: Nix Top-Designer das ist mein Traumberuf ;)

    Damit meine ich nur ich will gerne 3D Figuren erstellen.

    Willenskraft hab ich große, wenn ich nicht grad Hunger habe oder schlafen will :D

    Wennschon KEINE Horde 'Bäääh' Allianzler sind bessa :P

    Danke an alle!

    :uli

  8. Das mit den Semester lässt mich kalt, Hoffnungen setze ich eher auf Deutsche Versionen da die Englischen etwas zu.. Hmm.

    Zu undeutsch sind ;-) Deutsch ist mir also lieber.

    Hoffnungen mache ich mir keine, nur das viele Leute sich das selber beibringen durch Tutorials.

    Zeigt mir ein paar Link's und ihr werdet vllt. später von mir hören ;-)

  9. Huhu,

    Ich schau es mir mal an und frag auf jeden Fall mal den lieben Onkel/die liebe Tante um Rat ;-)

    Normale Englisch Kentnnise habe ich (7. Klasse), wie der Lehrer sagt "ein paar Wörtchen zuviel". :hells:

    Naja, das Schimpfen lernt man ja auf allen Sprachen, überall ;-)

    :beagolisc

    Wenn ich Hilfe dazu brauche meld ich mich wieder, Tuti's such ich immernoch

    ^-^

    Gruß,

    Der Schatten des Lichtes

    Achja habe ich vergessen: Preis geht bis zu 75 EURO Maximum, da ich mir noch nen Lappi kaufen will^^. KOSTENLOS geht natürlich auch :P

  10. Huhu,

    Ich (ein durschnittlicher Deutscher) wollte gerne Computersprachen lernen.

    Ich verbringe gerne Zeit damit, mir hat aber fast NIE jemand erklären können wie die Sprachen den jetzt aufgebaut sind/funktionieren.

    Ich würde gerne ein paar 3D-Modelle erstellen um mir meine Zeit zu vertreiben.

    Aber ich finde nie ein Programm was passt und meine Grunkentnisse in der Computersprache sind ja gleich 0, (ausser HTML ;-) ).

    Welches Programm in Deutsch könnt ihr mir empfehlen?

    Habt ihr i-welche Work-Shops im Internet um Computersprachen zu lernen?

    Wie habt ihr sie gelernt?

    Wie GEHT das Modellieren am PC?

    (Mit der Maus verkleinern und vergrößern, Zeichentablett? Oder wie geht das...^^)

    Welche Sachen das Programm haben sollte:

    - Deutsch :mod:

    - Leichte Bedinung :mod:

    - Cooles Layout :mod:

    - Kreation, das man das zu Onlinespielen machen kann :mod:

    - Kurzfilm daraus basteln können :mod:

    Weiteres:

    Ich bräuchte ja noch Links, um die Computersprachen zu lernen, bringt mir BITTE! ein paar Links ^-^

    Tut mir den Gefallen und Antwortet.

    Der Schatten des Lichtes :-)

    PS: Das Unterforum wurde Bewust ausgewählt:

    Chill-Out, Games bedeutet bei mir Freizeit :P

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...