Visual Basic Forum

Verfasst am: 03.05.2012, 17:10 Aufrufe: 179

Gleichzeitig sollen die Daten aber auch in einer Listbox angezeigt werden. Mein bisheriger Code: Dim Stempel as String Private Sub Command1_Click Stempel = Int(Now) + (Timer + seconds) / 86400 End Sub weist meiner Variablen Datum und Zeit zu, aber weiter komm ich einfach nicht. Ich weiß nicht wie ich das mit dem Array machen soll dass jedesmal beim Tastendruck das Array um einen Eintrag ...

Verfasst am: 06.11.2011, 18:42 Aufrufe: 574

Moinsen, eigentlich wollte ich nur einen String in einen Integer umwandeln, aber es scheint ja doch nicht ganz so einfach zu sein. Wink

Folgender Code klappt, er gibt mir als Ergebnis 124: Dim b b = CInt(123.6) Response.Write("b = " & b) Nun dachte ich mir, dass der Wert 123.6 doch auch durch eine Variable vom Typ String kommen könnte. Also probie ...

Verfasst am: 20.10.2011, 18:43 Aufrufe: 162

#include <iostream> using namespace std; int main() { int Eingabe; int Quadrat; cout << "Geben Sie eine Zahl ein: "; cin >> Eingabe; Quadrat = Eingabe * Eingabe; cout << "Die Quadratzahl lautet " << Quadrat << endl; } Da soll das Fenster aufgehen ich kann eine Zahl eiingeben enter drücken und dann sol die Zahl mit sich selbst mahl geno ...

Verfasst am: 30.09.2011, 07:59 Aufrufe: 433

Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 14.06.2011, 22:25 Aufrufe: 518

Verfasst am: 14.06.2011, 21:01 Aufrufe: 518

Verfasst am: 23.05.2011, 07:45 Aufrufe: 417

Verfasst am: 22.05.2011, 16:27 Aufrufe: 417

Verfasst am: 07.12.2010, 23:13 Aufrufe: 1030

Refresh() gelöscht wird. Wie kann ich sowas wie AutoRedraw() bei VB6 unter VB2010 erreichen? Beispielcode einer analogen Uhr: Es ist nur eine normale Form samt einem Timer erforderlich. --- Public Class Form1 Public x0, y0, r, rs, rm, rh As Integer ' Mittenkoordinaten, Radien Public g As Graphics Public m_Face As Bitmap Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System. ...

Verfasst am: 18.11.2010, 17:19 Aufrufe: 926

