- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Mr Dini: Mindent a StreamSharkról!
- gban: Ingyen kellene, de tegnapra
- sh4d0w: Csak a profit - emberélet nem számít
- Klaus Duran: 2025 dude
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
Új hozzászólás Aktív témák
-
Oly
őstag
Most addig eljutottam, hogy néhány helyen már futnak a scriptek, de még mindig nem mind.
pl ez sem:Private Sub Command34_Click()
Dim proba As Long
'Dim sortores As String
'sortores = ""
hivas = MsgBox("Hívtad a kontaktot?", vbQuestion + vbYesNo, "Megerősítés")
If hivas = vbNo Then
GoTo Vege
End If
If probalkozasok.Value > 0 Then
sortores = vbCrLf
End If
probalkozasok.Value = probalkozasok.Value + 1
nvf = MsgBox("Sikerült elérni az ügyflelet?", vbQuestion + vbYesNo, "Kérdés")
If nvf = vbYes Then
hozzafuz = InputBox("Eredmény", "Kérlek add meg, hogy mire jutottál")
lezarass = MsgBox("Lezáruk a jegyet sikeres kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
If lezarass = vbYes Then
Lezarva = 2
MyFile = "BP.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), user(), "M", ID, Lezarva
Close #fnum
End If
Else
hozzafuz = "Nem vette fel"
End If
Kiertesites_eredmenye = Kiertesites_eredmenye & sortores & probalkozasok & ". kiértesítés: " & hozzafuz
If probalkozasok.Value = 1 Then
Kiertesito1 = user()
Kiertesites1 = Now()
End If
If probalkozasok.Value = 2 Then
Kiertesito2 = user()
Kiertesites2 = Now()
End If
If probalkozasok.Value = 3 Then
Kiertesito3 = user()
Kiertesites3 = Now()
lezaras = MsgBox("Ez volt a harmadik próbálkozás! Lezáruk a jegyet sikertelen kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
If lezaras = vbYes Then
Lezarva = 3
MyFile = "BP.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), user(), "M", ID, Lezarva
Close #fnum
End If
End If
Vege:
End Sub
Új hozzászólás Aktív témák
- OHH! Dell Precision 7560 Tervező Vágó Laptop -70% 15,6" i7-11850H 32/1TB NVIDIA A3000 6GB FHD
- Asztali PC , i7 6700K , 1080 Ti 11GB , 32GB DDR4 , 500GB NVME , 500GB HDD
- Asztali PC , R5 8400F , RTX 3070 , 32GB DDR5 , 500GB NVME , 2TB HDD
- Legion Go 1TB
- Lenovo LOQ 15IRX9 - i5 13450HX, 16GB, RTX 4060 8G, 1TB M.2 (Gari: 2027.03.11.)
- MacBook felváráslás!! MacBook, MacBook Air, MacBook Pro
- Tablet felvásárlás! Samsung Galaxy Tab S10+, Samsung Galaxy Tab S10 Ultra, Samsung Galaxy Tab S10 FE
- LG 34WR55QK-B - 34" Ívelt VA - 3440x1440 - 100Hz 5ms - FreeSync Premium - HDR 10 - USB Type-C 65W
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- ismét elérhető 3db - Sennheiser MOMENTUM 4 fejhallgatók
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest