Sorry das ich nicht lange geschrieben hab

ich war mit der pb beschäftigt und jetzt bin ich ausgestiegen dann hab ich hier mehr zeit als vorhin

Also fangen wir an mit ein thema zum blog

Derzeit bekomm ich nicht mehr als 20 aufrufe per tag , also ich bitte euch besucht den blog

Abjetzt öfters ich werd auch versuchen jeden tag 1 -2 artikels zu schreiben

————————————————————————————————————–

Panfu ist mir zu kindisch geworden darum hab ich euch ne umfrage gemacht

Wenn ihr Nein wählt , Dann wählt Others dazu und schreibt über was ich bloggen soll

Ich helfe euch ein bischen

• Metin2
• Nostale
• Oloko
• Real leben
• Fussball

Also wenn ihr was davon wählt schreibts in others ihr könnt auch anderes schreiben

Ok ich lasse euch jetzt wählen

Bis dann !

Player_Sound

Heute will ich mit euch über ein program sprechen Namens :

Visual Basic

Also erstmal sag ich euch was man damit macht
Man kann damit gute sachen erstellen zb :

Spiele , Stoppuhr , Rechner , Editor , Paint , Und mehr ……..

Ich gebe euch heute einpaar tipps und codes :

Also … fangen wir mal an !

1.Stoppuhr

code :

Dim a As String
Dim b As String
Dim c As String
Dim x As String
Dim y As String
Dim z As String
Dim h As String
Dim m As String
Dim s As String
Dim u As String
Dim v As String
Public interval As DoublePrivate Sub clock_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Command1_Click()

Timer1.Enabled = True
Timer1.interval = 1

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
a = „0″
b = „0″
c = „0″
x = „0″
y = „0″
z = „0″
u = „0″
v = „0″

h = a + b
m = c + x
s = y + z
‘To set the display as „00:00:00.00″
Label1.Caption = h + „:“ + m + „:“ + s + „.“ + u + v
End Sub

Sub counttime()
If Val(v) < 9 Then
v = v + 1

Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(u) < 9 Then
v = 0
u = u + 1

Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(z) < 9 Then
v = 0
u = 0

z = z + 1

Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(y) < 5 Then
v = 0
u = 0
z = 0
y = y + 1
Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(x) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = x + 1
Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(c) < 5 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = c + 1
Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v
ElseIf Val(a) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = 0
a = a + 1
Label1.Caption = a + b + „:“ + c + x + „:“ + y + z + „.“ + u + v

End If

End Sub

Private Sub dat_Click()
Label1.Caption = Date
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
a = „0″
b = „0″
c = „0″
x = „0″
y = „0″
z = „0″
u = 0
v = 0
h = a + b
m = c + x
s = y + z
‘To set the display as „00:00:00.00″
Label1.Caption = h + „:“ + m + „:“ + s + „.“ + u + v

End Sub

Private Sub stopwc_Click()
Timer2.Enabled = False
a = „0″
b = „0″
c = „0″
x = „0″
y = „0″
z = „0″
u = „0″
v = „0″

h = a + b
m = c + x
s = y + z
Label1.Caption = h + „:“ + m + „:“ + s + „.“ + u + v

End Sub

Private Sub Timer1_Timer()
counttime

End Sub

Private Sub Timer2_Timer()
Label1.Caption = Time
End Sub

2.Rechner

code :

Private Sub Combo1_()Select Case Combo1.ListIndex
Case 0
Label1 = Str$(Val(Text1.Text) + Val(Text2.Text))
Case 1
Label1 = Str$(Val(Text1.Text) – Val(Text2.Text))
End Select
End Sub

Private Sub Command1_Click()
Select Case Combo1.ListIndex
Case 0
Label1 = Str$(Val(Text1.Text) + Val(Text2.Text))
Case 1
Label1 = Str$(Val(Text1.Text) – Val(Text2.Text))
Case 2
Label1 = Str$(Val(Text1.Text) * Val(Text2.Text))
Case 3
Label1 = Str$(Val(Text1.Text) / Val(Text2.Text))

