Fun with Visual Basics *VB for choops*

Posts 1–8 of 8 · Page 1 of 1
Fun with Visual Basics *VB for choops*
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.

Code:
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.
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
Quote Originally Posted by Vannillia View Post
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.
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
Quote Originally Posted by Vannillia View Post
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
You people make no sence
ok letme put it in a easier way how do i put completed projects like setup and windowsapplication1 onto mpgh
Compress them into a .rar file with Winrar, and upload them.
Posts 1–8 of 8 · Page 1 of 1
This thread is closed for replies.

Similar Threads

Tags for this Thread

Talk with us