Hier der Code: C++: void WriteString(char* SPSinput) { char* WerteString; //Der zerlegte Teilstring int Werte[6]; //Array für die Werte aus dem String USES_CONVERSION; WerteString=strtok(SPSinput,"$"); //Abspalten des ersten Teilstrings Werte[0]=atoi(WerteString); //Speichern des abgespaltenen String im Arrayfeld [0] f ...

Verfasst am: 23.09.2010, 10:17 Aufrufe: 811

so zum nächsten problem timer2 nehm ich an macht aus dem bewegten bild eine "gehbewegung" oder?! mit dem ständigen bild wechsteln aber flimmert dass denn nicht?! egal lass doch mal überall "if gegner1 = bod11 then goto ende" weg weil wenn die schleife im timer2 (int 200) durchläuft wird der ganze vorgang (also bilder wechseln) nach dem ersten bild abgebrochen (wegen goto ende) ...

Verfasst am: 21.09.2010, 10:01 Aufrufe: 926

Leider bekomme ich die Fehlermeldung, dass eine Konvertierung von 'short(*)Der C++-Code void WriteString(char* SPSinput) { char* WerteString[6]; short Werte[6]; for (int i=0;i<6;i++) { WerteString[i]=strchr(SPSinput,'$'); Werte[i]=atoi(WerteString[i]); } try { CoInitialize(NULL); ...

Verfasst am: 09.05.2010, 12:52 Aufrufe: 806

Console Module Module1 Dim Anzahl As String Dim Durchläufe As Integer Dim ZwErg As Integer Dim Summe As Integer Dim numericCheck As Boolean Sub Main() Do Summe = 0 WriteLine("Bitte geben Sie die Anzahl der Durchläufe ein") Anzahl = ReadLine() ' nein, readline gibt Ihnen einen string zurück, aus dem müssen Sie eine Int mac ...

Verfasst am: 18.01.2010, 20:33 Aufrufe: 386

Verfasst am: 15.12.2009, 08:39 Aufrufe: 466

hey na das is ja klar du kannst ja nicht hellsehen oder? wenn du auf den button drückst bist du immer eine rechnung hinten nach! du musst das also umdrehen in der form load Randomize zahl1 = Int(Rnd * 100) + 1 zahl2 = Int(Rnd * 100) + 1 erg = zahl1 + zahl2 lb_aufgabe = CStr(zahl1) + " + " + CStr(zahl2) somit steht eine Rechnung drin die du ausrechnen ...

Verfasst am: 14.12.2009, 21:27 Aufrufe: 466

Verfasst am: 25.11.2009, 01:00 Aufrufe: 2238

Verfasst am: 23.11.2009, 18:33 Aufrufe: 722

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6627

Show("Login nicht OK") End If End Sub End Class Login schlägt immer fehl, aber auch im letzten Login wird nicht angezeigt dass man eingeloggt war. Cookies müssen dazu, nicht? Wie baue ich die wo ein?? Wäre sehr dankbar für Hilfe! Hier nochmal mein LiveHTTPHeaders mitschnitt: https://login.web.de/intern/login/ POST /intern/login/ HTTP/1.1 Host: login.web.de User-Ag ...

Verfasst am: 18.06.2009, 16:21 Aufrufe: 959

Verfasst am: 18.06.2009, 13:00 Aufrufe: 904

... n besser AbfragenKontra- Längerer Code ( auch nicht so wirklich )- Falls man für das Schreiben in der Reg keine Rechte hat geht das natürlich nichtAlso fangen wir mal anAls erstes brauchen wir ein ModulDen könnt ihr so Kopieren, braucht ihr nicht zu verstehenHab ich auch gemacht( Die die solche codes lernen sind dann auch nur Freaks )'wird in der Form benötigt: Public SubKey$ Public Eint ...

Verfasst am: 12.06.2009, 18:57 Aufrufe: 480

hi ich habe folges problem ich habe mal in letzer zeit vor gehabt mich mehr um die spiele programmierung zu kümmen nun ich habe nun dieses problem Dim i, y As Integer Dim ergebnisen(15) As String For i = 0 To 3 For y = b To 15 If aufgabe(i) = feld(y).BackColor Then Randomize -Timer ergebnisen(y) = Int(4 * Rnd) + 1 ergebnisen(y) = ergebnisen(y) ...

Verfasst am: 12.06.2009, 17:33 Aufrufe: 540

Cells(zeile, spalte).Value = i spalte = spalte + 1 If spalte = 11 Then spalte = 1 zeile = zeile + 1 End If Next colorf = 3 zeile = 1 spalte = 2 Value = Worksheets(1).Cells(zeile, spalte).Value For a = Value To Int(Sqr(l)) If Not Worksheets(1).Cells(zeile, spalte).Interior.ColorIndex Like "[1,colorf]" Then Call Markieren(Value, colorf, l) ...

Verfasst am: 28.05.2009, 04:00 Aufrufe: 956

Text) Dim strPlainStelle As String strPlainStelle = Mid(txtPlain.Text, i, 1) 'If Int(Asc(strPlainStelle) + strSchlüssel) > 256 Then strCrypted = test strCrypted = strCrypted & Chr(Int(Asc(strPlainStelle) + strSchlüssel)) Next i txtCrypted.Text = strCrypted ...

Verfasst am: 08.05.2009, 23:11 Aufrufe: 1102

