|
Registrieren
Login
Autor
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
[Video] Mini game (Moohuhn)
Verfasst am: 27.11.2007, 12:58
Hi Hier ist mein neustes video tut es zeigt wie man ein ganz simples mini game macht also sowas wie moorhuhn.......
Ach ja und bitte feedback
DOWNLOAD:http://rapidshare.com/files/72627193/videotut__Mini_game.wmv.html
_________________
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
Verfasst am: 27.11.2007, 13:18
Jo ich finds nice! Vor allem kann man, wenn mans weiter ausbaut, ein richtig geiles game draus machen
_________________
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
Verfasst am: 27.11.2007, 13:20
Naja also ich hatte mir dadrunter schon mehr vorgestellt...
Weil du hast eigentlich nur erklärt wie man einmal die Picturebox durch das Bild laufen lässt und wie man zählt wie oft man drauf geklickt hat.
Was mir fehlt:
Die getroffene Picturebox verschwinden lassen
immer wieder neue Pictureboxen auftauchen lassen
den Cursor verändern (zu einem Zielkreuz)
Vollbild Modus
Also zu einem richtigen Spiel gehört mehr...
_________________
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
Verfasst am: 27.11.2007, 13:21
ähmm mal gelesen simpel.... und außerdem verschwinden lassen für alle die es nich wissen pic.visible = false auftauchen lassen = true zeiger verändern naja.... mouspointer....... also es is simpel...
_________________
Ja!lB!rD_
Coder
Anmeldedatum: 09.06.2007
Beiträge: 79
Verfasst am: 27.11.2007, 13:31
THX!
Und schon wieder hab ich was dazugelernt
P.S weil ich noch Wissensdurstig bin muss ich nacher wieder in die Schule 
_________________
[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
Verfasst am: 27.11.2007, 14:16
The-God-of-all hat Folgendes geschrieben:
Was mir fehlt:
Die getroffene Picturebox verschwinden lassen
immer wieder neue Pictureboxen auftauchen lassen
den Cursor verändern (zu einem Zielkreuz)
Vollbild Modus
LOL
nummer 1 deiner wunschliste SAU EINFACH ZU MACHEN!
nummer 2 AUCH
nummer 3 GENAUSO!
nummer4 LOL GENAUSO!
wer n spiel proggen wll beherscht meistens die grundkentnisse damit man sowas ned mehr erläutern muss also echt ^^
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
Verfasst am: 27.11.2007, 15:06
Das video soll auch einfach nur erklären wie man anfängt .....
_________________
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
Verfasst am: 27.11.2007, 15:13
King of Chaos hat Folgendes geschrieben: LOL
nummer 1 deiner wunschliste SAU EINFACH ZU MACHEN!
nummer 2 AUCH
nummer 3 GENAUSO!
nummer4 LOL GENAUSO!
wer n spiel proggen wll beherscht meistens die grundkentnisse damit man sowas ned mehr erläutern muss also echt ^^
Zum Vollbild Modus: Wenn das so einfach ist dann poste mal bitte einen Source dazu, das ist nämlich nicht ganz so einfach. Zum rest: ich weis auch wie das geht, mir ist klar, dass das mit einer Zeile Source geht. Und ich gebe dir recht: wer ernsthaft ein Spiel programmieren will wird das alles können, was aber bedeutet das er alles im Tutorial gezeigte auch kann wodurch das Tutorial überflüssig wird.
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
Verfasst am: 27.11.2007, 15:35
habs hier sind 2 bis 3 einstellungen an der form und 2 sachen im load ereigniss und fertig... selber xD
und zu der ganzen dinkusion hier über hälfte vergessen ect...
kinder ey xD
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
Verfasst am: 27.11.2007, 15:45
rofl
ne geht ziehmlich einfach wie der code zeigt
schwieriger code hingegen zu dem der unten gepostet wird ^^
Code der Form 1
Code:
'#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
Private Sub Form_load()
If Label1.Caption = "On" Then
Label1.Caption = "Off"
Else
Label1.Caption = "On"
End If
ToggleFullScreen Me
End Sub
Private Sub Form_Resize()
On Error Resume Next
Label1.Move ScaleWidth / 2 - cmdFullScreen.Width / 2, ScaleHeight / 2 - cmdFullScreen.Height / 2, 1215, 375
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
Private Sub Label1_Click()
End Sub
Module: (name: full)
Code: '#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GWL_STYLE = (-16)
Private Const SWP_NOMOVE = &H2
Private Const WS_CAPTION = &HC00000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Sub ToggleFullScreen(frm As Form)
Dim rcWindow As RECT
Dim lRet As Long
lRet = GetWindowRect(frm.hwnd, rcWindow)
lRet = SetWindowLong(frm.hwnd, GWL_STYLE, GetWindowLong(frm.hwnd, GWL_STYLE) Xor WS_CAPTION)
lRet = SetWindowPos(frm.hwnd, 0, 0, 0, rcWindow.Right - rcWindow.Left, rcWindow.Bottom - rcWindow.Top, SWP_NOMOVE)
lRet = SetWindowPos(frm.hwnd, 0, 0, 0, rcWindow.Right - rcWindow.Left + 1, rcWindow.Bottom - rcWindow.Top, SWP_NOMOVE)
If frm.WindowState = 2 Then
frm.WindowState = 0
Else
frm.WindowState = 2
End If
'#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
End Sub
@ Miah danke für die verbesserung des codes ^^
Zuletzt bearbeitet von King of Chaos_ am 27.11.2007, 20:11, insgesamt einmal bearbeitet
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
Verfasst am: 27.11.2007, 16:14
form einstellungen:
AutoScaleMode = None
FormBorderStyle = None
TopMost = True
code:
Code: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Location = New Size(0, 0)
Me.Size = New Size(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
End Sub
hast recht king bin ja schon still...
toilette_
Coder
Anmeldedatum: 20.10.2007
Beiträge: 86
Verfasst am: 27.11.2007, 18:54
Code: Private Sub Form_Load()
Me.WindowState = 2
End Sub
wenn das gemeint is, dann isses verdammt einfach xD
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
Verfasst am: 27.11.2007, 18:59
nein ist es nicht die form sollte schon über fen ganzen bildschirm gehen und die task leiste verdecken ^^ nix mit WindowState = 2 da da die taskleiste noch sichtbar bleibt xD
toilette_
Coder
Anmeldedatum: 20.10.2007
Beiträge: 86
Verfasst am: 27.11.2007, 19:00
dann hilft das hier: http://www.vbarchiv.net/archiv/tipp_details.php?pid=834
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
Verfasst am: 28.11.2007, 09:52
1.§2.6 - Private Nachrichten:
Private Nachrichten bleiben privat. Sie haben im öffentlichen Forumbereich nichts zu suchen!
2. Das nächste mal gibts für alle Verwarnungen. Ihr könnt alle gern eure Meinung sagen, aber sollte einer verbal ausarten, egal ob pm oder nicht, dann gibts ne Verwarnung dafür.
@King of Chaos
Mir ist ziemlich egal ob und wie gut du coden kannst.
Aber mir ist schon länger aufgefallen dass du dich anderen gegenüber gerne aufspielst und ihre Probleme als lächerlich darstellst.
Wäre nett wenn du das unterlassen könntest.
Normal würde ich hier jetzt closen, aber ich komm mal der Bitte nach und lösche hier paar Posts.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
0wned_
Newbie
Anmeldedatum: 02.10.2007
Beiträge: 3
Verfasst am: 28.11.2007, 17:56
also ich habe aus dem video-tut was gelernt... ich wusste nicht das man bilder in ne richtung bewegen lassen kann
gut gemacht!
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
Verfasst am: 28.11.2007, 19:42
und mit + in die andere richtung nach oben is pic.top
_________________
BONETHUGS333_
Tutorial Leser
Anmeldedatum: 26.10.2007
Beiträge: 26
Verfasst am: 29.11.2007, 16:55
Habt ihr ne Idee wie man einen "neuer versuch" button erstellen könnte den mit load und unload gehts nicht (sowie ichs probiert habe^^)
_________________
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
Verfasst am: 29.11.2007, 17:02
Ganz einfach: du stellst den Zähler auf 0 und stellst bei Pic.left wieder den Startwert ein. Wenn du noch mehr veränderst dann auch die anderen Werte wieder auf die Startwerte. Es wäre auch sinnvoll, den Timer zu stoppen sobald das Bild nicht mehr zu sehen ist.
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
Verfasst am: 01.12.2007, 23:26
Hab mal wieder alles unwichtige gelöscht -ist ja schrecklich hier....
@swordfish123456:
Mach dafür doch nen eigenen Thread auf das stört hier nur.
@Server-Bling
Posts wie "Was meinste??" oder so in der Art haben hier nix zu suchen, hier gehts um das Videotut und fertig. Wenn ihr Probleme habt macht das doch per PM aus.
Ist btw der erste Thread der schon 2mal ausgemistet wurde.. frag mich warum 
_________________
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/
aL1ienaire_
Tutorial Leser
Anmeldedatum: 22.08.2007
Beiträge: 35
Verfasst am: 06.12.2007, 18:54
Wenn das Bild ja ganz links am rand ist, wie kann man es machen, dass es sich wieder wiederholt?
_________________
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
Verfasst am: 06.12.2007, 20:15
du machst einfach pic.visible = false und stellst es auf den punkt zurück
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Visual Basic Download ?
1741
03.05.2011, 07:38
Api Download in Prozent + Kb anzeige + Progrezzbar
1345
21.10.2007, 13:03
Download
1359
30.08.2007, 15:45
Download mit Internet Explorer Object
923
18.08.2008, 19:00
Visual Basic 6 download
3699
26.05.2007, 11:51
