Zum Inhalt springen

Schattenlicht

Mitglieder
  • Gesamte Inhalte

    0
  • Benutzer seit

  • Letzter Besuch

  1. '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.
  2. 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
  3. Lalala Ok ich gebe es zu. Ich weiß net wo es gespeichert ist und schaue mal^^
  4. 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:)
  5. Tja, man kommt oft mit hohen Erwartungen, nach einiger Zeit hier merkt man das man tiefer geschraubt sein sollte und sich erstmal in die Grundkenntnisse ":old" aneignet. 'Beton'
  6. 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.^-^
  7. 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?^^
  8. Basic? Das ist verrückt! Naja, wenn ihr so ankommt... Versuch ichs nochmal. Aber das ist eig richtig :upps 500 Bewegungsabläufe für nen normalen Tritt, Bei nem 3D-Modellierer, 1-Klick hochziehen und da ist der Tritt. Naja, ich teste es nochmal.
  9. 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 ;-)
  10. 'hust' Wer hat gesagt das ich kein Englisch kann? Das ist meine Lieblingssprache ! 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.
  11. Huhu, @ Jose: dankeschön @ Gmi: Ich fühl mich von deinem Link reingelegt aber trotzdem Danke @ 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 Wennschon KEINE Horde 'Bäääh' Allianzler sind bessa Danke an alle! :uli
  12. Nix Browser:p Soll sowas werden wie WoW, also ein neues Fenster. Soll jedenfalls ein schoenes 3D sein und net so h'sslich wie 2D Aber bitte rueckt mal Tutis raus! Ich will jetzt mal iwann anfangen :hells: Einfach ein paar Tutis geben und keine Ruecksicht auf mein Alter nehmen einfach nur Tutis!
  13. Alos danke, für's drücken aber ich fürchte ich brauche sieh zum tippen Ich brauche einfach nur ein paar Tutorials. Das Konzept von HTML ist gespeichert nur die Codes nicht. Einfach bitte NUR Tutorials oder Modellier Programme
  14. 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 ;-)
  15. 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

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...