Verfasst am: 03.05.2009, 12:38 Aufrufe: 2362

Das funktioniert so, dass wir jetzt den Variablen nTableDef und nField erstmal die Namen und Eigenschaften übergeben und dann diese Variablen an die eigentliche Datenbank übergeben. 'Tablename nTableDef.Name = "TestTable" Und nun die erste Spalte. (Felder) Bei dieser möchte ich euch gleich zeigen wie man eine eindeutige ID von der Db für jeden Eintrag erstellen lässt. Tipp: Benutzt oft " ...

Verfasst am: 13.04.2009, 15:27 Aufrufe: 751

BaseStream.Length]; // Byte-Array mit der Größe unserer Datei anlegen sr.BaseStream.Read(buffer, 0, (int)sr.BaseStream.Length); // Datei ins Array laden sr.Close(); List<byte> result_buffer = new List<byte>(); // Zwischenspeicher für Datei-Array und Text-Array foreach (byte b in buffer) r ...

Verfasst am: 09.04.2009, 18:15 Aufrufe: 3601

... 41; bKeyChars(17) = Asc("2") bKeyChars(18) = Asc("3") bKeyChars(19) = Asc("4") bKeyChars(20) = Asc("6") bKeyChars(21) = Asc("7") bKeyChars(22) = Asc("8") bKeyChars(23) = Asc("9") Dim nCur As Int ...

Verfasst am: 05.04.2009, 15:08 Aufrufe: 2141

h> void linie_prg_ueberschrift(void); void linie_menue_punkt_2(void); #define ANZ_LZ 49 // Anzahl der Lottozahlen #define ANZ_TIPPS 6 // Anzahl der abzugebenen Tipps main() { int zufallz,r,x,y,z; char spielfeld[5][11]; int *ptrx,*ptry; int menue;//Auswahlmenue char e;// Abgesicherte eingabe printf("Was Wollen Sie spielen?? \n\n"); // Ausgabe von Menü printf ...

Verfasst am: 13.03.2009, 14:53 Aufrufe: 1141

Dim ergebnis(1 To 49) As integer Dim verteilung(1 To 49) As integer Dim i, zahl as integer Randomize 'wichtig, sonst gibts immer nur die gleichen Zahlenkombinationen! For i = 1 To 6 zahl = Int((49) * Rnd + 1) If zahl <> ergebnis(zahl) Then ergebnis(zahl) = zahl verteilung(zahl) = verteilung(zahl) + 1 Else i = i - 1 End If Next i Habe versucht alles zusammen ...

Verfasst am: 13.03.2009, 13:16 Aufrufe: 1141

du brauchst 6 textboxen, in die der benutzer seine zahlen eintragen kann (du musst dementsprechend auch prüfen, ob die eingaben in den textboxen auch zahlen von 1 bis 49 sind) dann machst du die ziehung und überprüfst, ob die eingaben mit den gezogenen zahlen übereinstimmen das kann man zB. so machen: dim i, Gewinne as byte for i = 1 to 7 if int(text1.text) = Zahl(i) then Gewinne = ...

Verfasst am: 12.03.2009, 17:22 Aufrufe: 1141

Hallo Vorab: Ich bin ein ziemlicher noob in vb. Ich hänge ziemlich hinterher und kenne viele Grunskenntnisse noch nicht! Fals ihr mir helfen wollt, wäre nett wenn ihr mir einige Sachen erklären könntet! So ich muss diese Aufgabe machen : Also zu meiner Grafischen oberfläche: Ich habe cmd_start, cmd_ende, 7 lbl und 7 txtboxen(1-6 lottozahl und 7 ist die Zusatzzahl) dann noch 2 buttons einmal für login und r ...

Verfasst am: 06.02.2009, 18:47 Aufrufe: 2032

