Lexigame-Forum (http://www.lexigame.de/board/YaBB.cgi)
Spielewelt >> Selbst Programmiertes!!! >> VB ???????????????
(Thema begonnen von: sonicboy am 17.10.02 um 20:45:51)

Titel: VB ???????????????
Beitrag von sonicboy am 17.10.02 um 20:45:51
??? ???

Hi leutz, hab mal ne frage !
Wo gibst denn Vb überhaupt ??

Thx im vorraus ! :P

Titel: Re: VB ???????????????
Beitrag von streetfighter am 17.10.02 um 21:02:01
du meinst zum download?

eine version mit der du keine .exe dateien erstellen kannst bekommst auf www.microsoft.com


Titel: Re: VB ???????????????
Beitrag von E-DANCER am 03.12.02 um 00:36:34
kazaa lite
dort findest du es aber unter visual studio!!!!

Titel: Re: VB ???????????????
Beitrag von Head-Fighter am 22.12.02 um 18:34:41
Hi

Steig doch direkt auf VB.Net um das ist neuer und schneller wenn es kompiliert ist.

Schöne Grüße
Björn

Titel: Re: VB ???????????????
Beitrag von steinzeit am 22.08.03 um 23:24:56
Hi!

Hm, weiß jemand, wie man in VB6 eine Textdatei in ne Textbox lädt und andersrum in ne Textdatei schreibt? Am besten wär's dann noch, wenn ich dann aus der Txt-Datei bestimmte Zeilennummern auslesen könnte...  
Ich konnts schonmal, aber irgendwie kann ich mir das net merken...  ??? :( ;D

Titel: Re: VB ???????????????
Beitrag von ifyou am 04.09.03 um 13:36:50
private sub writeText(filepath as string)

dim text as string
text = texbox1.text

ff = freefile
open filepath for binary as ff
   put ff,1,text
close ff
end sub

private sub getText(filepath as string)
ff = freefile
open filepath for binary as ff
    get ff,1,text
close ff
textbox1.text = text
end sub
.......
müsste so gehen......das wird dein text immer am anfang der datei schreiben(und alles andere überschreiben).....falls du noch was für vb brauchst frag einfach


Titel: Re: VB ???????????????
Beitrag von steinzeit am 04.09.03 um 15:37:57
@ifyou

Danke :-) Funktioniert :-)

Titel: Re: VB ???????????????
Beitrag von ifyou am 04.09.03 um 21:19:54
nix zu danken
wie schon gesagt falls du noch was brauchst frag einfach

Titel: Re: VB ???????????????
Beitrag von Zkorpio am 01.10.03 um 21:22:40
1.) der quellcode ist noch net fertig leider weiss ich net mehr wie ichs weiter machen soll also nciht grosse rumposaunen das ich erst den code zu ende schreiben soll
denn wenn ich wüsste wie es geht würde ich es machen :P

so jetzt mal ne frage von mri dazu

also ich habe erst vor ein paar tagen angefangen mit dem zeugs
udn komme da schon ncith weiter
ich benutze vb6 enterprise edition

mein quellcode ist bis jetzt an diesem Stand:

'Option Explicite
Dim mSummand1 As Double
Dim mSummand2 As Double
Dim mSumme As Double

Private Sub Form_Load()
   przEingabelöschen
End Sub

Private Sub tfSummand1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   tfSummand2.SetFocus
   End If
End Sub

Private Sub bsEnde_click()
   End
End Sub
Private Sub tfSummand2_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   tfSumme.SetFocus
   End If
End Sub

Private Sub tfSumme_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   bsTesten.SetFocus
   End If
End Sub

Private Sub bsTesten_click()
   przDatenübergabe
   przDatenübernahme
End Sub

Sub przDatenübergabe()
   mSumme = mSummand1 + mSummand2
End Sub

