Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

zadania dla poczatkujacego

Primaveraa

Rekomendowane odpowiedzi

GameOverMan Specjalista

GameOverMan

Opublikowano
Specjalista

GameOverMan

Opublikowano

Takie zadania są nudne, jak już zrobiłeś tamte to znaczy, że coś potrafisz.

Lepiej sobie załóż sam jakiś cel, jakbyś miał problemy z jego zrealizowaniem to pisz.

obraz24.png


Keniger Mentor

Keniger

Opublikowano
Mentor

Keniger

Opublikowano

"1. Program ktory bedzie usuwal wszystkie polskie znaki w tekscie i podmienial na normalne czyli "ą" na a itd.

2. Program pocztowy - bedzie pokazywal Twoje meaile i co chcesz normalnie w programie. Bez koniecznosci logowania sie przez przegladarke(podpowiedz: smtp)
3. Gra w statki...przez TCP :) czyli przez neta (mialem kiedys zrobic i mi sie ciagle nie chce moze zaraz zaczne pisac ;p )
4. Państwa miasta ... przez neta ;)"

OndteAw.png
Primaveraa Znawca

Primaveraa

Opublikowano
Znawca

Primaveraa

  • Autor
Opublikowano

O kurwa wlasnie myslalem jak to zrobic by gdy w inpucie bylo napisane
ą to by zamienilo na a i myslalem nad ifami na razie wyglada to tak :D

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Zmieniacz :D", 610, 438, 197, 124)
$Input1 = GUICtrlCreateInput("Wpisz tu", 56, 24, 521, 21)
$Button1 = GUICtrlCreateButton("Kliknij by wygenerowac", 112, 56, 369, 65)
$Label1 = GUICtrlCreateLabel("", 8, 160, 588, 236)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1

            $loleks = GUICtrlRead($Input1)

            GUICtrlSetData($Label1,$loleks)

        Case $GUI_EVENT_CLOSE

            Exit

    EndSwitch
WEnd

 

teraz musze najgorszą część

 

 

@edit poczytam o string replace pierw ;p czy wgl dobrze to na razie zrobilem?

xxx

Primaveraa Znawca

Primaveraa

Opublikowano
Znawca

Primaveraa

  • Autor
Opublikowano

