Search:

Type: Posts; User: technorobbo

Page 1 of 13 1 2 3 4

Search: Search took 0.36 seconds.

  1. Re: iChessChat3D v1.2.7 Internet Chess [VB5/VB6 Source & Exe]

    you need to be running 2 instances and connect to the other
  2. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    Text functionality has been added. Font, Font size and Font Color can now be overlayed in the sketchpad layer. Download from link above.
  3. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    Nanni,

    I've added the Bezier arrow system in the 2D sketchpad field. For convenience the mouse middle button activates the menu as well as the "m" key and I've sped up the code considerably. The...
  4. Re: DirectSound: DirectX8, Playing Tone, Trying to FadeIn/FadeOut

    1 would do just set a global variable for fade in or fade out and re-enable the timer
  5. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    In order to accelerate Panning, Zooming and Rotating I am not turning off the sketchpad until you release the mouse. Your going to need this when you start rendering lots of text and bezier arrows....
  6. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    Ok, Now I uploaded the sketchpad layer with a preliminary grid so you can check registration. As you can see everything aligns in the 3D and 2D view when you zoom and rotate. (The system does slow...
  7. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    Ok - I re-uploaded with player graphics that register a bottom and a solid green field no texture. as you zoom and rotate you will note the players stay perfectly registered to their location. Next I...
  8. Re: Always Under & Graphical hands analog clock help

    You need to synchronize the color tables. If you are using photoshop follow this procedure.

    Make back up copies just in case!
    Open a copy of face.gif
    open a copy of mhand.gif
    convert both...
  9. Re: Always Under & Graphical hands analog clock help

    The problems lies in your Face.gif graphic - the black is not rgb(0,0,0) it's rgb(0,1,0).
    If you change it will work just fine.

    If your using photshop just edit the color table otherwise pianting...
  10. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    What I'm going to do is create characters that are not motion so when they rotate they the bottom of their feet appear in the exact same coordinate each time.

    Then I will remove the grass texture...
  11. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    The lines are in correct proportions for the viewport distance chosen. When you "zoom in" the it is a magnification effect created by changing the viewport distance. Not a "dolly in" created by...
  12. Replies
    7
    Views
    2,463

    Re: Animated Cursor ?

    convert cursors to 256 colors and it will work
  13. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    it is but I think he nanni wants to create user drawn play diagrams in realtime. I already presented a vector graphics example to nanni. Not whats required.

    link to example...
  14. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    you can draw in 2d space the rotate and map it to 3d space - it works.
  15. Replies
    1
    Views
    491

    Re: 50% Chancing..

    Make a form with 1 button


    Private Sub Form_Load()
    Randomize
    End Sub

    Private Sub Command1_Click()
    Dim chance50 As Integer
    chance50 = Int(Rnd() * 2)
  16. Thread: Draw Arc

    by technorobbo
    Replies
    14
    Views
    4,377

    Re: Draw Arc

    try drawing the arclike this

    'Draw arc 1
    Call SetArcDirection(Picture1.HDC, AD_CLOCKWISE)

    arrPoint(13).X = Xoffset + ((11 - CircleRadius) * mZoom)
    arrPoint(13).Y = Yoffset + ((HalfSoccerH -...
  17. Thread: Scroll bar

    by technorobbo
    Replies
    2
    Views
    578

    Re: Scroll bar

    would this help?

    make a form with a multiline-textbox and a timer - the form caption will tell you the line count.


    Private Const EM_GETLINECOUNT = &HBA
    Private Declare Function SendMessage...
  18. Re: DirectSound: DirectX8, Playing Tone, Trying to FadeIn/FadeOut

    Cause your wave buffer is 1 sine wave long - you never redimension it. 1 sinewave is no more than a click. Thats why I looped it and controlled the envelope using setvolume and getvolume. No need to...
  19. Re: DirectSound: DirectX8, Playing Tone, Trying to FadeIn/FadeOut

    If you want gradually lower the sound volume 1/4 second increments (250ms) if to abrupt you need to do smaller steps. That's why I recommended 10ms.

    1.5 is just a multipliers to fade the sound...
  20. Re: DirectSound: DirectX8, Playing Tone, Trying to FadeIn/FadeOut

    try using a timer - the 1.5 is negotiable and so is the timer interval. 10ms should work good.

    Private Sub Timer1_Timer()
    Dim x As Long
    x = dsToneBuffer .GetVolume
    If x < (-8000) Then
    ...
  21. Re: calculationg age from date to date (not today/now value)

    perhaps something like this?

    Dim bday As Date, target As Date
    Dim numMo As Integer, numYrs As Integer, numDays As Integer
    Dim tmpDate As Date

    bday = CDate("1/1/2000")
    target =...
  22. Re: Health - (Source Code) - break every hour

    I'll go with the "tare" analogy - the weight of the container. You shouldn't get charged for it.

    It's quite a feat though, writing 1 line of "logic" that fully encompasses an entire program.
  23. Replies
    7
    Views
    2,463

    Re: Animated Cursor ?

    try this - Make a form and save the zip full of cursors in the project directory.
    The cursors will change via radians so you'll have 12 perfectly sliced pie pieces on the form for each cursor to...
  24. Re: Health - (Source Code) - break every hour

    Brilliant - back in the old "4k of memory" days we used to have 1 line contests. I believe LaVolpe has won.
  25. Re: Health - (Source Code) - break every hour

    I would consider sub and end sub the form's and timer's events cause I didn't write them - they were there. Option Explicit would make it 4, If I use it.
  26. Re: Health - (Source Code) - break every hour

    3 lines


    Private Sub Form_Load()
    Timer1.Tag = Timer + 3600
    Timer1.Interval = 500
    End Sub

    Private Sub Timer1_Timer()
    If Timer > Val(Timer1.Tag) Then MsgBox "Get up off your but": Timer1.Tag...
  27. Replies
    19
    Views
    1,695

    Re: Cursor follower [Re-opened]

    Sure, but you realize that no one can click on desktop icons and you'll confuse them?

    Ok that being said - this will slow down the chain movement since windows is doing the transparent...
  28. Replies
    19
    Views
    1,695

    Re: Cursor follower [Re-opened]

    Ok - here ya go. Inertia with no gravity - kinda like a tether in space:

    Option Explicit
    Private Const IMAGE_ICON As Long = 1
    Private Const IMAGE_CURSOR As Long = 2
    Private Const IMAGE_BITMAP...
  29. Replies
    19
    Views
    1,695

    Re: Cursor follower [Re-opened]

    It's just amatter of movig the gravity point between the start and end points - I'll post the change when I get home
  30. Replies
    4
    Views
    691

    Re: Size handle

    I think you mean this or do you?:

    Copy into form put picture below in same project folder

    Option Explicit

    Private Type POINTAPI
    X As Long
    Y As Long
    End Type
  31. Replies
    19
    Views
    1,695

    Re: Cursor follower [Re-opened]

    Here ya go - from lower right with test.bmp. Escape to exit

    Option Explicit
    Private Const IMAGE_ICON As Long = 1
    Private Const IMAGE_CURSOR As Long = 2
    Private Const IMAGE_BITMAP As Long = 0...
  32. Replies
    6
    Views
    2,542

    Re: find mixing color

    Copymemory copies the raw data from the Long variable to the RGBQuad data type and back again. That way you don't have to do any AND's and divisions to extract the bits.

    Both the Long variable and...
  33. Replies
    19
    Views
    1,695

    Re: Cursor follower [Re-opened]

    The more tightness the more calculations. -
    I'll post right bottom screen changes when I get home.
  34. Replies
    19
    Views
    1,695

    Re: Cursor follower [Re-opened]

    he following changes apply to the code in the codeback:
    http://www.vbforums.com/showthread.php?p=3557773#post3557773


    The differences in the 3 images have to be accounted for:

    1. The new...
  35. Replies
    9
    Views
    1,541

    Re: clear textbox

    What is Cmdstart? Is it a button? Or just a subroutine. I'm assuming command1 was a button since it worked.
  36. Replies
    1
    Views
    490

    Re: user control help needed

    It looks like you have to set the maskpicture and not the picture. Setting maskpicture automatically copies it to the picture property and the maskcolor will behave correctly. but settign the picture...
  37. Replies
    6
    Views
    2,542

    Re: find mixing color

    if you have 2 colors then each of the 3 primary color component amounts to 1/6th the intensity.In other words the 2 colors to be mixed would each provide 1/2 the red, 1/2 the blue and 1/2 the...
  38. Re: Graphics Clock Pinned to Desktop [VB5 & VB6]

    Hour Hand Mod

    The hour hand is programmed to always point directly at the current hour. It is my preference. If you would like a traditional moving hour hand that slowly transitions from one hour...
  39. Replies
    35
    Views
    4,388

    Re: save/load game

    nevermind
  40. Replies
    33
    Views
    17,977

    Re: Generating non repeating random number

    Here some instructional code for formatting leading zeroes:

    Dim SerialNum As Long, astr As String
    SerialNum = 123
    '6 digit
    astr = Format(SerialNum, "000000")
    MsgBox astr
    '10...
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Click Here to Expand Forum to Full Width