| Avtor |
Sporočilo |
Psyhz0r
KalOnline Master
Pridružen/-a: 11.05. 2007, 22:53
Prispevkov: 1476
Kraj: /usr /bin |
|
 vb 6.0 |
 |
jah, mal sm zaceu delat ksne majhne programcke 
delam pa z Visual Basic 6.0 Full version xDD
naredu sm ze en "spil" na sreco xD
delam pa naprej..  )
ce kdo zeli ta spil ga lahko uploadam 
Join me ! 
_________________
Without ME it's just AWESO! |
|
| 06 Dec 2007 14:44 |
  |
 |
NoLimit
Pridružen/-a: 25.07. 2007, 11:46
Prispevkov: 687
Kraj: Brežice |
|
| |
|
Jst mam cajta mal bi špilal dj uplodaj pa link dj
_________________
Bivši : SamuraiSLO tukaj
 |
|
| 06 Dec 2007 14:56 |
 |
|
Psyhz0r
KalOnline Master
Pridružen/-a: 11.05. 2007, 22:53
Prispevkov: 1476
Kraj: /usr /bin |
|
|
| 06 Dec 2007 15:01 |
|
|
WarRanger
Administrator foruma
Pridružen/-a: 13.12. 2006, 20:55
Prispevkov: 740
Kraj: IG (okolica) |
|
| |
|
Dej še source gor če se ti da ...
|
|
| 06 Dec 2007 19:24 |
|
|
Psyhz0r
KalOnline Master
Pridružen/-a: 11.05. 2007, 22:53
Prispevkov: 1476
Kraj: /usr /bin |
|
| |
|
k sec xD
_________________
Without ME it's just AWESO! |
|
| 06 Dec 2007 20:05 |
|
|
Psyhz0r
KalOnline Master
Pridružen/-a: 11.05. 2007, 22:53
Prispevkov: 1476
Kraj: /usr /bin |
|
| |
|
 |
|
Private Sub Command1_Click()
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If (Label1.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then
Won.Caption = Won.Caption + 1
MsgBox "zmagu si", vbInformation, "teh winner"
Else
Beep
lost.Caption = lost.Caption + 1
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Won.Caption = "0"
lost.Caption = "0"
Kill ("C:\Score.txt")
End Sub
Private Sub Form_Load()
On Error GoTo NoFile
Randomize
Dim sFile As String
Dim Blank As String
Dim iScore As String
Dim nScore As String
Dim iFileNum As Integer
sFile = "C:\Score.txt"
iFileNum = FreeFile
Open sFile For Input As iFileNum
Line Input #iFileNum, Blank
Line Input #iFileNum, iScore
Line Input #iFileNum, nScore
Close #iFileNum
Won.Caption = iScore
lost.Caption = nScore
NoFile:
If Err.Number = 53 Then
sFile = "C:\Score.txt"
iScore = 0
nScore = 0
iFileNum = FreeFile
Open sFile For Output As iFileNum
Write #iFileNum, Score
Close #iFileNum
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim sFile As String
Dim Score As String
Dim iFileNum As Integer
sFile = "C:\Score.txt"
Score = vbCrLf & Won.Caption & vbCrLf & lost.Caption & vbCrLf
iFileNum = FreeFile
Open sFile For Output As iFileNum
Write #iFileNum, Score
Close #iFileNum
End Sub
|
_________________
Without ME it's just AWESO! |
|
| 06 Dec 2007 20:08 |
|
|
Psyhz0r
KalOnline Master
Pridružen/-a: 11.05. 2007, 22:53
Prispevkov: 1476
Kraj: /usr /bin |
|
|
| 06 Dec 2007 20:10 |
|
|
WarRanger
Administrator foruma
Pridružen/-a: 13.12. 2006, 20:55
Prispevkov: 740
Kraj: IG (okolica) |
|
|
| 06 Dec 2007 22:01 |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
|
|
|