spróbowałem coś takiego zrobić ale gdy klikam na button to nic się nie dzieje :(

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Zmieniacz :D", 610, 438, 197, 124)
$Input1 = GUICtrlCreateInput("Wpisz tu", 56, 24, 521, 21)
$Button1 = GUICtrlCreateButton("Kliknij by wygenerowac", 112, 56, 369, 65)
$Label1 = GUICtrlCreateLabel("", 8, 160, 588, 236)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1

            $loleks = GUICtrlRead($Input1)
            $odmiana=StringReplace("ą" , $Input1, "a")

            GUICtrlSetData($Label1,$odmiana)

        Case $GUI_EVENT_CLOSE

            Exit

    EndSwitch
WEnd


JEST MAM! pomyslalem i juz mi dobrze to robi lecz gdy wpisuje np srą i klikam na button to nic sie nie dzieje :D rozwiazalem tam ten problem tak :D

 

$odmiana=StringReplace("a" , $loleks, "ą")

xxx

Keniger Mentor

Keniger

Opublikowano
Mentor

Keniger

Opublikowano

Ja bym zrobił to w ten sposób :

$Input1 = GUICtrlCreateInput("Wpisz tu", 56, 24, 521, 21)

$loleks = GUICtrlRead($Input1)

$lol = StringRegExpReplace($loleks, "ą", "a") ; Może być StringReplace, moja pomyłka StringRegExpReplace służy do wielokrotnej zmiany znaków np [ąęźćżńł] na np "0"

MsgBox(48, "HEHHE", "Output : " & $lol)

OndteAw.png
Primaveraa Znawca

Primaveraa

Opublikowano
Znawca

Primaveraa

  • Autor
Opublikowano

Ja lece będe albo jutro albo po jutrze mozecie mi wyjasnic do czego jest output i czym sie rozni zrobienie tego w msg boxie od zrobieniu w labelu i czy w labelu wgl da sie to zrobic :D

xxx

Keniger Mentor

Keniger

Opublikowano
Mentor

Keniger

Opublikowano

Output ? Nie ma takiego czegoś xD takiej komendy tyle że to oznacza tekst wyjściowy

MsgBox - Wyświetla ci komunikat w postaci nowego okna

Label - jakiś statyczny tekst :D

OndteAw.png
Coocainek12 Bywalec

Coocainek12

Opublikowano
Bywalec

Coocainek12

Opublikowano 
#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Zmieniacz", 438, 90, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 32, 329, 21)
$Label1 = GUICtrlCreateLabel("Wpisz tekst:", 8, 8, 62, 17)
$Label2 = GUICtrlCreateLabel("Zmieniony tekst: ", 8, 64, 84, 17)
$Label3 = GUICtrlCreateLabel("Label3", 96, 64, 244, 17)
$Button1 = GUICtrlCreateButton("Zmien", 352, 32, 75, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Zmieniony = StringReplace(GUICtrlRead($Input1), "ą", "a")
			GUICtrlSetData($Label3, $Zmieniony)
	EndSwitch
WEnd

Prosze bardzo z labelem .

Zbieram + : D

Keniger Mentor

Keniger

Opublikowano
Mentor

Keniger

Opublikowano

@Up, tak :

 

#include <GUIConstantsEx.au3>
 
 
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Zmieniacz", 438, 90, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 32, 329, 21)
$Label1 = GUICtrlCreateLabel("Wpisz tekst:", 8, 8, 62, 17)
$Label2 = GUICtrlCreateLabel("Zmieniony tekst: ", 8, 64, 84, 17)
$Label3 = GUICtrlCreateLabel("Label3", 96, 64, 244, 17)
$Button1 = GUICtrlCreateButton("Zmien", 352, 32, 75, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Zmieniony = StringReplace(GUICtrlRead($Input1), "ą", "a")
            GUICtrlSetData($Label3, $Zmieniony)
    EndSwitch
WEnd
na hooy tyle include
OndteAw.png
Primaveraa Znawca

Primaveraa

Opublikowano
Znawca

Primaveraa

  • Autor
Opublikowano

wtedy zmienia tylko ą na a, a co zrobic by zmienialo inne znaki? zrobic kolejne zmienne? :D



zaciekawilo mnie zadanie numer 2 :P powiedzcie co bedzie do tego potrzebne? :P

xxx

kaje11 Specjalista

kaje11

Opublikowano
Specjalista

kaje11

Opublikowano 

$arr = stringSplit( "ąa,ćc,ęe,łl,ńn,óo,śs,źz,żz", "," )

$str = guiCtrlRead( $Input1 )

For $i = 1 To $arr[ 0 ]

$tmp = stringSplit( $arr[ $i ], "", 2 )

$str = stringReplace( $str, $tmp[ 0 ], $tmp[ 1 ] )

Next

GUICtrlSetData( $Label3, $str )

Co do 2 zadania - zdecydowanie dla zaawansowanych (TCP), lepiej zacznij od innych, uwierz :)

WSZYSTKIE PLIKI W CHMURZE DLA MPCFORUM ZOSTAŁY USUNIĘTE. NIE KORZYSTAĆ Z MOICH PROGRAMÓW.

Proszę nie ingerować w moje posty/tematy, w razie potrzeby usunąć całą zawartość. Nie pomagam.

kaje11 Specjalista

kaje11

Opublikowano
Specjalista

kaje11

Opublikowano

 

_INetMail($s_MailTo, $s_MailSubject, $s_MailBody)

_INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress [,$s_Subject [,$as_Body [,$s_helo [,$s_first [,$b_trace]]]]])

 

Oba mają za zadanie wyłącznie wysyłać maile.

WSZYSTKIE PLIKI W CHMURZE DLA MPCFORUM ZOSTAŁY USUNIĘTE. NIE KORZYSTAĆ Z MOICH PROGRAMÓW.

Proszę nie ingerować w moje posty/tematy, w razie potrzeby usunąć całą zawartość. Nie pomagam.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...