Fun with Visual Basics *VB for choops*

[PandN]

Ok here is some easy Visual Basics TuT. I use Liberty BASIC which if a very simple and free VB Compiler. It can be downloaded the they're site for free just search Liberty BASIC.

Ok here is the first simple TuT This will ask you some thing then prompt you to end a name, age, word, etc.

NOTICE "Please enter your boss's name."
PROMPT "Enter name here.";name$
NOTICE name$ + " That sounds like the name of a moron"
END

There is a fun and easy one you can change the NOTICE's to make it say different thing like if it ask for age replace the "name$" with "age$"

Now here is a big code you maybe as well off to copy/paste this one unless you have alot of time on your hands.

WindowWidth = 120
WindowHeight = 144
nomainwin
open "Clock" for graphics_nsb_nf as #clock
print #clock, "trapclose [exit]"

print #clock, "fill white"
for angle = 0 to 330 step 30
print #clock, "up ; home ; north ; turn "; angle
print #clock, "go 40 ; down ; go 5"
next angle

print #clock, "flush"

timer 1000, [display]
wait

[display]


time$ = time$()
hours = val(time$)
if hours > 12 then hours = hours - 12
minutes = val(mid$(time$, 4, 2))
seconds = val(right$(time$, 2))

'
if segId > 2 then print #clock, "delsegment "; segId - 1


print #clock, "up ; home ; down ; north"


if oldHours <> hours then print #clock, "size 2 ; color white ; turn "; oldHours * 30 + int(oldMinutes/2) ; " ; go 19 ; home ; color black ; north" : oldHours = hours
if oldMinutes <> minutes then print #clock, "size 2 ; color white ; turn "; oldMinutes * 6 ; " ; go 38 ; home ; color black ; north" : oldMinutes = minutes
if oldSeconds <> seconds then print #clock, "size 1 ; color white ; turn "; oldSeconds * 6 ; " ; go 38 ; home ; color black ; north" : oldSeconds = seconds


print #clock, "size 1 ; turn "; seconds * 6 ; " ; go 38"
print #clock, "size 2 ; home ; north ; turn "; hours * 30 + int(minutes/2); " ; go 19"
print #clock, "home ; north ; turn "; minutes * 6 ; " ; go 38"


print #clock, "flush"
print #clock, "segment"
input #clock, segId

wait

[exit]

timer 0
confirm "Quit Clock?"; q$
if q$ = "yes" then
close #clock
else
timer 1000, [display]
wait
end if

end



There a long code but this one makes a CLOCK cool ah? I post more TuT's if people want me to.

Thank and Rep if it helps you.

[Vannillia]

Hay there how do you turn a internet explorer u made in Vb into exe and i cant upload it on mpgh for some reason

[PandN]

Hay there how do you turn a internet explorer u made in Vb into exe and i cant upload it on mpgh for some reason

Well I am not sure it's diff from compiler to compiler.

[Vannillia]

ekkk i duno what u mean but like when i build project etc i get like 3 files and i cnat upload them onto here

[PandN]

ekkk i duno what u mean but like when i build project etc i get like 3 files and i cnat upload them onto here

Shit i dont no your on your own sry lol

[·Matt·]

You people make no sence

[Vannillia]

ok letme put it in a easier way how do i put completed projects like setup and windowsapplication1 onto mpgh

[Micheltjuh]

Compress them into a .rar file with Winrar, and upload them.