Sub przDatenübernahme()
   If tfSumme = mSumme Then
   MsgBox ("Ergebnis ist Richtig")
   Else
   MsgBox ("Ergebnis ist Falsch")
   tfSumme.Text = ""
   tfSumme.SetFocus
   End If
End Sub

Sub przEingabelöschen()
   tfSummand1.Text = ""
   tfSummand2.Text = ""
   tfSumme.Text = ""
End Sub

Private Sub bsNeuEingabe_Click()
   przEingabelöschen
   tfSummand1.SetFocus
End Sub


So meine Frage
nachdem ich das teil dazu gebracht habe meine Zahlen auszurechnen(also nur addieren), wie schaffe ich es das es auch die zahlen subtrahiert oder multipliziert udn dividiert??
Ausserdem würde ich gerne wissen wie ich des machen soll das wenn man z.b.in Summand1 was eingibt und in Summand2 nciht und in Summe wieder was das dann kein Fehler kommt sondern das erst ne Msg kommt das er erst was ins entsprechende Feld eingeben muss (Ich weiss zwar das ich dort If not Isnumeric etc. benutzen soll dennoch kommt ein fehler und ich weiss net was ich dann debuggen soll :() plz help

Titel: Re: VB ???????????????
Beitrag von Zkorpio am 05.10.03 um 21:18:43
leute helft mir mal plz
also den quelltext habe ich einigermaßen verfolständigt

'Option Explicite
Dim mSummand1 As Double
Dim mSummand2 As Double
Dim mSumme As Double

Private Sub Form_Load()
   przEingabelöschen
   bsTesten.Visible = False
End Sub

Private Sub tfSummand1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   tfSummand2.SetFocus
   End If
End Sub

Private Sub bsEnde_click()
   End
End Sub
Private Sub tfSummand2_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   tfSumme.SetFocus
   End If
End Sub

Private Sub tfSumme_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   bsTesten.Visible = True
   bsTesten.SetFocus
   End If
   If tfSumme = "" Then
   bsTesten.Visible = False
   End If
End Sub

Private Sub bsTesten_click()
   przTesten
   przDatenübergabe
   przDatenübernahme
End Sub

Sub przDatenübergabe()
   mSumme = mSummand1 + mSummand2
End Sub

Sub przTesten()
   If Not IsNumeric(tfSummand1.Text) Then
   MsgBox ("Bitte bei Summand1 eine Zahl eingeben!")
   tfSummand1.Text = ""
   Else
   mSummand1 = CDbl(tfSummand1.Text)
   End If
   If Not IsNumeric(tfSummand2.Text) Then
   MsgBox ("Bitte bei Summand2 eine Zahl eingeben!")
   tfSummand2.Text = ""
   Else
   mSummand2 = CDbl(tfSummand2.Text)
   End If
   mSumme = CDbl(tfSumme.Text)
End Sub

Sub przDatenübernahme()
   If tfSumme = mSumme Then
   MsgBox ("Ergebnis ist Richtig")
   bsNeuEingabe.SetFocus
   bsTesten.Visible = False
   Else
   MsgBox ("Ergebnis ist Falsch")
   tfSumme.Text = ""
   tfSumme.SetFocus
   bsTesten.Visible = False
   End If
End Sub

Sub przEingabelöschen()
   tfSummand1.Text = ""
   tfSummand2.Text = ""
   tfSumme.Text = ""
End Sub

Private Sub bsNeuEingabe_Click()
   przEingabelöschen
   tfSummand1.SetFocus
End Sub


aber ich kann imma noch nicht multiplizieren etc.
helft mir bitte :P

Titel: Re: VB ???????????????
Beitrag von Tango am 02.08.04 um 11:29:09
Zkorpio schau mal auf diese HP es gibt unzelige beispiele und Source code's, für jedes Gebiet.


http://www.planet-source-code.com/vb/default.asp?lngWId=1#categories



Lexigame-Forum » Powered by YaBB 1 Gold - SP 1.3.1!
YaBB © 2000-2003. All Rights Reserved.