Hi friends i need your helps on this project

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
 

eww245

Member
Licensed User
no boady will not help me ?
ImageButtons allow transparency and text. This should work to get rid of the green.
Also Set the buttons to disabled, so they won't be clickable.

As for the formatting the text in the log file, I don't have an answer.
I have not written to files much to figure it out. Sorry

[EDIT]
I know what to do i wasn,t thinking......

B4X:
FileWrite (c1,textbox21.Text&textbox22.Text)
That should be it
 
Last edited:

meraklinext

New Member
ImageButtons allow transparency and text. This should work to get rid of the green.
Also Set the buttons to disabled, so they won't be clickable.

As for the formatting the text in the log file, I don't have an answer.
I have not written to files much to figure it out. Sorry
thanks for your valuable reply mate my problem 2 has been solved
but what about first 1 ?
who can help me for the fist problem ?

i see your second post now , thank for your help i will try it
 

digitaldon37

Active Member
Licensed User
thanks for your valuable reply mate my problem 2 has been solved
but what about first 1 ?
who can help me for the fist problem ?

i see your second post now , thank for your help i will try it
I think for #1 you will need to use fdrawstring to write your text, or use the labels in Filippo's fgControls library (which has a transparent property)

I think for #2 you need to trim your strings before writing them to a text file. Agraham has a library that has this function, or you can use one of the user written ones, or use regex: http://www.basic4ppc.com/forum/questions-help-needed/749-trim-spaces-beginning-end-strings-2.html
 

Erel

Administrator
Staff member
Licensed User
You should use:
B4X:
FileWrite(c1, TextBox21.Text & cTab & TextBox22.Text)
 
Top