.:der Langeweile Bei Der Arbeit Thread:. - Topic

hoOdy91

Member

Posts: 16,614

Joined: Feb 3 2008

Gold: 33.65

#30621

Oct 19 2009 12:51am

Quote (Gold_Monster @ Mon, 19 Oct 2009, 08:51)

hat eigentlich einer ne Idee, was ich als bschlussprojekt machen könnte ?
aber bitte nur realistische sachen !^^

koks nehmen und nutten vögeln?^^

Goldii

Member

Posts: 55,404

Joined: Jun 22 2007

Gold: 7,333.27

#30622

Oct 19 2009 12:52am

Quote (hoOdy91 @ Mon, 19 Oct 2009, 08:51)

koks nehmen und nutten vögeln?^^

ja, aber worüber schreibe ich dann ?
über die stellungen, oder das koks ?

bbo

Member

Posts: 27,109

Joined: Nov 27 2005

Gold: 0.00

#30623

Oct 19 2009 12:53am

Quote (Gold_Monster @ Mon, 19 Oct 2009, 08:52)

ja, aber worüber schreibe ich dann ?
über die stellungen, oder das koks ?

both xD

Goldii

Member

Posts: 55,404

Joined: Jun 22 2007

Gold: 7,333.27

#30624

Oct 19 2009 12:54am

Quote (KingOrgi69 @ Mon, 19 Oct 2009, 08:53)

both xD

das würde den rahmen sprengen !
btw die titten haben mir besser gefallen

hoOdy91

Member

Posts: 16,614

Joined: Feb 3 2008

Gold: 33.65

#30625

Oct 19 2009 12:56am

Quote (Gold_Monster @ Mon, 19 Oct 2009, 08:54)

das würde den rahmen sprengen !
btw die titten haben mir besser gefallen

ja tits > joka^^

blah2k6

Member

Posts: 89,860

Joined: Sep 23 2006

Gold: 2,000.01

#30626

Oct 19 2009 12:57am

moin @ all

Goldii

Member

Posts: 55,404

Joined: Jun 22 2007

Gold: 7,333.27

#30627

Oct 19 2009 12:58am

Quote (blah2k6 @ Mon, 19 Oct 2009, 08:57)

moin @ all

moin !!!!!!!!!!!!!!!!!!1111111111!!!!!!!!1

hoOdy91

Member

Posts: 16,614

Joined: Feb 3 2008

Gold: 33.65

#30628

Oct 19 2009 12:58am

Quote (blah2k6 @ Mon, 19 Oct 2009, 08:57)

moin @ all

moooooojeeeennnnnnn

Goldii

Member

Posts: 55,404

Joined: Jun 22 2007

Gold: 7,333.27

#30629

Oct 19 2009 01:02am

das wird ein spannender morgen -.-

Code

Dim buffer$

MSComm1.CommPort = Nz(Port, 1)
MSComm2.CommPort = Nz(Port, 1)

If MSComm2.PortOpen = False Then
MSComm2.PortOpen = True
End If

tmpNummer = Me.Nummer

MSComm2.InputLen = 0

MSComm2.Output = "I8,1,1" + Chr(13) + Chr(10)
MSComm2.Output = "ON" + Chr(13) + Chr(10)
MSComm2.Output = "R43,0" + Chr(13) + Chr(10)
MSComm2.Output = "q360" + Chr(13) + Chr(10)
MSComm2.Output = "S2" + Chr(13) + Chr(10)
MSComm2.Output = "D7" + Chr(13) + Chr(10)
MSComm2.Output = "ZT" + Chr(13) + Chr(10)
MSComm2.Output = "US1" + Chr(13) + Chr(10)
MSComm2.Output = "JF" + Chr(13) + Chr(10)
MSComm2.Output = "N" + Chr(13) + Chr(10)
MSComm2.Output = "B83,5,0,2,2,5,55,N," + Chr(34) + CStr(Format(tmpNummer, "0000000000")) + Chr(34) + Chr(13) + Chr(10)
MSComm2.Output = "A115,68,0,2,1,1,N," + Chr(34) + CStr(Format(tmpNummer, "0000000000")) + Chr(34) + Chr(13) + Chr(10)

MSComm2.Output = "P1" + Chr(13) + Chr(10)

buffer$ = buffer$ & MSComm2.Input

Me.DruckerInput = buffer$

MSComm2.PortOpen = False

EastPak

Member

Posts: 11,803

Joined: Sep 22 2008

Gold: 6,000.00

#30630

Oct 19 2009 01:02am

ihr seid aber faule FiSi's ^^
ich hab huete was zu tun

wie war we so, gibs pics von tusen?

Go Back To Deutsch Topic List