QUOTE(sHadeS @ Oct 6 2004, 11:29 PM)
vár VB-t életemben nem láttam, ilyet, hogy forrás, nem tudsz berakni?
Berakom... amúgy a VB-t lehet legegyszerűbben felfogni, mert nagyon egyértelmű hogy mi van leírva...
Itt a kód. Ezt berakod, plusz csinálsz editorral egy szép kis ablakot, meg gombokat, meg Textboxot és kész. Ja a függvények utáni zárójelben nem kell figyelni hogy mi van, mert azt csak a hülye .NET rakta be...
Dim Szám As Integer
Dim Számláló As Integer
Private Sub ExitCmd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ExitCmd.Click
End
End Sub
Private Sub MainFrm_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
MainLbl.Text = "Kitaláltam egy számot 0 és 100 között, melyik az?"
Randomize()
Szám = Int((100 + 1) * Rnd())
System.Diagnostics.Debug.WriteLine("Ez a szám:" & Szám)
End Sub
Private Sub NGameCmd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles NGameCmd.Click
MainLbl.Text = "Kitaláltam egy számot 0 és 100 között, melyik az?"
Randomize()
Szám = Int((100 + 1) * Rnd())
TippTxt.Text = ""
TipCmd.Enabled = True
Számláló = 0
System.Diagnostics.Debug.WriteLine("Ez a szám:" & Szám)
TippTxt.Focus()
End Sub
Private Sub TipCmd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles TipCmd.Click
Számláló = Számláló + 1
If CShort(TippTxt.Text) < Szám Then
MainLbl.Text = "A tippelt szám túl kicsi!"
TippTxt.Focus()
Else
If CShort(TippTxt.Text) > Szám Then
MainLbl.Text = "A tippelt szám túl nagy!"
TippTxt.Focus()
Else
MainLbl.Text = "Gratulálok, kitaláltad! Tippek száma:" & Str(Számláló)
TipCmd.Enabled = False
NGameCmd.Focus()
End If
End If
End Sub