| | |
| szczurek | 12.06.2008 12:02:13 |
Grupa: Użytkownik
Lokalizacja: Frog District :)
Posty: 426 #127600
Od: 2007-10-18
|
TYLKO ZAREJESTROWANI I ZALOGOWANI UŻYTKOWNICY WIDZĄ LINKI » DARMOWA REJESTRACJA
_________________
 |
| | |
| anulka | 12.06.2008 12:18:38 |
Grupa: Użytkownik
Lokalizacja: Klooklyn :)
Posty: 317 #127608
Od: 2007-10-18
| Option Explicit
Dim x, y, odp, pkt, li, Lt As Integer
Dim ocena As Single
Private Sub TextBox6_Change()
End Sub
Private Sub userform_initialize()
Randomize
x = Round(10 * Rnd())
y = Round(10 * Rnd())
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y
UserForm1.TextBox3.Text = " "
li = 0
pkt = 0
UserForm1.TextBox4.Text = pkt
UserForm1.TextBox5.Text = li
Lt = Val(UserForm1.TextBox6.Text)
End Sub
Private Sub CommandButton1_Click()
odp = Val(UserForm1.TextBox3.Text)
If odp = x * y Then
pkt = pkt + 2
ElseIf UserForm1.TextBox3.Text = " " Then
pkt = pkt
Else
pkt = pkt - 1
End If
UserForm1.TextBox3.Text = " "
UserForm1.TextBox4.Text = pkt
li = li + 1
UserForm1.TextBox5.Text = 2 * li
x = Round(Rnd() * 10)
y = Round(Rnd() * 10)
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub Label4_Click()
End Sub
|
| | |
| wojasz | 12.06.2008 12:19:37 |
Grupa: Użytkownik
Lokalizacja: ...---===GDYNIA===---...
Posty: 462 #127610
Od: 2007-10-21
| Private Sub CommandButton1_Click()
odp = Val(UserForm1.TextBox3.Text)
If odp = x * y Then
pkt = pkt + 2
ElseIf UserForm1.TextBox3.Text = " " Then
pkt = pkt
Else
pkt = pkt - 1
End If
UserForm1.TextBox3.Text = " "
UserForm1.TextBox4.Text = pkt
li = li + 1
UserForm1.TextBox5.Text = 2 * li
x = Round(Rnd())
y = Round(Rnd())
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y
|
| | |
| szczurek | 12.06.2008 12:23:53 |
Grupa: Użytkownik
Lokalizacja: Frog District :)
Posty: 426 #127612
Od: 2007-10-18
| Private Sub CommandButton1_Click()
odp = Val(UserForm1.TextBox3.Text)
If odp = x * y Then
pkt = pkt + 2
ElseIf UserForm1.TextBox3.Text = " " Then
pkt = pkt
Else
pkt = pkt - 1
End If
UserForm1.TextBox3.Text = " "
UserForm1.TextBox4.Text = pkt
li = li + 1
UserForm1.TextBox5.Text = 2 * li
x = Round(Rnd() * 10)
y = Round(Rnd() * 10)
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y
UserForm1.TextBox3.TabIndex = 0
_________________
|
| | |
| bartosz | 12.06.2008 12:26:38 |
Grupa: Użytkownik
Lokalizacja: Sztum-jeden wielki PGR!;)
Posty: 173 #127614
Od: 2007-10-20
| Option Explicit
Dim x, y, odp, pkt, li, lt As Integer
Dim ocean As Single
Private Sub CommandButton1_Click()
odp = Val(UserForm1.TextBox3.Text)
If odp = x * y Then
pkt = pkt + 2
ElseIf UserForm1.TextBox3.Text = " " Then
pkt = pkt
Else
pkt = pkt - 1
End If
UserForm1.TextBox3.Text = " "
UserForm1.TextBox4.Text = pkt
li = li + 1
UserForm1.TextBox5.Text = 2 * li
x = Round(Rnd() * 10)
y = Round(Rnd() * 10)
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y
UserForm1.TextBox3.TabIndex = 0
End Sub
Private Sub userform_initialize()
Randomize
x = Round(10 * Rnd())
y = Round(10 * Rnd())
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y
UserForm1.TextBox3.Text = " "
li = 0
pkt = 0
UserForm1.TextBox4.Text = pkt
UserForm1.TextBox5.Text = li
lt = Val(UserForm1.TextBox6.Text)
End Sub
Private Sub UserForm_Click()
End Sub
|
| | |
| szczurek | 12.06.2008 12:30:20 |
Grupa: Użytkownik
Lokalizacja: Frog District :)
Posty: 426 #127617
Od: 2007-10-18
| Private Sub userform_initialize()
Randomize
x = Round(10 * Rnd())
y = Round(10 * Rnd())
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y
UserForm1.TextBox3.Text = " "
li = 0
pkt = 0
UserForm1.TextBox4.Text = pkt
UserForm1.TextBox5.Text = li
LT = Val(UserForm1.TextBox6.Text)
_________________
|
| | |
| szczurek | 12.06.2008 13:09:01 |
Grupa: Użytkownik
Lokalizacja: Frog District :)
Posty: 426 #127636
Od: 2007-10-18
|
TYLKO ZAREJESTROWANI I ZALOGOWANI UŻYTKOWNICY WIDZĄ LINKI » DARMOWA REJESTRACJA
_________________
|