... er Abfragen Kontra - Längerer Code ( auch nicht so wirklich ) - Falls man für das Schreiben in der Reg keine Rechte hat geht das natürlich nicht Also fangen wir mal an Als erstes brauchen wir ein Modul Den könnt ihr so Kopieren, braucht ihr nicht zu verstehen Hab ich auch gemacht ( Die die solche codes lernen sind dann auch nur Freaks ) 'wird in der Form benötigt: Public SubKey$ Public Eint ...

Verfasst am: 29.01.2009, 22:04 Aufrufe: 2442

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM); //Zum Epfangen der Eingaben des Benutzers const char szAppName[] = "Ein eigenes Fenster"; //Fensterklassen-Name int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, //Sub Beginn PSTR szCmdLine, int iCmdShow) { HWND hWnd; //hwnd deklarieren MSG msg; ...

Verfasst am: 13.09.2008, 11:38 Aufrufe: 1345

Verfasst am: 12.09.2008, 22:31 Aufrufe: 1345

Verfasst am: 11.09.2008, 18:45 Aufrufe: 1345

Verfasst am: 29.08.2008, 15:36 Aufrufe: 1144

ich meinte es so mit dem produkt key machineguide und io es zu entschlüsseln #define WIN32_LEAN_AND_MEAN #include #include #include #include "aesphm.h" using namespace CryptoPP; // WARNING: EXTREMELY SENSITIVE INFORMATION! #define ACCOUNT_PHRASE_SIZE (XXX + 8 + 20) static byte accountphrase so nur halt für vb6

Verfasst am: 10.07.2008, 19:03 Aufrufe: 618

Verfasst am: 10.06.2008, 21:27 Aufrufe: 1174

Copy(bytDPID, 52, bytKey, 0, 15) 'Unser "Array" beinhaltet nun gültige Zeichen Dim strChar As String = "ABCDFGHJKMPQRTVWXY123467890" 'jetzt muss der decodierte Schlüssel zurückgegeben werden Dim strKey As String = "" For j As Integer = 0 To 24 Dim nCur As Short = 0 For i As Integer = 14 To 0 Step -1 nCur = CShort(nCur * 256 Xor bytKey(i)) ...

Verfasst am: 09.06.2008, 13:53 Aufrufe: 296

Verfasst am: 06.05.2008, 20:51 Aufrufe: 934

Private Function GetRandomString() As String Dim sChars As String, iLen As Integer, sOutput sChars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"' 'welche Ziffern iLen = 5 'wie viele Ziffern es sein sollen For i = 1 To iLen &nb ...

Verfasst am: 05.05.2008, 20:51 Aufrufe: 934

Private Sub Form_Load()randomize 'wichtig, wenns gans zufällig sein sollend subaufruf:private sub command1_click()text1.text = rand(10000,99999)end sub

Verfasst am: 01.05.2008, 14:20 Aufrufe: 1174

Beschreibung:Dieses Snippet liest den Produkt-Installationsschlüssel (Schlüssel auf dem Echtheitszertifikat) und die Seriennummer aus.Der Schlüssel wird als Listview Item zurückgegeben und kann somit direkt in ein Listview-Steuerelement eingetragen werden.Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 30.04.2008, 23:38 Aufrufe: 445

Verfasst am: 30.04.2008, 21:15 Aufrufe: 445

Verfasst am: 24.04.2008, 21:04 Aufrufe: 355

Verfasst am: 17.04.2008, 17:01 Aufrufe: 474

Verfasst am: 17.04.2008, 12:37 Aufrufe: 2097

Das funktioniert so, dass wir jetzt den Variablen nTableDef und nField erstmal die Namen und Eigenschaften übergeben und dann diese Variablen an die eigentliche Datenbank übergeben.'Tablename nTableDef.Name = "TestTable"Und nun die erste Spalte. (Felder)Bei dieser möchte ich euch gleich zeigen wie man eine eindeutige ID von der Db für jeden Eintrag erstellen lässt.Tipp: Benutzt oft "with", dann ble ...

Verfasst am: 11.04.2008, 20:36 Aufrufe: 847