End Select
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem „+“
Combo1.AddItem „-“
Combo1.AddItem „x“
Combo1.AddItem „÷“
Combo1.ListIndex = 1

End Sub

3.Tic Tac Toe ( spieler V.S Spieler )

code :

Dim cross(8) As Boolean
Dim ball(8) As Boolean
Dim m As Integer
Dim player As Integer

Sub check_status()
If ball(0) = True And ball(1) = True And ball(2) = True Then
Line10.Visible = True
End If
If ball(3) = True And ball(4) = True And ball(5) = True Then
Line9.Visible = True
End If
If ball(6) = True And ball(7) = True And ball(8) = True Then
Line8.Visible = True
End If
If ball(0) = True And ball(3) = True And ball(6) = True Then
Line5.Visible = True
End IfIf ball(1) = True And ball(4) = True And ball(7) = True Then
Line6.Visible = True
End If
If ball(2) = True And ball(5) = True And ball(8) = True Then
Line7.Visible = True
End If
If ball(0) = True And ball(4) = True And ball(8) = True Then
Line12.Visible = True
End If
If ball(2) = True And ball(4) = True And ball(6) = True Then
Line11.Visible = True
End If

If cross(0) = True And cross(1) = True And cross(2) = True Then
Line10.Visible = True
End If
If cross(3) = True And cross(4) = True And cross(5) = True Then
Line9.Visible = True
End If
If cross(6) = True And cross(7) = True And cross(8) = True Then
Line8.Visible = True
End If
If cross(0) = True And cross(3) = True And cross(6) = True Then
Line5.Visible = True
End If

If cross(1) = True And cross(4) = True And cross(7) = True Then
Line6.Visible = True
End If
If cross(2) = True And cross(5) = True And cross(8) = True Then
Line7.Visible = True
End If
If cross(0) = True And cross(4) = True And cross(8) = True Then
Line12.Visible = True
End If
If cross(2) = True And cross(4) = True And cross(6) = True Then
Line11.Visible = True
End If
End Sub

Sub check_position()For m = 0 To 8

If Image1(m).Picture = Image2.Picture Then
ball(m) = True

Else: ball(m) = False
End If

If Image1(m).Picture = Image3.Picture Then
cross(m) = True
Else

cross(m) = False

End If
Next

End Sub

Private Sub Image1_Click(Index As Integer)
check_position

If player = 1 And cross(Index) = False And ball(Index) = False Then
Image1(Index).Picture = Image2.Picture
End If
If player = 2 And cross(Index) = False And ball(Index) = False Then
Image1(Index).Picture = Image3.Picture
End If

check_position
check_status

End Sub

Private Sub Image2_Click()
player = 1
End Sub

Private Sub Image3_Click()
player = 2
End Sub

Private Sub mnuNew_Click()
For m = 0 To 8
Image1(m).Picture = LoadPicture(„“)
Next
Line5.Visible = False
Line6.Visible = False
Line7.Visible = False
Line8.Visible = False
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
Line12.Visible = False
End Sub

Wenn ihr noch was wollt schreibt ein kommentar Das wars für heute

Bis Morgen

Hallo leute ,
Heute schreibe ich alleine ein info-artikel denn play_santer muss zum fussball training

Vögel fliegen nicht

Manche vögeln können nicht fliegen wie zb
1- Penguin

Die penguine können schon nicht fliegen aber dafür sind sie gut im schwimmen

2- Strauß

Die strauß ist auch ein vogel kann aber nicht fliegen,
Sie kann aber nicht fliegen aber sie ist schön

3- Dudu

bestimmt fragt ihr euch jetzt was ist ein Dudu,
Das ist nicht ein bekanntes vogel ,
Und gehört zu die vogeln die nicht fliegen können

3- Kiwi

Bestimmt meine ich nicht damit die kiwi die man isst
Sondern die kiwi (vogel) die ist auch nicht bekannt

