meraklinext
New Member
Hi friends, i am new on the forum and also new on Visual Basic programming. i have no much programming skills on VB but i have good skills on Basic programming so i noticed that VB is completely different from Basic. anyway, i need your helps on this project
here is the picture of the project
and code is here:
Sub Globals
H=0
P1=0
P2=0
P3=0
P4=0
P5=0
P6=0
TP1=0
TP2=0
TP3=0
TP4=0
TP5=0
TP6=0
Textbox9.Text = Time(Now)
End Sub
Sub App_Start
Form1.Show
End Sub
Sub Button1_Click
P1 = Textbox11.Text
P2 = Textbox12.Text
P3 = Textbox13.Text
P4 = Textbox14.Text
P5 = Textbox15.Text
P6 = Textbox16.Text
If (P1+P2+P3+P4+P5+P6<>0) Then Goto HERE:
TOPP1 = P1+TP1
TOPP2 = P2+TP2
TOPP3 = P3+TP3
TOPP4 = P4+TP4
TOPP5 = P5+TP5
TOPP6 = P6+TP6
Textbox21.Text = TOPP1
Textbox22.Text = TOPP2
Textbox23.Text = TOPP3
Textbox24.Text = TOPP4
Textbox25.Text = TOPP5
Textbox26.Text = TOPP6
TP1 = P1+TP1
TP2 = P2+TP2
TP3 = P3+TP3
TP4 = P4+TP4
TP5 = P5+TP5
TP6 = P6+TP6
Textbox7.Text = Date(Now)
Textbox8.Text = Time(Now)
H=H+1
Textbox30.Text = H
Textbox11.Text = 0
Textbox12.Text = 0
Textbox13.Text = 0
Textbox14.Text = 0
Textbox15.Text = 0
Textbox16.Text = 0
Goto there:
HERE:
Msgbox ("ERRORS FOUND!!! POT IS NOT CORRECT PLEASE CORRECT IT")
there:
End Sub
Sub CheckBox2_Click
Sound ("\program files\basic4ppc\dog.wav")
End Sub
Sub CheckBox1_Click
FileOpen (c1,"logs.ini",cWrite)
FileWrite (c1,textbox21.Text)
FileWrite (c1,textbox22.Text)
End Sub
Sub Form1_Show
End Sub
so my problems is:
1) i want to basic2ppc store the results like 4 -4 as i describe above picture,
not like this :
4
-4
i search too much time but i coulnt find any solution. please masters heşp me how to do ?
2) you all can see the green boxes on labels and checkboxes but i dont want to be like that , i want only appearing forum background image , not in adition this green boxes , but i cant find any solution for this , how can i remove them ?
please help ? thanks for who will reply and who dont reply
here is the picture of the project
and code is here:
Sub Globals
H=0
P1=0
P2=0
P3=0
P4=0
P5=0
P6=0
TP1=0
TP2=0
TP3=0
TP4=0
TP5=0
TP6=0
Textbox9.Text = Time(Now)
End Sub
Sub App_Start
Form1.Show
End Sub
Sub Button1_Click
P1 = Textbox11.Text
P2 = Textbox12.Text
P3 = Textbox13.Text
P4 = Textbox14.Text
P5 = Textbox15.Text
P6 = Textbox16.Text
If (P1+P2+P3+P4+P5+P6<>0) Then Goto HERE:
TOPP1 = P1+TP1
TOPP2 = P2+TP2
TOPP3 = P3+TP3
TOPP4 = P4+TP4
TOPP5 = P5+TP5
TOPP6 = P6+TP6
Textbox21.Text = TOPP1
Textbox22.Text = TOPP2
Textbox23.Text = TOPP3
Textbox24.Text = TOPP4
Textbox25.Text = TOPP5
Textbox26.Text = TOPP6
TP1 = P1+TP1
TP2 = P2+TP2
TP3 = P3+TP3
TP4 = P4+TP4
TP5 = P5+TP5
TP6 = P6+TP6
Textbox7.Text = Date(Now)
Textbox8.Text = Time(Now)
H=H+1
Textbox30.Text = H
Textbox11.Text = 0
Textbox12.Text = 0
Textbox13.Text = 0
Textbox14.Text = 0
Textbox15.Text = 0
Textbox16.Text = 0
Goto there:
HERE:
Msgbox ("ERRORS FOUND!!! POT IS NOT CORRECT PLEASE CORRECT IT")
there:
End Sub
Sub CheckBox2_Click
Sound ("\program files\basic4ppc\dog.wav")
End Sub
Sub CheckBox1_Click
FileOpen (c1,"logs.ini",cWrite)
FileWrite (c1,textbox21.Text)
FileWrite (c1,textbox22.Text)
End Sub
Sub Form1_Show
End Sub
so my problems is:
1) i want to basic2ppc store the results like 4 -4 as i describe above picture,
not like this :
4
-4
i search too much time but i coulnt find any solution. please masters heşp me how to do ?
2) you all can see the green boxes on labels and checkboxes but i dont want to be like that , i want only appearing forum background image , not in adition this green boxes , but i cant find any solution for this , how can i remove them ?
please help ? thanks for who will reply and who dont reply