If anyone is interested in the enterprise edition , send me a pm , i ll upload it
Windows Visual Basic 6
C is a great language to start with. Actually once you manage to get by with C, learning VB will be super easy. The other way around should be a lot more difficult.
Don't hesitate to ask questions on the forum if you're stuck. And remember the only way to learn is to start coding right away.
Don't hesitate to ask questions on the forum if you're stuck. And remember the only way to learn is to start coding right away.
16 days later
- Edited
After one hell of an effort, I'm doing calculators now all bymyself :P
Anyone interested in buying my products ? :P
Anyone interested in buying my products ? :P
- Edited
Ooooh!patrick wroteAfter one hell of an effort, I'm doing calculators now all bymyself :P
Anyone interested in buying my products ? :P
var F = new Dictionary<string,Func<int,int,int>>{
{"ADD", ( x, y ) => x + y },
{"SUB", ( x, y ) => x - y }
};
int res = F["ADD"](1, 2);
Long live closures!- Edited
are you doing love calculators ? politicians calculator where 1 + 1 = 0 ? IQ calculators ?After one hell of an effort, I'm doing calculators now all bymyself :P
if so plz , i am interested :P
- Edited
hahay , unfortunately no , maybe in the future :P
Option Explicit
Dim sum1 As Double
Dim sum2 As Double
Dim sign As String
Private Sub cmdClear_Click()
Form_Load
End Sub
Private Sub cmdDot_Click()
If InStr(1, txtResult, ".") <> 0 Then
MsgBox " , deja ajouté"
Else
txtResult.Text = txtResult.Text & "."
End If
End Sub
Private Sub cmdEnter_Click()
sum2 = txtResult.Text
If sign = "/" Then
sum2 = sum2 / sum1
ElseIf sign = "*" Then
sum2 = sum2 * sum1
ElseIf sign = "-" Then
sum2 = sum2 - sum1
Else
sum2 = sum2 + sum1
End If
txtResult.Text = sum2
End Sub
Private Sub Command1_Click(Index As Integer)
txtResult.Text = txtResult.Text & Command1(Index).Caption
End Sub
Private Sub Command2_Click(Index As Integer)
sum1 = Val(txtResult.Text)
sign = Command2(Index).Caption
txtResult.Text = ""
End Sub
Private Sub Form_Load()
txtResult.Text = ""
sum1 = 0
sum2 = 0
sign = ""
txtResult.Enabled = False
txtResult.MaxLength = 10
End Sub
Option Explicit
Dim sum1 As Double
Dim sum2 As Double
Dim sign As String
Private Sub cmdClear_Click()
Form_Load
End Sub
Private Sub cmdDot_Click()
If InStr(1, txtResult, ".") <> 0 Then
MsgBox " , deja ajouté"
Else
txtResult.Text = txtResult.Text & "."
End If
End Sub
Private Sub cmdEnter_Click()
sum2 = txtResult.Text
If sign = "/" Then
sum2 = sum2 / sum1
ElseIf sign = "*" Then
sum2 = sum2 * sum1
ElseIf sign = "-" Then
sum2 = sum2 - sum1
Else
sum2 = sum2 + sum1
End If
txtResult.Text = sum2
End Sub
Private Sub Command1_Click(Index As Integer)
txtResult.Text = txtResult.Text & Command1(Index).Caption
End Sub
Private Sub Command2_Click(Index As Integer)
sum1 = Val(txtResult.Text)
sign = Command2(Index).Caption
txtResult.Text = ""
End Sub
Private Sub Form_Load()
txtResult.Text = ""
sum1 = 0
sum2 = 0
sign = ""
txtResult.Enabled = False
txtResult.MaxLength = 10
End Sub
You guys have to admit , that it's impressive for the guy who didn't understand anything !
I would love to thank this website :
http://www.profsr.com/
If it weren't for him , I would have probably failed my year because of one silly module
I would love to thank this website :
http://www.profsr.com/
If it weren't for him , I would have probably failed my year because of one silly module