Hacking and more...
HaCkinG CulT
|
Lista Forumurilor Pe Tematici
|
Hacking and more... | Reguli | Inregistrare | Login
POZE HACKING AND MORE...
Nu sunteti logat.
|
Nou pe simpatie:
ij12
 | Femeie
24 ani
Prahova
cauta Barbat
25 - 53 ani |
|
hackedss
Elite Member
 Inregistrat: acum 17 ani
Postari: 858
|
|
imi poate zice ce eraore poate sa aiba ....
Code:
Option Explicit
Private Sub IcE_Load()
Form1.Caption = "Print - PSet (clic pe forma)"
Randomize
End Sub
Private Sub START_Click()
End Sub
Dim CX As Integer, CY As Integer, Msg As String
XPos As Integer, YPost As Integer, ciclu As Integer
ScaleMode = 3
DrawWidth = 5
ForeColor = QBColor(4)
FontSize = 24
CX = ScaleWidth / 2
CY = ScaleHeight / 2
Cls
Msg = "La Multi Ani BOBY!!"
CurrentX = CX - TextWidth(Msg) / 2
CurrentY = CY - TextHeight(Msg)
Print Msg
ciclu = 0
Do
XPos = Rnd * ScaleWidth
YPos = Rnd * ScaleHeight
PSet (XPos, YPos), QBColor(Rnd * 15)
ciclu = ciclu + 1
If ciclu = 200 Then
Exit Do
End If |
_______________________________________
|
|
| pus acum 17 ani |
|
hackedss
Elite Member
Inregistrat: acum 17 ani
Postari: 858
|
|
ma ajuta cineva ce eroare POATE SA AIBA VREAU SA IL FAC SA MEARGA va rog mult 
_______________________________________
|
|
| pus acum 17 ani |
|
AntiTrusT
Senior
 Din: C:\WINDOWS\system32\
Inregistrat: acum 17 ani
Postari: 108
|
|
Nu stiu care e solutia pentru eroare ...dar te rog sa imi spui ce ar terbui sa faca si in ce e facut scriptul..pascal?
_______________________________________
ERROR: Signature format unknown! Signature cannot be revealed! If the problem persists blow up your computer and try again!
|
|
| pus acum 17 ani |
|
hackedss
Elite Member
Inregistrat: acum 17 ani
Postari: 858
|
|
e in visual basic si ar trebui sa apara o fereatra cu scris la multi ani si sa straluceasca cam 200 de puncte mici ..
_______________________________________
|
|
| pus acum 17 ani |
|
hackedss
Elite Member
Inregistrat: acum 17 ani
Postari: 858
|
|
haideti ma fratilor va rog zice-timi si mie ce tre sa fac ca sa mearga ?
_______________________________________
|
|
| pus acum 17 ani |
|
d3light
Elite Member
 Din: Orasul Fantomelor
Inregistrat: acum 18 ani
Postari: 981
|
|
nu mai face si tu dublu host.daca stia cineva iti rasundea pana acum.
_______________________________________
SIGNATURE UNDER CONSTRUCTION
________________________________________________
Before doing something perfect,do something perfectable!
|
|
| pus acum 17 ani |
|
RockWilder
Elite Member
 Din: Real World!
Inregistrat: acum 17 ani
Postari: 894
|
|
@hackedss, ce e "ICE" ? ce e "START"? buton sau forma? butoanele nu au "LOAD", doar daca ar fii o forma, dar ar trebui sa fie "Form_Load()" inlocuieste cu Form_Load(), incearca... 
_______________________________________
Only those who attempt the absurd will achieve the impossible. (M C Escher)
|
|
| pus acum 17 ani |
|
|
shpagyn
Membru nou
Inregistrat: acum 17 ani
Postari: 16
|
|
La pima vedere :muta tot ce este dupa ultimul "End Sub" inaintea lui (intre "Private Sub START_Click()" si "End Sub" .In principiu ar trebui sa faca ceva .Inca ceva , nu sunt 100% sigur, dar cred ca ar fi bine ca liniile de cod sa fie in locul unde este si "Form-ul" nu intr-un modul separat. 
Last edit:
Nu-s mare expert in VB6,lucrez mai mult cu VBA (pt MS Excel),care e putin diferit de VB6,dar asemanator.Din pacate ce am scris din prima e ok doar 5o%.Mai am gasit erori :
1.La declarare variabile mai trebuia un DIm sau "_" la prima linie la declaratiile de variabile
2.Ypost in loc de Ypos (sau invers).
3.Mai lipsea si un "loop" la final
M-am cam grabit , as fi vrut sa fac punctele sa apara asa pe rand dar nu amers ceva,si am dat-o in plictiseala.Modificarile le vezi daca descarci arhiva.
Aici download project,form ,module+exe(la mine functioneaza).
Oricum nice proggy , nu m-am gandit niciodata sa fac asa ceva.
Modificat de shpagyn (acum 17 ani)
|
|
| pus acum 17 ani |
|
S1las
Old School Member
 Din: Kernel
Inregistrat: acum 17 ani
Postari: 490
|
|
poti sa zici unde anume iti da eroare , ca iti apare si linia
_______________________________________
NU DA CLICK !!
Don ' t be a script kiddie all your life ...
Learn to think .... CrazZy-World
|
|
| pus acum 17 ani |
|
|
shpagyn
Membru nou
Inregistrat: acum 17 ani
Postari: 16
|
|
M-ai botezat "shapagyn" .Oki am sa incerc , nu promit , dar azi m-a lovit plictisu',ceva cu "Wait(5)" (5 ar vrea sa fie secundele de asteptare )intercalat undeva printre "Do" si "Loop",dar mai tre sa study the problem.Poti sa incerci si tu.Sory about delay da' mai bine mai tarziu decat never.(n-am avut timp) 
Modificat de shpagyn (acum 17 ani)
|
|
| pus acum 17 ani |
|
)