honky tonk
in Miracle World
I've made a media program that plays MP3's, MPEG's, AVI's and WAV's. It's been a lot of fun.
Sounds nice...... can u give us a link?Originally posted by The_White
Personally, I went and made an asteroids clone.
...
...
In full first person 3D
There are a cuple of diff ways, but this is the easiest:anyone know how to print to file from VB, opr is it impossible?
Private Sub PrintText()
Dim CH, NX, Vol, VolL As Long, VolLPrev As Long
Vol = ""
Printer.CurrentX = 720 'leaves 1/2 inch left border [1440 twips = 1 inch (checked in MSDN)]
Printer.CurrentY = 720 'leaves 1/2 inch top border
For CH = 1 To Len(Text1.Text)
NX = Mid(Text1.Text, CH, 1)
If NX = Chr(13) Then
Printer.CurrentX = 720
Printer.Print Vol
Vol = ""
VolL = 0
VolLPrev = 0
CH = CH + 1
Else
Vol = Vol + NX
End If
VolL = VolLPrev + TextWidth(NX)
VolLPrev = VolL
If VolL >= Printer.Width - 1440 Then
Printer.CurrentX = 720
Printer.Print Vol
Vol = ""
VolL = 0
VolLPrev = 0
End If
If Printer.CurrentY >= Printer.Height Then
Printer.NewPage
End If
Next CH
Printer.EndDoc
End Sub
Originally posted by neester
I am making a website using PERL.
Javascript and other crap.
Im going to have Visual Basic Tutorials...
I dunno VB is too easy for me.
Last year my year 11 major was a Chat Program...
Its mad.
Its huge bout 8000 lines of code.
But now that im into PERL 8000 lines isnt much at all.
If you wanna see my websites check out:
http://www.neester.com
^^ Thats the old site
http://www.neester.com/cgi-bin/newsite/index.cgi
^^ That will be the final version...
Just need to complete all the modules!
How is that code supposed to do the print to file function? It only prints to the printer.Originally posted by Comedy_Al
There are a cuple of diff ways, but this is the easiest:
To print the contents or text1,
Code:Private Sub PrintText() Dim CH, NX, Vol, VolL As Long, VolLPrev As Long Vol = "" Printer.CurrentX = 720 'leaves 1/2 inch left border [1440 twips = 1 inch (checked in MSDN)] Printer.CurrentY = 720 'leaves 1/2 inch top border For CH = 1 To Len(Text1.Text) NX = Mid(Text1.Text, CH, 1) If NX = Chr(13) Then Printer.CurrentX = 720 Printer.Print Vol Vol = "" VolL = 0 VolLPrev = 0 CH = CH + 1 Else Vol = Vol + NX End If VolL = VolLPrev + TextWidth(NX) VolLPrev = VolL If VolL >= Printer.Width - 1440 Then Printer.CurrentX = 720 Printer.Print Vol Vol = "" VolL = 0 VolLPrev = 0 End If If Printer.CurrentY >= Printer.Height Then Printer.NewPage End If Next CH Printer.EndDoc End Sub
lol why is it shareware?Originally posted by chris42
I'm did a checkers game in Visual Basic. Was a nitemare to code but finally got it done :-d
My website for the game is www.chrisenterprises.cjb.net if you wanta to check it out. beware if you download the game that it requires Visual Basic Runtime files
Did you use the Flash Active X component or just used web browser to and embeded the flash animation's in?Originally posted by chris42
Yeah I know.. It was just because i needed to do a shareware licence for the project. What did you think of the program.. Should I implement a network component or single player 1st ?
Originally posted by Cube3
hey chris.. you didn't do single player??
LMAO yeah, the file was a bit too obvious perhaps anonymously storing a registry value somewhere where the user woudln't guess.Originally posted by Fosweb
Chris... I havent run it yet - because it quit when i pressed 'no'...
But next time: for 'security' reasons... Don't make something like the file which stores the number of uses remaining so 'obvious'...
Like - at least call it something like 'opt.dat' and put it in another directory.
Ok - i've now run it.
Maybe one little aspect of gameplay that is well, quite important, is the fact that it keeps telling me that all my moves are 'illegal'...
Oh well. Nice graphics and sounds
Also: research 'changing refresh rate' with your changing resolutions, because now i have to go and change my refresh rate back to what it was...