4- chicken

bestimmt kennt jeder den chicken
und sie kann auch nicht fliegen

So das waren alle ,
Morgen gibt es ein anderes Info

Bis dann

Player_Sound

valentinstag !

ja genau und wir haben uns was neues ausgedacht ,
und das erklärt euch play_santer

also , erstmal ihr schreibt uns ein kommentar und schreibt da ich wünschte ( eine person ) guten valentinstag von ( dein name )
Und am montag schreiben wir dann alle die zu ( Irgendeinen ) ein valentins tag

zb , Player_Sound wünscht Play_Santer einen schönen valentinstag

jop so ist es ,

und wir haben noch ne kleine umfrage für euch :

also bis dann
wünschen euch

Play & player

Hallo leute,
ich hab mich entschieden das ich weiterblogge ,

ich bloggte vor ne zeit nicht weil ich soo wenige kommentare bekomme usw aber ich bitte euch macht kommentare ich würde mich sehr freuen ,

Mich !

ja genau habt ihr vergessen das mein nachbar Play_Santer mitbloggt ?
wenn ja also hier ist er

ja und ich schreibe in rot und player in blau
wir haben heute news von panfu,  also erstmal wie ihr bemerkt habt ist ein neues land in der panfu karte ,

es heisst : Bitterland

sieht cool und gruselig aus
und es gibt auch neue klammoten
mehr infos zu bitterland gibt es genau Hier und Hier und Hier

Boys:

girls:

uaaaaaaar

santer ? ,
naja ich weiss nicht er ist einfach so abgehauen

sorry musste kotzen die klammoten sind voll öde
schreibt eure meinung in ein kommentar

bis dann

Player & Play

Und ich wollte noch sagen das flaffly was ganz tolles gemacht hat
was es ist ? sieht es selber :
http://pandakollegen.wordpress.com/kein-panfublog-ist-unberuhmt

http://pandakollegen.wordpress.com/kein-panfublog-ist-unberuhmt

http://pandakollegen.wordpress.com/kein-panfublog-ist-unberuhmt

So jetzt gehe ich mal
Euer Player_Sound

Habt ihr gemerkt das ich vor lange zeit nicht mehr schreibe ? da habt habt ihr richtig gemerkt , Also ich erzähle es euch : also mein PC war schrott dann in ein paar monate war er repariert dann kam es noch das unser internet nicht mehr funksonierte dann hatte es noch mehr zeit gebraucht um es zu reparieren , darum hatte ich net so viel  geschrieben ,
und ich hab noch eine frage an euch :

wählt schön ab
Euer Player_Sound

Ich wusste der Moment kommt irgendwann, der nächste schöne Panfu-Ort wird renoviert! GRR, dieser Manny! Der macht Panfu nur noch hässlicher! Mal sehen was passiert… hier meine letzten Minuten am Schloss =’(:

Von wegen! Das Schloss ist noch ganz heil und unversehrt >.<. Naja.. Das wars auch schon… Hier mein neuer Blog: http://www.yorkii09.wordpress.com/ Tschüss!

Ich meld mich heute etwas spät! Aber seht her! Krucio lebt!

Ich schwöre, ich hab nicht geschummelt! Dali kann es bezeugen! Naja Mehr hab ich nicht zu berichten… Achja! Ich habe mir neuerdings Soque gekauft! Er ist so cooool!!!

Tschau! Und ich hab ein neues GIF – ich bin der GIF-Master!

Der zweier Team ist Zurück !

ja ihr habt richtig gehört Play_Santer bloggt wieder mit , also ich schiebe mal denn artikel an Play

—————————————————————————————————————

hi leute , ich bin Play_Santer ich blogge hier wieder mit , kennt ihr mich noch ,
Wart ihr schon in panfu habt ihr denn zirkus gesehen ? ich finde denn langweilig .
ich hab noch eine 2 kleine umfragen für euch :

stimmt erhlich ab

das wars für heute
Play_Santer & Player_Sound